summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/vptovf.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2015-01-09 10:14:16 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2015-01-09 10:14:16 +0000
commite60da209370adc8a249ba298f9c4272509c756d4 (patch)
tree64d90cae3865fa793c83efc52789c794817ff34d /Build/source/texk/web2c/vptovf.ch
parent6b58058e700ac61db7d20b1f06dcbe1b0d2c7db4 (diff)
texk/web2c: Send diagnostic output from PLtoTF and VPtoVF to stderr
Non-zero return code in case of problems git-svn-id: svn://tug.org/texlive/trunk@36005 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/vptovf.ch')
-rw-r--r--Build/source/texk/web2c/vptovf.ch36
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.