diff options
Diffstat (limited to 'Build/source/texk/web2c/gftopk.ch')
-rw-r--r-- | Build/source/texk/web2c/gftopk.ch | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/Build/source/texk/web2c/gftopk.ch b/Build/source/texk/web2c/gftopk.ch index 8b9d7d2d9d0..e4ddf19c8b6 100644 --- a/Build/source/texk/web2c/gftopk.ch +++ b/Build/source/texk/web2c/gftopk.ch @@ -239,7 +239,7 @@ begin end ; @z -@x [47] Redefine find_gf_length and move_to_byte. +@x [46] Redefine find_gf_length and move_to_byte. @p procedure find_gf_length ; begin set_pos(gf_file, -1) ; gf_len := cur_pos(gf_file) ; @@ -263,14 +263,14 @@ begin xfseek (gf_file, n, 0, gf_name); end; @z -@x [49] Dynamic allocation of |row| array. +@x [48] Dynamic allocation of |row| array. @!row: array[0..max_row] of integer; {the row counts for working} @y @!row: ^integer; {the row counts for working} @!max_row: integer; {largest index in the main |row| array} @z -@x [50] Dynamic allocation of |row| array. +@x [49] Dynamic allocation of |row| array. @<Set init...@>= @y @<Set init...@>= @@ -278,7 +278,7 @@ row := xmalloc_array (integer, MAX_ROW); max_row := MAX_ROW; @z -@x [52] Dynamic allocation of |row| array. +@x [51] Dynamic allocation of |row| array. procedure convert_gf_file; @y procedure row_overflow; @@ -293,7 +293,7 @@ end; procedure convert_gf_file; @z -@x [still 52] Add do_the_rows to break up huge run of cases. +@x [still 51] Add do_the_rows to break up huge run of cases. repeat gf_com := gf_byte ; case gf_com of @@ -304,7 +304,7 @@ procedure convert_gf_file; case gf_com of @z -@x [53] Declare |thirty_seven_cases| to help avoid breaking yacc. +@x [52] Declare |thirty_seven_cases| to help avoid breaking yacc. @d one_sixty_five_cases(#)==sixty_four_cases(#),sixty_four_cases(#+64), sixteen_cases(#+128),sixteen_cases(#+144),four_cases(#+160),#+164 @y @@ -314,7 +314,7 @@ procedure convert_gf_file; @d new_row_128=new_row_64 + 64 @z -@x [57] Dynamic allocation of |row| array. +@x [56] Dynamic allocation of |row| array. @d put_in_rows(#)==begin if row_ptr > max_row then bad := true else begin row[row_ptr]:=#; incr(row_ptr); end ; end @y @@ -322,12 +322,12 @@ row[row_ptr]:=#; incr(row_ptr); end ; end row[row_ptr]:=#; incr(row_ptr); end @z -@x [58] Dynamic allocation of |row| array. +@x [57] Dynamic allocation of |row| array. bad := false ; @y @z -@x [still 58] Break up an oversized sequence of cases for yacc. +@x [still 57] Break up an oversized sequence of cases for yacc. one_sixty_five_cases(new_row_0) : begin if on = state then put_in_rows(extra) ; put_in_rows(end_of_row) ; @@ -339,13 +339,13 @@ sixty_four_cases(new_row_64) : do_the_rows:=true; thirty_seven_cases(new_row_128) : do_the_rows:=true; @z -@x [still 58] Dynamic allocation of |row| array. +@x [still 57] Dynamic allocation of |row| array. if bad then abort('Ran out of internal memory for row counts!') ; @.Ran out of memory@> @y @z -@x [still 58] Break up an oversized sequence of cases for yacc. +@x [still 57] Break up an oversized sequence of cases for yacc. endcases ; @y endcases ; @@ -357,7 +357,7 @@ if do_the_rows then begin end ; @z -@x [59] Add do_the_rows to break up huge run of cases. +@x [58] Add do_the_rows to break up huge run of cases. @ A few more locals used above and below: @<Locals to |convert_gf_file|@>= @@ -368,12 +368,12 @@ end ; @!do_the_rows:boolean; @z -@x [still 59] Dynamic allocation of |row| array. +@x [still 58] Dynamic allocation of |row| array. @!bad : boolean ; {did we run out of space?} @y @z -@x [82] Don't add `GFtoPK 2.3 output from ' to the font comment. +@x [81] Don't add `GFtoPK 2.3 output from ' to the font comment. @d comm_length = 23 {length of |preamble_comment|} @d from_length = 6 {length of its |' from '| part} @y @@ -394,7 +394,7 @@ final_end : end . end. @z -@x System-dependent changes. +@x [88] System-dependent changes. This section should be replaced, if necessary, by changes to the program that are necessary to make \.{GFtoPK} work at a particular installation. It is usually best to design your change file so that all changes to |