不使用读取功能获取模块数据

Question

我正在尝试获取多个对象的 inlinks 和 outlinks 中的属性，我的目标是通过将读取的模块存储在跳过列表中并在阅读之前检查跳过列表来不再重新读取相同的模块下一次模块。

所以我的问题是，如果之前已经打开过，我如何获取存储在跳过列表中的模块名称的数据？ 如果该模块之前打开过，那么 m2 = module item str2 行是否足以替换读取功能？

下面是我尝试获取对象的链接属性：

Skip sInlink = create()

void get_object_inlinks (Object obj)
{
   string str, str2
   LinkRef lk = null
   Object o = null

   for lk in all (obj <- "*") do
   {
     ModName_ mn = source(lk)
     str = fullName(mn)
     if (!find(sInlink, str, str2))
     {
        m2 = read(str, false)
        put(sInlink, str, str)
     }
     else
        m2 = module item str2

     if (m2 != null)
     {
        o = gotoObject(sourceAbsNo(lk), m2)
        // get object o attributes
        ...
     }
   }
}

Answer 1

您是否有不想重新阅读该模块的原因？一旦模块打开，再次读取它并不会重新打开模块，除非您每次都关闭它。

但是，另一种方法是将模块句柄存储在跳过列表中而不是模块名称中。

put(sInlink, str, m2)

然后代替：

if(!find(sInlink, str, str2))

使用：

if(!find(sInlink, str, m2))

如果找到str，它将把模块句柄放在m2，如果没有，您可以继续阅读。

如果你还没有这个，你应该遍历跳过列表并关闭代码末尾的所有模块。

for m2 in sInlink do
{
  if(!null m2) close m2
}

祝你好运！