ada - 如何使用 “separate"关键字

Question

我无法找出关键字 separate在 Ada 及其深度概念中。请举个小例子帮助我理解？

假设我有一个嵌套过程

with ada.text_io; use ada.text_io;
procedure main is
   procedure proc is
   begin
      put_line ("i am proc");
   end proc;
begin
   put_line ("main");
end main;

如何使用单独的关键字？

Answer 1

您主要使用单独的关键字来实现两种效果之一。

操作系统特定操作。 (将2个版本的程序/函数放在不同的目录下，针对2个不同的目标进行编译)

将冗长的过程与周围的代码分开。

这是显示语法的示例。

package_x.ads

package Package_X is

   procedure Foo;
   procedure Sep;

end Package_X;

package_x.adb

package body Package_X is

   procedure Foo is 
   begin
      null;
   end Foo;

   procedure Sep is separate;

end Package_X;

package_x-sep.adb

separate (Package_X) procedure Sep is 
begin
   null;
end Sep;