summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/eptex.ech
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/eptex.ech')
-rw-r--r--Build/source/texk/web2c/eptexdir/eptex.ech20
1 files changed, 17 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech
index aed42a75c38..669a70ee88c 100644
--- a/Build/source/texk/web2c/eptexdir/eptex.ech
+++ b/Build/source/texk/web2c/eptexdir/eptex.ech
@@ -3,9 +3,15 @@
%% new primitives by e-pTeX
%%
+%% \epTeXversion
+%% \epTeXinputencoding <euc|sjis|jis|utf8>
+%%
+%% \currentspacingmode: 1 iff auto_spacing
+%% \currentxspacingmode: 1 iff auto_xspacing
%% \lastnodechar: the (internal) character code of the last node
%% -1: non-character or null
%% \lastnodesubtype: the (internal) subtype of the last node
+%% note: returns a value from the type if the node is s math noad.
%% -1: null
%% fallback to 0 if not explicitly set
%% \readpapersizespecial
@@ -26,8 +32,8 @@
@y
@d eTeX_version_string=='-2.6' {current \eTeX\ version}
@#
-@d epTeX_version_string=='-210629'
-@d epTeX_version_number==210629
+@d epTeX_version_string=='-210701'
+@d epTeX_version_number==210701
@z
@x e-pTeX: banner
@@ -239,7 +245,15 @@ end
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_subtype_code: if type(tx)<=unset_node then cur_val:=subtype(tx)
+ { non-math nodes }
+ else begin
+ cur_val:=type(tx);
+ if cur_val<unset_node+4 then cur_val:=cur_val-unset_node-1
+ { |style_noad|, |choice_noad|, |ord_noad| }
+ else if cur_val=unset_node+4 then cur_val:=cur_val-unset_node-1+subtype(tx)
+ else cur_val:=cur_val-unset_node+1;
+ end;
last_node_char_code: ignore_font_kerning;
@z