diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2021-07-01 09:30:47 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2021-07-01 09:30:47 +0000 |
commit | c4f2890e544be37f5d4e414b07693e12fbc66cd3 (patch) | |
tree | fec31e6704d33540fe1ea918f6f756392ebf1168 /Build/source/texk/web2c/eptexdir/eptex.ech | |
parent | 20f2c6d062a96bf124ee7a42fd2f677ec84378d6 (diff) |
e-pTeX 210701 (\lastnodesubtype for math noads, \vadjust pre)
git-svn-id: svn://tug.org/texlive/trunk@59787 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/eptex.ech')
-rw-r--r-- | Build/source/texk/web2c/eptexdir/eptex.ech | 20 |
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 |