diff options
Diffstat (limited to 'dialog/ls-DIALOG decompress')
| -rw-r--r-- | dialog/ls-DIALOG decompress | 9 |
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; |