PROSAGA码农传奇-Ada-如何将.h文件中的#define常量导入Ada？

<div class =“post-text”itemprop =“text”>
  
    如果您正在询问如何手动编写此常量的Ada表示，那么答案就是
  
   <pre class="lang-ada prettyprint-override">
 <code>
 TEST : constant := 16#1234#;

</code>
 </pre>
  
    如果你想自动维持C和Ada之间的关系，你可以得到
     <code>
 gcc
 </code>
     （或更好，
     <code>
 g++
 </code>
    ;看到最后）做咕噜咕噜的工作。特定
     <code>
 sterisk.hh
 </code>
     包含你的例子，
  
   <pre class="lang-c prettyprint-override">
 <code>
 #define TEST 0x1234

</code>
 </pre>
  
    用它编译它
  
   <pre class="lang-ada prettyprint-override">
 <code>
 g++ -c -fdump-ada-spec sterisk.hh

</code>
 </pre>
  
    产生的
     <code>
 sterisk_hh.ads
 </code>
  
   <pre class="lang-ada prettyprint-override">
 <code>
 pragma Ada_2005;
pragma Style_Checks (Off);

with Interfaces.C; use Interfaces.C;

package sterisk_hh is

TEST : constant := 16#1234#;  --  sterisk.hh:1

end sterisk_hh;

</code>
 </pre>
  
    第三种方法是创建一个包含标题的小C源（这里C更好;你不希望名字在目标文件中被破坏）
     <code>
 sterisk.c
 </code>
    ：
  
   <pre class="lang-c prettyprint-override">
 <code>
 #include "sterisk.hh"

const int _name_thats_unlikely_to_clash = TEST;

</code>
 </pre>
  
    并编译为
     <code>
 sterisk.o
 </code>
    ：
  
   <pre class="lang-ada prettyprint-override">
 <code>
 gcc -c sterisk.c

</code>
 </pre>
  
    然后，在你的Ada来源：
  
   <pre class="lang-ada prettyprint-override">
 <code>
 Test : constant Integer
with
 Import,
 External_Name => "_name_thats_unlikely_to_clash";

</code>
 </pre>
  
    当然，这种方式意味着你必须决定常量的特定类型，并且必须匹配C类型。
  
  
    此外，您需要在链接中包含C对象文件：
  
   <pre class="lang-ada prettyprint-override">
 <code>
 gnatmake foo.adb -largs sterisk.o

</code>
 </pre>
  <HR />
  
    为什么是
     <code>
 g++
 </code>
     比...更好
     <code>
 gcc
 </code>
    ？因为
     <code>
 g++
 </code>
     保留C源中的更多名称，例如函数中的参数名称。
  
</DIV>