1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
----------------------------------------------------------
-- This three-task program includes the main procedure,
-- helloadatasks, as the "main task" and two tasks, Task_A and
-- Task_B, nested inside it.
----------------------------------------------------------
with Ada.Text_IO, Ada.Calendar;
use Ada.Text_IO, Ada.Calendar;
procedure helloadatasks is
Start_Time : constant Time := Clock;
Elapsed_Time : Duration;
task Task_A is
entry Go;
end Task_A;
task Task_B is
entry Go;
end Task_B;
task body Task_A is
begin
delay 2.0; -- relative delay
accept Go;
Elapsed_Time := Clock - Start_Time;
Put_Line("helloadatasks/Task_A Rendezvous occurred at T = "
& Integer'Image(Integer(Elapsed_Time)));
for I in 1..5 loop
delay 2.0; -- relative delay
Task_B.Go;
end loop;
end Task_A;
task body Task_B is
begin
for I in 1..5 loop
delay until (Start_Time + I*7.0); --absolute delay
accept Go;
Elapsed_Time := Clock - Start_Time;
Put_Line("Task_A/Task_B Rendezvous occurred at T = "
& Integer'Image(Integer(Elapsed_Time)));
end loop;
end Task_B;
begin
Task_A.Go;
end helloadatasks;
|
