texlive[59986] Build/source/texk/web2c: tex.ch: initialize the

[commits+hironobu at tug.org]

Revision: 59986
          http://tug.org/svn/texlive?view=revision&revision=59986
Author:   hironobu
Date:     2021-07-19 14:08:15 +0200 (Mon, 19 Jul 2021)
Log Message:
-----------
tex.ch: initialize the variable limit (H. Kitagawa)
alephdir/com16bit.ch: sync with tex.ch

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/alephdir/ChangeLog
    trunk/Build/source/texk/web2c/alephdir/com16bit.ch
    trunk/Build/source/texk/web2c/tex.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2021-07-18 23:48:55 UTC (rev 59985)
+++ trunk/Build/source/texk/web2c/ChangeLog	2021-07-19 12:08:15 UTC (rev 59986)
@@ -1,3 +1,9 @@
+2021-07-19  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* tex.ch (term_input, @<Input for \.{\\read} from the terminal@>):
+	initialize limit to avoid printing some garbage.
+	https://tug.org/pipermail/tex-k/2021-July/003630.html
+
 2021-07-14  Andreas Scherer  <https://ascherer.github.io>
 
 	* ctangleboot.cin,

Modified: trunk/Build/source/texk/web2c/alephdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/alephdir/ChangeLog	2021-07-18 23:48:55 UTC (rev 59985)
+++ trunk/Build/source/texk/web2c/alephdir/ChangeLog	2021-07-19 12:08:15 UTC (rev 59986)
@@ -1,3 +1,8 @@
+2021-07-19  Hironobu Yamashita <h.y.acetaminophen at gmail.com>
+
+	* com16bit.ch: Sync with tex.ch to initialize limit.
+	https://tug.org/pipermail/tex-k/2021-July/003630.html
+
 2021-05-08  Akira Kakuto  <kakuto at w32tex.org>
 
 	* com16bit.ch: Sync sup_param_size and sup_save_size with tex.ch.

Modified: trunk/Build/source/texk/web2c/alephdir/com16bit.ch
===================================================================
--- trunk/Build/source/texk/web2c/alephdir/com16bit.ch	2021-07-18 23:48:55 UTC (rev 59985)
+++ trunk/Build/source/texk/web2c/alephdir/com16bit.ch	2021-07-19 12:08:15 UTC (rev 59986)
@@ -679,6 +679,14 @@
   end;
 @z
 
+ at x [5.??] term_input: set limit when fatal_error (patch to omtrans.ch)
+if not new_input_ln(term_in,term_in_mode,term_in_translation,true)
+then fatal_error("End of file on the terminal!");
+ at y
+if not new_input_ln(term_in,term_in_mode,term_in_translation,true)
+then begin limit:=0; fatal_error("End of file on the terminal!"); end;
+ at z
+
 @x [6.73] l.1732 - Add unspecified_mode.
 @d error_stop_mode=3 {stops at every opportunity to interact}
 @y
@@ -1031,6 +1039,15 @@
 source_filename_stack[0]:=0;full_source_filename_stack[0]:=0;
 @z
 
+ at x [27.???]
+else fatal_error("*** (cannot \read from terminal in nonstop modes)")
+ at y
+else begin
+  limit:=0;
+  fatal_error("*** (cannot \read from terminal in nonstop modes)");
+  end
+ at z
+
 @x [28.501] l.9747 - \eof18
 if_eof_code: begin scan_four_bit_int; b:=(read_open[cur_val]=closed);
   end;

Modified: trunk/Build/source/texk/web2c/tex.ch
===================================================================
--- trunk/Build/source/texk/web2c/tex.ch	2021-07-18 23:48:55 UTC (rev 59985)
+++ trunk/Build/source/texk/web2c/tex.ch	2021-07-19 12:08:15 UTC (rev 59986)
@@ -785,6 +785,13 @@
 end;
 @z
 
+ at x [5.??] term_input: set limit when fatal_error
+if not input_ln(term_in,true) then fatal_error("End of file on the terminal!");
+ at y
+if not input_ln(term_in,true) then begin
+  limit:=0; fatal_error("End of file on the terminal!"); end;
+ at z
+
 @x [6.73] l.1732 - Add unspecified_mode.
 @d error_stop_mode=3 {stops at every opportunity to interact}
 @y
@@ -1530,6 +1537,15 @@
 decr(expand_depth_count);
 @z
 
+ at x [27.???]
+else fatal_error("*** (cannot \read from terminal in nonstop modes)")
+ at y
+else begin
+  limit:=0;
+  fatal_error("*** (cannot \read from terminal in nonstop modes)");
+  end
+ at z
+
 @x [28.501] l.9747 - \eof18
 if_eof_code: begin scan_four_bit_int; b:=(read_open[cur_val]=closed);
   end;