Real-Time Programming Languages - Operating Systems
Real-Time Programming Languages - Operating Systems Real-Time Programming Languages - Operating Systems
Example: Watchdog 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 protected Watchdog is pragma Interrupt_Priority (Interrupt_Priority'Last); entry Alarm_Control; -- Called by alarm handling task. procedure Call_In; -- Called by application code every 50ms if alive. procedure Timer(Event : in out Timing_Event); -- Timer event code, ie the handler. private Alarm : Boolean := False; end Watchdog; Fifty_Mil_Event : aliased Timing_Event; TS : Time_Span := Milliseconds(50); Set_Handler(Fifty_Mil_Event, TS, Timer); Burns, Wellings Ch. 15.2 Page 364 f. WS 2013/14 Real-Time Systems, Real-Time Prog. Languages / Hermann Härtig 44
Example: Watchdog 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 protected body Watchdog is entry Alarm_Control when Alarm is begin Alarm := False; end Alarm_Control; procedure Timer(Event : in out Timing_Event) is begin Alarm := True; -- Note no use is made of the parameter in this example end Timer; procedure Call_in is begin Set_Handler(Fifty_Mil_Event, TS, Timer); -- This call to Set_Handler cancels the previous call end Call_in; end Watchdog; Burns, Wellings Ch. 15.2 Page 365 WS 2013/14 Real-Time Systems, Real-Time Prog. Languages / Hermann Härtig 45
- Page 1 and 2: Real-Time Systems Hermann Härtig R
- Page 3 and 4: RT Language Classes Synchronous HLL
- Page 5 and 6: Synchronous Systems → Synchronous
- Page 7 and 8: Esterel at a glance Most statements
- Page 9 and 10: Esterel „Data“: Variables and S
- Page 11 and 12: Signals vs Variables 01 Emit Count(
- Page 13 and 14: Examples (all by Berry): ABRO Speci
- Page 15 and 16: Speed Specification SPEED: Count th
- Page 17 and 18: Few general points Ada has “Annex
- Page 19 and 20: Concurrency Tasks ● ● ● ● a
- Page 21 and 22: Termination of Tasks Every task has
- Page 23 and 24: The Rendezvous Based on client/serv
- Page 25 and 26: In detail task executing Server Cli
- Page 27 and 28: Select Statement ● ● Arbitrary
- Page 29 and 30: Example: Resource with Locking 01 0
- Page 31 and 32: Tasks ./. Protected Objects 01 02 0
- Page 33 and 34: Fixed Priorities ● task (type) T
- Page 35 and 36: Active Priority Base priority or
- Page 37 and 38: EDF Dispatching How to set deadline
- Page 39 and 40: Mixed Scheduling Policies, example
- Page 41 and 42: Explicit Request Ordering: Requeue
- Page 43: Timing events 01 02 03 04 05 06 07
- Page 47 and 48: Time: Delay Statement 01 02 03 04 0
- Page 49 and 50: Delay and Select, client side(1) 01
- Page 51 and 52: Example 01 02 03 04 05 06 07 select
- Page 53 and 54: Example: Operator/Subscriber 01 02
- Page 55 and 56: Example: Operator/Subscriber 01 02
- Page 57 and 58: Recurrent Tasks (1) 01 02 03 04 05
- Page 59 and 60: Recurrent Tasks (3) Periodic tasks
- Page 61 and 62: Example 01 02 03 04 05 06 07 08 09
- Page 63 and 64: Example 01 02 03 04 05 06 07 08 09
- Page 65 and 66: Missing in this RT-HLL lecture ●
Example: Watchdog<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 />
protected body Watchdog is<br />
entry Alarm_Control when Alarm is<br />
begin<br />
Alarm := False;<br />
end Alarm_Control;<br />
procedure <strong>Time</strong>r(Event : in out Timing_Event) is<br />
begin<br />
Alarm := True;<br />
-- Note no use is made of the parameter in this example<br />
end <strong>Time</strong>r;<br />
procedure Call_in is<br />
begin<br />
Set_Handler(Fifty_Mil_Event, TS, <strong>Time</strong>r);<br />
-- This call to Set_Handler cancels the previous call<br />
end Call_in;<br />
end Watchdog;<br />
Burns,<br />
Wellings<br />
Ch. 15.2<br />
Page 365<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 45