texlive[73997] Build/source/texk/web2c/uptexdir: uptex: Set default

[commits+takuji at tug.org]

Revision: 73997
          https://tug.org/svn/texlive?view=revision&revision=73997
Author:   takuji
Date:     2025-02-15 07:31:05 +0100 (Sat, 15 Feb 2025)
Log Message:
-----------
uptex: Set default catcode. Increase size of auto_xsp_code().

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

Modified: trunk/Build/source/texk/web2c/uptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2025-02-15 02:21:50 UTC (rev 73996)
+++ trunk/Build/source/texk/web2c/uptexdir/ChangeLog	2025-02-15 06:31:05 UTC (rev 73997)
@@ -1,3 +1,10 @@
+2025-02-15  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
+
+	* uptex-m.ch: Increase size of auto_xsp_code().
+	Set default catcode of 16bit latin character
+	to other_char(12).
+	https://github.com/texjporg/tex-jp-build/issues/170
+
 2025-02-09  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* ptex-base.ch, uptex-m.ch:

Modified: trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2025-02-15 02:21:50 UTC (rev 73996)
+++ trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2025-02-15 06:31:05 UTC (rev 73997)
@@ -290,6 +290,7 @@
 @d kcat_code_base=cat_code_base+256
   {table of 256 command codes for the wchar's catcodes }
 @d auto_xsp_code_base=kcat_code_base+256 {table of 256 auto spacer flag}
+ at d inhibit_xsp_code_base=auto_xsp_code_base+256
 @y
 @d enable_cjk_token_code=auto_xspacing_code+1
 @d cat_code_base=enable_cjk_token_code+1
@@ -296,7 +297,9 @@
   {table of |max_latin_val| command codes (the ``catcodes'')}
 @d kcat_code_base=cat_code_base+max_latin_val
   {table of 512 command codes for the wchar's catcodes }
- at d auto_xsp_code_base=kcat_code_base+512 {table of 256 auto spacer flag}
+ at d auto_xsp_code_base=kcat_code_base+512
+  {table of |max_latin_val| auto spacer flag}
+ at d inhibit_xsp_code_base=auto_xsp_code_base+max_latin_val
 @z
 
 @x
@@ -333,16 +336,15 @@
 eqtb[auto_xspacing_code]:=eqtb[cat_code_base];
 eqtb[enable_cjk_token_code]:=eqtb[cat_code_base];
 for k:=0 to 255 do
-  begin cat_code(k):=other_char;
-  math_code(k):=hi(k);
+  begin math_code(k):=hi(k);
+  end;
+for k:=0 to max_latin_val-1 do
+  begin cat_code(k):=other_char; sf_code(k):=1000;
   auto_xsp_code(k):=0;
   end;
 for k:=0 to 511 do
   begin kcat_code(k):=other_kchar;
   end;
-for k:=0 to max_latin_val-1 do
-  begin sf_code(k):=1000;
-  end;
 @z
 
 @x