texlive[52770] Build/source/texk/web2c: e[u]ptex: add

[commits+hironobu at tug.org]

Revision: 52770
          http://tug.org/svn/texlive?view=revision&revision=52770
Author:   hironobu
Date:     2019-11-13 11:13:31 +0100 (Wed, 13 Nov 2019)
Log Message:
-----------
e[u]ptex: add \current[x]spacingmode, \currentcjktoken

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/eptexdir/eptex.ech
    trunk/Build/source/texk/web2c/euptexdir/euptex.ch1
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2019-11-13 03:33:57 UTC (rev 52769)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2019-11-13 10:13:31 UTC (rev 52770)
@@ -110,6 +110,12 @@
 @d eptex_version_code=ptex_minor_version_code+1 {code for \.{\\epTeXversion}}
 @z
 
+ at x e-pTeX: \current(x)spacingmode
+ at d eTeX_dim=eTeX_int+8 {first of \eTeX\ codes for dimensions}
+ at y
+ at d eTeX_dim=eTeX_int+10 {first of \eTeX\ codes for dimensions}
+ at z
+
 @x
 primitive("ptexversion",last_item,ptex_version_code);
 @!@:ptexversion_}{\.{\\ptexversion} primitive@>
@@ -699,3 +705,30 @@
 @#
 procedure print_direction(@!d:integer); {print the direction represented by d}
 @z
+
+ at x e-pTeX: fetch \(no)auto(x)spacing status
+@* \[56] System-dependent changes.
+ at y
+@ The \.{\\currentspacingmode} and \.{\\currentxspacingmode} commands
+return the current \pTeX's status of \.{\\(no)autospacing} and
+\.{\\(no)autoxspacing} respectively.
+
+ at d current_spacing_mode_code=eTeX_int+8 {code for \.{\\currentspacingmode}}
+ at d current_xspacing_mode_code=eTeX_int+9 {code for \.{\\currentxspacingmode}}
+
+@<Generate all \eTeX...@>=
+primitive("currentspacingmode",last_item,current_spacing_mode_code);
+@!@:current_spacing_mode_}{\.{\\currentspacingmode} primitive@>
+primitive("currentxspacingmode",last_item,current_xspacing_mode_code);
+@!@:current_xspacing_mode_}{\.{\\currentxspacingmode} primitive@>
+
+@ @<Cases of |last_item| for |print_cmd_chr|@>=
+current_spacing_mode_code: print_esc("currentspacingmode");
+current_xspacing_mode_code: print_esc("currentxspacingmode");
+
+@ @<Cases for fetching an integer value@>=
+current_spacing_mode_code: cur_val:=auto_spacing;
+current_xspacing_mode_code: cur_val:=auto_xspacing;
+
+@* \[56] System-dependent changes.
+ at z

Modified: trunk/Build/source/texk/web2c/euptexdir/euptex.ch1
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/euptex.ch1	2019-11-13 03:33:57 UTC (rev 52769)
+++ trunk/Build/source/texk/web2c/euptexdir/euptex.ch1	2019-11-13 10:13:31 UTC (rev 52770)
@@ -12,6 +12,12 @@
 @d uptex_version_code=ptex_minor_version_code+2 {code for \.{\\uptexversion}}
 @z
 
+ at x e-upTeX: \currentcjktoken
+ at d eTeX_dim=eTeX_int+10 {first of \eTeX\ codes for dimensions}
+ at y
+ at d eTeX_dim=eTeX_int+11 {first of \eTeX\ codes for dimensions}
+ at z
+
 @x
   eptex_version_code: print_esc("epTeXversion");
 @y
@@ -76,3 +82,24 @@
     begin buffer[m]:=info(p) mod max_char_val; incr(m); p:=link(p);
     end;
 @z
+
+ at x e-upTeX: fetch \(disable|enable|force)cjktoken status
+@* \[54] System-dependent changes.
+ at y
+@ The \.{\\currentcjktoken} command returns the current \upTeX's
+status of \.{\\(disable|enable|force)cjktoken}.
+
+ at d current_cjk_token_code=eTeX_int+10 {code for \.{\\currentcjktoken}}
+
+@<Generate all \eTeX...@>=
+primitive("currentcjktoken",last_item,current_cjk_token_code);
+@!@:current_cjk_token_}{\.{\\currentcjktoken} primitive@>
+
+@ @<Cases of |last_item| for |print_cmd_chr|@>=
+current_cjk_token_code: print_esc("currentcjktoken");
+
+@ @<Cases for fetching an integer value@>=
+current_cjk_token_code: cur_val:=enable_cjk_token;
+
+@* \[54] System-dependent changes.
+ at z

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2019-11-13 03:33:57 UTC (rev 52769)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2019-11-13 10:13:31 UTC (rev 52770)
@@ -994,7 +994,7 @@
 @d hyph_data=set_box+1 {hyphenation data ( \.{\\hyphenation}, \.{\\patterns} )}
 @d set_interaction=hyph_data+1 {define level of interaction ( \.{\\batchmode}, etc.~)}
 @d set_auto_spacing=set_interaction+1 {set auto spacing mode
-  ( \.{\\autospacing}, \.{\\noautospacing}, ( \.{\\autoxspacing}, \.{\\noautoxspacing} )}
+  ( \.{\\autospacing}, \.{\\noautospacing}, \.{\\autoxspacing}, \.{\\noautoxspacing} )}
 @d max_command=set_auto_spacing {the largest command code seen at |big_switch|}
 @z