diff options
Diffstat (limited to 'dialog/ls-DIALOG MENUKARTEN MANAGER')
| -rw-r--r-- | dialog/ls-DIALOG MENUKARTEN MANAGER | 44 |
1 files changed, 41 insertions, 3 deletions
diff --git a/dialog/ls-DIALOG MENUKARTEN MANAGER b/dialog/ls-DIALOG MENUKARTEN MANAGER index 67799ea..a6fcb1f 100644 --- a/dialog/ls-DIALOG MENUKARTEN MANAGER +++ b/dialog/ls-DIALOG MENUKARTEN MANAGER @@ -22,7 +22,45 @@ *) -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;{} +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; + |