summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/vftovp.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/vftovp.ch')
-rw-r--r--Build/source/texk/web2c/vftovp.ch11
1 files changed, 8 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/vftovp.ch b/Build/source/texk/web2c/vftovp.ch
index bcb0020e2fb..052f8be743c 100644
--- a/Build/source/texk/web2c/vftovp.ch
+++ b/Build/source/texk/web2c/vftovp.ch
@@ -2,12 +2,17 @@
% Written by kb@cs.umb.edu.
% This file is in the public domain.
+@x [0] l.18
+\def\title{VF\lowercase{to}VP}
+@y
+\def\title{VF$\,$\lowercase{to}$\,$VP 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{VF$\,$\lowercase{to}$\,$VP changes for C}
@z
@x [1] Define my_name
@@ -44,7 +49,7 @@ procedure initialize; {this procedure gets things started properly}
var @!k:integer; {all-purpose index for initialization}
begin print_ln(banner);@/
@y
-@<Define |parse_arguments|@>
+@<Define \(p)|parse_arguments|@>
procedure initialize; {this procedure gets things started properly}
var @!k:integer; {all-purpose index for initialization}
begin
@@ -541,7 +546,7 @@ Parse a Unix-style command line.
@d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0)
-@<Define |parse_arguments|@> =
+@<Define \(p)|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;