summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir
diff options
context:
space:
mode:
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
-