texlive[44016] Build/source/texk/web2c: p\TeX -> \pTeX by
commits+takuji at tug.org
commits+takuji at tug.org
Mon Apr 24 17:13:38 CEST 2017
Revision: 44016
http://tug.org/svn/texlive?view=revision&revision=44016
Author: takuji
Date: 2017-04-24 17:13:38 +0200 (Mon, 24 Apr 2017)
Log Message:
-----------
p\TeX -> \pTeX by Kitagawa-san
Modified Paths:
--------------
trunk/Build/source/texk/web2c/eptexdir/ChangeLog
trunk/Build/source/texk/web2c/eptexdir/eptex.ech
trunk/Build/source/texk/web2c/eptexdir/etex.ch1
trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch
trunk/Build/source/texk/web2c/euptexdir/ChangeLog
trunk/Build/source/texk/web2c/euptexdir/euptex.ch0
trunk/Build/source/texk/web2c/pmpostdir/ChangeLog
trunk/Build/source/texk/web2c/pmpostdir/pmpxout.ch
trunk/Build/source/texk/web2c/ptexdir/ChangeLog
trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
trunk/Build/source/texk/web2c/synctexdir/ChangeLog
trunk/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch0
trunk/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1
trunk/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch0
trunk/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1
trunk/Build/source/texk/web2c/synctexdir/synctex-rec.ch0
trunk/Build/source/texk/web2c/uptexdir/ChangeLog
trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch
Modified: trunk/Build/source/texk/web2c/eptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/ChangeLog 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog 2017-04-24 15:13:38 UTC (rev 44016)
@@ -1,3 +1,8 @@
+2017-04-24 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
+
+ * eptex.ech, etex.ch1, euptex.ch0, pdfutils.ch:
+ Adapt to changes in ptexdir/ptex-base.ch (p\TeX -> \pTeX).
+
2016-12-15 Akira Kakuto <kakuto at fuk.kindai.ac.jp>
* eptexextra.h: Use "issue at texjp.org" as BUG_ADDRESS.
Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech 2017-04-24 15:13:38 UTC (rev 44016)
@@ -11,7 +11,7 @@
\def\eTeX{$\varepsilon$-\TeX}
@y
\def\eTeX{$\varepsilon$-\TeX}
-\def\epTeX{$\varepsilon$-p\TeX}
+\def\epTeX{$\varepsilon$-\pTeX}
@z
@x [1.2] l.190 - epTeX:
@@ -23,9 +23,9 @@
@z
@x e-pTeX: banner
- {printed when p\TeX\ starts}
+ {printed when \pTeX\ starts}
@y
- {printed when p\TeX\ starts}
+ {printed when \pTeX\ starts}
@#
@d epTeX_version==pTeX_version_string,epTeX_version_string,eTeX_version_string
@d epTeX_banner=='This is e-pTeX, Version 3.14159265',epTeX_version
Modified: trunk/Build/source/texk/web2c/eptexdir/etex.ch1
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/etex.ch1 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/eptexdir/etex.ch1 2017-04-24 15:13:38 UTC (rev 44016)
@@ -147,9 +147,9 @@
@z
@x
-@* \[55/p\TeX] System-dependent changes for p\TeX.
+@* \[55/\pTeX] System-dependent changes for \pTeX.
@y
-@* \[54/p\TeX] System-dependent changes for p\TeX.
+@* \[54/\pTeX] System-dependent changes for \pTeX.
@z
@x
Modified: trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch 2017-04-24 15:13:38 UTC (rev 44016)
@@ -33,6 +33,7 @@
\font\tenlogo=logo10 % font used for the METAFONT logo
\def\MP{{\tenlogo META}\-{\tenlogo POST}}
+\def\pdfTeX{pdf\TeX}
This section is (almost) straight from MetaPost. I had to change
the types (use |integer| instead of |fraction|), but that should
@@ -1395,7 +1396,7 @@
A \.{DVI} file does not have the information of the page height,
which is needed to implement \.{\\pdflastypos} correctly.
To keep the information of the page height, I (H.~Kitagawa)
-adopted \.{\\pdfpageheight} primitive from pdf\TeX. However, in p\TeX (and \hbox{\epTeX}),
+adopted \.{\\pdfpageheight} primitive from pdf\TeX. However, in \pTeX (and \hbox{\epTeX}),
the papersize special \.{\\special\{papersize=|width|,|height|\}} is commonly used
for specifying page width/height. Hence, I decided that the papersize special also
changes the value of \.{\\pdfpagewidth} and \.{\\pdfpageheight}.
Modified: trunk/Build/source/texk/web2c/euptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/ChangeLog 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/euptexdir/ChangeLog 2017-04-24 15:13:38 UTC (rev 44016)
@@ -1,3 +1,7 @@
+2017-04-24 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
+
+ * euptex.ch0: Adapt to changes in ptexdir/ptex-base.ch (p\TeX -> \pTeX).
+
2016-12-15 Akira Kakuto <kakuto at fuk.kindai.ac.jp>
* euptexextra.h: Use "issue at texjp.org" as BUG_ADDRESS.
Modified: trunk/Build/source/texk/web2c/euptexdir/euptex.ch0
===================================================================
--- trunk/Build/source/texk/web2c/euptexdir/euptex.ch0 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/euptexdir/euptex.ch0 2017-04-24 15:13:38 UTC (rev 44016)
@@ -2,13 +2,13 @@
\def\eTeX{$\varepsilon$-\TeX}
@y
\def\eTeX{$\varepsilon$-\TeX}
-\def\eupTeX{$\varepsilon$-up\TeX}
+\def\eupTeX{$\varepsilon$-u\pTeX}
@z
@x e-upTeX: banner
- {printed when up\TeX\ starts}
+ {printed when u\pTeX\ starts}
@y
- {printed when up\TeX\ starts}
+ {printed when u\pTeX\ starts}
@#
@d eupTeX_version==pTeX_version_string,upTeX_version_string,epTeX_version_string,eTeX_version_string
@d eupTeX_banner=='This is e-upTeX, Version 3.14159265',eupTeX_version
Modified: trunk/Build/source/texk/web2c/pmpostdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/ChangeLog 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/pmpostdir/ChangeLog 2017-04-24 15:13:38 UTC (rev 44016)
@@ -1,3 +1,7 @@
+2017-04-24 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
+
+ * pmpxout.ch: p\TeX -> \pTeX.
+
2017-03-31 Akira Kakuto <kakuto at fuk.kindai.ac.jp>
* pmp.ch: Adapt to MetaPost 2.000.
Modified: trunk/Build/source/texk/web2c/pmpostdir/pmpxout.ch
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/pmpxout.ch 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/pmpostdir/pmpxout.ch 2017-04-24 15:13:38 UTC (rev 44016)
@@ -1,4 +1,11 @@
@x
+\def\MP{MetaPost}
+ at y
+\def\MP{MetaPost}
+\def\pTeX{p\kern-.15em\TeX}
+ at z
+
+ at x
#include "avl.h"
@y
#include "avl.h"
@@ -35,7 +42,7 @@
@x
@d undefined_commands 250: case 251: case 252: case 253: case 254: case 255
@y
- at d dir 255 /* p\TeX\ direction */
+ at d dir 255 /* \pTeX\ direction */
@d undefined_commands 250: case 251: case 252: case 253: case 254
@z
@@ -81,7 +88,7 @@
@ @<Width of character |p| in font |cur_font|@>=
floor(mpx->dvi_scale*mpx->font_scaled_size[cur_font]*char_width(cur_font,p))
@y
-@ @c @<Declare JFM character type table lookup routine@>@; /* p\TeX */
+@ @c @<Declare JFM character type table lookup routine@>@; /* \pTeX */
static integer mpx_scaled_char_width (MPX mpx,integer f,integer c)
{
if (mpx->font_id[f]!=0) c=mpx_lookup_ctype(mpx, f,c);
@@ -420,7 +427,7 @@
if (mpx_newer(mpxopt->mpname, mpxopt->mpxname))
return 0
-@ ASCII p\TeX JFM ID
+@ ASCII \pTeX\ JFM ID
@d yoko_jfm_id 11 /* for `yoko-kumi' fonts */
@d tate_jfm_id 9 /* for `tate-kumi' fonts */
@d font_jfm_p(A) (mpx->font_id[(A)]!=0)
Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog 2017-04-24 15:13:38 UTC (rev 44016)
@@ -1,3 +1,7 @@
+2017-04-24 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
+
+ * ptex-base.ch: p\TeX -> \pTeX.
+
2017-04-09 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
* ptex-base.ch: Fix a bug in single-letter control sequence
Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch 2017-04-24 15:13:38 UTC (rev 44016)
@@ -57,15 +57,23 @@
% (2016-06-06) AK Hironori Kitagawa fixed a bug in check_box(box_p:pointer).
% pTeX p3.7.1.
%
+
+ at x
+% Here is TeX material that gets inserted after \input webmac
+ at y
+% Here is TeX material that gets inserted after \input webmac
+\def\pTeX{p\kern-.15em\TeX}
+ at z
+
@x [1.2] l.200 - pTeX:
@d banner==TeX_banner
@d banner_k==TeX_banner_k
@y
- at d pTeX_version_string=='-p3.7.1' {current p\TeX\ version}
+ at 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 @@
@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 @@
|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 @@
@ 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 @@
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 @@
@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;
Modified: trunk/Build/source/texk/web2c/synctexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/synctexdir/ChangeLog 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/synctexdir/ChangeLog 2017-04-24 15:13:38 UTC (rev 44016)
@@ -1,3 +1,9 @@
+2017-04-24 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
+
+ * synctex-ep-mem.ch0, synctex-p-mem.ch0,
+ synctex-ep-mem.ch1, synctex-p-mem.ch1:
+ Adapt to changes in ptexdir/ptex-base.ch (p\TeX -> \pTeX).
+
2017-04-22 Jerome Laurens
<jerome.laurens at u-bourgogne.fr>
Modified: trunk/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch0
===================================================================
--- trunk/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch0 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch0 2017-04-24 15:13:38 UTC (rev 44016)
@@ -19,7 +19,7 @@
@z
@x tex.web l. 24956
-@* \[54/p\TeX] System-dependent changes for p\TeX.
+@* \[54/\pTeX] System-dependent changes for \pTeX.
@y
@* \[54] System-dependent changes.
@z
Modified: trunk/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1
===================================================================
--- trunk/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1 2017-04-24 15:13:38 UTC (rev 44016)
@@ -19,5 +19,5 @@
@x tex.web l. 24956
@* \[54] System-dependent changes.
@y
-@* \[54/p\TeX] System-dependent changes for p\TeX.
+@* \[54/\pTeX] System-dependent changes for \pTeX.
@z
Modified: trunk/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch0
===================================================================
--- trunk/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch0 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch0 2017-04-24 15:13:38 UTC (rev 44016)
@@ -19,7 +19,7 @@
@z
@x tex.web l. 24956
-@* \[55/p\TeX] System-dependent changes for p\TeX.
+@* \[55/\pTeX] System-dependent changes for \pTeX.
@y
@* \[54] System-dependent changes.
@z
Modified: trunk/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1
===================================================================
--- trunk/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1 2017-04-24 15:13:38 UTC (rev 44016)
@@ -19,5 +19,5 @@
@x tex.web l. 24956
@* \[54] System-dependent changes.
@y
-@* \[55/p\TeX] System-dependent changes for p\TeX.
+@* \[55/\pTeX] System-dependent changes for \pTeX.
@z
Modified: trunk/Build/source/texk/web2c/synctexdir/synctex-rec.ch0
===================================================================
--- trunk/Build/source/texk/web2c/synctexdir/synctex-rec.ch0 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/synctexdir/synctex-rec.ch0 2017-04-24 15:13:38 UTC (rev 44016)
@@ -407,8 +407,8 @@
sync_line(r+box_node_size):=sync_line(p+box_node_size);
@ @<Copy the rule {\sl Sync\TeX} information@>=
-{sync_tag(r+rule_node_size):=sync_tag(p+rule_node_size);
-sync_line(r+rule_node_size):=sync_line(p+rule_node_size);}
+{|sync_tag(r+rule_node_size):=sync_tag(p+rule_node_size);|
+|sync_line(r+rule_node_size):=sync_line(p+rule_node_size);|}
@ @<Copy the medium sized node {\sl Sync\TeX} information@>=
sync_tag(r+medium_node_size):=sync_tag(p+medium_node_size);
Modified: trunk/Build/source/texk/web2c/uptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/ChangeLog 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/uptexdir/ChangeLog 2017-04-24 15:13:38 UTC (rev 44016)
@@ -1,3 +1,7 @@
+2017-04-24 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
+
+ * uptex-m.ch: Adapt to changes in ptexdir/ptex-base.ch (p\TeX -> \pTeX).
+
2017-04-09 Hironori Kitagawa <h_kitagawa2001 at yahoo.co.jp>
* uptex-m.ch: Fix a bug on a UTF-8 sequence at end of a line
Modified: trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch 2017-04-24 14:59:01 UTC (rev 44015)
+++ trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch 2017-04-24 15:13:38 UTC (rev 44016)
@@ -38,17 +38,17 @@
% (04/09/2017) TTK Hironori Kitagawa fixed a bug in \endlinechar.
@x upTeX: banner
- {printed when p\TeX\ starts}
+ {printed when \pTeX\ starts}
@y
- {printed when p\TeX\ starts}
+ {printed when \pTeX\ starts}
@#
@d upTeX_version=1
@d upTeX_revision==".22"
- at d upTeX_version_string=='-u1.22' {current up\TeX\ version}
+ at d upTeX_version_string=='-u1.22' {current u\pTeX\ version}
@#
@d upTeX_banner=='This is upTeX, Version 3.14159265',pTeX_version_string,upTeX_version_string
@d upTeX_banner_k==upTeX_banner
- {printed when up\TeX\ starts}
+ {printed when u\pTeX\ starts}
@z
@x upTeX: banner
@@ -72,7 +72,7 @@
@!trick_buf2:array[0..ssup_error_line] of 0..@'24; {pTeX: buffer for KANJI}
@!kcode_pos: 0..@'24; {pTeX: denotes whether first byte or second byte of KANJI
1..2:2byte-char, 11..13:3byte-char, 21..24:4byte-char}
-@!kcp: 0..@'24; {temporary kcode_pos}
+@!kcp: 0..@'24; {temporary |kcode_pos|}
@z
@x
@@ -245,7 +245,7 @@
{ $\.{@@"20}+|k| = |kcatcodekey|(|fromKUTEN|(|HILO|(k,1))$ }
@y
if (isinternalUPTEX) then begin
- { default: other_kchar }
+ { default: |other_kchar| }
@t\hskip10pt@>kcat_code(@"0):=not_cjk;
@t\hskip10pt@>kcat_code(@"23):=hangul; { Hangul Jamo }
@+ at t\1@>for k:=@"65 to @"67 do kcat_code(k):=kanji; { CJK Radicals Supplement .. Ideographic Description Characters }
@@ -260,7 +260,7 @@
@t\hskip10pt@>kcat_code(@"90):=hangul; { Hangul Syllables }
@t\hskip10pt@>kcat_code(@"91):=hangul; { Hangul Jamo Extended-B }
@t\hskip10pt@>kcat_code(@"96):=kanji; { CJK Compatibility Ideographs }
- { @t\hskip10pt@>kcat_code(@"9F):=other_kchar; Halfwidth and Fullwidth Forms }
+ { \hskip10pt|kcat_code(@"9F):=other_kchar;| Halfwidth and Fullwidth Forms }
@t\hskip10pt@>kcat_code(@"ED):=kana; { Kana Supplement }
@+ at t\1@>for k:=@"108 to @"10C do kcat_code(k):=kanji; { CJK Unified Ideographs Extension B .. CJK Compatibility Ideographs Supplement }
@t\hskip10pt@>kcat_code(@"1FE):=kana; { Fullwidth digit and latin alphabet }
@@ -310,7 +310,7 @@
@d end_match_token=@'7000 {$2^8\cdot|end_match|$}
@y
@d cs_token_flag=@"1FFFFFFF {amount added to the |eqtb| location in a
- token that stands for a control sequence; is a multiple of~@"1000000, less~1}
+ token that stands for a control sequence; is a multiple of~@@"1000000, less~1}
@d max_char_val=@"100 {to separate char and command code}
@d left_brace_token=@"100 {$2^8\cdot|left_brace|$}
@d left_brace_limit=@"200 {$2^8\cdot(|left_brace|+1)$}
More information about the tex-live-commits
mailing list