texlive[71143] Build/source/texk/web2c: {,e}uptex: Revert some

[commits+takuji at tug.org]

Revision: 71143
          https://tug.org/svn/texlive?view=revision&revision=71143
Author:   takuji
Date:     2024-05-01 03:03:47 +0200 (Wed, 01 May 2024)
Log Message:
-----------
{,e}uptex: Revert some patches

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/euptexdir/ChangeLog
    trunk/Build/source/texk/web2c/euptexdir/pdfutils.ch
    trunk/Build/source/texk/web2c/uptexdir/ChangeLog
    trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch

Modified: trunk/Build/source/texk/web2c/euptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/ChangeLog	2024-04-30 23:41:44 UTC (rev 71142)
+++ trunk/Build/source/texk/web2c/euptexdir/ChangeLog	2024-05-01 01:03:47 UTC (rev 71143)
@@ -1,3 +1,7 @@
+2024-05-01  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
+
+	* pdfutils.ch: Revert some patches.
+
 2024-04-27  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* eptex.ech, pdfutils.ch, euptex.defines:

Modified: trunk/Build/source/texk/web2c/euptexdir/pdfutils.ch
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/pdfutils.ch	2024-04-30 23:41:44 UTC (rev 71142)
+++ trunk/Build/source/texk/web2c/euptexdir/pdfutils.ch	2024-05-01 01:03:47 UTC (rev 71143)
@@ -1883,6 +1883,21 @@
 @z
 
 @x
+procedure print_kanji(@!s:KANJI_code); {prints a single character}
+ at y
+procedure print_kanji(@!s:KANJI_code); {prints a single character}
+ at z
+
+ at x
+else begin
+  s:=toBUFF(s mod max_cjk_val);
+ at y
+else begin
+  if isprint_utf8 then s:=UCStoUTF8(toUCS(s mod max_cjk_val))
+  else s:=toBUFF(s mod max_cjk_val);
+ at z
+
+ at x
 @* \[54] System-dependent changes.
 @y
 @* \[54/pdf\TeX] System-dependent changes for {\tt\char"5Cpdfstrcmp}.

Modified: trunk/Build/source/texk/web2c/uptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2024-04-30 23:41:44 UTC (rev 71142)
+++ trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2024-05-01 01:03:47 UTC (rev 71143)
@@ -1,3 +1,7 @@
+2024-05-01  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
+
+	* uptex-m.ch: Revert some patches.
+
 2024-04-27  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* uptex-m.ch, kanji.{c,h}, updvitype.ch, uptex.defines:

Modified: trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2024-04-30 23:41:44 UTC (rev 71142)
+++ trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2024-05-01 01:03:47 UTC (rev 71143)
@@ -48,7 +48,7 @@
 % (2022-07-23) TTK  upTeX u1.29
 % (2022-12-09) HK   Hironori Kitagawa fixed a bug in \char, \kchar.
 % (2023-09-16) TTK  upTeX u1.30
-% (2024-04-27) TTK  upTeX u1.35
+% (2024-05-01) TTK  upTeX u1.35
 
 @x
 \def\pTeX{p\kern-.15em\TeX}
@@ -581,13 +581,6 @@
 @z
 
 @x
-@!j:0..buf_size; {index into |buffer|}
- at y
-@!j:0..buf_size; {index into |buffer|}
-@!v,@!nn,@!jj: integer;
- at z
-
- at x
   if check_kanji(info(p)) then {|wchar_token|}
     begin buffer[j]:=Hi(info(p)); buffer2[j]:=1; incr(j); buffer2[j]:=1;
     end
@@ -595,31 +588,11 @@
   buffer[j]:=Lo(info(p)); incr(j); p:=link(p);
 @y
   if check_kanji(info(p)) then {|wchar_token|}
-    begin
-    if (isinternalUPTEX) then begin
-      t:=ktokentochr(info(p));
-      t:=toUCS(t);
-      nn:=UVSgetcodepointlength(t);
-      jj:=1;
-      while jj<nn do begin
-        v:=UVSgetcodepointinsequence(t,jj);
-        if (v>0) then begin
-          v:=UCStoUTF8(v);
-          if BYTE1(v)<>0 then begin buffer[j]:=BYTE1(v); buffer2[j]:=1; incr(j); end;
-          if BYTE2(v)<>0 then begin buffer[j]:=BYTE2(v); buffer2[j]:=1; incr(j); end;
-          if BYTE3(v)<>0 then begin buffer[j]:=BYTE3(v); buffer2[j]:=1; incr(j); end;
-                                    buffer[j]:=BYTE4(v); buffer2[j]:=1; incr(j);
-          end;
-        incr(jj);
-        end
-      end
-    else begin
-      t:=toBUFF(info(p) mod max_cjk_val);
-      if BYTE1(t)<>0 then begin buffer[j]:=BYTE1(t); buffer2[j]:=1; incr(j); end;
-      if BYTE2(t)<>0 then begin buffer[j]:=BYTE2(t); buffer2[j]:=1; incr(j); end;
-      if BYTE3(t)<>0 then begin buffer[j]:=BYTE3(t); buffer2[j]:=1; incr(j); end;
-                                buffer[j]:=BYTE4(t); buffer2[j]:=1; incr(j);
-      end;
+    begin t:=toBUFF(info(p) mod max_cjk_val);
+    if BYTE1(t)<>0 then begin buffer[j]:=BYTE1(t); buffer2[j]:=1; incr(j); end;
+    if BYTE2(t)<>0 then begin buffer[j]:=BYTE2(t); buffer2[j]:=1; incr(j); end;
+    if BYTE3(t)<>0 then begin buffer[j]:=BYTE3(t); buffer2[j]:=1; incr(j); end;
+                              buffer[j]:=BYTE4(t); buffer2[j]:=1; incr(j);
     p:=link(p);
     end
   else