diff options
Diffstat (limited to 'Build/source/texk/web2c/vptovf.ch')
| -rw-r--r-- | Build/source/texk/web2c/vptovf.ch | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Build/source/texk/web2c/vptovf.ch b/Build/source/texk/web2c/vptovf.ch index 7455ab58892..3e558952d62 100644 --- a/Build/source/texk/web2c/vptovf.ch +++ b/Build/source/texk/web2c/vptovf.ch @@ -85,7 +85,7 @@ rewritebin (tfm_file, tfm_name); % [89] `index' is not a good choice for an identifier on Unix systems. % Neither is `class', on AIX. -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @x |k|th element of its list. @y @@ -116,8 +116,8 @@ if verbose then @<Print |c| in octal notation@>; @p function f(@!h,@!x,@!y:indx):indx; forward;@t\2@> {compute $f$ for arguments known to be in |hash[h]|} @y -@p -ifdef('notdef') +@p +ifdef('notdef') function f(@!h,@!x,@!y:indx):indx; begin end;@t\2@> {compute $f$ for arguments known to be in |hash[h]|} endif('notdef') @@ -126,7 +126,7 @@ endif('notdef') @x [153] Finish fixing up f. @p function f; @y -@p function f(@!h,@!x,@!y:indx):indx; +@p function f(@!h,@!x,@!y:indx):indx; @z @x [156] Change TFM-byte output to fix ranges. @@ -165,7 +165,7 @@ begin if fabs(x/design_units)>=16.0 then % [141] char_remainder[c] is unsigned, and label_table[sort_ptr].rr % might be -1, and if -1 is coerced to being unsigned, it will be bigger % than anything else. -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @x while label_table[sort_ptr].rr>char_remainder[c] do @y @@ -178,7 +178,7 @@ begin if fabs(x/design_units)>=16.0 then @d vout(#)==putbyte(#,vf_file) @z -@x [181] Be quiet unless verbose. +@x [181] Be quiet unless verbose. read_input; print_ln('.');@/ @y read_input; @@ -214,7 +214,7 @@ begin address_of (option_index)); if getopt_return_val = -1 then begin {End of arguments; we exit the loop below.} ; - + end else if getopt_return_val = "?" then begin usage ('vptovf'); {|getopt| has already given an error message.} @@ -229,7 +229,7 @@ begin {Now |optind| is the index of first non-option on the command line. We must have one to three remaining arguments.} - if (optind + 1 <> argc) and (optind + 2 <> argc) + if (optind + 1 <> argc) and (optind + 2 <> argc) and (optind + 3 <> argc) then begin write_ln (stderr, 'vptovf: Need one to three file arguments.'); usage ('vptovf'); |