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
|
(* ------------------- VERSION 2 06.03.86 ------------------- *)
PROC begin process (TASK CONST father, son, INT CONST priv, PROCA CONST start) :
EXTERNAL 95
ENDPROC begin process ;
PROC ur :
TASK VAR dummy ;
begin ("PUBLIC", PROC public manager, dummy) ;
global manager (PROC ur manager)
ENDPROC ur ;
PROC public manager :
page ;
REP UNTIL yes("Archiv 'help' eingelegt") PER;
archive ("help") ;
fetch ("help", archive) ;
release (archive) ;
free global manager
ENDPROC public manager ;
PROC ur manager (DATASPACE VAR ds, INT CONST order, phase,
TASK CONST order task) :
LET begin code = 4 ;
enable stop ;
IF order = begin code
THEN std manager (ds, order, phase, order task)
ELSE errorstop ("falscher Auftrag fuer Task ""UR""")
FI
ENDPROC ur manager ;
check on ;
command dialogue (TRUE) ;
begin process (supervisor, task ("UR"), 0, proca (PROC ur)) ;
command dialogue (FALSE) ;
check off;
|
