diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2024-09-02 17:47:28 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2024-09-02 17:47:28 +0000 |
commit | e86c04007dca3917e391e25265cb5663f8e92740 (patch) | |
tree | 35a50894a44ad2f51e64a985f51b89b6bbed81fd /Build | |
parent | eb602f73f19afe3aff397339d59ee9a0b12b7f8c (diff) |
[WEB] Flip two section names in the index.
git-svn-id: svn://tug.org/texlive/trunk@72170 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r-- | Build/source/texk/web2c/ChangeLog | 19 | ||||
-rw-r--r-- | Build/source/texk/web2c/bibtex.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/dvicopy.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/dvitype.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/gftodvi.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/gftopk.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/gftype.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/mft.ch | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/patgen.ch | 16 | ||||
-rw-r--r-- | Build/source/texk/web2c/pktogf.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/pktype.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/pltotf.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/pooltype.ch | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/tangle.ch | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/tftopl.ch | 34 | ||||
-rw-r--r-- | Build/source/texk/web2c/vptovf.ch | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/weave.ch | 4 |
17 files changed, 151 insertions, 34 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index 402e118fae2..a07228b4dd2 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -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. diff --git a/Build/source/texk/web2c/bibtex.ch b/Build/source/texk/web2c/bibtex.ch index c8d566ee60b..b9661c65cdd 100644 --- a/Build/source/texk/web2c/bibtex.ch +++ b/Build/source/texk/web2c/bibtex.ch @@ -13,6 +13,12 @@ % 03/09/90 `int' is a bad variable name for C. % (more recent changes in the ChangeLog) +@x [0] +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + % [0] Let bibtex.tex work with latest webmac (which defines \ET, hence % making E active loses). @x @@ -104,7 +110,7 @@ begin initialize; print_ln(banner);@/ @y -@<Define |parse_arguments|@> +@<Define \(|parse_arguments|@> begin standard_input := stdin; standard_output := stdout; @@ -1633,7 +1639,7 @@ itself will get a new section number. @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; diff --git a/Build/source/texk/web2c/dvicopy.ch b/Build/source/texk/web2c/dvicopy.ch index 5b4ebbc5438..75b30d0f064 100644 --- a/Build/source/texk/web2c/dvicopy.ch +++ b/Build/source/texk/web2c/dvicopy.ch @@ -8,6 +8,12 @@ % Mar 20 91 THD Updated to dvicopy 1.2 % (more recent changes in the ChangeLog) +@x [0] l.35 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.59 WEAVE: print changes only \pageno=\contentspagenumber \advance\pageno by 1 @y @@ -46,7 +52,7 @@ procedure initialize; {this procedure gets things started properly} 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 @@ by the index variable |option_index|. @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; diff --git a/Build/source/texk/web2c/dvitype.ch b/Build/source/texk/web2c/dvitype.ch index c22c080a6de..d17904ff001 100644 --- a/Build/source/texk/web2c/dvitype.ch +++ b/Build/source/texk/web2c/dvitype.ch @@ -20,6 +20,12 @@ % 01/16/90 (SR) To version 3.2. % (more recent changes in the ChangeLog) +@x [0] l.29 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.32 \def\title{DVI$\,$\lowercase{type}} @y @@ -55,7 +61,7 @@ procedure initialize; {this procedure gets things started properly} 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/gftodvi.ch b/Build/source/texk/web2c/gftodvi.ch index 90ecd85da2a..5b895f02ae0 100644 --- a/Build/source/texk/web2c/gftodvi.ch +++ b/Build/source/texk/web2c/gftodvi.ch @@ -35,6 +35,12 @@ % Revision 0.3 84/11/17 23:51:56 richards % Base version for GFtoDVI Version 0.3 +@x [0] l.29 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.32 \def\title{GF$\,$\lowercase{to}$\,$DVI} @y @@ -77,7 +83,7 @@ procedure initialize; {this procedure gets things started properly} 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/gftopk.ch b/Build/source/texk/web2c/gftopk.ch index 62af338db8e..f892e4ba309 100644 --- a/Build/source/texk/web2c/gftopk.ch +++ b/Build/source/texk/web2c/gftopk.ch @@ -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. +@x [0] l.41 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.44 \def\title{GFtoPK} @y @@ -63,7 +69,7 @@ produced only when the \.{-v} command line flag is presented. 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/gftype.ch b/Build/source/texk/web2c/gftype.ch index 2e51550240a..74bc8d4dec1 100644 --- a/Build/source/texk/web2c/gftype.ch +++ b/Build/source/texk/web2c/gftype.ch @@ -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. +@x [0] l.27 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.30 \def\title{GFtype} @y @@ -57,7 +63,7 @@ procedure initialize; {this procedure gets things started properly} 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/mft.ch b/Build/source/texk/web2c/mft.ch index 57f82579138..4bb78a0bcf1 100644 --- a/Build/source/texk/web2c/mft.ch +++ b/Build/source/texk/web2c/mft.ch @@ -74,7 +74,7 @@ procedure initialize; 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 @@ used to provide basic formatting. @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; diff --git a/Build/source/texk/web2c/patgen.ch b/Build/source/texk/web2c/patgen.ch index e6accc88d89..2c9d1cf848d 100644 --- a/Build/source/texk/web2c/patgen.ch +++ b/Build/source/texk/web2c/patgen.ch @@ -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. +@x [0] l.13 +\def\PASCAL{Pascal} +@y +\def\PASCAL{Pascal} + +\def\({} % this is used to make section names sort themselves better +@z + @x [0] Extend program title. \def\title{PATGEN} @y @@ -53,7 +61,7 @@ procedure initialize; {this procedure gets things started properly} 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 @@ error message about what caused the error. % 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/pktogf.ch b/Build/source/texk/web2c/pktogf.ch index 1dc768e46e0..d397fcb6b70 100644 --- a/Build/source/texk/web2c/pktogf.ch +++ b/Build/source/texk/web2c/pktogf.ch @@ -12,6 +12,12 @@ % gf and pk formats. PKtoGF runs silently unless it is given the % -v switch in the command line. +@x [0] l.19 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.21 \def\title{PKtoGF} @y @@ -60,7 +66,7 @@ procedure initialize; {this procedure gets things started properly} 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/pktype.ch b/Build/source/texk/web2c/pktype.ch index df785ce8b26..58316843997 100644 --- a/Build/source/texk/web2c/pktype.ch +++ b/Build/source/texk/web2c/pktype.ch @@ -8,6 +8,12 @@ % There is no terminal input to this program. % Output is to stdout, and may, of course, be redirected. +@x [0] l.25 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.27 \def\title{PKtype} @y @@ -46,7 +52,7 @@ procedure initialize; {this procedure gets things started properly} @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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/pltotf.ch b/Build/source/texk/web2c/pltotf.ch index fcc08fbc5cb..c4a9a535d24 100644 --- a/Build/source/texk/web2c/pltotf.ch +++ b/Build/source/texk/web2c/pltotf.ch @@ -11,6 +11,12 @@ % 01/16/90 (SR) Version 3.2. % (more recent changes in the ChangeLog) +@x [0] l.31 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.34 \def\title{PL\lowercase{to}TF} @y @@ -45,7 +51,7 @@ procedure initialize; {this procedure gets things started properly} 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/pooltype.ch b/Build/source/texk/web2c/pooltype.ch index 74b4d9a2354..8aa11064223 100644 --- a/Build/source/texk/web2c/pooltype.ch +++ b/Build/source/texk/web2c/pooltype.ch @@ -4,6 +4,12 @@ % 11/29/89 (KB) Version released with 8-bit TeX. % (more recent changes in the ChangeLog) +@x [0] l.13 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.16 \def\title{POOL\lowercase{type}} @y @@ -34,7 +40,7 @@ procedure initialize; {this procedure gets things started properly} 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/tangle.ch b/Build/source/texk/web2c/tangle.ch index 5bb61fe776e..a3842ed0979 100644 --- a/Build/source/texk/web2c/tangle.ch +++ b/Build/source/texk/web2c/tangle.ch @@ -73,7 +73,7 @@ procedure initialize; 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/tftopl.ch b/Build/source/texk/web2c/tftopl.ch index 445ba8e3ab1..c26137b6958 100644 --- a/Build/source/texk/web2c/tftopl.ch +++ b/Build/source/texk/web2c/tftopl.ch @@ -15,6 +15,12 @@ % 01/16/90 (SR) Version 3.1. % (more recent changes in the ChangeLog) +@x [0] l.25 +\def\(#1){} % this is used to make section names sort themselves better +@y +\def\({} % this is used to make section names sort themselves better +@z + @x [0] l.28 \def\title{TF\lowercase{to}PL} @y @@ -64,7 +70,7 @@ label @<Labels in the outer block@>@/ 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 @@ strcat (ASCII_all, '`abcdefghijklmnopqrstuvwxyz{|}~');@/ MBL_string:=' MBL'; RI_string:=' RI '; RCE_string:=' RCE'; @z +@x [36] l.680 +while l>0 do @<Reduce \(1)|l| by one, preserving the invariants@>; +@y +while l>0 do @<Reduce \(|l| by one, preserving the invariants@>; +@z + +@x [37] l.687 +@ @<Reduce \(1)|l|...@>= +@y +@ @<Reduce \(|l|...@>= +@z + % [38] How we output the character code depends on |charcode_format|. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @x @@ -228,6 +246,18 @@ else begin tfm[0]:=c; out_octal(0,1); put_byte(RCE_string[1+(b div 3)], pl_file); @z +@x [40] l.751 +if a>@'3777 then @<Reduce \(2)negative to positive@>; +@y +if a>@'3777 then @<Reduce negative to positive@>; +@z + +@x [43] l.775 +@ @<Reduce \(2)negative to positive@>= +@y +@ @<Reduce negative to positive@>= +@z + % [78] No progress reports unless verbose. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @x @@ -338,7 +368,7 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/vptovf.ch b/Build/source/texk/web2c/vptovf.ch index d9ec8935155..de5b1adab31 100644 --- a/Build/source/texk/web2c/vptovf.ch +++ b/Build/source/texk/web2c/vptovf.ch @@ -34,7 +34,7 @@ procedure initialize; {this procedure gets things started properly} 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 @@ Parse a Unix-style command line. @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; diff --git a/Build/source/texk/web2c/weave.ch b/Build/source/texk/web2c/weave.ch index 5a932e576ab..7a409a09411 100644 --- a/Build/source/texk/web2c/weave.ch +++ b/Build/source/texk/web2c/weave.ch @@ -81,7 +81,7 @@ procedure initialize; 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 @@ Parse a Unix-style command line. @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; |