diff options
Diffstat (limited to 'Build/source/texk/web2c/pktype.ch')
-rw-r--r-- | Build/source/texk/web2c/pktype.ch | 21 |
1 files changed, 16 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/pktype.ch b/Build/source/texk/web2c/pktype.ch index 54424d84bab..58316843997 100644 --- a/Build/source/texk/web2c/pktype.ch +++ b/Build/source/texk/web2c/pktype.ch @@ -8,12 +8,23 @@ % 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 +\def\title{PK$\,$\lowercase{type} changes for C} +@z + @x [0] WEAVE: print changes only. \pageno=\contentspagenumber \advance\pageno by 1 @y \pageno=\contentspagenumber \advance\pageno by 1 \let\maybe=\iffalse -\def\title{PK$\,$\lowercase{type} changes for C} @z @x [2] Define my_name @@ -41,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 @@ -60,7 +71,7 @@ begin @<Labels...@>=final_end; @y @ This module is deleted, because it is only useful for -a non-local |goto|, which we don't use in C. +a non-local |goto|\unskip, which we don't use in C. @z % [6] No need for |name_length| or |terminal_line_length|. Since these @@ -84,7 +95,7 @@ to the very end of the program with an error message. begin goto final_end; end; @y -@ We use a call to the external C exit to avoid a non-local |goto|. +@ We use a call to the external C exit to avoid a non-local |goto|\unskip. @d abort(#)==begin print_ln(#); uexit(1) end @@ -330,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; |