summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2024-06-04 17:53:11 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2024-06-04 17:53:11 +0000
commitc9b2862e1f0280293122d9f7cdb03eb63243d75d (patch)
treedf63eb025ee9e285a8a93b093d7f3a9badda1674 /Build/source/texk/web2c
parent630b1b54e8e8fbb87f07e2667390373d5a93bca1 (diff)
Update [section numbers] in basic WEB change files.
git-svn-id: svn://tug.org/texlive/trunk@71425 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r--Build/source/texk/web2c/dvicopy.ch8
-rw-r--r--Build/source/texk/web2c/gftodvi.ch4
-rw-r--r--Build/source/texk/web2c/gftopk.ch30
-rw-r--r--Build/source/texk/web2c/gftype.ch8
-rw-r--r--Build/source/texk/web2c/patgen.ch36
-rw-r--r--Build/source/texk/web2c/pktogf.ch4
-rw-r--r--Build/source/texk/web2c/pktype.ch20
-rw-r--r--Build/source/texk/web2c/pltotf.ch2
-rw-r--r--Build/source/texk/web2c/pooltype.ch16
-rw-r--r--Build/source/texk/web2c/tangle.ch5
-rw-r--r--Build/source/texk/web2c/tftopl.ch2
-rw-r--r--Build/source/texk/web2c/vftovp.ch31
-rw-r--r--Build/source/texk/web2c/weave.ch6
13 files changed, 81 insertions, 91 deletions
diff --git a/Build/source/texk/web2c/dvicopy.ch b/Build/source/texk/web2c/dvicopy.ch
index 1b14c54b760..7ae1ecba2e7 100644
--- a/Build/source/texk/web2c/dvicopy.ch
+++ b/Build/source/texk/web2c/dvicopy.ch
@@ -340,7 +340,7 @@ procedure bad_dvi;
noreturn procedure bad_dvi;
@z
-@x [111] Fix up opening the binary files
+@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;
dvi_loc:=0;
@z
-@x [113] Make dvi_length() and dvi_move() work.
+@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,14 +494,14 @@ final_end:end.
end.
@z
-@x [245] Do this later, to avoid creating empty files.
+@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
@<Open output file(s)@>=
@z
-@x [247] Use external routine to output bytes.
+@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}
diff --git a/Build/source/texk/web2c/gftodvi.ch b/Build/source/texk/web2c/gftodvi.ch
index 1c473a863a6..41f793ad124 100644
--- a/Build/source/texk/web2c/gftodvi.ch
+++ b/Build/source/texk/web2c/gftodvi.ch
@@ -143,7 +143,7 @@ for i:=@'177 to @'377 do xchr[i]:=chr(i);
@z
-@x [15] Change `update_terminal' to `flush', `term_in' is stdin.
+@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 @@ loop @+begin continue:
endcases;@/
@z
-@x [still 219] If verbose, output a newline at the end.
+@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 (' ');
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
diff --git a/Build/source/texk/web2c/gftype.ch b/Build/source/texk/web2c/gftype.ch
index 143fbb0f5eb..83834e76c26 100644
--- a/Build/source/texk/web2c/gftype.ch
+++ b/Build/source/texk/web2c/gftype.ch
@@ -166,7 +166,7 @@ end;
@d text_char == char {the data type of characters in text files}
@z
-@x [22] Redo open_gf_file to do path searching.
+@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 @@ othercases abort('internal error')
endcases;
@z
-@x [64] Break up the second oversized case statement.
+@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 @@ othercases error('undefined command ',o:1,'!')
endcases
@z
-@x [65] No label and no dialog; finish last line written.
+@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 @@ print_ln(' altogether.');
end.
@z
-@x System-dependent changes.
+@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
diff --git a/Build/source/texk/web2c/patgen.ch b/Build/source/texk/web2c/patgen.ch
index 3d9054a446d..13775991b18 100644
--- a/Build/source/texk/web2c/patgen.ch
+++ b/Build/source/texk/web2c/patgen.ch
@@ -20,7 +20,7 @@
@d banner=='This is PATGEN, Version 2.4' {printed when the program starts}
@z
-@x Terminal I/O, Need standard input.
+@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
-@x Eliminate the |end_of_PATGEN| label.
+@x [3] Eliminate the |end_of_PATGEN| label.
@d end_of_PATGEN=9999
@y
@z
@@ -43,7 +43,7 @@ label end_of_PATGEN;
@y
@z
-@x Add file opening to initialization
+@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 @@ error message about what caused the error.
@d error(#)==begin write_ln(stderr, #); uexit(1); end;
@z
-@x Fix signed char problem
+@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 @@ error message about what caused the error.
%
% 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.
-@x
+@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 @@ error message about what caused the error.
@!max_buf_len=3000; {maximum length of input lines, must be at least |max_len|}
@z
-@x Close both input and output files.
+@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 @@ error message about what caused the error.
@d close_in(#)==xfclose(#, 'inputfile') {close an input file}
@z
-@x Add f_name declaration, and temporaries for efficiency printing.
+@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,20 +132,20 @@ error message about what caused the error.
@!bad_frac, @!denom, @!eff: real;
@z
-@x Get translate filename from command line.
+@x [54] Get translate filename from command line.
reset(translate);
@y
f_name := cmdline (4);
reset (translate, f_name);
@z
-@x Input kludge.
+@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
-@x Floating point output kludge for Web2c.
+@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 @@ begin
end
@z
-@x Get dictionary filename from command line.
+@x [88] Get dictionary filename from command line.
reset(dictionary);@/
@y
f_name := cmdline(1);
@@ -165,7 +165,7 @@ reset (dictionary, f_name);
% Fix file name initialization, since can't assign a constant string
% that we're going to write into.
-@x
+@x [88]
begin filnam:='pattmp. ';
filnam[8]:=xdig[hyph_level];
@y
@@ -173,7 +173,7 @@ reset (dictionary, f_name);
filnam[7]:=xdig[hyph_level];
@z
-@x Work around floating point I/O deficiency; reorder to avoid overflow.
+@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,14 +189,14 @@ reset (dictionary, f_name);
end;
@z
-@x Get pattern filename from command line.
+@x [90] Get pattern filename from command line.
reset(patterns);
@y
f_name := cmdline (2);
reset (patterns, f_name);
@z
-@x Fix reading of multiple variables in the same line
+@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,19 +212,19 @@ repeat print('hyph_start, hyph_finish: '); input_2ints(n1,n2);@/
input_3ints(n1,n2,n3);@/
@z
-@x Get output file name from command line.
+@x [94] Get output file name from command line.
rewrite(patout);
@y
f_name := cmdline (3);
rewrite (patout, f_name);
@z
-@x Eliminate the |end_of_PATGEN| label.
+@x [94] Eliminate the |end_of_PATGEN| label.
end_of_PATGEN:
@y
@z
-@x System-dependent changes.
+@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
diff --git a/Build/source/texk/web2c/pktogf.ch b/Build/source/texk/web2c/pktogf.ch
index edce6bfe7f4..9bbeb8e1481 100644
--- a/Build/source/texk/web2c/pktogf.ch
+++ b/Build/source/texk/web2c/pktogf.ch
@@ -20,7 +20,7 @@
\def\title{PK$\,$\lowercase{to}$\,$GF changes for C}
@z
-@x [1] Define my_name
+@x [2] Define my_name
@d banner=='This is PKtoGF, Version 1.1'
@y
@d my_name=='pktogf'
@@ -444,7 +444,7 @@ final_end :
@y
@z
-@x System-dependent changes.
+@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.
diff --git a/Build/source/texk/web2c/pktype.ch b/Build/source/texk/web2c/pktype.ch
index c8c0d59108a..54424d84bab 100644
--- a/Build/source/texk/web2c/pktype.ch
+++ b/Build/source/texk/web2c/pktype.ch
@@ -16,7 +16,7 @@
\def\title{PK$\,$\lowercase{type} changes for C}
@z
-@x [1] Define my_name
+@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 @@ end;
@d text_char == char {the data type of characters in text files}
@z
-@x [32] Remove typ_file from globals.
+@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 @@ end;
@^system dependencies@>
@z
-@x [33] Redo open_pk_file; scrap open_typ_file.
+@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 @@ begin
end;
@z
-@x [34] Change pk_loc to cur_loc, and use C strings, not arrays.
+@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 @@ else signed_quad:=(((a-256)*256+b)*256+c)*256+d;
end;
@z
-@x [36] Don't need the <Open files> module.
+@x [35] Don't need the <Open files> module.
@ Now we are ready to open the files.
@<Open files@>=
@@ -245,7 +245,7 @@ t_print_ln(' ')
It is not needed when output goes to |stdout|.
@z
-@x [37] Redefine get_16 and get_32.
+@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 @@ get_32 := a * 65536 + get_16 ; end ;
@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@cl.cam.ac.uk.)
@x
pk_yyy : t_print_ln((pk_loc-1):1,': Num special: ',get_32:1) ;
@@ -268,7 +268,7 @@ get_32 := a * 65536 + get_16 ; end ;
t_print_ln (': Num special: ',get_32:1) ; end;
@z
-@x [54--55] Eliminate the ``Terminal communication'' chapter.
+@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 @@ end ;
@ So there is no |procedure dialog|.
@z
-@x [56] Restructure the main program.
+@x [55] Restructure the main program.
dialog ;
@<Open files@> ;
@y
@@ -320,7 +320,7 @@ final_end :
@y
@z
-@x System-dependent changes.
+@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.
diff --git a/Build/source/texk/web2c/pltotf.ch b/Build/source/texk/web2c/pltotf.ch
index d877353e73f..82e6c1d9a99 100644
--- a/Build/source/texk/web2c/pltotf.ch
+++ b/Build/source/texk/web2c/pltotf.ch
@@ -149,7 +149,7 @@ if verbose then @<Print |c| in octal notation@>;
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
diff --git a/Build/source/texk/web2c/pooltype.ch b/Build/source/texk/web2c/pooltype.ch
index cbff918acf7..4ef47ad0ce3 100644
--- a/Build/source/texk/web2c/pooltype.ch
+++ b/Build/source/texk/web2c/pooltype.ch
@@ -38,7 +38,7 @@ procedure initialize; {this procedure gets things started properly}
@<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 @@ procedure initialize; {this procedure gets things started properly}
@d text_char == ASCII_code {the data type of characters in text files}
@z
-@x [12] Permissiveness
+@x [10] Permissiveness
for i:=0 to @'37 do xchr[i]:=' ';
for i:=@'177 to @'377 do xchr[i]:=' ';
@y
@@ -56,21 +56,21 @@ for i:=0 to @'37 do xchr[i]:=chr(i);
for i:=@'177 to @'377 do xchr[i]:=chr(i);
@z
-@x Write errors to stderr, avoid nonlocal label.
+@x [15] Write errors to stderr, avoid nonlocal label.
@d abort(#)==begin write_ln(#); goto 9999;
end
@y
@d abort(#)==begin write_ln(stderr, #); uexit(1); end
@z
-@x Remove unused label from end of program; add uexit(0) call
+@x [15] Remove unused label from end of program; add uexit(0) call
9999:end.
@y
uexit(0);
end.
@z
-@x Add pool_name variable.
+@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 @@ end.
@!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 @@ reset(pool_file); xsum:=false;
xsum:=false;
@z
-@x Change single read into two reads
+@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
-@x System-dependent changes.
+@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
diff --git a/Build/source/texk/web2c/tangle.ch b/Build/source/texk/web2c/tangle.ch
index c3a9de3f8e9..c318ab1768c 100644
--- a/Build/source/texk/web2c/tangle.ch
+++ b/Build/source/texk/web2c/tangle.ch
@@ -79,10 +79,6 @@ procedure initialize;
@x [8] Constants: increase id lengths, for TeX--XeT and tex2pdf.
@!buf_size=100; {maximum length of input line}
-@y
-@!buf_size=1000; {maximum length of input line}
-@z
-@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 @@ procedure initialize;
@!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;
diff --git a/Build/source/texk/web2c/tftopl.ch b/Build/source/texk/web2c/tftopl.ch
index 4726146a097..973537d531f 100644
--- a/Build/source/texk/web2c/tftopl.ch
+++ b/Build/source/texk/web2c/tftopl.ch
@@ -75,7 +75,7 @@ procedure initialize; {this procedure gets things started properly}
@y
@z
-@x [5] Increase sizes to match vptovf.
+@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
diff --git a/Build/source/texk/web2c/vftovp.ch b/Build/source/texk/web2c/vftovp.ch
index f972b51f148..bcb0020e2fb 100644
--- a/Build/source/texk/web2c/vftovp.ch
+++ b/Build/source/texk/web2c/vftovp.ch
@@ -122,8 +122,7 @@ end else begin
end;
@z
-% [22] `index' is not a good choice of identifier in C.
-@x
+@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 @@ end;
@!tfm_file_array: ^byte; {the input data all goes here}
@z
-% [24] abort() should cause a bad exit code.
-@x
+@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 @@ if 4*lf-1>tfm_size then abort('The file is bigger than I can handle!');
tfm_file_array := xrealloc_array (tfm_file_array, byte, 4 * lf + 1000);
@z
-% [31] Ditto for vf_abort.
-@x
+@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 @@ free(cur_name);
print_ln('Check sum in VF file being replaced by TFM check sum');
@z
-@x [42] Remove initialization of now-defunct array.
+@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';
MBL_string:=' MBL'; RI_string:=' RI '; RCE_string:=' RCE';
@z
-% [60] How we output the character code depends on |charcode_format|.
-@x
+@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 @@ else begin tfm[0]:=c; out_octal(0,1);
end;
@z
-% [61] Don't output the face code as an integer.
-@x
+@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 @@ else begin tfm[0]:=c; out_octal(0,1);
put_byte(RCE_string[1+(b div 3)], vpl_file);
@z
-% [101] No progress reports unless verbose.
-@x
+@x [100] No progress reports unless verbose.
incr(chars_on_line);
end;
print_octal(c); {progress report}
@@ -389,8 +383,7 @@ else begin tfm[0]:=c; out_octal(0,1);
if verbose then print_octal(c); {progress report}
@z
-% [112] No nonlocal goto's.
-@x
+@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 @@ begin if o>=set1 then
end
@z
-@x [132] Eliminate the |final_end| and |exit| labels.
+@x [131] Eliminate the |final_end| and |exit| labels.
label final_end, exit;
@y
@z
@@ -515,7 +508,7 @@ organize:=vf_input;
end;
@z
-@x [134] Eliminate the |final_end| and |exit| labels.
+@x [133] Eliminate the |final_end| and |exit| labels.
label final_end,exit;
@y
@z
@@ -528,13 +521,13 @@ do_map:=true;
end;
@z
-@x [135] No final newline unless verbose.
+@x [134] No final newline unless verbose.
print_ln('.');@/
@y
if verbose then print_ln('.');@/
@z
-@x [136] System-dependent changes.
+@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
diff --git a/Build/source/texk/web2c/weave.ch b/Build/source/texk/web2c/weave.ch
index 3361efc5983..f39dcc6b80e 100644
--- a/Build/source/texk/web2c/weave.ch
+++ b/Build/source/texk/web2c/weave.ch
@@ -135,7 +135,7 @@ procedure initialize;
@!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 @@ for i:=@'200 to @'377 do xchr[i]:=chr(i);
@d print(#)==write(term_out,#) {`|print|' means write on the terminal}
@z
-@x
+@x [20]
@<Globals...@>=
@!term_out:text_file; {the terminal as an output file}
@y
@@ -341,7 +341,7 @@ command line), then we use alternative \TeX\ macros from `\.{\\input pwebmac}'.
@.pwebmac@>
@z
-@x
+@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";