获取Ada(使用GNAT编译)从当前目录外导入文件?

时间:2012-09-25 12:17:19

标签: ada gnat

我正在大学开设编程课程,选择的语言是Ada。我在Kate编写代码并使用GNAT 4.6.3进行编译。我们必须为我们的课程使用教师提供的图书馆,例如:

with foo;
use  foo;

当然,文件foo.adb必须与我的源文件包含在同一目录中。由于多个项目依赖于这个库,并且我喜欢将每个项目保存在自己的子目录中,因此我必须将库文件复制到每个新项目中。更不用说我的库代码和源代码都在同一目录中。

那么有什么方法可以去:

with ../../lib/foo
use ../../lib/foo

我已经尝试了一下,但我发现的只是关于编译器选项的东西。我宁愿不必乱用那些,特别是因为只有某些项目需要这个特定的库,所以将它添加到全局编译器设置并让编译器毫无意义地搜索路径它没有意义不需要搜索。

4 个答案:

答案 0 :(得分:8)

我会使用命令行gnatmake的GNAT项目工具。

我刚刚设置了一个例子(所以我可以肯定我所说的有用!)。我有3个目录; teacher/包含教师提供的来源,我认为您不会想要更改,也可能无法获得写入权限,jacks_lib/包含teacher.gpr指向teacher/ (您也可以将自己的库代码放在那里),jack/包含您的代码main.adbmain.gpr

jacks_lib/teacher.gpr

project Teacher is
   --  This project calls up the teacher-supplied source.

   --  This is a list of paths, which can be absolute but
   --  if relative are relative to the directory where this .gpr
   --  is found.
   for Source_Dirs use ("../teacher");

   --  Keep the built objects (.ali, .o) out of the way. Use the -p
   --  gnatmake flag to have directories like this built
   --  automatically.
   for Object_Dir use ".build";
end Teacher;

jack/main.gpr

--  teacher.gpr tells where to find library source and how to build it.
with "../jacks_lib/teacher";

project Main is
   --  for Source_Dirs use ("."); (commented out because it's the default)

   --  Keep built objects out of the way
   for Object_Dir use ".build";

   --  Build executables here rather than in Object_Dir
   for Exec_Dir use ".";

   --  What's the main program? (there can be more than one)
   for Main use ("main.adb");
end Main;

jack/main.adb

with Foo;
procedure Main is
begin
   null;
end Main;

然后,在jack/

$ gnatmake -p -P main.gpr
object directory "/Users/simon/tmp/jacks_lib/.build" created for project teacher
object directory "/Users/simon/tmp/jack/.build" created for project main
gcc -c -I- -gnatA /Users/simon/tmp/jack/main.adb
gcc -c -I- -gnatA /Users/simon/tmp/teacher/foo.ads
gnatbind -I- -x /Users/simon/tmp/jack/.build/main.ali
gnatlink /Users/simon/tmp/jack/.build/main.ali -o /Users/simon/tmp/jack/main

我应该补充一点,我在Mac OS X上使用的是GCC 4.7.0,但这对于任何最近的GNAT都可以正常使用。

答案 1 :(得分:5)

编译器选项管理构建的源代码位置的方式 - 定义“搜索路径” - 特别是基于gcc的“-I”(包括)选项(如GNAT)和大多数其他编译器。

如果你是从命令行构建的,那只是一个问题:

gnatmake -I../../lib/foo -Iother/path -Iyet/another/path project1_main.adb

gnatmake -I../../lib/foo -Isome/path -Iyet/another/path project2_main.adb

如果您正在使用GPS(GNAT Programming Studio),请打开“项目属性”对话框,选择“源目录”选项卡,然后在其中添加搜索路径。 (您也可以直接直接编辑项目属性文件(“.gpr”),但我很少这样做.YMMV。)编译器设置可以基于每个项目轻松设置,因此没有“全局编译器设置”问题哪一个人不得不关心自己。

答案 2 :(得分:3)

在@ MarcC的答案上放大,GNAT User's Guide涵盖{6>中的gnatmake§6.2gnatmake的开关:源和库搜索路径开关;该指南应包含在您的发行版中。

gnatmake命令是make的便捷目标,如example所示。

答案 3 :(得分:3)

答案中没有明确提到它,所以我会说:

with& Ada 中的use条款不对声明的&位置的 提出任何声明。使用过的单位,只有 存在。

当涉及到实际查找单位时,这完全取决于make脚本& .gpr个文件&编译选项或您提出的任何其他内容。

这就是Ada如何创建一定程度的代码可移植性(通过不将代码绑定到目录结构!),您只需要更正编译选项:)

此外,了解编译器选项几乎绝不是一个坏主意,它将在Ada&许多其他语言。