summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/gftype.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/gftype.ch')
-rw-r--r--Build/source/texk/web2c/gftype.ch21
1 files changed, 16 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/gftype.ch b/Build/source/texk/web2c/gftype.ch
index 83834e76c26..74bc8d4dec1 100644
--- a/Build/source/texk/web2c/gftype.ch
+++ b/Build/source/texk/web2c/gftype.ch
@@ -15,12 +15,23 @@
% 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
+\def\title{GF$\,$\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{GF$\,$\lowercase{type} changes for C}
@z
@x [1] Define my_name
@@ -52,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}
@@ -73,7 +84,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.
Instead, we define parameters settable at runtime.
@@ -166,7 +177,7 @@ end;
@d text_char == char {the data type of characters in text files}
@z
-@x [21] Redo open_gf_file to do path searching.
+@x [22] Redo open_gf_file to do path searching.
@ To prepare this file for input, we |reset| it.
@p procedure open_gf_file; {prepares to read packed bytes in |gf_file|}
@@ -438,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;