summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2020-02-05 20:01:12 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2020-02-05 20:01:12 +0000
commit6ce7aacaa6bc32fac37ae29c2d760f176d446614 (patch)
tree9d4aa7149ae95cf8ded16ee7fe96b8b2101c564d
parent78d510958c106c4d68ab8daacdea043fe468ce15 (diff)
add new primitives \ifjfont and \iftfont.
git-svn-id: svn://tug.org/texlive/trunk@53681 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/web2c/ptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex-base.ch14
2 files changed, 18 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index 47233df5554..8887cb0e2a8 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2020-02-05 Hironobu Yamashita <h.y.acetaminophen@gmail.com>
+
+ * ptex-base.ch: Add new primitives \ifjfont and \iftfont.
+
2019-12-10 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
* am/ptex.am (ptex_cppflags): append $(ZLIB_INCLUDES).
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index 9efd5bf5879..1011bf19c2b 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -2469,6 +2469,9 @@ string_code:if cur_cs<>0 then sprint_cs(cur_cs)
@d if_ybox_code=if_tbox_code+1 { `\.{\\ifybox}' }
@d if_dbox_code=if_ybox_code+1 { `\.{\\ifdbox}' }
@d if_mbox_code=if_dbox_code+1 { `\.{\\ifmbox}' }
+@#
+@d if_jfont_code=if_mbox_code+1 { `\.{\\ifjfont}' }
+@d if_tfont_code=if_jfont_code+1 { `\.{\\iftfont}' }
@z
@x [28.487] l.9887 - pTeX: iftdir, ifydir, ifddir, iftbox, ifybox, ifdbox
@@ -2493,6 +2496,10 @@ primitive("ifdbox",if_test,if_dbox_code);
@!@:if_dbox_}{\.{\\ifdbox} primitive@>
primitive("ifmbox",if_test,if_mbox_code);
@!@:if_mbox_}{\.{\\ifmbox} primitive@>
+primitive("ifjfont",if_test,if_jfont_code);
+@!@:if_jfont_}{\.{\\ifjfont} primitive@>
+primitive("iftfont",if_test,if_tfont_code);
+@!@:if_tfont_}{\.{\\iftfont} primitive@>
@z
@x [28.488] l.9907 - pTeX: iftdir, ifydir, ifddir, iftbox, ifybox, ifdbox
@@ -2507,6 +2514,8 @@ primitive("ifmbox",if_test,if_mbox_code);
if_ybox_code:print_esc("ifybox");
if_dbox_code:print_esc("ifdbox");
if_mbox_code:print_esc("ifmbox");
+ if_jfont_code:print_esc("ifjfont");
+ if_tfont_code:print_esc("iftfont");
@z
@x [28.501] l.10073 - pTeX: iftdir, ifydir, ifddir, iftbox, ifybox, ifdbox
@@ -2518,6 +2527,11 @@ if_ddir_code: b:=(abs(direction)=dir_dtou);
if_mdir_code: b:=(direction<0);
if_void_code, if_hbox_code, if_vbox_code, if_tbox_code, if_ybox_code, if_dbox_code, if_mbox_code:
@<Test box register status@>;
+if_jfont_code, if_tfont_code:
+ begin scan_font_ident;
+ if this_if=if_jfont_code then b:=(font_dir[cur_val]=dir_yoko)
+ else if this_if=if_tfont_code then b:=(font_dir[cur_val]=dir_tate);
+ end;
@z
@x [28.505] l.10118 - pTeX: Test box register status : iftbox, ifybox, ifdbox