texlive[72170] Build/source/texk/web2c: [WEB] Flip two section names

commits+ascherer at tug.org commits+ascherer at tug.org
Mon Sep 2 19:47:28 CEST 2024


Revision: 72170
          https://tug.org/svn/texlive?view=revision&revision=72170
Author:   ascherer
Date:     2024-09-02 19:47:28 +0200 (Mon, 02 Sep 2024)
Log Message:
-----------
[WEB] Flip two section names in the index.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/bibtex.ch
    trunk/Build/source/texk/web2c/dvicopy.ch
    trunk/Build/source/texk/web2c/dvitype.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/mft.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/vptovf.ch
    trunk/Build/source/texk/web2c/weave.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/ChangeLog	2024-09-02 17:47:28 UTC (rev 72170)
@@ -1,3 +1,22 @@
+2024-09-01  Andreas Scherer  <https://ascherer.github.io>
+
+	* bibtex.ch,
+	* dvicopy.ch,
+	* dvitype.ch,
+	* gftodvi.ch,
+	* gftopk.ch,
+	* gftype.ch,
+	* mft.ch,
+	* patgen.ch,
+	* pktogf.ch,
+	* pktype.ch,
+	* pltotf.ch,
+	* pooltype.ch,
+	* tangle.ch,
+	* tftopl.ch,
+	* vptovf.ch,
+	* weave.ch: Flip two section names in the index.
+
 2024-08-31  Andreas Scherer  <https://ascherer.github.io>
 
 	* vftovp.ch: Fix sorting order of new named sections.

Modified: trunk/Build/source/texk/web2c/bibtex.ch
===================================================================
--- trunk/Build/source/texk/web2c/bibtex.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/bibtex.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -13,6 +13,12 @@
 % 03/09/90	`int' is a bad variable name for C.
 % (more recent changes in the ChangeLog)
 
+ at x [0]
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 % [0] Let bibtex.tex work with latest webmac (which defines \ET, hence
 % making E active loses).
 @x
@@ -104,7 +110,7 @@
 initialize;
 print_ln(banner);@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 begin
 standard_input := stdin;
 standard_output := stdout;
@@ -1633,7 +1639,7 @@
 @y
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 4; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/dvicopy.ch
===================================================================
--- trunk/Build/source/texk/web2c/dvicopy.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/dvicopy.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -8,6 +8,12 @@
 %  Mar 20 91 THD  Updated to dvicopy 1.2
 % (more recent changes in the ChangeLog)
 
+ at x [0] l.35
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.59 WEAVE: print changes only
 \pageno=\contentspagenumber \advance\pageno by 1
 @y
@@ -46,7 +52,7 @@
   var @<Local variables for initialization@>@/
   begin print_ln(banner);@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var @<Local variables for initialization@>@/
   begin
@@ -536,7 +542,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 5; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/dvitype.ch
===================================================================
--- trunk/Build/source/texk/web2c/dvitype.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/dvitype.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -20,6 +20,12 @@
 % 01/16/90 (SR)  To version 3.2.
 % (more recent changes in the ChangeLog)
 
+ at x [0] l.29
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.32
 \def\title{DVI$\,$\lowercase{type}}
 @y
@@ -55,7 +61,7 @@
   var i:integer; {loop index for initializations}
   begin print_ln(banner);@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var i:integer; {loop index for initializations}
   begin
@@ -535,7 +541,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 8; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/gftodvi.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftodvi.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/gftodvi.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -35,6 +35,12 @@
 % Revision 0.3  84/11/17  23:51:56  richards
 % 	Base version for GFtoDVI Version 0.3
 
+ at x [0] l.29
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.32
 \def\title{GF$\,$\lowercase{to}$\,$DVI}
 @y
@@ -77,7 +83,7 @@
 const @<Constants in the outer block@>@/
 type @<Types in the outer block@>@/
 var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var @!i,@!j,@!m,@!n:integer; {loop indices for initializations}
   begin
@@ -612,7 +618,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 4; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/gftopk.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftopk.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/gftopk.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -11,6 +11,12 @@
 % on the origin of fonts in both gf and pk formats.  The program runs
 % silently unless it is given the -v switch in the command line.
 
+ at x [0] l.41
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.44
 \def\title{GFtoPK}
 @y
@@ -63,7 +69,7 @@
 const @<Constants in the outer block@>@/
 type @<Types in the outer block@>@/
 var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var i:integer; {loop index for initializations}
 begin
@@ -414,7 +420,7 @@
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 @d do_nothing ==        {empty statement}
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 3; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/gftype.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftype.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/gftype.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -15,6 +15,12 @@
 % turns on images.  There is no terminal input to this program.
 % Output is to stdout, and may, of course, be redirected.
 
+ at x [0] l.27
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.30
 \def\title{GFtype}
 @y
@@ -57,7 +63,7 @@
 const @<Constants in the outer block@>@/
 type @<Types in the outer block@>@/
 var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var i:integer; {loop index for initializations}
   @!bound_default:integer; {temporary for setup}
@@ -443,7 +449,7 @@
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 @d do_nothing ==        {empty statement}
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 4; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/mft.ch
===================================================================
--- trunk/Build/source/texk/web2c/mft.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/mft.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -74,7 +74,7 @@
   var @<Local variables for initialization@>@/
   begin @<Set initial values@>@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize;
   var @<Local variables for initialization@>@/
 begin
@@ -989,7 +989,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 5; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/patgen.ch
===================================================================
--- trunk/Build/source/texk/web2c/patgen.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/patgen.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -5,6 +5,14 @@
 %		 properly---it is hard to test without more information.
 % 03/23/88 (ETM) Brought up to date, converted for use with WEB to C.
 
+ at x [0] l.13
+\def\PASCAL{Pascal}
+ at y
+\def\PASCAL{Pascal}
+
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] Extend program title.
 \def\title{PATGEN}
 @y
@@ -53,7 +61,7 @@
   var @<Local variables for initialization@>@/
   begin print_ln(banner);@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var @<Local variables for initialization@>@/
 begin
@@ -97,11 +105,11 @@
 % machines, from Johannes Hielscher, 10 Jul 2019 00:00:03 (tex-live list),
 % and later from Mojca Miklavec, 23 Sep 2019 21:21:42.
 % It seems hopeless, so went back to the original values (10000000/500000).
-% 
+%
 % The real solution is to provide a way to allocate the arrays
 % dynamically, so that the large arrays can be used by those who need
 % them but other are not affected.
-% 
+%
 % 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 [27]
@@ -243,7 +251,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 2; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/pktogf.ch
===================================================================
--- trunk/Build/source/texk/web2c/pktogf.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/pktogf.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -12,6 +12,12 @@
 % gf and pk formats.  PKtoGF runs silently unless it is given the
 % -v switch in the command line.
 
+ at x [0] l.19
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.21
 \def\title{PKtoGF}
 @y
@@ -60,7 +66,7 @@
   var i:integer; {loop index for initializations}
   begin print_ln(banner);@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var i:integer; {loop index for initializations}
 begin
@@ -459,7 +465,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 3; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/pktype.ch
===================================================================
--- trunk/Build/source/texk/web2c/pktype.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/pktype.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -8,6 +8,12 @@
 % There is no terminal input to this program.
 % Output is to stdout, and may, of course, be redirected.
 
+ at x [0] l.25
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.27
 \def\title{PKtype}
 @y
@@ -46,7 +52,7 @@
 @y
 type @<Types in the outer block@>@/
 var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var i:integer; {loop index for initializations}
 begin
@@ -335,7 +341,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 2; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/pltotf.ch
===================================================================
--- trunk/Build/source/texk/web2c/pltotf.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/pltotf.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -11,6 +11,12 @@
 % 01/16/90 (SR)  Version 3.2.
 % (more recent changes in the ChangeLog)
 
+ at x [0] l.31
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.34
 \def\title{PL\lowercase{to}TF}
 @y
@@ -45,7 +51,7 @@
   var @<Local variables for initialization@>@/
   begin print_ln(banner);@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var @<Local variables for initialization@>@/
   begin kpse_set_program_name (argv[0], my_name);
@@ -263,7 +269,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 3; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/pooltype.ch
===================================================================
--- trunk/Build/source/texk/web2c/pooltype.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/pooltype.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -4,6 +4,12 @@
 % 11/29/89 (KB)  Version released with 8-bit TeX.
 % (more recent changes in the ChangeLog)
 
+ at x [0] l.13
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.16
 \def\title{POOL\lowercase{type}}
 @y
@@ -34,7 +40,7 @@
   var @<Local variables for initialization@>@;
   begin @<Set initial values of key variables@>@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var @<Local variables for initialization@>@;
   begin
@@ -112,7 +118,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 2; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/tangle.ch
===================================================================
--- trunk/Build/source/texk/web2c/tangle.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/tangle.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -73,7 +73,7 @@
   var @<Local variables for initialization@>@/
   begin @<Set initial values@>@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize;
   var @<Local variables for initialization@>@/
   begin
@@ -681,7 +681,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 9; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/tftopl.ch
===================================================================
--- trunk/Build/source/texk/web2c/tftopl.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/tftopl.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -15,6 +15,12 @@
 % 01/16/90 (SR)  Version 3.1.
 % (more recent changes in the ChangeLog)
 
+ at x [0] l.25
+\def\(#1){} % this is used to make section names sort themselves better
+ at y
+\def\({} % this is used to make section names sort themselves better
+ at z
+
 @x [0] l.28
 \def\title{TF\lowercase{to}PL}
 @y
@@ -64,7 +70,7 @@
 procedure initialize; {this procedure gets things started properly}
   begin print_ln(banner);@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   begin
     kpse_set_program_name (argv[0], my_name);
@@ -186,6 +192,18 @@
 MBL_string:=' MBL'; RI_string:=' RI '; RCE_string:=' RCE';
 @z
 
+ at x [36] l.680
+while l>0 do @<Reduce \(1)|l| by one, preserving the invariants@>;
+ at y
+while l>0 do @<Reduce \(|l| by one, preserving the invariants@>;
+ at z
+
+ at x [37] l.687
+@ @<Reduce \(1)|l|...@>=
+ at y
+@ @<Reduce \(|l|...@>=
+ at z
+
 % [38] How we output the character code depends on |charcode_format|.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 @x
@@ -228,6 +246,18 @@
   put_byte(RCE_string[1+(b div 3)], pl_file);
 @z
 
+ at x [40] l.751
+if a>@'3777 then @<Reduce \(2)negative to positive@>;
+ at y
+if a>@'3777 then @<Reduce negative to positive@>;
+ at z
+
+ at x [43] l.775
+@ @<Reduce \(2)negative to positive@>=
+ at y
+@ @<Reduce negative to positive@>=
+ at z
+
 % [78] No progress reports unless verbose.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 @x
@@ -338,7 +368,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 4; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/vptovf.ch
===================================================================
--- trunk/Build/source/texk/web2c/vptovf.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/vptovf.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -34,7 +34,7 @@
   var @<Local variables for initialization@>@/
   begin print_ln(banner);@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var @<Local variables for initialization@>@/
   begin kpse_set_program_name (argv[0], my_name);
@@ -237,7 +237,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 3; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;

Modified: trunk/Build/source/texk/web2c/weave.ch
===================================================================
--- trunk/Build/source/texk/web2c/weave.ch	2024-09-02 17:47:25 UTC (rev 72169)
+++ trunk/Build/source/texk/web2c/weave.ch	2024-09-02 17:47:28 UTC (rev 72170)
@@ -81,7 +81,7 @@
 const @<Constants in the outer block@>@/
 type @<Types in the outer block@>@/
 var @<Globals in the outer block@>@/
-@<Define |parse_arguments|@>@/
+@<Define \(|parse_arguments|@>@/
 @<Error handling procedures@>@/
 procedure initialize;
   var @<Local variables for initialization@>@/
@@ -562,7 +562,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(|parse_arguments|@> =
 procedure parse_arguments;
 const n_options = 4; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;



More information about the tex-live-commits mailing list.