From ad7e29c7f2f8f6f8d4db94780d10a5105de23f73 Mon Sep 17 00:00:00 2001 From: Andreas Scherer Date: Sat, 31 Aug 2024 18:00:43 +0000 Subject: [VFtoVP] Fix sorting order of new named sections. Note that section @ 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 --- Build/source/texk/web2c/vftovp.ch | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'Build/source/texk/web2c/vftovp.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 -@ +@ 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) -@ = +@ = 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 @; - @; + @; 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@> -@ = +@ = 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@> -@ = +@ = 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@> -@ = +@ = 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@> -@ = +@ = 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. -@ = +@ = long_options[current_option].name := 0; long_options[current_option].has_arg := 0; long_options[current_option].flag := 0; -- cgit v1.2.3