From afd4c3c448381f6eb706090911a15c162fdaf8af Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Sun, 9 Oct 2016 11:28:19 +0200 Subject: Decompress source files MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit EUMEL’s TEXT dataspaces wastes a lot of storage space. Some files were therefore “compressed” by storing them as a single line, reducing overhead significantly. --- dialog/ls-DIALOG MENUKARTEN MANAGER | 44 ++++++++++++++++++++++++++++++++++--- 1 file changed, 41 insertions(+), 3 deletions(-) (limited to 'dialog/ls-DIALOG MENUKARTEN MANAGER') 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; + -- cgit v1.2.3