texlive[71425] Build/source/texk/web2c: Update [section numbers] in

[commits+ascherer at tug.org]

Revision: 71425
          https://tug.org/svn/texlive?view=revision&revision=71425
Author:   ascherer
Date:     2024-06-04 19:53:11 +0200 (Tue, 04 Jun 2024)
Log Message:
-----------
Update [section numbers] in basic WEB change files.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/dvicopy.ch
    trunk/Build/source/texk/web2c/gftodvi.ch
    trunk/Build/source/texk/web2c/gftopk.ch
    trunk/Build/source/texk/web2c/gftype.ch
    trunk/Build/source/texk/web2c/patgen.ch
    trunk/Build/source/texk/web2c/pktogf.ch
    trunk/Build/source/texk/web2c/pktype.ch
    trunk/Build/source/texk/web2c/pltotf.ch
    trunk/Build/source/texk/web2c/pooltype.ch
    trunk/Build/source/texk/web2c/tangle.ch
    trunk/Build/source/texk/web2c/tftopl.ch
    trunk/Build/source/texk/web2c/vftovp.ch
    trunk/Build/source/texk/web2c/weave.ch

Modified: trunk/Build/source/texk/web2c/dvicopy.ch
===================================================================
--- trunk/Build/source/texk/web2c/dvicopy.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/dvicopy.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -340,7 +340,7 @@
 noreturn procedure bad_dvi;
 @z
 
- at x [111] Fix up opening the binary files
+ at x [110] Fix up opening the binary files
 @ To prepare |dvi_file| for input, we |reset| it.
 
 @<Open input file(s)@>=
@@ -353,7 +353,7 @@
 dvi_loc:=0;
 @z
 
- at x [113] Make dvi_length() and dvi_move() work.
+ at x [112] Make dvi_length() and dvi_move() work.
 @p function dvi_length:int_32;
 begin set_pos(dvi_file,-1); dvi_length:=cur_pos(dvi_file);
 end;
@@ -494,7 +494,7 @@
 end.
 @z
 
- at x [245] Do this later, to avoid creating empty files.
+ at x [246] Do this later, to avoid creating empty files.
 @<Open output file(s)@>=
 rewrite(out_file); {prepares to write packed bytes to |out_file|}
 @y
@@ -501,7 +501,7 @@
 @<Open output file(s)@>=
 @z
 
- at x [247] Use external routine to output bytes.
+ at x [248] Use external routine to output bytes.
 @d out_byte(#) == write(out_file,#) {write next \.{DVI} byte}
 @y
 @d out_byte(#) == put_byte(#,out_file) {write next \.{DVI} byte}

Modified: trunk/Build/source/texk/web2c/gftodvi.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftodvi.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/gftodvi.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -143,7 +143,7 @@
 @z
 
 
- at x [15] Change `update_terminal' to `flush', `term_in' is stdin.
+ at x [16] Change `update_terminal' to `flush', `term_in' is stdin.
 Since the terminal is being used for both input and output, some systems
 need a special routine to make sure that the user can see a prompt message
 before waiting for input based on that message. (Otherwise the message
@@ -586,7 +586,7 @@
   endcases;@/
 @z
 
- at x [still 219] If verbose, output a newline at the end.
+ at x [219] If verbose, output a newline at the end.
 final_end:end.
 @y
   if verbose and (total_pages mod 13 <> 0) then print_ln (' ');

Modified: trunk/Build/source/texk/web2c/gftopk.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftopk.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/gftopk.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -239,7 +239,7 @@
 end ;
 @z
 
- at x [47] Redefine find_gf_length and move_to_byte.
+ at 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,7 +263,7 @@
 end;
 @z
 
- at x [49] Dynamic allocation of |row| array.
+ at 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}
@@ -270,7 +270,7 @@
 @!max_row: integer; {largest index in the main |row| array}
 @z
 
- at x [50] Dynamic allocation of |row| array.
+ at x [49] Dynamic allocation of |row| array.
 @<Set init...@>=
 @y
 @<Set init...@>=
@@ -278,7 +278,7 @@
 max_row := MAX_ROW;
 @z
 
- at x [52] Dynamic allocation of |row| array.
+ at x [51] Dynamic allocation of |row| array.
 procedure convert_gf_file;
 @y
 procedure row_overflow;
@@ -293,7 +293,7 @@
 procedure convert_gf_file;
 @z
 
- at x [still 52] Add do_the_rows to break up huge run of cases.
+ at 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 @@
      case gf_com of
 @z
 
- at x [53] Declare |thirty_seven_cases| to help avoid breaking yacc.
+ at 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 @@
 @d new_row_128=new_row_64 + 64
 @z
 
- at x [57] Dynamic allocation of |row| array.
+ at 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
 @z
 
- at x [58] Dynamic allocation of |row| array.
+ at x [57] Dynamic allocation of |row| array.
   bad := false ;
 @y
 @z
 
- at x [still 58] Break up an oversized sequence of cases for yacc.
+ at 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 @@
 thirty_seven_cases(new_row_128) : do_the_rows:=true;
 @z
 
- at x [still 58] Dynamic allocation of |row| array.
+ at 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
 
- at x [still 58] Break up an oversized sequence of cases for yacc.
+ at x [still 57] Break up an oversized sequence of cases for yacc.
     endcases ;
 @y
     endcases ;
@@ -357,7 +357,7 @@
 end ;
 @z
 
- at x [59] Add do_the_rows to break up huge run of cases.
+ at 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 @@
 @!do_the_rows:boolean;
 @z
 
- at x [still 59] Dynamic allocation of |row| array.
+ at x [still 58] Dynamic allocation of |row| array.
 @!bad : boolean ; {did we run out of space?}
 @y
 @z
 
- at x [82] Don't add `GFtoPK 2.3 output from ' to the font comment.
+ at 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 @@
 end.
 @z
 
- at x System-dependent changes.
+ at 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

Modified: trunk/Build/source/texk/web2c/gftype.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftype.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/gftype.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -166,7 +166,7 @@
 @d text_char == char {the data type of characters in text files}
 @z
 
- at x [22] Redo open_gf_file to do path searching.
+ at x [21] Redo open_gf_file to do path searching.
 @ To prepare this file for input, we |reset| it.
 
 @p procedure open_gf_file; {prepares to read packed bytes in |gf_file|}
@@ -374,7 +374,7 @@
 endcases;
 @z
 
- at x [64] Break up the second oversized case statement.
+ at x [51] Break up the second oversized case statement.
 sixty_four_cases(new_row_0), sixty_four_cases(new_row_0+64),
  thirty_seven_cases(new_row_0+128):
   @<Translate a |new_row| command@>;
@@ -398,7 +398,7 @@
 endcases
 @z
 
- at x [65] No label and no dialog; finish last line written.
+ at x [66] No label and no dialog; finish last line written.
 @p begin initialize; {get all variables initialized}
 dialog; {set up all the options}
 @<Process the preamble@>;
@@ -423,7 +423,7 @@
 end.
 @z
 
- at x System-dependent changes.
+ at x [73] System-dependent changes.
 This section should be replaced, if necessary, by changes to the program
 that are necessary to make \.{GFtype} work at a particular installation.
 It is usually best to design your change file so that all changes to

Modified: trunk/Build/source/texk/web2c/patgen.ch
===================================================================
--- trunk/Build/source/texk/web2c/patgen.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/patgen.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -20,7 +20,7 @@
 @d banner=='This is PATGEN, Version 2.4' {printed when the program starts}
 @z
 
- at x Terminal I/O, Need standard input.
+ at x [3] Terminal I/O, Need standard input.
 @d get_input(#)==read(input,#)
 @d get_input_ln(#)==
   begin if eoln(input) then read_ln(input);
@@ -34,7 +34,7 @@
 @d std_input==stdin
 @z
 
- at x Eliminate the |end_of_PATGEN| label.
+ at x [3] Eliminate the |end_of_PATGEN| label.
 @d end_of_PATGEN=9999
 @y
 @z
@@ -43,7 +43,7 @@
 @y
 @z
 
- at x Add file opening to initialization
+ at x [3] Add file opening to initialization
 procedure initialize; {this procedure gets things started properly}
   var @<Local variables for initialization@>@/
   begin print_ln(banner);@/
@@ -79,7 +79,7 @@
 @d error(#)==begin write_ln(stderr, #); uexit(1); end;
 @z
 
- at x Fix signed char problem
+ at x [12] Fix signed char problem
 @!text_char=char; {the data type of characters in text files}
 @!ASCII_code=0..last_ASCII_code; {internal representation of input characters}
 @y
@@ -99,7 +99,7 @@
 % 
 % If the values here are still too big, you can probably get it to work
 % by adding swap or zram; or write a patch to allocate the arrays dynamically.
- at x
+ at x [27]
 @!trie_size=55000; {space for pattern trie}
 @!triec_size=26000; {space for pattern count trie, must be less than
  |trie_size| and greater than the number of occurrences of any pattern in
@@ -116,7 +116,7 @@
 @!max_buf_len=3000; {maximum length of input lines, must be at least |max_len|}
 @z
 
- at x Close both input and output files.
+ at x [51] Close both input and output files.
 @d close_out(#)==close(#) {close an output file}
 @d close_in(#)==do_nothing {close an input file}
 @y
@@ -124,7 +124,7 @@
 @d close_in(#)==xfclose(#, 'inputfile') {close an input file}
 @z
 
- at x Add f_name declaration, and temporaries for efficiency printing.
+ at x [51] Add f_name declaration, and temporaries for efficiency printing.
 @!dictionary, @!patterns, @!translate, @!patout, @!pattmp: text_file;
 @y
 @!dictionary, @!patterns, @!translate, @!patout, @!pattmp: text_file;
@@ -132,7 +132,7 @@
 @!bad_frac, @!denom, @!eff: real;
 @z
 
- at x Get translate filename from command line.
+ at x [54] Get translate filename from command line.
 reset(translate);
 @y
 f_name := cmdline (4);
@@ -139,13 +139,13 @@
 reset (translate, f_name);
 @z
 
- at x Input kludge.
+ at x [57] Input kludge.
   repeat print('left_hyphen_min, right_hyphen_min: '); get_input(n1,n2);@/
 @y
   repeat print('left_hyphen_min, right_hyphen_min: '); input_2ints(n1,n2);@/
 @z
 
- at x Floating point output kludge for Web2c.
+ at x [67] Floating point output kludge for Web2c.
   print_ln(', efficiency = ',
     good_count/(good_pat_count+bad_count/bad_eff):1:2)
 @y
@@ -156,7 +156,7 @@
 end
 @z
 
- at x Get dictionary filename from command line.
+ at x [88] Get dictionary filename from command line.
   reset(dictionary);@/
 @y
 f_name := cmdline(1);
@@ -165,7 +165,7 @@
 
 % Fix file name initialization, since can't assign a constant string
 % that we're going to write into.
- at x
+ at x [88]
     begin filnam:='pattmp. ';
     filnam[8]:=xdig[hyph_level];
 @y
@@ -173,7 +173,7 @@
     filnam[7]:=xdig[hyph_level];
 @z
 
- at x Work around floating point I/O deficiency; reorder to avoid overflow.
+ at x [88] Work around floating point I/O deficiency; reorder to avoid overflow.
   if (good_count+miss_count)>0 then
     print_ln((100*good_count/(good_count+miss_count)):1:2,' %, ',
       (100*bad_count/(good_count+miss_count)):1:2,' %, ',
@@ -189,7 +189,7 @@
   end;
 @z
 
- at x Get pattern filename from command line.
+ at x [90] Get pattern filename from command line.
 reset(patterns);
 @y
 f_name := cmdline (2);
@@ -196,7 +196,7 @@
 reset (patterns, f_name);
 @z
 
- at x Fix reading of multiple variables in the same line
+ at x [94] Fix reading of multiple variables in the same line
 repeat print('hyph_start, hyph_finish: '); get_input(n1,n2);@/
 @y
 repeat print('hyph_start, hyph_finish: '); input_2ints(n1,n2);@/
@@ -212,7 +212,7 @@
     input_3ints(n1,n2,n3);@/
 @z
 
- at x Get output file name from command line.
+ at x [94] Get output file name from command line.
 rewrite(patout);
 @y
 f_name := cmdline (3);
@@ -219,12 +219,12 @@
 rewrite (patout, f_name);
 @z
 
- at x Eliminate the |end_of_PATGEN| label.
+ at x [94] Eliminate the |end_of_PATGEN| label.
 end_of_PATGEN:
 @y
 @z
 
- at x System-dependent changes.
+ at x [98] System-dependent changes.
 This section should be replaced, if necessary, by changes to the program
 that are necessary to make \.{PATGEN} work at a particular installation.
 It is usually best to design your change file so that all changes to

Modified: trunk/Build/source/texk/web2c/pktogf.ch
===================================================================
--- trunk/Build/source/texk/web2c/pktogf.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/pktogf.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -20,7 +20,7 @@
 \def\title{PK$\,$\lowercase{to}$\,$GF changes for C}
 @z
 
- at x [1] Define my_name
+ at x [2] Define my_name
 @d banner=='This is PKtoGF, Version 1.1'
 @y
 @d my_name=='pktogf'
@@ -444,7 +444,7 @@
 @y
 @z
 
- at x System-dependent changes.
+ at x [74] System-dependent changes.
 This section should be replaced, if necessary, by changes to the program
 that are necessary to make \.{PKtoGF} work at a particular installation.
 Any additional routines should be inserted here.

Modified: trunk/Build/source/texk/web2c/pktype.ch
===================================================================
--- trunk/Build/source/texk/web2c/pktype.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/pktype.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -16,7 +16,7 @@
 \def\title{PK$\,$\lowercase{type} changes for C}
 @z
 
- at x [1] Define my_name
+ at x [2] Define my_name
 @d banner=='This is PKtype, Version 2.3' {printed when the program starts}
 @y
 @d my_name=='pktype'
@@ -97,7 +97,7 @@
 @d text_char == char {the data type of characters in text files}
 @z
 
- at x [32] Remove typ_file from globals.
+ at x [31] Remove typ_file from globals.
 @ @<Glob...@>=
 @!pk_file:byte_file;  {where the input comes from}
 @!typ_file:text_file; {where the final output goes}
@@ -108,7 +108,7 @@
 @^system dependencies@>
 @z
 
- at x [33] Redo open_pk_file; scrap open_typ_file.
+ at x [32] Redo open_pk_file; scrap open_typ_file.
 @ To prepare these files for input and output, we |reset| and |rewrite| them.
 An extension of \PASCAL\ is needed, since we want to associate files
 with external names that are specified dynamically (i.e., not
@@ -137,7 +137,7 @@
 end;
 @z
 
- at x [34] Change pk_loc to cur_loc, and use C strings, not arrays.
+ at x [33] Change pk_loc to cur_loc, and use C strings, not arrays.
 @!pk_name,@!typ_name:packed array[1..name_length] of char; {name of input
     and output files}
 @!pk_loc:integer; {how many bytes have we read?}
@@ -227,7 +227,7 @@
 end;
 @z
 
- at x [36] Don't need the <Open files> module.
+ at x [35] Don't need the <Open files> module.
 @ Now we are ready to open the files.
 
 @<Open files@>=
@@ -245,7 +245,7 @@
 It is not needed when output goes to |stdout|.
 @z
 
- at x [37] Redefine get_16 and get_32.
+ at x [36] Redefine get_16 and get_32.
 @p function get_16 : integer ;
 var a : integer ;
 begin a := pk_byte ; get_16 := a * 256 + pk_byte ; end ;
@@ -259,7 +259,7 @@
 @d get_32==signed_quad
 @z
 
-% [53] web2c can't handle the implied serialism in Pascal write
+% [52] web2c can't handle the implied serialism in Pascal write
 % statements.  (From Martyn.Johnson at cl.cam.ac.uk.)
 @x
           pk_yyy : t_print_ln((pk_loc-1):1,':  Num special: ',get_32:1) ;
@@ -268,7 +268,7 @@
                    t_print_ln (':  Num special: ',get_32:1) ; end;
 @z
 
- at x [54--55] Eliminate the ``Terminal communication'' chapter.
+ at x [53--54] Eliminate the ``Terminal communication'' chapter.
 @* Terminal communication.
 We must get the file names and determine whether input is to be in
 hexadecimal or binary.  To do this, we use the standard input path
@@ -309,7 +309,7 @@
 @ So there is no |procedure dialog|.
 @z
 
- at x [56] Restructure the main program.
+ at x [55] Restructure the main program.
 dialog ;
 @<Open files@> ;
 @y
@@ -320,7 +320,7 @@
 @y
 @z
 
- at x System-dependent changes.
+ at x [56] System-dependent changes.
 This section should be replaced, if necessary, by changes to the program
 that are necessary to make \.{PKtype} work at a particular installation.
 Any additional routines should be inserted here.

Modified: trunk/Build/source/texk/web2c/pltotf.ch
===================================================================
--- trunk/Build/source/texk/web2c/pltotf.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/pltotf.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -149,7 +149,7 @@
   print_ln(' units.'); end
 @z
 
-% [118] Change the name of the variable `class', since AIX 3.1's <math.h>
+% [117] Change the name of the variable `class', since AIX 3.1's <math.h>
 % defines a function by that name.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 @x

Modified: trunk/Build/source/texk/web2c/pooltype.ch
===================================================================
--- trunk/Build/source/texk/web2c/pooltype.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/pooltype.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -38,7 +38,7 @@
     @<Set initial values of key variables@>
 @z
 
-% [??] The text_char type is used as an array index into xord.  The
+% [6] The text_char type is used as an array index into xord.  The
 % default type `char' produces signed integers, which are bad array
 % indices in C.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -48,7 +48,7 @@
 @d text_char == ASCII_code {the data type of characters in text files}
 @z
 
- at x [12] Permissiveness
+ at x [10] Permissiveness
 for i:=0 to @'37 do xchr[i]:=' ';
 for i:=@'177 to @'377 do xchr[i]:=' ';
 @y
@@ -56,7 +56,7 @@
 for i:=@'177 to @'377 do xchr[i]:=chr(i);
 @z
 
- at x Write errors to stderr, avoid nonlocal label.
+ at x [15] Write errors to stderr, avoid nonlocal label.
 @d abort(#)==begin write_ln(#); goto 9999;
   end
 @y
@@ -63,7 +63,7 @@
 @d abort(#)==begin write_ln(stderr, #); uexit(1); end
 @z
 
- at x Remove unused label from end of program; add uexit(0) call
+ at x [15] Remove unused label from end of program; add uexit(0) call
 9999:end.
 @y
 uexit(0);
@@ -70,7 +70,7 @@
 end.
 @z
 
- at x Add pool_name variable.
+ at x [18] Add pool_name variable.
 @!pool_file:packed file of text_char;
   {the string-pool file output by \.{TANGLE}}
 @y
@@ -79,7 +79,7 @@
 @!pool_name:const_c_string;
 @z
 
-% The name of the pool file is dynamically determined. We open it at the
+% [19] The name of the pool file is dynamically determined. We open it at the
 % end of parse_arguments.
 @x
 reset(pool_file); xsum:=false;
@@ -87,13 +87,13 @@
 xsum:=false;
 @z
 
- at x Change single read into two reads
+ at x [20] Change single read into two reads
 read(pool_file,m,n); {read two digits of string length}
 @y
 read(pool_file,m); read(pool_file,n); {read two digits of string length}
 @z
 
- at x System-dependent changes.
+ at x [21] System-dependent changes.
 This section should be replaced, if necessary, by changes to the program
 that are necessary to make \.{POOLtype} work at a particular installation.
 It is usually best to design your change file so that all changes to

Modified: trunk/Build/source/texk/web2c/tangle.ch
===================================================================
--- trunk/Build/source/texk/web2c/tangle.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/tangle.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -79,10 +79,6 @@
 
 @x [8] Constants: increase id lengths, for TeX--XeT and tex2pdf.
 @!buf_size=100; {maximum length of input line}
- at y
-@!buf_size=1000; {maximum length of input line}
- at z
- at x
 @!max_bytes=45000; {|1/ww| times the number of bytes in identifiers,
   strings, and module names; must be less than 65536}
 @!max_toks=65000; {|1/zz| times the number of bytes in compressed \PASCAL\ code;
@@ -92,6 +88,7 @@
 @!max_texts=2000; {number of replacement texts, must be less than 10240}
 @!hash_size=353; {should be prime}
 @y
+@!buf_size=1000; {maximum length of input line}
 @!max_bytes=65535; {|1/ww| times the number of bytes in identifiers,
   strings, and module names; must be less than 65536}
 @!max_toks=65535; {|1/zz| times the number of bytes in compressed \PASCAL\ code;

Modified: trunk/Build/source/texk/web2c/tftopl.ch
===================================================================
--- trunk/Build/source/texk/web2c/tftopl.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/tftopl.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -75,7 +75,7 @@
 @y
 @z
 
- at x [5] Increase sizes to match vptovf.
+ at x [4] Increase sizes to match vptovf.
 @!tfm_size=30000; {maximum length of |tfm| data, in bytes}
 @!lig_size=5000; {maximum length of |lig_kern| program, in words}
 @!hash_size=5003; {preferably a prime number, a bit larger than the number

Modified: trunk/Build/source/texk/web2c/vftovp.ch
===================================================================
--- trunk/Build/source/texk/web2c/vftovp.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/vftovp.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -122,8 +122,7 @@
 end;
 @z
 
-% [22] `index' is not a good choice of identifier in C.
- at x
+ at x [22] `index' is not a good choice of identifier in C.
 @<Types...@>=
 @!index=0..tfm_size; {address of a byte in |tfm|}
 @y
@@ -142,8 +141,7 @@
 @!tfm_file_array: ^byte; {the input data all goes here}
 @z
 
-% [24] abort() should cause a bad exit code.
- at x
+ at x [24] abort() should cause a bad exit code.
 @d abort(#)==begin print_ln(#);
   print_ln('Sorry, but I can''t go on; are you sure this is a TFM?');
   goto final_end;
@@ -162,8 +160,7 @@
 tfm_file_array := xrealloc_array (tfm_file_array, byte, 4 * lf + 1000);
 @z
 
-% [31] Ditto for vf_abort.
- at x
+ at x [31] Ditto for vf_abort.
 @d vf_abort(#)==
   begin print_ln(#);
   print_ln('Sorry, but I can''t go on; are you sure this is a VF?');
@@ -260,7 +257,7 @@
         print_ln('Check sum in VF file being replaced by TFM check sum');
 @z
 
- at x [42] Remove initialization of now-defunct array.
+ at x [43] Remove initialization of now-defunct array.
 @ @<Set init...@>=
 default_directory:=default_directory_name;
 @y
@@ -342,8 +339,7 @@
 MBL_string:=' MBL'; RI_string:=' RI '; RCE_string:=' RCE';
 @z
 
-% [60] How we output the character code depends on |charcode_format|.
- at x
+ at x [60] How we output the character code depends on |charcode_format|.
 begin if font_type>vanilla then
   begin tfm[0]:=c; out_octal(0,1)
   end
@@ -367,8 +363,7 @@
   end;
 @z
 
-% [61] Don't output the face code as an integer.
- at x
+ at x [61] Don't output the face code as an integer.
   out(MBL_string[1+(b mod 3)]);
   out(RI_string[1+s]);
   out(RCE_string[1+(b div 3)]);
@@ -378,8 +373,7 @@
   put_byte(RCE_string[1+(b div 3)], vpl_file);
 @z
 
-% [101] No progress reports unless verbose.
- at x
+ at x [100] No progress reports unless verbose.
     incr(chars_on_line);
     end;
   print_octal(c); {progress report}
@@ -389,8 +383,7 @@
   if verbose then print_octal(c); {progress report}
 @z
 
-% [112] No nonlocal goto's.
- at x
+ at x [112] No nonlocal goto's.
   begin print_ln('Sorry, I haven''t room for so many ligature/kern pairs!');
 @.Sorry, I haven't room...@>
   goto final_end;
@@ -490,7 +483,7 @@
   end
 @z
 
- at x [132] Eliminate the |final_end| and |exit| labels.
+ at x [131] Eliminate the |final_end| and |exit| labels.
 label final_end, exit;
 @y
 @z
@@ -515,7 +508,7 @@
 end;
 @z
 
- at x [134] Eliminate the |final_end| and |exit| labels.
+ at x [133] Eliminate the |final_end| and |exit| labels.
 label final_end,exit;
 @y
 @z
@@ -528,13 +521,13 @@
 end;
 @z
 
- at x [135] No final newline unless verbose.
+ at x [134] No final newline unless verbose.
 print_ln('.');@/
 @y
 if verbose then print_ln('.');@/
 @z
 
- at x [136] System-dependent changes.
+ at x [135] System-dependent changes.
 This section should be replaced, if necessary, by changes to the program
 that are necessary to make \.{VFtoVP} work at a particular installation.
 It is usually best to design your change file so that all changes to

Modified: trunk/Build/source/texk/web2c/weave.ch
===================================================================
--- trunk/Build/source/texk/web2c/weave.ch	2024-06-04 10:25:53 UTC (rev 71424)
+++ trunk/Build/source/texk/web2c/weave.ch	2024-06-04 17:53:11 UTC (rev 71425)
@@ -135,7 +135,7 @@
 @!stack_size=2000; {number of simultaneous output levels}
 @z
 
-% [??] The text_char type is used as an array index into xord.  The
+% [12] The text_char type is used as an array index into xord.  The
 % default type `char' produces signed integers, which are bad array
 % indices in C.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -160,7 +160,7 @@
 @d print(#)==write(term_out,#) {`|print|' means write on the terminal}
 @z
 
- at x
+ at x [20]
 @<Globals...@>=
 @!term_out:text_file; {the terminal as an output file}
 @y
@@ -341,7 +341,7 @@
 @.pwebmac@>
 @z
 
- at x
+ at x [124]
 out_ptr:=1; out_line:=1; out_buf[1]:="c"; write(tex_file,'\input webma');
 @y
 out_ptr:=1; out_line:=1; out_buf[1]:="c";