app/gs.dialog/1.2/src/ls-DIALOG decompress

Raw file
Back to index

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
(* 
        
          ********************************************************* 
          ********************************************************* 
          **                                                     ** 
          **               ls-DIALOG - DECOMPRESS                ** 
          **                                                     ** 
          **                    Version 1.2                      ** 
          **                                                     ** 
          **                 (Stand: 04.11.88)                   ** 
          **                                                     ** 
          **                                                     ** 
          **         Autor: Wolfgang Weber, Bielefeld            ** 
          **                                                     ** 
          **                                                     ** 
          ** Copyright (C) 1987, 1988 Eva Latta-Weber, Bielefeld ** 
          **                                                     ** 
          ** Copyright (C) 1988 ERGOS GmbH, Siegburg             ** 
          **                                                     ** 
          ********************************************************* 
          ********************************************************* 
 
                                                                           *) 
PACKET ls dialog decompress DEFINES 
 
       komprimiere, 
       dekomprimiere: 
 
LET verweis      = "Angegebene Datei existiert nicht!", 
    falscher typ = "Angegebenen Datei hat falschen Typ!", 
    filetype     = 1003; 
 
PROC komprimiere (TEXT CONST dateiname):   
  INT VAR zeiger; 
  ueberpruefe existenz; 
  ueberpruefe dateityp; 
  initialisiere; 
  FOR zeiger FROM 1 UPTO 24 REP 
    getline (ein, eingabezeile); 
    putline (aus, eingabezeile); 
  PER; 
  WHILE NOT eof (ein) REP 
    getline (ein, eingabezeile); 
    zaehler INCR 1; cout (zaehler); 
    zwischenzeile := abgeschnitten (eingabezeile); 
    haenge zeilentrenner an; 
    haenge zwischenzeile an ausgabezeile; 
    schreibe ausgabezeile ggf weg 
  PER; 
  schreibe ausgabezeile weg; 
  mache ausgabedatei zur eingabedatei. 
 
  ueberpruefe existenz: 
    IF NOT exists (dateiname) 
       THEN errorstop (verweis); 
    FI. 
 
  ueberpruefe dateityp: 
    IF type (old (dateiname)) <> filetype 
       THEN errorstop (falscher typ) 
    FI. 
 
  initialisiere: 
    FILE VAR ein := sequential file (input, dateiname); 
    FILE VAR aus := sequential file (output, "KOMPRIM"); 
    maxlinelength (aus, 600); 
    INT VAR zaehler :: 1; 
    TEXT VAR eingabezeile :: "", zwischenzeile :: "", ausgabezeile :: "". 
 
  haenge zeilentrenner an: 
    IF zwischenzeile <> "" 
       THEN zwischenzeile CAT "{}" 
    FI. 
 
  haenge zwischenzeile an ausgabezeile: 
    ausgabezeile CAT zwischenzeile. 
 
  schreibe ausgabezeile ggf weg: 
    IF length (ausgabezeile) > 500 
       THEN schreibe ausgabezeile weg 
    FI. 
 
  schreibe ausgabezeile weg: 
    IF ausgabezeile <> "" 
       THEN putline (aus, ausgabezeile); 
            ausgabezeile := "" 
    FI. 
 
mache ausgabedatei zur eingabedatei: 
  forget (dateiname, quiet); 
  rename ("KOMPRIM", dateiname). 
END PROC komprimiere; 
 
TEXT PROC abgeschnitten (TEXT CONST zeile): 
  TEXT VAR t :: zeile; 
  WHILE (t SUB length (t)) = " " REP 
    t := subtext (t, 1, length (t) - 1) 
  PER; 
  t 
END PROC abgeschnitten; 
 
PROC dekomprimiere (TEXT CONST dateiname): 
  INT VAR zeiger; 
  ueberpruefe existenz; 
  ueberpruefe dateityp; 
  initialisiere; 
  FOR zeiger FROM 1 UPTO 24 REP 
    getline (ein, eingabezeile); 
    putline (aus, eingabezeile); 
  PER; 
  WHILE NOT eof (ein) REP 
    getline (ein, eingabezeile); 
    zerlege zeile 
  PER; 
  forget (dateiname, quiet); 
  rename ("DEKOMPRIM", dateiname). 
 
  ueberpruefe existenz: 
    IF NOT exists (dateiname) 
       THEN errorstop (verweis) 
    FI. 
 
  ueberpruefe dateityp: 
    IF type (old (dateiname)) <> filetype 
       THEN errorstop (falscher typ) 
    FI. 
 
  initialisiere: 
    FILE VAR ein := sequential file (input, dateiname); 
    FILE VAR aus := sequential file (output, "DEKOMPRIM"); 
    INT VAR zaehler :: 1; 
    TEXT VAR eingabezeile :: "",  ausgabezeile :: "". 
 
  zerlege zeile: 
    WHILE eingabezeile <> "" REP 
      nimm das erste stueck und schreibe es weg; 
      entferne den zeilentrenner 
    PER. 
 
  nimm das erste stueck und schreibe es weg: 
    ausgabezeile := subtext (eingabezeile, 1, pos (eingabezeile, "{}") - 1); 
    putline (aus, ausgabezeile); 
    zaehler INCR 1; 
    cout (zaehler). 
 
  entferne den zeilentrenner: 
    eingabezeile := subtext (eingabezeile, pos (eingabezeile, "{}") + 2). 
END PROC dekomprimiere; 
END PACKET ls dialog decompress;