system/std.zusatz/1.7.3/src/TO16.ELA

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
PACKET to 16 DEFINES to 16 :


LET OLDRECORD = STRUCT (INT succ, pred, x, y, TEXT line) ,
    OLDFILE   = BOUND ROW 4075 OLDRECORD ;

LET free root = 1 ,
    used root = 2 ;

LET file type 16 = 1002 ;


FILE VAR file 17 ;
OLDFILE VAR file 16 ;
DATASPACE VAR file space ;


PROC to 16 :
  to 16 (last param)
ENDPROC to 16 ;

PROC to 16 (TEXT CONST file name) :

  last param (file name) ;
  file 17 := sequential file (input, file name) ;
  disable stop ;
  file space := nilspace ;
  file 16 := file space ;
  type (file space, file type 16) ;
  copy 17 to 16 ;
  IF NOT is error
    THEN replace 17 by 16 file
  FI ;
  forget (file space) .

replace 17 by 16 file :
  forget (file name, quiet) ;
  copy (file space, file name) .

ENDPROC to 16 ;

PROC copy 17 to 16 :

  enable stop ;
  build used record chain ;
  build free record chain .

build used record chain :
  copy all records ;
  construct used chains head and circular links .

copy all records :
  INT VAR line ;
  FOR line FROM 1 UPTO lines (file 17) REP
    copy one record ;
    cout (line)
  PER .

copy one record :
  INT VAR index := line + 2 ;
  TEXT VAR line 17;
  record.pred := index - 1 ;
  record.succ := index + 1 ;
  getline (file 17, line 17) ;
  change special 17 chars;
  record.line := line 17.

change special 17 chars: 
  change all (line 17, ""217"", ""225"");
  change all (line 17, ""218"", ""239"");
  change all (line 17, ""219"", ""245"");
  change all (line 17, ""214"", ""193"");
  change all (line 17, ""215"", ""207"");
  change all (line 17, ""216"", ""213"");
  change all (line 17, ""220"", ""235"");
  change all (line 17, ""221"", ""173"");
  change all (line 17, ""222"", ""163"");
  change all (line 17, ""223"", ""160"");
  change all (line 17, ""251"", ""194"").

construct used chains head and circular links :
  record.succ := used root ;
  used root record.pred := index ;
  used root record.succ := used root + 1 ;
  used root record.line := headline (file 17) .

build free record chain :
  free root record.pred := free root ;
  free root record.succ := free root ;
  free root record.y    := index + 1 ;
  free root record.line := "    0    1    1" ;
  free root record.line CAT text (maxlinelength (file 17), 5) .

record : CONCR (file 16) (index) .

used root record : CONCR (file 16) (used root) .

free root record : CONCR (file 16) (free root) .

ENDPROC copy 17 to 16 ;

ENDPACKET to 16 ;