diff options
Diffstat (limited to 'Build')
-rw-r--r-- | Build/source/texk/web2c/dvicopy.ch | 8 | ||||
-rw-r--r-- | Build/source/texk/web2c/gftodvi.ch | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/gftopk.ch | 30 | ||||
-rw-r--r-- | Build/source/texk/web2c/gftype.ch | 8 | ||||
-rw-r--r-- | Build/source/texk/web2c/patgen.ch | 36 | ||||
-rw-r--r-- | Build/source/texk/web2c/pktogf.ch | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/pktype.ch | 20 | ||||
-rw-r--r-- | Build/source/texk/web2c/pltotf.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/pooltype.ch | 16 | ||||
-rw-r--r-- | Build/source/texk/web2c/tangle.ch | 5 | ||||
-rw-r--r-- | Build/source/texk/web2c/tftopl.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/vftovp.ch | 31 | ||||
-rw-r--r-- | Build/source/texk/web2c/weave.ch | 6 |
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"; |