diff options
Diffstat (limited to 'Build/source/texk/web2c/gftopk.ch')
-rw-r--r-- | Build/source/texk/web2c/gftopk.ch | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/gftopk.ch b/Build/source/texk/web2c/gftopk.ch index e4ddf19c8b6..f892e4ba309 100644 --- a/Build/source/texk/web2c/gftopk.ch +++ b/Build/source/texk/web2c/gftopk.ch @@ -11,12 +11,23 @@ % 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 +\def\title{GF$\,$\lowercase{to}$\,$PK changes 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{GF$\,$\lowercase{to}$\,$PK changes C} @z @x [1] Define my_name @@ -58,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 @@ -77,7 +88,7 @@ begin @<Labels...@>=final_end; @y @ This module is deleted, because it is only useful for -a non-local goto, which we can't use in C. +a non-local |goto|\unskip, which we can't use in C. @z @x [6] Dynamic allocation of |row| array. @@ -409,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; |