generics - Ada 嵌套通用包

Question

我尝试了很多搜索我认为是嵌套通用包的东西，我不知道如何在 Ada 中实现。我在网上找不到任何有用的参考资料或资源来说明我正在尝试完成的工作，所以请告诉我是否有可能或其他方式来完成它。

package AdjList is new List(Integer);
package Graph is new List(AdjList);

关于我传递给List通用包的类型，我收到这两行的编译错误。

我试图有 2 个嵌套列表，它们将形成一种图形，我被迫使用这种实现方法。有什么想法/想法吗？

Answer 1

该错误来自您正在传递的事实AdjList，这是参数的一个包。您需要传递一个类型，该类型是该包的主要数据。

package AdjList is new List(Integer);
package Graph is new List(AdjList.Data);   

Answer 2

根据编译器/您设置开发环境的方式，您可能需要确保每个包实例都位于单独的文件中（如果您使用的是 Gnat，则为 .ads 文件）。