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/eptexdir/eptex.ech | |
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/eptexdir/eptex.ech')
-rw-r--r-- | Build/source/texk/web2c/eptexdir/eptex.ech | 37 |
1 files changed, 36 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech index 57592ac0308..3f3b0e01e4b 100644 --- a/Build/source/texk/web2c/eptexdir/eptex.ech +++ b/Build/source/texk/web2c/eptexdir/eptex.ech @@ -19,7 +19,8 @@ @y @d eTeX_version_string=='-2.6' {current \eTeX\ version} @# -@d epTeX_version_string=='-170924' +@d epTeX_version_string=='-180121' +@d epTeX_version_number==180121 @z @x e-pTeX: banner @@ -71,11 +72,38 @@ var m:halfword; {|chr_code| part of the operand token} @x @d input_line_no_code=glue_val+2 {code for \.{\\inputlineno}} +@d badness_code=glue_val+2 {code for \.{\\badness}} @y @d last_node_char_code=glue_val+2 {code for \.{\\lastnodechar}} @d input_line_no_code=glue_val+3 {code for \.{\\inputlineno}} +@d badness_code=glue_val+4 {code for \.{\\badness}} @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 eptex_version_code=ptex_minor_version_code+1 {code for \.{\\epTeXversion}} +@z + +@x +primitive("ptexversion",last_item,ptex_version_code); +@!@:ptexversion_}{\.{\\ptexversion} primitive@> +@y +primitive("ptexversion",last_item,ptex_version_code); +@!@:ptexversion_}{\.{\\ptexversion} primitive@> +primitive("epTeXversion",last_item,eptex_version_code); +@!@:epTeXversion_}{\.{\\epTeXversion} primitive@> +@z + +@x + ptex_version_code: print_esc("ptexversion"); +@y + ptex_version_code: print_esc("ptexversion"); + eptex_version_code: print_esc("epTeXversion"); +@z + + @x [26.420] l.8474 - pTeX: Fetch a box dimension: dir_node begin scan_eight_bit_int; q:=box(cur_val); @y @@ -139,6 +167,13 @@ else find_last_char; end @z +@x + ptex_version_code: cur_val:=pTeX_version; +@y + ptex_version_code: cur_val:=pTeX_version; + eptex_version_code: cur_val:=epTeX_version_number; +@z + @x [26.424] e-pTeX: node char if cur_chr=last_node_type_code then begin cur_val_level:=int_val; |