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 MM-gen | 27 +++++++++++++++++++++++++-- 1 file changed, 25 insertions(+), 2 deletions(-) (limited to 'dialog/ls-DIALOG MM-gen') diff --git a/dialog/ls-DIALOG MM-gen b/dialog/ls-DIALOG MM-gen index ef05853..213a826 100644 --- a/dialog/ls-DIALOG MM-gen +++ b/dialog/ls-DIALOG MM-gen @@ -22,6 +22,29 @@ *) -LET dateiname = "ls-DIALOG MENUKARTEN MANAGER",{} archivname = "gs-dialog";{}gib bildschirmhinweis;{}hole generatordatei vom archiv;{}insertiere die datei;{}do ("ls dialog manager").{}gib bildschirmhinweis:{} page;{} putline (" "15"ls-DIALOG MENUKARTEN MANAGER - Generierung "14"").{}hole generatordatei vom archiv:{} IF NOT exists (dateiname){} THEN cursor (1, 5); out (""4"");{} putline ("Bitte warten... Ich hole eine Datei von der Diskette!");{} archive (archivname);{} - fetch (dateiname, archive);{} release (archive){} FI.{}insertiere die datei:{} cursor (1, 5); out (""4"");{} putline ("Bitte warten... Ich insertiere!");{} check off; insert (dateiname); check on;{} forget ("ls-DIALOG MM/gen", quiet);{} forget (dateiname, quiet).{} +LET dateiname = "ls-DIALOG MENUKARTEN MANAGER", + archivname = "gs-dialog"; +gib bildschirmhinweis; +hole generatordatei vom archiv; +insertiere die datei; +do ("ls dialog manager"). +gib bildschirmhinweis: + page; + putline (" "15"ls-DIALOG MENUKARTEN MANAGER - Generierung "14""). +hole generatordatei vom archiv: + IF NOT exists (dateiname) + THEN cursor (1, 5); out (""4""); + putline ("Bitte warten... Ich hole eine Datei von der Diskette!"); + archive (archivname); + + fetch (dateiname, archive); + release (archive) + FI. +insertiere die datei: + cursor (1, 5); out (""4""); + putline ("Bitte warten... Ich insertiere!"); + check off; insert (dateiname); check on; + forget ("ls-DIALOG MM/gen", quiet); + forget (dateiname, quiet). + -- cgit v1.2.3