Real-Time Programming Languages - Operating Systems

Example: Operator/Subscriber
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
task body Telephone_Operator is
Workers : constant Integer := 10;
Failed : Number;
begin
loop
-- prepare to accept next request
select
accept Directory_Enquiry(Person : in Name;
Addr : in Adress; Num : out Number) do
-- look up telephone number and assign the value to Num
end Directory_Enquiry;
or
accept Directory_Enquiry(Person : in Name;
Zip : in Postal_Code; Num : out Number) do
-- look up telephone number and assign the value to Num
end Directory_Enquiry;
or
accept Report_Fault(Num : Number) do
Failed := Num;
end Report_Fault;
-- log faulty line and allocate repair worker
end select; – undertake housekeeping such as logging all calls
end loop;
end Telephone_Operator;
Burns,
Wellings
Ch. 6.1
Page 99 f.
WS 2013/14 Real-Time Systems, Real-Time Prog. Languages / Hermann Härtig 54