texlive[65813] Build/source/texk/web2c: move "\special shipout"

[commits+karl at tug.org]

Revision: 65813
          http://tug.org/svn/texlive?view=revision&revision=65813
Author:   karl
Date:     2023-02-13 17:30:22 +0100 (Mon, 13 Feb 2023)
Log Message:
-----------
move "\special shipout" change to enctex-pdftex.ch, so it is not applied to tex

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/enctexdir/enctex-pdftex.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2023-02-13 01:53:20 UTC (rev 65812)
+++ trunk/Build/source/texk/web2c/ChangeLog	2023-02-13 16:30:22 UTC (rev 65813)
@@ -1,3 +1,9 @@
+2023-02-13  Karl Berry  <karl at freefriends.org>
+
+	* enctexdir/enctex-pdftex.ch: move "\special shipout"
+	change here, from enctex2.ch, so it is not applied to tex (which
+	doesn't have it).
+
 2023-02-12  Phelype Oleinik <phe.h.o1 at gmail.com>
         and Karl Berry  <karl at freefriends.org>
 

Modified: trunk/Build/source/texk/web2c/enctexdir/enctex-pdftex.ch
===================================================================
--- trunk/Build/source/texk/web2c/enctexdir/enctex-pdftex.ch	2023-02-13 01:53:20 UTC (rev 65812)
+++ trunk/Build/source/texk/web2c/enctexdir/enctex-pdftex.ch	2023-02-13 16:30:22 UTC (rev 65813)
@@ -1,8 +1,8 @@
 % $Id$
 % enctex1.ch is applied first.
-% Then this change is applied for pdfTeX et al.,
-% assuming that tracingstacklevels.ch, partoken.ch, and showstream.ch has been included,
-% as specified in the *.am files.
+% Then this change is applied for pdfTeX et al. (but not TeX),
+% assuming that tracingstacklevels.ch, partoken.ch, and showstream.ch
+% have been included, as specified in the *.am files.
 
 % encTeX: \mubytein \mubyteout \mubytelog and \specialout
 @x [17.236] l.4954
@@ -14,3 +14,24 @@
 @d spec_out_code=web2c_int_base+9 {if positive then print specials by mubytes}
 @d web2c_int_pars=web2c_int_base+10 {total number of web2c's integer parameters}
 @z
+
+% see pdftex.web for more about this.
+ at x [53.1353] - encTeX: late \special stores specialout and mubyteout values
+begin new_whatsit(latespecial_node,write_node_size); write_stream(tail):=null;
+p:=scan_toks(false,false); write_tokens(tail):=def_ref;
+ at y
+begin new_whatsit(latespecial_node,write_node_size);
+if spec_out + mubyte_zero < 0 then write_stream(tail) := 0
+else if spec_out + mubyte_zero >= 2*mubyte_zero then
+       write_stream(tail) := 2*mubyte_zero - 1
+     else write_stream(tail) := spec_out + mubyte_zero;
+if mubyte_out + mubyte_zero < 0 then write_mubyte(tail) := 0
+else if mubyte_out + mubyte_zero >= 2*mubyte_zero then
+       write_mubyte(tail) := 2*mubyte_zero - 1
+     else write_mubyte(tail) := mubyte_out + mubyte_zero;
+if (spec_out = 2) or (spec_out = 3) then
+  if (mubyte_out > 2) or (mubyte_out = -1) or (mubyte_out = -2) then
+    write_noexpanding := true;
+p:=scan_toks(false,false); write_tokens(tail):=def_ref;
+write_noexpanding := false;
+ at z