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
|
(*
*********************************************************
*********************************************************
** **
** ls-DIALOG **
** MENUKARTEN-MANAGER **
** Version 1.2 **
** **
** (Stand: 04.11.88) **
** **
** **
** Autor: Wolfgang Weber, Bielefeld **
** **
** **
** Copyright (C) 1987, 1988 Eva Latta-Weber, Bielefeld **
** **
** Copyright (C) 1988 ERGOS GmbH, Siegburg **
** **
*********************************************************
*********************************************************
*)
PACKET ls dialog manager DEFINES
ls dialog manager:
LET fetch code = 11,
save code = 12,
exists code = 13,
list code = 15,
continue code = 100;
LET mm taskname = "ls-MENUKARTEN",
gibt es schon = "Die Task 'ls-MENUKARTEN' existiert schon!",
verweis = "Unzulässiger Zugriff auf die Task 'ls-MENUKARTEN'!";
PROC ls dialog manager:
stelle richtigen tasknamen ein;
global manager
(PROC (DATASPACE VAR, INT CONST, INT CONST, TASK CONST) ls dialog manager)
END PROC ls dialog manager;
PROC stelle richtigen tasknamen ein:
IF name (myself) <> mm taskname
THEN nimm umbenennung vor
FI.
nimm umbenennung vor:
IF NOT exists task (mm taskname)
THEN rename myself (mm taskname)
ELSE errorstop (gibt es schon)
FI.
END PROC stelle richtigen tasknamen ein;
PROC ls dialog manager (DATASPACE VAR ds, INT CONST order, phase,
TASK CONST order task):
IF order task = supervisor
OR order = fetch code
OR order = save code
OR order = exists code
OR order = list code
OR order = continue code
THEN free manager (ds, order, phase, order task)
ELSE errorstop (verweis)
FI
END PROC ls dialog manager;
END PACKET ls dialog manager;
|
