diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-01-09 10:14:16 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-01-09 10:14:16 +0000 |
commit | e60da209370adc8a249ba298f9c4272509c756d4 (patch) | |
tree | 64d90cae3865fa793c83efc52789c794817ff34d /Build/source/texk/web2c/pltotf.ch | |
parent | 6b58058e700ac61db7d20b1f06dcbe1b0d2c7db4 (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/pltotf.ch')
-rw-r--r-- | Build/source/texk/web2c/pltotf.ch | 36 |
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. |