ada - 如何在我的程序中停止执行

Question

如果不在这里复制粘贴我的代码，如果我的 ADA 程序计算出某个值为“X”的值，我如何阻止它在运行时执行更多代码行？

就像是:

 variable_name := variable_name +4;
 if variable_name >1 then
 // END program here and dont execute any lines under this one
 end if

我不是编程新手，而是 ADA 新手，因此找到正确的语法很痛苦。有什么帮助吗？

Answer 1

对此没有任何特定的语法。

如果你在主程序，一个简单的return会做。

Ada83 兼容的答案是 here on SO .

只要您没有任何任务，这两个都可以。

有一个 Ada95 Rosetta Code 解决方案，无论您是否有任务，它都可以工作:

with Ada.Task_Identification;  use Ada.Task_Identification;

procedure Main is
   -- Create as many task objects as your program needs
begin
   -- whatever logic is required in your Main procedure
   if some_condition then
      Abort_Task (Current_Task);
   end if;
end Main;

和 GNAT 特定的解决方案，也可以完成任务:

with Ada.Text_IO; use Ada.Text_IO;
with GNAT.OS_Lib;
procedure Stopping is
   procedure P is
   begin
      GNAT.OS_Lib.OS_Exit (0);
   end P;
begin
   Put_Line ("starting");
   P;
   Put_Line ("shouldn't have got here");
end Stopping;