diff options
author | Takuji Tanaka <KXD02663@nifty.ne.jp> | 2017-04-24 15:13:38 +0000 |
---|---|---|
committer | Takuji Tanaka <KXD02663@nifty.ne.jp> | 2017-04-24 15:13:38 +0000 |
commit | 8c4b0a453a92965ace49facd0d90b9b6ae8c33a0 (patch) | |
tree | 47770765700e316f5e63da8d62fef0667a46a4da /Build/source/texk/web2c/ptexdir | |
parent | 01b2592b2e5d7c3721582a07053147e8929f0618 (diff) |
p\TeX -> \pTeX by Kitagawa-san
git-svn-id: svn://tug.org/texlive/trunk@44016 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 24 |
2 files changed, 20 insertions, 8 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 57f75090f55..a53d3274b2c 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,7 @@ +2017-04-24 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * ptex-base.ch: p\TeX -> \pTeX. + 2017-04-09 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> * ptex-base.ch: Fix a bug in single-letter control sequence diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index abfe5925cdd..52c7e6a354a 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -57,15 +57,23 @@ % (2016-06-06) AK Hironori Kitagawa fixed a bug in check_box(box_p:pointer). % pTeX p3.7.1. % + +@x +% Here is TeX material that gets inserted after \input webmac +@y +% Here is TeX material that gets inserted after \input webmac +\def\pTeX{p\kern-.15em\TeX} +@z + @x [1.2] l.200 - pTeX: @d banner==TeX_banner @d banner_k==TeX_banner_k @y -@d pTeX_version_string=='-p3.7.1' {current p\TeX\ version} +@d pTeX_version_string=='-p3.7.1' {current \pTeX\ version} @# @d pTeX_banner=='This is pTeX, Version 3.14159265',pTeX_version_string @d pTeX_banner_k==pTeX_banner - {printed when p\TeX\ starts} + {printed when \pTeX\ starts} @# @d banner==pTeX_banner @d banner_k==pTeX_banner_k @@ -320,7 +328,7 @@ else @x [8.112] l.2450 - pTeX: hi/ho sufficiently large. @y -sufficiently large and this is required for p\TeX. +sufficiently large and this is required for \pTeX. @z @x [8.112] l.2588 - pTeX: @@ -336,7 +344,7 @@ sufficiently large and this is required for p\TeX. |fil|, |fill|, or |filll|). The |subtype| field is not used. @y |fil|, |fill|, or |filll|). The |subtype| field is not used in \TeX. -In p\TeX\ the |subtype| field records the box direction |box_dir|. +In \pTeX\ the |subtype| field records the box direction |box_dir|. @z @x [10.135] l.2897 - pTeX: box_dir, space_ptr, xspace_ptr @@ -2855,7 +2863,7 @@ comes next; this currently equals~2, as in the preamble. @ The last part of the postamble, following the |post_post| byte that signifies the end of the font definitions, contains |q|, a pointer to the |post| command that started the postamble. An identification byte, |i|, -comes next; this equals~2 or~3. If not used p\TeX primitives then the +comes next; this equals~2 or~3. If not used \pTeX primitives then the identification byte equals~2, othercase this is set to~3. @z @@ -4887,7 +4895,7 @@ q:pointer; since |head| is a one-word node. @y @ Note that in \TeX\ the condition |not is_char_node(tail)| implies that -|head<>tail|, since |head| is a one-word node; this is not so for p\TeX. +|head<>tail|, since |head| is a one-word node; this is not so for \pTeX. @z @x [47.1080] l.20940 - pTeX: disp_node @@ -6076,9 +6084,9 @@ undump_things(char_base[null_font], font_ptr+1-null_font); @x l.26984 - pTeX @* \[54] System-dependent changes. @y -@* \[55/p\TeX] System-dependent changes for p\TeX. +@* \[55/\pTeX] System-dependent changes for \pTeX. This section described extended variables, procesures, functions and so on -for pTeX. +for \pTeX. @<Declare procedures that scan font-related stuff@>= function get_jfm_pos(@!kcode:KANJI_code;@!f:internal_font_number):eight_bits; |