diff options
Diffstat (limited to 'Build/source/texk/web2c/vptovf.ch')
| -rw-r--r-- | Build/source/texk/web2c/vptovf.ch | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/vptovf.ch b/Build/source/texk/web2c/vptovf.ch index bbfa6e4d2a4..3d76f095f3d 100644 --- a/Build/source/texk/web2c/vptovf.ch +++ b/Build/source/texk/web2c/vptovf.ch @@ -15,6 +15,14 @@ @d banner=='This is VPtoVF, Version 1.6' {printed when the program starts} @z +@x [2] Print all terminal output on stderr. +@d print(#)==write(#) +@d print_ln(#)==write_ln(#) +@y +@d print(#)==write(stderr,#) +@d print_ln(#)==write_ln(stderr,#) +@z + @x [2] Print the banner later. procedure initialize; {this procedure gets things started properly} var @<Local variables for initialization@>@/ @@ -89,6 +97,27 @@ rewritebin (tfm_file, tfm_name); @d first_ord=0 {ordinal number of the smallest element of |char|} @z +@x [31] Non-zero return code in case of problems. +@!chars_on_line:0..8; {the number of characters printed on the current line} +@y +@!chars_on_line:0..8; {the number of characters printed on the current line} +@!perfect:boolean; {was the file free of errors?} +@z + +@x [32] Non-zero return code in case of problems. +chars_on_line:=0; +@y +chars_on_line:=0; +perfect:=true; {innocent until proved guilty} +@z + +@x [33] Non-zero return code in case of problems. +chars_on_line:=0; +@y +chars_on_line:=0; +perfect:=false; +@z + % [89] `index' is not a good choice for an identifier on Unix systems. % Neither is `class', on AIX. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -191,6 +220,13 @@ read_input; if verbose then print_ln('.'); @z +@x [181] Non-zero return code in case of problems, +end. +@y +if not perfect then uexit(1); +end. +@z + @x [182] System-dependent changes. This section should be replaced, if necessary, by changes to the program that are necessary to make \.{VPtoVF} work at a particular installation. |