system/multiuser/1.7.5/src/ur start

Raw file
Back to index

 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
(* ------------------- 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;