diff options
Diffstat (limited to 'Build/source/texk')
| -rw-r--r-- | Build/source/texk/web2c/ChangeLog | 4 | ||||
| -rw-r--r-- | Build/source/texk/web2c/vftovp.ch | 16 |
2 files changed, 12 insertions, 8 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index ab0d6888111..402e118fae2 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -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, 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; |