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.

1 files changed, 6 insertions, 3 deletions

diff --git a/dialog/ls-DIALOG decompress b/dialog/ls-DIALOG decompress
index 96d9340..fdda0d6 100644
--- a/dialog/ls-DIALOG decompress
+++ b/dialog/ls-DIALOG decompress
@@ -69,7 +69,8 @@ PROC komprimiere (TEXT CONST dateiname):
  
   haenge zeilentrenner an: 
     IF zwischenzeile <> "" 
-       THEN zwischenzeile CAT "{}" 
+       THEN zwischenzeile CAT "
+" 
     FI. 
  
   haenge zwischenzeile an ausgabezeile: 
@@ -138,13 +139,15 @@ PROC dekomprimiere (TEXT CONST dateiname):
     PER. 
  
   nimm das erste stueck und schreibe es weg: 
-    ausgabezeile := subtext (eingabezeile, 1, pos (eingabezeile, "{}") - 1); 
+    ausgabezeile := subtext (eingabezeile, 1, pos (eingabezeile, "
+") - 1); 
     putline (aus, ausgabezeile); 
     zaehler INCR 1; 
     cout (zaehler). 
  
   entferne den zeilentrenner: 
-    eingabezeile := subtext (eingabezeile, pos (eingabezeile, "{}") + 2). 
+    eingabezeile := subtext (eingabezeile, pos (eingabezeile, "
+") + 2). 
 END PROC dekomprimiere; 
 END PACKET ls dialog decompress;