Question

我试图让gprbuild在我的源代码中自动设置一些变量值 - 不管怎样。特别是我希望可以从代码中访问某些命令的输出。在带有Makefile的C中，这很简单：

源：

#include <stdio.h>
int main() { printf("%s\n", COMMAND_OUTPUT); return 0; }

请：

result : source.c
    $(CC) -DCOMMAND_OUTPUT=`command -with -options`

但是我不知道如何用gprbuild和Ada做这样的事情。（没有放弃gprbuild而只是使用make - 但我更喜欢gprbuild）

Answer 1

Ada不使用像C这样的预处理器。你不能指望Ada编译器修改代码中的字符串。使用这种内联编辑很容易违反Ada强类型，这很难诊断，并且对源代码静态分析完全不可见。

Answer 2

我通过在构建之前从makefile生成Ada文件来解决这个问题。

一个例子：

HG_STATE_SOURCE     = src/mercurial.ads
HG_MODIFIER         = `test $$(hg status | wc -c || echo 0) -gt 0 && echo "plus changes" || echo "as committed"`
HG_REVISION         = `hg tip --template '{node}' 2>/dev/null || echo N/A_____________________________________`

[...]

$(HG_STATE_SOURCE): Makefile $(REPOSITORY_CONFIG) $(REPOSITORY_STATE) $(PROJECT_ROOT_SOURCE)
    @mkdir -p src
    @echo 'package 'Mercurial is'                                >  $(HG_STATE_SOURCE)
    @echo '   Revision : constant String (1 .. 53) :='           >> $(HG_STATE_SOURCE)
    @echo '                "'$(HG_REVISION)' '$(HG_MODIFIER)'";' >> $(HG_STATE_SOURCE)
    @echo 'end 'Mercurial;'                                      >> $(HG_STATE_SOURCE)

Answer 3

是的，gnatprep预处理程序允许的功能与C代码中的功能完全相同：

main.adb：

with Ada.Text_IO; use Ada.Text_IO;

procedure Main is
begin
   Put_Line ($Command_Output);
end Main;

simple_gnatprep.gpr：

project simple_gnatprep is

   for Create_Missing_Dirs use "True";

   Command_Output := external ("Command_Output");

   for Source_Dirs use (".");
   for Exec_Dir use ".";
   for Main use ("main.adb");

   for Object_Dir use "obj/" & "CommandOutput_" & Command_Output;

   package Compiler is
      for Switches ("Ada") use ("-gnateDCommand_Output=""" & Command_Output & """");
   end Compiler;
end simple_gnatprep;

Makefile：

COMMAND_OUTPUT=$(shell echo hello there)

all:
    gprbuild -d -p -g -XCommand_Output='${COMMAND_OUTPUT}'

clean:
    rm -rf obj/ *.exe

注意，我已经将命令输出包括在所使用的obj /目录中，如果命令输出的任何符号都无法出现在目录名中，则该命令将失败。但是，如果省略它，则gprbuild会说，除了命令的输出外，什么都没有改变，您的可执行文件是最新的。

另一种选择是始终在编译之前删除对象目录，但是在可能的情况下，最好在对象路径中包含任何预处理器符号的值，以便从一个配置（例如Debug / Release）切换到另一个配置，然后再返回不会丢弃中间结果并减慢您的开发过程。

Gnatprep仅包含在GNAT编译器中，因为Ada标准中尚未提供任何预处理功能。对于其他编译器，您将需要在Makefile中通过gnatprep分别运行每个文件，然后将其传递给编译器。在这种情况下，无需摆弄对象目录名称，因为源文件将始终是新文件，并且编译器将始终必须重新编译所有内容。

gprbuild将外部信息输入源代码

3 个答案:

main.adb：

simple_gnatprep.gpr：

Makefile：