summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2014-11-08 14:05:38 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2014-11-08 14:05:38 +0000
commitef3fef63c3d02ea78d129958d822b330289d9793 (patch)
tree3437e2cf8cb9484bbf1cd51be868b3193a5c2dc5 /Build/source/texk/web2c/euptexdir
parent5837044d0c98d013ee09ce38a1885e48e5759471 (diff)
web2c/eptexdir, web2c/euptexdir: Add primitives \pdfshellescape and \lastnodechar (H. Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@35541 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/euptexdir')
-rw-r--r--Build/source/texk/web2c/euptexdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/euptexdir/euptex.ch121
2 files changed, 25 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/euptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/ChangeLog
index eadc5cfd32d..fc1c92ce0d8 100644
--- a/Build/source/texk/web2c/euptexdir/ChangeLog
+++ b/Build/source/texk/web2c/euptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-08 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * euptex.ch1: Add primitives \pdfshellescape and \lastnodechar
+ to e-(u)ptex.
+
2014-05-05 Akira Kakuto <kakuto@fuk.kindai.ac.jp>
2014-05-06 Peter Breitenlohner <peb@mppmu.mpg.de>
diff --git a/Build/source/texk/web2c/euptexdir/euptex.ch1 b/Build/source/texk/web2c/euptexdir/euptex.ch1
index e939c20772a..f8272cf1b35 100644
--- a/Build/source/texk/web2c/euptexdir/euptex.ch1
+++ b/Build/source/texk/web2c/euptexdir/euptex.ch1
@@ -6,6 +6,26 @@
@d banner_k==eupTeX_banner_k
@z
+@x
+ else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx))
+@y
+ else if font_dir[font(tx)]<>dir_default then cur_val:=info(link(tx)) mod max_cjk_val
+@z
+
+@x
+ last_node_char_code:
+ if ((type(tx)=glue_node) and (subtype(tx)=jfm_skip+1))
+ or ((type(tx)=penalty_node) and (subtype(tx)=kinsoku_pena)) then
+ cur_val:=info(link(last_jchr))
+ else cur_val:=-1;
+@y
+ last_node_char_code:
+ if ((type(tx)=glue_node) and (subtype(tx)=jfm_skip+1))
+ or ((type(tx)=penalty_node) and (subtype(tx)=kinsoku_pena)) then
+ cur_val:=info(link(last_jchr)) mod max_cjk_val
+ else cur_val:=-1;
+@z
+
@x e-pTeX: ifcsname l.28620
begin buffer[m]:=Hi(info(p)); incr(m);
end;
@@ -22,4 +42,3 @@
begin buffer[m]:=info(p) mod max_char_val; incr(m); p:=link(p);
end;
@z
-