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 decompress | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'dialog/ls-DIALOG decompress') 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; -- cgit v1.2.3