在 Ada 编译时指定不同平台特定的包 (GNAT)

Question

我对 Ada 编程世界还是个新手，所以如果这个问题很明显，请原谅我。

我正在考虑开发一个应用程序（在 Ada 中，使用 2005 版本中的功能），该应用程序从串行端口读取数据，并基本上执行从外部设备接收的字符串和数字的操作。

现在我的意图是可能首先使用 Florist 和 POSIX 终端接口在 Linux 上完成所有串行工作...我将在其他时间访问 Windows/MacOS/etc...但我想将该选项保留为打开状态。

无论我做什么，我都想遵循 Ada 最佳实践。因此，我不想像 C 下的条件编译那样进行黑客攻击（我知道 Ada 无论如何都没有），我想知道您应该如何从命令行指定包文件中的更改（例如 gnatmake）？

我现在唯一能想到的是我可以将所有平台包命名为完全相同（即包名称 Serial.Connector 具有相同的文件名）并将它们放置在项目存档中的不同文件夹中，然后在编译时指定目录/库使用 -I 参数查找文件并更改不同平台的目录名称。

这是我使用 C/C++ 向 GCC 展示的方式...这仍然是使用 GNAT 的 Ada 的最佳方式吗？

谢谢， -乔什

Answer 1

这是处理这种情况的一种完全可以接受的方式。如果可能的话，您应该有一个通用的包规范（或多个规范，如果多个合适的话），所有特定于平台的内容都严格限制在相应的包体变体中。

（如果您确实想沿着预处理器路径走下去，有一个名为 gnatprep 可以使用，但我也不喜欢条件编译，所以我建议继续使用单独的子目录方法。）

Answer 2

您可以使用 GNAT 项目文件package Naming：摘录自一个真实的示例，我想在同一目录中的两个版本的包之间进行选择，其中一个带有调试添加，是为了

...
type Debug_Code is ("no", "yes");
Debug : Debug_Code := External ("DEBUG", "no");
...
package Naming is
   case Debug is
      when "yes" =>
         for Spec ("BC.Support.Managed_Storage")
           use "bc-support-managed_storage.ads-debug";
         for Body ("BC.Support.Managed_Storage")
           use "bc-support-managed_storage.adb-debug";
      when "no" =>
         null;
   end case;
end Naming;

选择特殊的命名，将环境变量 DEBUG 设置为 yes 或使用 gnatmake -XDEBUG=yes 进行构建。

Answer 3

是的，在 Ada 中处理此问题的普遍接受的方法是使用由构建系统选择的不同文件来执行此操作。 Gnu make 几乎是多平台的，并且可以允许您在不同的配置下构建不同的文件（具有不同的名称和/或目录以及所有内容）。

事实上，我发现这是在 C 语言中执行此操作的一种更好的方法（优于 #ifdef）。