texlive[72150] Build/source/texk/web2c: [VFtoVP] Fix sorting order of

[commits+ascherer at tug.org]

Revision: 72150
          https://tug.org/svn/texlive?view=revision&revision=72150
Author:   ascherer
Date:     2024-08-31 20:00:43 +0200 (Sat, 31 Aug 2024)
Log Message:
-----------
[VFtoVP] Fix sorting order of new named sections.

Note that section @<Compute the |activity| array@> is misplaced in
VFtoVP.WEB. See
https://github.com/ascherer/web/commit/ae067302a7b5746a288cd078425cff0c9fe9fce0
for a possible fix.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/vftovp.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2024-08-30 23:42:20 UTC (rev 72149)
+++ trunk/Build/source/texk/web2c/ChangeLog	2024-08-31 18:00:43 UTC (rev 72150)
@@ -1,3 +1,7 @@
+2024-08-31  Andreas Scherer  <https://ascherer.github.io>
+
+	* vftovp.ch: Fix sorting order of new named sections.
+
 2024-08-23  Andreas Scherer  <https://ascherer.github.io>
 
 	* gftopk.ch,

Modified: trunk/Build/source/texk/web2c/vftovp.ch
===================================================================
--- trunk/Build/source/texk/web2c/vftovp.ch	2024-08-30 23:42:20 UTC (rev 72149)
+++ trunk/Build/source/texk/web2c/vftovp.ch	2024-08-31 18:00:43 UTC (rev 72150)
@@ -49,7 +49,7 @@
   var @!k:integer; {all-purpose index for initialization}
   begin print_ln(banner);@/
 @y
-@<Define |parse_arguments|@>
+@<Define \(p)|parse_arguments|@>
 procedure initialize; {this procedure gets things started properly}
   var @!k:integer; {all-purpose index for initialization}
   begin
@@ -546,7 +546,7 @@
 
 @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
 
-@<Define |parse_arguments|@> =
+@<Define \(p)|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;
@@ -555,7 +555,7 @@
     @!current_option: 0..n_options;
 begin
   @<Initialize the option variables@>;
-  @<Define the option table@>;
+  @<Define \(t)the option table@>;
   repeat
     getopt_return_val := getopt_long_only (argc, argv, '', long_options,
                                            address_of (option_index));
@@ -602,7 +602,7 @@
 @ Here are the options we allow.  The first is one of the standard GNU options.
 @.-help@>
 
-@<Define the option...@> =
+@<Define \(t)the option...@> =
 current_option := 0;
 long_options[current_option].name := 'help';
 long_options[current_option].has_arg := 0;
@@ -613,7 +613,7 @@
 @ Another of the standard options.
 @.-version@>
 
-@<Define the option...@> =
+@<Define \(t)the option...@> =
 long_options[current_option].name := 'version';
 long_options[current_option].has_arg := 0;
 long_options[current_option].flag := 0;
@@ -623,7 +623,7 @@
 @ Print progress information?
 @.-verbose@>
 
-@<Define the option...@> =
+@<Define \(t)the option...@> =
 long_options[current_option].name := 'verbose';
 long_options[current_option].has_arg := 0;
 long_options[current_option].flag := address_of (verbose);
@@ -644,7 +644,7 @@
 @ Here is an option to change how we output character codes.
 @.-charcode-format@>
 
-@<Define the option...@> =
+@<Define \(t)the option...@> =
 long_options[current_option].name := 'charcode-format';
 long_options[current_option].has_arg := 1;
 long_options[current_option].flag := 0;
@@ -672,7 +672,7 @@
 
 @ An element with all zeros always ends the list.
 
-@<Define the option...@> =
+@<Define \(t)the option...@> =
 long_options[current_option].name := 0;
 long_options[current_option].has_arg := 0;
 long_options[current_option].flag := 0;