ADA GNAT项目，其中包括不同命名的文件，用于不同的构建配置

Question

我有一个具有多种构建配置的GNAT/GPRBUILD项目。我有一个主源文件和一个辅助广告文件，主要源文件包含：

with Secondary_File; use Secondary_File;

问题是，在每种配置中，辅助文件具有不同的名称。例如，它可以称为一个config和secondary_file_2.ads的secontary_file_1.ads。这使得无法将上述与语句一起使用。

在C中，我会做这样的事情：

#ifdef BUILD_CFG_1
#include "secondary_file_1.h"
#else
#include "secondary_file_2.h"
#endif

使用GPRBuild系统，是否有一种聪明的方式在ADA中做这样的事情？

Answer 1

许多纯粹主义者拒绝预处理的想法，但是可以使用gnat 。

您可以通过编写源来将其包括在基于GPR的构建环境中，例如 main.adb ，例如：（

with Secondary_File_$NUMBER;
procedure Main is
begin
   null;
end Main;

观察 $ numbern ：

project Prj is

   for Main use ("main.adb");

   --  Configurations
   type Config_Type is ("config_1", "config_2");
   --  Which one? (default is "config_1")
   Config : Config_Type := external ("CONFIG", "config_1");

   package Compiler is
      case Config is
         when "config_1" =>
            for Switches ("main.adb") use ("-gnateDNUMBER=1");
         when "config_2" =>
            for Switches ("main.adb") use ("-gnateDNUMBER=2");
      end case;
   end Compiler;

end Prj;

编译给予

$ gprbuild -Pprj
Compile
   [Ada]          main.adb
main.adb:1:06: error: file "secondary_file_1.ads" not found
gprbuild: *** compilation phase failed

（汇编查找 secondary_file_1.ads ）

$ gprbuild -Pprj -XCONFIG=config_2
Compile
   [Ada]          main.adb
main.adb:1:06: error: file "secondary_file_2.ads" not found
gprbuild: *** compilation phase failed

（汇编寻找 second> secondary_file_2.ads ）

Answer 2

Simon Wright 的答案的一个小变化是使用 naming naming package> package 和 spec> spec spec 。当文件名不同时，此变化很有用，但是软件包名称是相同的： secondary_file 。因此，不确定这在您的情况下是否有效。

main.adb

with Ada.Text_IO;
with Secondary_File;

procedure Main is
begin
   Ada.Text_IO.Put_Line (Secondary_File.Foo);
end Main;

secondary_file_1.ads

package Secondary_File is
   Foo : constant String := "Package 1";
end Secondary_File;

secondary_file_2.ads

package Secondary_File is
   Foo : constant String := "Package 2";
end Secondary_File;

prj.gpr

project Prj is

   for Main use ("main.adb");
   for Source_Dirs use ("src/**");
   for Object_Dir use "obj";

   type Config_Type is ("config_1", "config_2");
   Config : Config_Type := external ("CONFIG", "config_1");

   package Naming is      
      case Config is         
         when "config_1" =>
            for Spec ("Secondary_File") use "secondary_file_1.ads";            
         when "config_2" =>
            for Spec ("Secondary_File") use "secondary_file_2.ads";            
      end case;
   end Naming;

end Prj;

uptump （编译器） ）

$ gprbuild -Pprj -XCONFIG=config_1 && ./obj/main
Compile
   [Ada]          main.adb
   [Ada]          secondary_file_1.ads
Bind
   [gprbind]      main.bexch
   [Ada]          main.ali
Link
   [link]         main.adb
Package 1

$ gprbuild -Pprj -XCONFIG=config_2 && ./obj/main
Compile
   [Ada]          main.adb
   [Ada]          secondary_file_2.ads
Bind
   [gprbind]      main.bexch
   [Ada]          main.ali
Link
   [link]         main.adb
Package 2

Answer 3

在 simon's

许多纯粹主义者拒绝预处理的想法

和纯粹主义者的回答的想法是：使用GPR项目文件，他们提供“ 方案变量 ”功能，这些功能应该完全可以完成您想要的事情，而无需重命名或依赖文件一些预处理步骤。

我猜 secondary_file.ads 是唯一的（接口/合同），因此您将每个 Secondary_file.adb 放在其自己的文件夹中（不同的实现）。

然后，它易于根据方案变量调整GPR source_dir/source_files列表。该变量可以在GNATSTUDIO IDE，ENV VAR和命令行标志中设置。

因此，您可以拥有此文件夹树：

src
|-- main.adb
|-- Secondary_File.ads
|-- implA
    |-- Secondary_File.adb
|-- implB
    |-- Secondary_File.adb
|-- implC
    |-- Secondary_File.adb

然后使用此GPR文件 my_project.gpr ：

project my_project is
    -- enum value shall match folders
    type Secondary_Impl is ("implA", "implB", "implC");
    the_secondary_impl_val : Secondary_Impl := external("secondary_impl_env_var", "implA"); -- gprbuild will look for env var if any, otherwise defaults to implA
    for Source_Dirs use ("src", "src/" & the_secondary_impl_val );
    -- other useful settings : obj dir, compiler/linker switches etc.
    -- ...
end my_project;

然后，您要做的就是使用GPR构建构建：

# build with impl A
gprbuild -Pmy_project.gpr -Xsecondary_impl_env_var=implA

# build with impl C
gprbuild -Pmy_project.gpr -Xsecondary_impl_env_var=implC

或偶数：

# bash commands, syntax to set env var depends on the OS/shell
secondary_impl_env_var=implB
gprbuild -Pmy_project.gpr

---

根据您的特定软件，您也可以考虑对象在某些情况下可以帮助获得类似结果的定向设计模式。

Answer 4

如果某些文件不同，那么为什么没有两个不同的.gpr配置文件？您可以将不同的代码分为不同的目录，并具有第三个目录的通用代码，然后在.gpr中在类似的块中指定。

for Source_Dirs use ("main_directory",
                     "common_code_directory");

现在

for Source_Dirs use ("secondary_directory",
                     "common_code_directory");

，您在同一项目中具有不同的配置，并且可以构建一个。您甚至可以走得更远，创建包含两个配置之间共享功能的常见ADA规格文件（.1.ADA），但具有不同的行为不同的ADA Body Files（.2.ADA）。