28.02.2014 Views

Real-Time Programming Languages - Operating Systems

Real-Time Programming Languages - Operating Systems

Real-Time Programming Languages - Operating Systems

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Example: Operator/Subscriber<br />

01<br />

02<br />

03<br />

04<br />

05<br />

06<br />

07<br />

08<br />

09<br />

10<br />

11<br />

12<br />

13<br />

14<br />

15<br />

16<br />

17<br />

18<br />

19<br />

task type Subscriber;<br />

task body Subscriber is<br />

Stuarts_Number : Number;<br />

begin<br />

loop<br />

--...<br />

select<br />

An_Op.Directory_Enquiry("STUART JONES",<br />

"10 MAIN STREET, YORK", Stuarts_Number);<br />

-- log the cost of a directory enquiry call<br />

or<br />

delay 10.0;<br />

-- phone up his parents and ask them,<br />

-- log the cost of a long distance call<br />

end select;<br />

--...<br />

end loop;<br />

end Subscriber;<br />

Burns,<br />

Wellings<br />

Ch. 6.9<br />

Page 119<br />

WS 2013/14 <strong>Real</strong>-<strong>Time</strong> <strong>Systems</strong>, <strong>Real</strong>-<strong>Time</strong> Prog. <strong>Languages</strong> / Hermann Härtig 55

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!