summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pltotf.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/pltotf.ch')
-rw-r--r--Build/source/texk/web2c/pltotf.ch36
1 files changed, 36 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/pltotf.ch b/Build/source/texk/web2c/pltotf.ch
index 012ea24d738..5dd4d3eb9b1 100644
--- a/Build/source/texk/web2c/pltotf.ch
+++ b/Build/source/texk/web2c/pltotf.ch
@@ -26,6 +26,14 @@
@d banner=='This is PLtoTF, Version 3.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 [still 2] No banner unless verbose.
procedure initialize; {this procedure gets things started properly}
var @<Local variables for initialization@>@/
@@ -95,6 +103,27 @@ rewritebin (tfm_file, tfm_name);
@d first_ord=0 {ordinal number of the smallest element of |char|}
@z
+@x [25] 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 [26] 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 [27] Non-zero return code in case of problems.
+chars_on_line:=0;
+@y
+chars_on_line:=0;
+perfect:=false;
+@z
+
@x [79] `index' might be a library routine.
|k|th element of its list.
@y
@@ -201,6 +230,13 @@ read_input;
if verbose then print_ln('.');
@z
+@x [147] Non-zero return code in case of problems,
+end.
+@y
+if not perfect then uexit(1);
+end.
+@z
+
@x [148] System-dependent changes.
This section should be replaced, if necessary, by changes to the program
that are necessary to make \.{PLtoTF} work at a particular installation.