diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2016-10-09 11:28:19 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2016-10-09 11:28:19 +0200 |
| commit | afd4c3c448381f6eb706090911a15c162fdaf8af (patch) | |
| tree | 90955166d185de4acd210c3880dc78640ecd31fa /dialog/ls-DIALOG MM-gen | |
| parent | 724cc003460ec67eda269911da85c9f9e40aa6cf (diff) | |
| download | eumel-src-afd4c3c448381f6eb706090911a15c162fdaf8af.tar.gz eumel-src-afd4c3c448381f6eb706090911a15c162fdaf8af.tar.bz2 eumel-src-afd4c3c448381f6eb706090911a15c162fdaf8af.zip | |
Decompress source files
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.
Diffstat (limited to 'dialog/ls-DIALOG MM-gen')
| -rw-r--r-- | dialog/ls-DIALOG MM-gen | 27 |
1 files changed, 25 insertions, 2 deletions
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). + |