texlive[46753] Build/source/texk/web2c/eptexdir: e-pTeX: new

[commits+hironobu at tug.org]

Revision: 46753
          http://tug.org/svn/texlive?view=revision&revision=46753
Author:   hironobu
Date:     2018-02-27 14:24:28 +0100 (Tue, 27 Feb 2018)
Log Message:
-----------
e-pTeX: new primitive \lastnodesubtype (version 180226)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/eptexdir/ChangeLog
    trunk/Build/source/texk/web2c/eptexdir/eptex.ech
    trunk/Build/source/texk/web2c/eptexdir/eptex_version.h

Modified: trunk/Build/source/texk/web2c/eptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2018-02-27 07:26:11 UTC (rev 46752)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2018-02-27 13:24:28 UTC (rev 46753)
@@ -1,3 +1,11 @@
+2018-02-26  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* eptex.ech, eptex_version.h: e-pTeX version 180226.
+
+2018-02-25  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* eptex.ech: New primitive \lastnodesubtype.
+
 2018-01-21  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* eptex.ech, etex.ch0, etex.ch1, pdfutils.ch: New primitive \epTeXversion.

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2018-02-27 07:26:11 UTC (rev 46752)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2018-02-27 13:24:28 UTC (rev 46753)
@@ -19,8 +19,8 @@
 @y
 @d eTeX_version_string=='-2.6' {current \eTeX\ version}
 @#
- at d epTeX_version_string=='-180121'
- at d epTeX_version_number==180121
+ at d epTeX_version_string=='-180226'
+ at d epTeX_version_number==180226
 @z
 
 @x e-pTeX: banner
@@ -75,8 +75,9 @@
 @d badness_code=glue_val+2 {code for \.{\\badness}}
 @y
 @d last_node_char_code=glue_val+2 {code for \.{\\lastnodechar}}
- at d input_line_no_code=glue_val+3 {code for \.{\\inputlineno}}
- at d badness_code=glue_val+4 {code for \.{\\badness}}
+ at d last_node_subtype_code=glue_val+3 {code for \.{\\lastnodesubtype}}
+ at d input_line_no_code=glue_val+4 {code for \.{\\inputlineno}}
+ at d badness_code=glue_val+5 {code for \.{\\badness}}
 @z
 
 @x
@@ -181,7 +182,7 @@
     end
   else cur_val_level:=cur_chr;
 @y
-  if cur_chr=last_node_type_code then
+  if (cur_chr=last_node_type_code)or(cur_chr=last_node_subtype_code) then
     begin cur_val_level:=int_val;
     if (tx=head)or(mode=0) then cur_val:=-1;
     end
@@ -209,9 +210,17 @@
         else if cur_val>disp_node then cur_val:=cur_val-1;
         end
       else cur_val:=unset_node; {\epTeX's |unset_node| is \eTeX's |unset_node+2|}
+    last_node_subtype_code: cur_val:=subtype(tx);
     last_node_char_code: ignore_font_kerning;
 @z
 
+ at x
+    last_node_type_code: cur_val:=last_node_type;
+ at y
+    last_node_type_code: cur_val:=last_node_type;
+    last_node_subtype_code: cur_val:=last_node_subtype;
+ at z
+
 @x e-pTeX: if primitives - leave room for three e-TeX codes
 @d if_tdir_code=if_case_code+1 { `\.{\\iftdir}' }
 @y
@@ -228,6 +237,19 @@
 @d set_box_lr_end(#) == qi(16*(#))
 @z
 
+ at x
+@!last_node_type:integer; {used to implement \.{\\lastnodetype}}
+ at y
+@!last_node_type:integer; {used to implement \.{\\lastnodetype}}
+@!last_node_subtype:integer; {used to implement \.{\\lastnodesubtype}}
+ at z
+
+ at x
+last_node_type:=-1;
+ at y
+last_node_type:=-1; last_node_subtype:=-1;
+ at z
+
 @x [45.996] l.19420
 last_node_type:=type(p)+1;
 @y
@@ -235,6 +257,7 @@
 else if type(p)=dir_node then last_node_type:=type(list_ptr(p))+1
 else if type(p)<disp_node then last_node_type:=type(p)
 else last_node_type:=type(p)-1; {no |disp_node| in a vertical list}
+last_node_subtype:=subtype(p);
 @z
 
 @x [47.1079] l.20920
@@ -431,6 +454,8 @@
 @!@:last_node_type_}{\.{\\lastnodetype} primitive@>
 primitive("lastnodechar",last_item,last_node_char_code);
 @!@:last_node_char_}{\.{\\lastnodechar} primitive@>
+primitive("lastnodesubtype",last_item,last_node_subtype_code);
+@!@:last_node_subtype_}{\.{\\lastnodesubtype} primitive@>
 @z
 
 @x
@@ -438,7 +463,9 @@
 @y
 last_node_type_code: print_esc("lastnodetype");
 last_node_char_code: print_esc("lastnodechar");
+last_node_subtype_code: print_esc("lastnodesubtype");
 @z
+
 @x e-pTeX: font_char_{wd,ht,dp,ic}_code l.27306
   if (font_bc[q]<=cur_val)and(font_ec[q]>=cur_val) then
     begin i:=char_info(q)(qi(cur_val));

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex_version.h
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex_version.h	2018-02-27 07:26:11 UTC (rev 46752)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex_version.h	2018-02-27 13:24:28 UTC (rev 46753)
@@ -1 +1 @@
-#define EPTEX_VERSION "180121"
+#define EPTEX_VERSION "180226"