GNAT 示例/插件：没有 dlsym() 的 lib 函数调用？

Question

README.testing 说

然后“演示”将使用 Plugins.Call 来

1. 使用 dlsym() 例程检索对动态库中符号的访问。

   Plugins.Call 是唯一调用 dlsym 的子程序。现在：

   • grep 在插件源之外的任何源文件中都找不到“调用”
   • 放置在 Call 末尾的 Put_Line 永远不会产生任何输出
   • Put_Line 放置在 Plugins.Load 的末尾会产生输出，所以我正在摸索正确的包 (plugins_unix.adb)。

   简而言之：它有效，但我不知道为什么。如何在不使用 dlsym 的情况下调用在运行时加载的库中的函数？

Answer 1

最后我明白了这个方案。

诀窍是主程序从不调用插件的函数！它仅使用 dlopen 加载插件（库）。

所有插件都是抽象基类型的后代，每个插件在其包体中声明了 2 个全局变量：

1. 类范围类型之一（到基本类型）
2. 一个受控变量（Limited_Controlled 与空记录）

   相应的重写初始化过程：

   1. 调用构造函数并将结果分配给第一个变量
   2. 从引入这个新对象的主程序中调用注册子程序。

      然后主程序可以调用它从抽象基类型中知道的所有对象的方法。

      所以简而言之，插件在库的时候会生成一个对象 加载后，主程序的行为就像“我们不会打电话给你，打电话给我们”。