Attente de tâches dans Ada

Question

J'ai une procédure avec des tâches. Je dois faire quelque chose après l'achèvement de toutes les tâches. Comment puis-je faire cela?

Answer 1

indiquer les tâches dans un bloc interne: le bloc ne quittera pas jusqu'à ce que toutes les tâches sont terminées, 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; 

Answer 2

Sans aucune connaissance de ce que vous êtes en train d'essayer d'accomplir, un couple poignarde à accomplir ce serait:

• Monitor (sondage) attribut 'Terminated de chaque tâche en attente.
• Implémentez une entrée "Shutdown" dans votre tâche (s) qui est la dernière chose que chaque tâche effectue. Avoir votre «contrôleur» rendez-vous avec l'entrée Shutdown de chaque tâche et une fois que toutes les tâches ont accepté et terminé le rendez-vous, à toutes fins utiles, vous pouvez conclure que les tâches ont toutes terminé. Pour les pédantistes parmi nous, nous pourrions exécuter un court délai (delay 0.0;) puis vérifier via l'attribut 'Terminé' que toutes les tâches sont terminées, ou au moins pragma Assert() donc.