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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
(* ------------------- VERSION 6 20.05.86 ------------------- *)
PACKET canal DEFINES (* Autor: J.Liedtke *)
analyze supervisor command :
LET command list =
"begin:1.12end:3.0break:4.0continue:5.01halt:7.0
taskinfo:8.0storageinfo:9.0help:10.0 ",
supervisor command text =
""6""20""1"ESC ? --> help
"6""21""1"ESC b --> begin ("""")
"6""22""1"ESC c --> continue ("""")
"6""23""1"ESC q --> break
"6""21""50"ESC h --> halt
"6""22""50"ESC s --> storage info
"6""23""50"ESC t --> task info
"6""8""6"gib supervisor kommando :" ,
text type = 4 ,
ack = 0 ,
error nak = 2 ,
begin code = 4 ,
end code = 5 ,
break code = 6 ,
halt code = 8 ,
password code = 9 ,
continue code = 100 ,
home = ""1"" ;
TASK VAR sv ;
DATASPACE VAR ds ;
BOUND STRUCT (TEXT tname, tpass, TASK task, PROCA start proc) VAR sv msg ;
BOUND TEXT VAR error msg ;
INT VAR command index , number of params , reply ;
TEXT VAR param 1, param 2 , task password ;
lernsequenz auf taste legen ("b", ""1""8""1""12"begin ("""")"8""8""11"") ;
lernsequenz auf taste legen ("c", ""1""8""1""12"continue ("""")"8""8""11"") ;
lernsequenz auf taste legen ("q", ""1""8""1""12"break"13"") ;
lernsequenz auf taste legen ("h", ""1""8""1""12"halt"13"") ;
lernsequenz auf taste legen ("s", ""1""8""1""12"storage info"13"") ;
lernsequenz auf taste legen ("t", ""1""8""1""12"task info"13"") ;
lernsequenz auf taste legen ("?", ""1""8""1""12"help"13"") ;
PROC analyze supervisor command :
disable stop ;
sv := supervisor ;
ds := nilspace ;
REP
command dialogue (TRUE) ;
command pre ;
cry if not enough storage ;
get command (supervisor command text) ;
analyze command (command list, text type,
command index, number of params,
param1, param2) ;
execute command ;
PER .
command pre :
IF NOT is error
THEN wait for terminal; eumel must advertise
ELSE forget (ds) ; ds := nilspace
FI .
wait for terminal :
out (home) .
cry if not enough storage :
INT VAR size, used ;
storage (size, used) ;
IF used > size
THEN out (""7"Speicher Engpass!"13""10"") ;
FI .
ENDPROC analyze supervisor command ;
PROC execute command :
enable stop ;
SELECT command index OF
CASE 1 : begin ("PUBLIC")
CASE 2 : begin (param2)
CASE 3 : end via canal
CASE 4 : break
CASE 5 : quiet
CASE 6 : continue (param1)
CASE 7 : halt
CASE 8 : task info (0); eumel must advertise; quiet
CASE 9 : storage info; quiet
CASE 10 : help; eumel must advertise; quiet
OTHERWISE analyze command error
ENDSELECT ;
IF reply = error nak
THEN error msg := ds ;
errorstop (CONCR (error msg))
FI .
end via canal :
IF yes ("Task """ + name (task (channel (myself))) + """ loeschen")
THEN eumel must advertise ;
call (sv, end code, ds, reply)
FI .
break :
eumel must advertise ;
call (sv, break code, ds, reply) .
halt :
call (sv, halt code, ds, reply) .
quiet :
call (sv, ack, ds, reply) .
analyze command error :
command error ;
IF command index = 0
THEN errorstop ("kein supervisor kommando")
ELIF number of params = 0
THEN errorstop ("Taskname fehlt")
ELSE errorstop ("Parameter ueberfluessig")
FI .
ENDPROC execute command ;
PROC begin (TEXT CONST father name) :
IF param1 = "-"
THEN errorstop ("Name ungueltig")
FI ;
sv msg := ds ;
CONCR (sv msg).tname := param1 ;
CONCR (sv msg).tpass := "" ;
call (task (father name), begin code, ds, reply) ;
IF reply = password code
THEN get password ;
sv msg := ds ;
CONCR (sv msg).tpass := task password ;
call (task (father name), begin code, ds, reply)
FI ;
IF reply = ack
THEN continue (param1)
FI .
get password :
put (" Passwort:") ;
get secret line (task password) .
ENDPROC begin ;
PROC continue (TEXT CONST task name) :
sv msg := ds ;
CONCR (sv msg).tname := task name ;
CONCR (sv msg).tpass := "" ;
call (sv, continue code + channel, ds, reply) ;
IF reply = password code
THEN get password ;
sv msg := ds ;
CONCR (sv msg).tpass := task password ;
call (sv, continue code + channel, ds, reply)
FI .
get password :
put (" Passwort:") ;
get secret line (task password) .
ENDPROC continue ;
PROC help:
LET page = ""1""4""
,bell = ""7""
,cr = ""13""
,end mark = ""14""
,begin mark = ""15""
,esc = ""27""
;
REP
out (page) ;
show page ;
UNTIL is quit command PER .
show page :
putline(begin mark + (31 * ".") + " supervisor help " + (31 * ".") + end mark) ;
putline("Hier finden Sie einige Kommandos, die Ihnen den Einstieg ins System er -") ;
putline("leichtern sollen:") ;
out(""6""05""07"1. Informations-Kommandos") ;
out(""6""07""11"storage info physisch belegten Hintergrundplatz melden") ;
out(""6""08""11"task info Taskbaum zeigen") ;
out(""6""14""07"2. Verbindung zum Supervisor") ;
out(""6""16""11"break Task vom Terminal abkoppeln") ;
out(""6""17""11"begin(""task"") neue Task `task` einrichten") ;
out(""6""18""11"continue(""task"") Task `task` an ein Terminal ankoppeln") ;
out(""6""21""01"Näheres: Benutzerhandbuch, Teil 2, Kap. 2") ;
out(""6""23""05"Wenn Sie den Hilfe-Modus beenden wollen, tippen Sie die Taste `q`. ") ;
out(cr) .
is quit command :
TEXT VAR char ;
get char (char) ;
IF char = esc
THEN get char (char)
FI;
IF char = "q" COR char = "Q"
THEN true
ELSE out (bell);
FALSE
FI.
END PROC help ;
ENDPACKET canal ;
|
