texlive[44834] Build/source/texk/web2c/xetexdir: xetex.ch: Set a

[commits+kakuto at tug.org]

Revision: 44834
          http://tug.org/svn/texlive?view=revision&revision=44834
Author:   kakuto
Date:     2017-07-17 23:29:45 +0200 (Mon, 17 Jul 2017)
Log Message:
-----------
xetex.ch: Set a non-zero exit code if the pipe to the output driver is closed with a non-zero code (from Jonathan)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/xetexdir/ChangeLog
    trunk/Build/source/texk/web2c/xetexdir/xetex.ch

Modified: trunk/Build/source/texk/web2c/xetexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/xetexdir/ChangeLog	2017-07-17 21:28:44 UTC (rev 44833)
+++ trunk/Build/source/texk/web2c/xetexdir/ChangeLog	2017-07-17 21:29:45 UTC (rev 44834)
@@ -1,3 +1,8 @@
+2017-07-17  Jonathan Kew  <jfkthame at gmail.com>
+
+	* xetex.ch: Set a non-zero exit code if the pipe
+	to the output driver closes with a non-zero code.
+
 2017-04-27  Karl Berry  <karl at tug.org>
 
 	* am/xetex.am (xetex_ldadd): add $(ICU_LIBS_EXTRA).

Modified: trunk/Build/source/texk/web2c/xetexdir/xetex.ch
===================================================================
--- trunk/Build/source/texk/web2c/xetexdir/xetex.ch	2017-07-17 21:28:44 UTC (rev 44833)
+++ trunk/Build/source/texk/web2c/xetexdir/xetex.ch	2017-07-17 21:29:45 UTC (rev 44834)
@@ -122,6 +122,27 @@
   wterm_ln('" ignored)');
 @z
 
+ at x We add a new |history| value for failure of the output driver
+has been detected. It has four possible values: |spotless|, |warning_issued|,
+|error_message_issued|, and |fatal_error_stop|.
+ at y
+has been detected. It has five possible values: |spotless|, |warning_issued|,
+|error_message_issued|, |fatal_error_stop|, and |output_failure|.
+ at z
+
+ at x
+ at d fatal_error_stop=3 {|history| value when termination was premature}
+ at y
+ at d fatal_error_stop=3 {|history| value when termination was premature}
+ at d output_failure=4 {|history| value when output driver returned an error}
+ at z
+
+ at x
+@!history:spotless..fatal_error_stop; {has the source input been clean so far?}
+ at y
+@!history:spotless..output_failure; {has the source input been clean so far?}
+ at z
+
 @x [6.84] l.1904 - Implement the switch-to-editor option.
     begin edit_name_start:=str_start[edit_file.name_field];
     edit_name_length:=str_start[edit_file.name_field+1] -
@@ -532,6 +553,7 @@
     else print("driver return code");
     print(") generating output;");
     print_nl("file "); print(output_file_name); print(" may not be valid.");
+    history:=output_failure;
     end;
 @z