summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/vftovp.ch
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2024-08-31 18:00:43 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2024-08-31 18:00:43 +0000
commitad7e29c7f2f8f6f8d4db94780d10a5105de23f73 (patch)
tree37fbd668e69024c60ce1dcd28f13da3a6388bdbb /Build/source/texk/web2c/vftovp.ch
parentea09d242d12ad051f619e626b6baa256a0918f5d (diff)
[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. git-svn-id: svn://tug.org/texlive/trunk@72150 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/vftovp.ch')
-rw-r--r--Build/source/texk/web2c/vftovp.ch16
1 files changed, 8 insertions, 8 deletions
diff --git a/Build/source/texk/web2c/vftovp.ch b/Build/source/texk/web2c/vftovp.ch
index 6b423e33408..e9c8f3ff2b5 100644
--- a/Build/source/texk/web2c/vftovp.ch
+++ b/Build/source/texk/web2c/vftovp.ch
@@ -49,7 +49,7 @@ procedure initialize; {this procedure gets things started properly}
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 @@ Parse a Unix-style command line.
@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 @@ var @!long_options: array[0..n_options] of getopt_struct;
@!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 @@ end;
@ 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 @@ incr (current_option);
@ 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 @@ incr (current_option);
@ 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 @@ verbose := false;
@ 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 @@ charcode_format := charcode_default;
@ 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;