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/uptexdir | |
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/uptexdir')
-rw-r--r-- | Build/source/texk/web2c/uptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/uptexdir/uptex-m.ch | 65 |
2 files changed, 67 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/uptexdir/ChangeLog b/Build/source/texk/web2c/uptexdir/ChangeLog index 00b58d2e7bd..9a761ab3be7 100644 --- a/Build/source/texk/web2c/uptexdir/ChangeLog +++ b/Build/source/texk/web2c/uptexdir/ChangeLog @@ -1,3 +1,7 @@ +2018-01-21 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * uptex-m.ch: New primitives: \uptexversion and \uptexrevision. + 2017-04-24 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> * uptex-m.ch: Adapt to changes in ptexdir/ptex-base.ch (p\TeX -> \pTeX). diff --git a/Build/source/texk/web2c/uptexdir/uptex-m.ch b/Build/source/texk/web2c/uptexdir/uptex-m.ch index 472d8f45467..63305805305 100644 --- a/Build/source/texk/web2c/uptexdir/uptex-m.ch +++ b/Build/source/texk/web2c/uptexdir/uptex-m.ch @@ -561,6 +561,37 @@ char_given,math_given: scanned_result(cur_chr)(int_val); @z @x +@d ptex_minor_version_code=ptex_version_code+1 {code for \.{\\ptexminorversion}} +@y +@d ptex_minor_version_code=ptex_version_code+1 {code for \.{\\ptexminorversion}} +@d uptex_version_code=ptex_minor_version_code+1 {code for \.{\\uptexversion}} +@z + +@x +primitive("ptexversion",last_item,ptex_version_code); +@!@:ptexversion_}{\.{\\ptexversion} primitive@> +@y +primitive("ptexversion",last_item,ptex_version_code); +@!@:ptexversion_}{\.{\\ptexversion} primitive@> +primitive("uptexversion",last_item,uptex_version_code); +@!@:uptexversion_}{\.{\\uptexversion} primitive@> +@z + +@x + ptex_version_code: print_esc("ptexversion"); +@y + ptex_version_code: print_esc("ptexversion"); + uptex_version_code: print_esc("uptexversion"); +@z + +@x + ptex_version_code: cur_val:=pTeX_version; +@y + ptex_version_code: cur_val:=pTeX_version; + uptex_version_code: cur_val:=upTeX_version; +@z + +@x if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {|wchar_token|} @y if (cur_cmd>=kanji)and(cur_cmd<=hangul) then {|wchar_token|} @@ -600,10 +631,14 @@ while k<pool_ptr do @z @x -@d ptex_convert_codes=10 {end of \pTeX's command codes} + +@d ptex_revision_code=10 {command code for \.{\\ptexrevision}} +@d ptex_convert_codes=11 {end of \pTeX's command codes} @y @d ucs_code=10 {command code for \.{\\ucs}} -@d ptex_convert_codes=11 {end of \pTeX's command codes} +@d ptex_revision_code=11 {command code for \.{\\ptexrevision}} +@d uptex_revision_code=12 {command code for \.{\\uptexrevision}} +@d ptex_convert_codes=13 {end of \pTeX's command codes} @z @x @@ -615,6 +650,16 @@ primitive("ucs",convert,ucs_code); @z @x +primitive("ptexrevision",convert,ptex_revision_code); +@!@:ptexrevision_}{\.{\\ptexrevision} primitive@> +@y +primitive("ptexrevision",convert,ptex_revision_code); +@!@:ptexrevision_}{\.{\\ptexrevision} primitive@> +primitive("uptexrevision",convert,uptex_revision_code); +@!@:uptexrevision_}{\.{\\uptexrevision} primitive@> +@z + +@x kuten_code:print_esc("kuten"); @y kuten_code:print_esc("kuten"); @@ -622,12 +667,21 @@ primitive("ucs",convert,ucs_code); @z @x + ptex_revision_code:print_esc("ptexrevision"); +@y + ptex_revision_code:print_esc("ptexrevision"); + uptex_revision_code:print_esc("uptexrevision"); +@z + +@x kansuji_code,euc_code,sjis_code,jis_code,kuten_code: scan_int; +ptex_revision_code: do_nothing; string_code, meaning_code: begin save_scanner_status:=scanner_status; scanner_status:=normal; get_token; if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {|wchar_token|} @y kansuji_code,euc_code,sjis_code,jis_code,kuten_code,ucs_code: scan_int; +ptex_revision_code, uptex_revision_code: do_nothing; string_code, meaning_code: begin save_scanner_status:=scanner_status; scanner_status:=normal; get_token; if (cur_cmd>=kanji)and(cur_cmd<=hangul) then {|wchar_token|} @@ -641,6 +695,13 @@ ucs_code: print_int(fromUCS(cur_val)); @z @x +ptex_revision_code: print(pTeX_revision); +@y +ptex_revision_code: print(pTeX_revision); +uptex_revision_code: print(upTeX_revision); +@z + +@x if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then @y if (cur_cmd>=kanji)and(cur_cmd<=hangul) then |