diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2014-11-08 14:05:38 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2014-11-08 14:05:38 +0000 |
commit | ef3fef63c3d02ea78d129958d822b330289d9793 (patch) | |
tree | 3437e2cf8cb9484bbf1cd51be868b3193a5c2dc5 /Build/source/texk/web2c/euptexdir | |
parent | 5837044d0c98d013ee09ce38a1885e48e5759471 (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/ChangeLog | 5 | ||||
-rw-r--r-- | Build/source/texk/web2c/euptexdir/euptex.ch1 | 21 |
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 - |