diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2018-01-21 03:48:06 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2018-01-21 03:48:06 +0000 |
commit | fa0ffd9d1a8e3b86577dd54956b457241ec574aa (patch) | |
tree | 7317222dd8f72114f8ccf6582259e48a6c5b5d36 /Build/source/texk/web2c/euptexdir | |
parent | 9fe3d1656ac8c1b2082509299124a030d8a55285 (diff) |
(e-)(u)pTeX: Add \ptexversion and co. (H. Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@46399 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/am/euptex.am | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/euptexdir/euptex.ch0 | 11 | ||||
-rw-r--r-- | Build/source/texk/web2c/euptexdir/euptex.ch1 | 20 | ||||
-rw-r--r-- | Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch | 12 |
5 files changed, 49 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/euptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/ChangeLog index d4c3b66cd01..05d9862794b 100644 --- a/Build/source/texk/web2c/euptexdir/ChangeLog +++ b/Build/source/texk/web2c/euptexdir/ChangeLog @@ -1,3 +1,8 @@ +2018-01-21 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * euptex.ch0, euptex.ch1, pdfstrcmp-eup-post.ch, am/euptex.am: + Adapt to changes in ptexdir/, eptexdir, and uptexdir/. + 2017-11-30 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> * pdfstrcmp-eup-post.ch, tests/pdfprimitive-euptex.log: Adapt diff --git a/Build/source/texk/web2c/euptexdir/am/euptex.am b/Build/source/texk/web2c/euptexdir/am/euptex.am index 84c55e4b57b..21ab6a9a739 100644 --- a/Build/source/texk/web2c/euptexdir/am/euptex.am +++ b/Build/source/texk/web2c/euptexdir/am/euptex.am @@ -59,8 +59,8 @@ euptex_ch_srcs = \ uptexdir/uptex-m.ch \ euptexdir/euptex.ch0 \ eptexdir/eptex.ech \ - euptexdir/euptex.ch1 \ eptexdir/etex.ch1 \ + euptexdir/euptex.ch1 \ $(euptex_ch_synctex) \ eptexdir/fam256.ch \ euptexdir/pdfstrcmp-eup-pre.ch \ diff --git a/Build/source/texk/web2c/euptexdir/euptex.ch0 b/Build/source/texk/web2c/euptexdir/euptex.ch0 index 375193556a2..cc9c0285d34 100644 --- a/Build/source/texk/web2c/euptexdir/euptex.ch0 +++ b/Build/source/texk/web2c/euptexdir/euptex.ch0 @@ -35,3 +35,14 @@ @y @d protected_token=@"E01 {$2^8\cdot|end_match|+1$} @z + +@x + uptex_version_code: print_esc("uptexversion"); +@y +@z + +@x + uptex_version_code: cur_val:=upTeX_version; +@y +@z + diff --git a/Build/source/texk/web2c/euptexdir/euptex.ch1 b/Build/source/texk/web2c/euptexdir/euptex.ch1 index 0745836dead..69a520d901c 100644 --- a/Build/source/texk/web2c/euptexdir/euptex.ch1 +++ b/Build/source/texk/web2c/euptexdir/euptex.ch1 @@ -7,11 +7,31 @@ @z @x +@d uptex_version_code=ptex_minor_version_code+1 {code for \.{\\uptexversion}} +@y +@d uptex_version_code=ptex_minor_version_code+2 {code for \.{\\uptexversion}} +@z + +@x + eptex_version_code: print_esc("epTeXversion"); +@y + eptex_version_code: print_esc("epTeXversion"); + uptex_version_code: print_esc("uptexversion"); +@z + +@x if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx))) @y if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx))) mod max_cjk_val @z +@x + eptex_version_code: cur_val:=epTeX_version_number; +@y + eptex_version_code: cur_val:=epTeX_version_number; + uptex_version_code: cur_val:=upTeX_version; +@z + @x e-pTeX: ifcsname l.28620 begin buffer[m]:=Hi(info(p)); incr(m); end; diff --git a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch index c0961189104..2b154f9a28a 100644 --- a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch +++ b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch @@ -5,6 +5,18 @@ @z @x +@d pdf_last_x_pos_code=eptex_version_code+1 {code for \.{\\pdflastxpos}} +@y +@d uptex_version_code=eptex_version_code+1 {code for \.{\\uptexversion}} +@d pdf_last_x_pos_code=uptex_version_code+1 {code for \.{\\pdflastxpos}} +@z + +@x +@d uptex_version_code=ptex_minor_version_code+2 {code for \.{\\uptexversion}} +@y +@z + +@x procedure print_kanji(@!s:integer); {prints a single character} begin if s>255 then begin |