当前位置：文江博客话题详情

在 Ada 中等待任务

发布于 2024-10-07 05:59:37 字数 48 浏览 4 评论 0原文

我有一个包含任务的程序。所有任务结束后我必须做一些事情。我怎样才能做到这一点？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

梦屿孤独相伴 2024-10-14 05:59:37

在内部块中声明任务：直到所有任务完成后，该块才会退出，ARM7.6.1(4)

with Ada.Text_IO; use Ada.Text_IO;
procedure After_Tasks is
begin
   Put_Line ("at the start");

   declare
      task T1;
      task T2;
      task body T1 is
      begin
         delay 1.0;
         Put_Line ("t1 done");
      end T1;
      task body T2 is
      begin
         delay 2.0;
         Put_Line ("t2 done");
      end T2;
   begin
      null;
   end;        -- block here until T1 & T2 are completed

   Put_Line ("at the end");
end After_Tasks;

Declare the tasks in an inner block: the block won't exit until all the tasks are complete, ARM7.6.1(4)

with Ada.Text_IO; use Ada.Text_IO;
procedure After_Tasks is
begin
   Put_Line ("at the start");

   declare
      task T1;
      task T2;
      task body T1 is
      begin
         delay 1.0;
         Put_Line ("t1 done");
      end T1;
      task body T2 is
      begin
         delay 2.0;
         Put_Line ("t2 done");
      end T2;
   begin
      null;
   end;        -- block here until T1 & T2 are completed

   Put_Line ("at the end");
end After_Tasks;

回复收藏 0 原文

你的笑 2024-10-14 05:59:37

在不了解您实际想要完成的任务的情况下，完成此任务的一些尝试是：

监视（轮询）每个待处理任务的 '终止属性。
在任务中实现“关闭”条目，这是每个任务执行的最后一件事。让您的“控制器”与每个任务的关闭条目会合，一旦所有任务都接受并完成了会合，无论出于何种意图和目的，您都可以得出结论，任务已全部终止。对于我们当中的迂腐者来说，我们可能会执行一个短暂的延迟（delay 0.0;），然后通过“Termerated”属性验证所有任务是否已终止，或者至少pragma Assert()代码>所以。