From fa0ffd9d1a8e3b86577dd54956b457241ec574aa Mon Sep 17 00:00:00 2001 From: Hironobu Yamashita Date: Sun, 21 Jan 2018 03:48:06 +0000 Subject: (e-)(u)pTeX: Add \ptexversion and co. (H. Kitagawa) git-svn-id: svn://tug.org/texlive/trunk@46399 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/euptexdir/euptex.ch1 | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'Build/source/texk/web2c/euptexdir/euptex.ch1') 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 @@ -6,12 +6,32 @@ @d banner_k==eupTeX_banner_k @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; -- cgit v1.2.3