diff options
author | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
---|---|---|
committer | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
commit | c6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch) | |
tree | 1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/web2c/uptexdir | |
parent | 07ee7222e389b0777456b427a55c22d0e6ffd267 (diff) |
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/uptexdir')
45 files changed, 0 insertions, 5544 deletions
diff --git a/Build/source/texk/web2c/uptexdir/COPYRIGHT b/Build/source/texk/web2c/uptexdir/COPYRIGHT deleted file mode 100644 index a92f8732efd..00000000000 --- a/Build/source/texk/web2c/uptexdir/COPYRIGHT +++ /dev/null @@ -1,26 +0,0 @@ -Copyright (C) 2009 ASCII MEDIA WORKS. -Copyright (C) 2007-2020 Takuji Tanaka -All rights reserved. - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions -are met: - -1. Redistributions of source code must retain the above copyright - notice, this list of conditions and the following disclaimer. -2. Redistributions in binary form must reproduce the above copyright - notice, this list of conditions and the following disclaimer in the - documentation and/or other materials provided with the distribution. -3. Neither the name of the author may be used to endorse or promote products - derived from this software without specific prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR -IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES -OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. -IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, -INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT -NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF -THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Build/source/texk/web2c/uptexdir/COPYRIGHT.ja b/Build/source/texk/web2c/uptexdir/COPYRIGHT.ja deleted file mode 100644 index 44ab4156ed8..00000000000 --- a/Build/source/texk/web2c/uptexdir/COPYRIGHT.ja +++ /dev/null @@ -1,33 +0,0 @@ -(注) 以下は、英文の契約条項を日本語に翻訳したものである。日本語訳と英 -語表記の間に齟齬があった場合には、契約条件は英語表記による契約条項に従 -う。 - -【著作権表示】 -Copyright (C) 2009 ASCII MEDIA WORKS. -Copyright (C) 2007-2020 Takuji Tanaka -All rights reserved. - -【契約条件】 -改変の有無にかかわらず、本ソフトウェアのソースコード及びバイナリーコー -ド形式による再頒布及び使用は、次の契約条件の下に許諾される。 -1. ソースコードの再頒布に際しては、上記の【著作権表示】、この【契約条 - 件】及び次の【免責条項】の表記を、引き続き維持して明記しなければな - らない。 -2. バイナリー形式による再頒布に際しては、上記の【著作権表示】、この - 【契約条件】及び次の【免責条項】を、再頒布に際し提供する説明書及び - その他の関連資料に改めて明記しなければならない。 -3. 特別な事前の書面による許諾がない限り、本ソフトウェアから派生した製 - 品を推奨又は宣伝するために、著作権者名は使用してはならない。 - -【免責条項】 -本ソフトウェアは、著作権者により、「現状有姿のまま(そのままの形で)」 -提供されるものであり、商品性又は特定目的への適合性に関する黙示的保証な -ど、明示又は黙示の保証を問わず、いかなる保証をも行うものではない。 -いかなる理由によっても、また、契約責任、厳格責任又は(過失によるものを -含む)不法行為責任を問わずどのような責任の理論によっても、著作権者は、 -いかなる場合も、本ソフトウェアを使用することにより発生する、あらゆる直 -接損害、間接損害、偶発損害、特別損害、懲罰的損害あるいは派生的損害(代 -替製品・代替サービスの調達、使用利益、データ又は収益に関する損失、営業 -中断による損失など)について何らの責任も負わない。これは、本ソフトウェ -アを使用することにより、これらの損害が発生する可能性について、あらかじ -め示唆されていた場合であっても同様である。 diff --git a/Build/source/texk/web2c/uptexdir/ChangeLog b/Build/source/texk/web2c/uptexdir/ChangeLog deleted file mode 100644 index b6db0953e71..00000000000 --- a/Build/source/texk/web2c/uptexdir/ChangeLog +++ /dev/null @@ -1,448 +0,0 @@ -2020-10-25 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch, - uptex_version.h: upTeX version u1.27. - -2020-10-25 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * upbibtex.ch: - Make is.kanji.str$ false for Latin, Cyrillic, Greek scripts - and CJK symbols. - * tests/unibib.{tex,bib,aux,bbl}: Test case. - https://github.com/texjporg/tex-jp-build/issues/109 - -2020-08-29 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * updvitype.ch: Sync with the change of pdvitype.ch. - -2020-02-22 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch, - uptex_version.h: upTeX version u1.26. - * uptex-m.ch, kanji.c: - Update reference of Unicode blocks to - "Blocks-13.0.0.txt Date: 2019-07-10, 19:06:00 GMT [KW]". - * COPYRIGHT, COPYRIGHT.ja: - Update copyright year. - -2019-12-10 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> - - * am/uptex.am (uptex_cppflags): append $(ZLIB_INCLUDES). - (uptex_ldadd): append $(ZLIB_LIBS.) - (uptex_dependencies): append $(ZLIB_DEPEND) - (uptex_web_srcs): append zlib-fmt.ch. - * kanji.h: #include <zlib.h> - (dump_kanji, undump_kanji): arg is now type gzFile instead of FILE *. - * kanji_dump.c (pTeX) [!upTeX]: #define if not already. - (dump_kanji, undump_kanji): chang arg type. - -2019-05-28 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * am/uptex.am: Add a new test. - * upver.test: New test file for version number consistency. - -2019-05-25 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * uptex-m.ch: - Correct upTeX_revision ".25", upTeX_version_string "-u1.25". - -2019-05-06 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch, - uptex_version.h: upTeX version u1.25. - * kanji.c, kanji.h: - Fix bug of kcatcode at Fullwidth ASCII variants and - Halfwidth Katakana variants from Yusuke Terada san: - https://github.com/texjporg/tex-jp-build/pull/79 - Set default internal encoding EUC/SJIS if a command name is - with prefix of "p" or "ep", intending to be compatible with - pTeX family (ptex, eptex, pbibtex, pdvitype, ppltotf, ptftopl) - (experimental). - -2019-05-06 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> - - * uptex-m.ch: - Make appropreate comparison of U+0100 by \if. - https://github.com/texjporg/tex-jp-build/issues/68 - * tests/test_if.tex: Test case. - -2019-02-23 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch, - uptex_version.h: upTeX version u1.24. - * uptex-m.ch, kanji.c: - Update reference of Unicode blocks to - "Blocks-12.0.0.txt Date: 2018-07-30, 19:40:00 GMT [KW]". - Set kcatcode of "Latin Extended-B", - "Latin Extended Additional" 15 (not_cjk). - * COPYRIGHT, COPYRIGHT.ja: - Update copyright year. - -2019-02-03 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * kanji.h: Use fputs2() to benefit from kanji encoding conversion. - https://github.com/texjporg/tex-jp-build/issues/34 - -2019-01-23 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * kanji_dump.c: Throw a warning when kanji internal encoding - is incompatible with the preloaded format. - https://github.com/texjporg/tex-jp-build/issues/55 - -2018-09-16 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * upbibtex.ch: Fix bug of substring$ - from Takashi Sakai san: - https://github.com/texjporg/tex-jp-build/issues/64 - https://github.com/texjporg/tex-jp-build/pull/66 - -2018-09-09 Karl Berry <karl@tug.org> - - * uptriptest.test: LC_ALL=LANGUAGE=C. - -2018-09-03 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * gkhuge.test: Export TEXMFCNF beforehand, instead of setting - it at each one-line command execution. This should avoid test - failure on some platforms. - http://tug.org/pipermail/tlbuild/2018q3/004244.html - http://tug.org/pipermail/tlbuild/2018q3/004250.html - -2018-08-18 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * gkhuge.test: More strict test. - * tests/gkhugeng.err: Added. - * am/uptex.am: Adjust. - -2018-06-14 Akira Kakuto <kakuto@fuk.kindai.ac.jp> - - * ksnji.h, kanji.c, uptex.defines: - remove sjisterminal (w32 only). - -2018-02-25 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * uptex-m.ch, kanji.c: - Update reference of Unicode blocks to - "Blocks-10.0.0.txt Date: 2017-04-12, 17:30:00 GMT [KW]". - Exclude Latin-1 letters from "Latin-1 Supplement" block. - Set kcatcode of "Latin-1 letters", "Latin Extended-A" 15 (not_cjk). - * uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch, - uptex_version.h: upTeX version u1.23. - * COPYRIGHT, COPYRIGHT.ja: - Update copyright year. - -2018-02-02 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * uppltotf.ch: Adapt to changes in ptexdir/ppltotf.ch. - * am/uptex.am: Add new tests. - * gkhuge.test, tests/gkhuge.tex, tests/gkhuge{ok,ng}.tfm, - uparse.test, tests/uparse.{pl,tfm} : New test files. - -2018-01-31 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> - - * uptex-m.ch: Adapt to changes in ptexdir/ptex-base.ch (disp_node). - -2018-01-27 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * uppltotf.ch, uptftopl.ch, uptex-m.ch: Adapt to the new JFM spec. - * am/uptex.am: Add new tests. - * newjfm.test, tests/testnewu.{pl,tfm}: New test files. - -2018-01-21 Hironobu Yamashita <h.y.acetaminophen@gmail.com> - - * yokotate.test, tests/{,u}[,t]min10.[pl,tfm], am/uptex.am: - More suitable tests. - -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). - -2017-04-09 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> - - * uptex-m.ch: Fix a bug on a UTF-8 sequence at end of a line - when \endlinechar=-1. - -2017-01-15 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * uptex-m.ch, kanji.c: - Update reference of Unicode blocks to - "Blocks-9.0.0.txt Date: 2016-02-05, 23:48:00 GMT [KW]". - * uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch, - uptex_version.h: upTeX version u1.22. - * COPYRIGHT, COPYRIGHT.ja: - Update copyright name and year. - Rename from COPYRIGHT.utf8 to COPYRIGHT.ja. - -2017-01-14 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * upbibtex.ch, kanji.h: Fix bug on "substring$". - Thanks to Takeda Shiro san. - -2016-12-16 Akira Kakuto <kakuto@fuk.kindai.ac.jp> - - * upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch: - Use "issue@texjp.org" as bug_email in usagehelp(). - -2016-12-15 Akira Kakuto <kakuto@fuk.kindai.ac.jp> - - * uptexextra.h: Use "issue@texjp.org" as BUG_ADDRESS. - -2016-02-20 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * uptex-m.ch, kanji.c: - Update reference of Unicode blocks to - "Blocks-8.0.0.txt Date: 2014-11-10, 23:04:00 GMT [KW]". - * uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch, - uptex_version.h: upTeX version u1.21. - * COPYRIGHT.utf8: - Rename from COPYRIGHT.jis and convert encoding from ISO-2022-JP - to UTF-8. - -2015-09-22 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptriptest.test: Also check tripos.tex. - -2015-07-10 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptriptest (removed): Renamed ... - * uptriptest.test (new): ... into this. - * am/uptex.am: Better dependencies for 'make check'. - -2015-06-22 Peter Breitenlohner <peb@mppmu.mpg.de> - - * am/uptex.am: Use $(tie_c) and $(tie_m). - -2015-04-12 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptrip/uptrip.diffs: Updated for TL 2015. - -2014-12-29 TANAKA Takuji <ttk@t-lab.opal.ne.jp> - - * uptex-m.ch, kanji.c: - Update reference of Unicode blocks to - "Blocks-7.0.0.txt Date: 2014-04-03, 23:23:00 GMT [RP, KW]". - * uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch, - uptex_version.h: upTeX version u1.20. - -2014-12-12 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptriptest: Complain early if trip.fmt is not created. - Inspired by report from vvv, tlbuild 14 Jun 2011 10:25:47. - -2014-05-02 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptrip/uptrip.diffs: Updated for TL14. - -2014-01-22 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptrip/uptrip.diffs: Updated for upTeX 3.14159265. - -2014-01-20 Peter Breitenlohner <peb@mppmu.mpg.de> - - TeX tuneup of 2014. - * uptex-m.ch: Adapt to TeX Version 3.14159265. - * uppltotf.ch: Adapt to PLtoTF Version 3.6. - * uptftopl.ch: Adapt to TFtoPL Version 3.3. - -2014-01-17 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptrip.test (removed): Renamed ... - * uptriptest (new): ... into this. - * am/uptex.am: Adapted. - -2013-12-31 Peter Breitenlohner <peb@mppmu.mpg.de> - - * tests/min10.pl, tests/min10.pl: Don't write SEVENBITSAFEFLAG - for JFM (yoko or tate) fonts. - -2013-12-18 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uppltotf.ch, tests/[t]min10.pl: Drop useless extra space. - * yokotate.test: Simplified. - -2013-12-17 Peter Breitenlohner <peb@mppmu.mpg.de> - - * yokotate.test (new): Shell scripts to test upPLtoTF/upTFtoPL - with yoko and tate fonts. - * tests/[t]min10.{pl,tfm} (new): Data for yokotate.test. - * am/uptex.am: Add the new tests. - -2013-08-12 TANAKA Takuji <KXD02663@nifty.ne.jp> - - * kanji.h, uptex.defines: Allow file names with 0x5c - in (e)pTeX on Windows. - -2013-06-28 Peter Breitenlohner <peb@mppmu.mpg.de> - - * am/uptex.am: upbibtex-web2c also depends on web2c/cvtbib.sed. - -2013-06-05 Peter Breitenlohner <peb@mppmu.mpg.de> - - * kanji.h: Avoid redefinition of KANJI. - -2013-04-09 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptrip/uptrip.diffs: Update for TL 2013. - -2013-03-04 Peter Breitenlohner <peb@mppmu.mpg.de> - - * am/uptex.am: Better rule for uptex_version.h. - -2013-02-15 Peter Breitenlohner <peb@mppmu.mpg.de> - - * am/uptex.am, upbibtex.test, updvitype.test, uppltotf.test, - uptftopl.test: Change directory for temporary files from tests - to uptests. - -2013-01-15 Peter Breitenlohner <peb@mppmu.mpg.de> - - * am/uptex.am, uptrip.test: Enable parallel-tests. - -2013-01-04 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> - - * uptex-m.ch: \xkanjiskip around math_node etc. - -2012-12-16 Peter Breitenlohner <peb@mppmu.mpg.de> - - * am/uptex.am (uptex_version.h): Enable silent rules. - -2012-08-22 Peter Breitenlohner <peb@mppmu.mpg.de> - - * kanji.c (init_default_kanji): Set defaults before testing - PTEX_KANJI_ENC from the environment. - * kanji.c: All programs use init_default_kanji("utf8","uptex"). - -2012-08-13 TANAKA Takuji <KXD02663@nifty.ne.jp> - - * uptex-m.ch, upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch, - uptex_version.h: upTeX version u1.11. - -2012-08-02 Peter Breitenlohner <peb@mppmu.mpg.de> - - * am/uptex.am: Clarify *tex_version.h dependencies. - -2012-07-19 Peter Breitenlohner <peb@mppmu.mpg.de> - - * am/uptex.am: Distribute uptex_version.h. - * uptexextra.h: Use ../ptexdir/ptex_version.h. - -2012-07-15 Peter Breitenlohner <peb@mppmu.mpg.de> - - * upbibtex.ch, updvitype.ch, uppltotf.ch, uptftopl.ch: - Adapt to the use my_name. - -2012-07-15 Akira Kakuto <kakuto@fuk.kindai.ac.jp> - - * uptexextra.c: Must #define DLLPROC before reading uptexd.h. - -2012-06-30 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptexextra.c [W32TeX]: #define DLLPROC for uptex.dll. - -2012-05-22 Peter Breitenlohner <peb@mppmu.mpg.de> - - * updvitype.test: Cope with spaces in paths returned by - kpsewhich. - -2012-05-12 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptex-m.ch: Restore the 'unnecessary and seemingly wrong' - changes; they are required to show the error context. - * uptrip/uptrip.diffs: Adapted. - -2012-04-29 Takuji Tanaka <KXD02663@nifty.ne.jp> - - * uptex-m.ch, uppltotf.ch, uptftopl.ch, updvitype.ch, upbibtex.ch: - Update upTeX version number. - - * uptex-m.ch, kanji.c: - Update reference of Unicode blocks to - "Blocks-6.1.0.txt Date: 2011-06-14, 18:26:00 GMT [KW, LI]". - -2012-03-11 Akira Kakuto <kakuto@fuk.kindai.ac.jp> - - * uptex-m.ch: remove unnecessary and seemingly wrong changes - -2012-03-08 Akira Kakuto <kakuto@fuk.kindai.ac.jp> - - * uptex-m.ch: fix a long-remained bug in show_context. - -2012-03-04 Peter Breitenlohner <peb@mppmu.mpg.de> - - Avoid 'differ in signedness' warnings. - * uppltotf.ch: Use ustringcast(buffer). - * uptex-m.ch: Use ustringcast for buffer and str_pool. - -2012-01-15 Takuji Tanaka <KXD02663@nifty.ne.jp> - - * uptex-m.ch, uppltotf.ch, uptftopl.ch, updvitype.ch, upbibtex.ch: - Update upTeX version number. - - * uptex-m.ch, kanji.c: - Update reference of Unicode blocks to - "Blocks-6.0.0.txt Date: 2010-06-04, 11:12:00 PDT [KW]". - -2012-01-07 Akira Kakuto <kakuto@fuk.kindai.ac.jp> - - * kanji.h: revert wrt init_kanji (from TANAKA Takuji-san). - -2012-01-05 Akira Kakuto <kakuto@fuk.kindai.ac.jp> - - * kanji.h: enable -kanji option in updvitype. - (patch from TANAKA Takuji-san). - -2011-12-19 Peter Breitenlohner <peb@mppmu.mpg.de> - - * uptex-m.ch, kanji.[ch]: Drop unused param2 of check_kanji(). - -2011-12-19 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> - - * uptex-m.ch, uptex.defines, kanji.[ch], uppltotf.ch, - uppltotf.ch: Avoid Segmentation fault for japanese \catcode - or \kcatcode. - -2011-12-04 Akira Kakuto <kakuto@fuk.kindai.ac.jp> - - * uptex-m.ch: change min_halfword because the ConTeXt with - euptex falls into an infinite loop if an Overfull \hbox error occurs. - -2011-11-25 Peter Breitenlohner <peb@mppmu.mpg.de> - - * am/uptex.am (uppltotf_CPPFLAGS): Replace '-DDHEX_CHAR_CODE' - by '-DPRESERVE_PUTC'. Mail [ptex:00311] from TANAKA Takuji. - - * am/uptex.am (upbibtex_CPPFLAGS, uptftopl_CPPFLAGS): Drop the - useless '-DDHEX_CHAR_CODE'. - (updvitype_CPPFLAGS): Replace '-DDHEX_CHAR_CODE' by - '-DHEX_CHAR_CODE'. - -2011-09-30 Peter Breitenlohner <peb@mppmu.mpg.de> - - * updvitype.ch: Use const stringcast for get_enc_string(). - -2011-09-05 Takuji Tanaka <KXD02663@nifty.ne.jp> - - * updvitype.ch: show encoding in the banner. - -2011-08-29 Peter Breitenlohner <peb@mppmu.mpg.de> - - * kanji.h, uptex.defines: Remove setptexencuptex. - * upbibtex.ch: Use nil, not 0 as arg of set_enc_string(). - - * uptex-m.ch: Add dump_kanji and undump_kanji. - * uptex.defines: Add dumpkanji and undumpkanji. - * kanji.c: Factor out init_kanji(). - * kanji_dump.c: New file for dumping/undumping kanji encoding. - * kanji.h: Add init_kanji(), dump_kanji(), and undump_kanji(). - * am/uptex.am (libukanji_a_SOURCES): Add kanji_dump.c. - -2011-08-24 Peter Breitenlohner <peb@mppmu.mpg.de> - - Imported upTeX into TeX Live, based on the W32TeX version - from Akira Kakuto <kakuto@fuk.kindai.ac.jp> - and on the TL patches in tlsvn23478-uptex-1108111825.tar.xz - from Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>. diff --git a/Build/source/texk/web2c/uptexdir/am/uptex.am b/Build/source/texk/web2c/uptexdir/am/uptex.am deleted file mode 100644 index 8db4c4b8dcf..00000000000 --- a/Build/source/texk/web2c/uptexdir/am/uptex.am +++ /dev/null @@ -1,228 +0,0 @@ -## texk/web2c/uptexdir/am/uptex.am: Makefile fragment for upTeX. -## -## Copyright 2016-2021 Karl Berry <tex-live@tug.org> -## Copyright 2011-2015 Peter Breitenlohner <tex-live@tug.org> -## You may freely use, modify and/or distribute this file. - -uptex_cppflags = $(PTEXENC_INCLUDES) $(AM_CPPFLAGS) $(ZLIB_INCLUDES) -uptex_ldadd = libukanji.a $(pproglib) $(PTEXENC_LIBS) $(LDADD) $(ZLIB_LIBS) -uptex_dependencies = libukanji.a $(pproglib) $(PTEXENC_DEPEND) $(ZLIB_DEPEND) $(default_dependencies) -up_tangle = $(tangle_silent)WEBINPUTS=.:$(srcdir)/uptexdir:$(srcdir) $(buildenv) $(TANGLE) - -upweb_programs = upbibtex updvitype uppltotf uptftopl - -## libukanji.a for upTeX and e-upTeX -## -EXTRA_LIBRARIES += libukanji.a -libukanji_a_SOURCES = uptexdir/kanji.c uptexdir/kanji.h uptexdir/kanji_dump.c -libukanji_a_CPPFLAGS = $(uptex_cppflags) - -## upTeX -## -if UPTEX -bin_PROGRAMS += uptex -endif UPTEX -if UPWEB -bin_PROGRAMS += $(upweb_programs) -endif UPWEB -EXTRA_PROGRAMS += uptex $(upweb_programs) - -uptex_CPPFLAGS = $(uptex_cppflags) - -# With --enable-ipc, upTeX may need to link with -lsocket. -uptex_LDADD = $(uptex_ldadd) $(ipc_socketlibs) -uptex_DEPENDENCIES = $(uptex_dependencies) - -# upTeX C sources -uptex_c_h = uptexini.c uptex0.c uptexcoerce.h uptexd.h -nodist_uptex_SOURCES = $(uptex_c_h) uptex-pool.c -dist_uptex_SOURCES = uptexdir/uptexextra.c uptexdir/uptexextra.h uptexdir/uptex_version.h - -# We must create uptexd.h and uptexdir/uptex_version.h before building the uptex_OBJECTS. -uptex_prereq = uptexd.h ptexdir/ptex_version.h uptexdir/uptex_version.h -$(uptex_OBJECTS): $(uptex_prereq) - -$(uptex_c_h): uptex-web2c - @$(web2c) uptex -uptex-web2c: uptex.p $(web2c_texmf) uptexdir/uptex.defines - @$(web2c) uptex - -uptex-pool.c: uptex.pool uptexd.h $(makecpool_stamp) - $(makecpool) uptex >$@ || rm -f $@ - -# Tangling upTeX -uptex.p uptex.pool: uptex-tangle - @$(texmf_tangle) uptex uptex -uptex-tangle: tangle$(EXEEXT) uptex.web uptex.ch tangle-sh - @$(texmf_tangle) uptex uptex - -# Extract uptex version -$(srcdir)/uptexdir/uptex_version.h: @MAINTAINER_MODE_TRUE@ uptexdir/uptex-m.ch - $(AM_V_GEN)grep '^@d upTeX_version_string==' $(srcdir)/uptexdir/uptex-m.ch \ - | sed "s/^.*'-/#define UPTEX_VERSION \"/;s/'.*$$/\"/" >$@ - -# Generate uptex.web -uptex.web: tie$(EXEEXT) $(uptex_web_srcs) - $(tie_m) $(uptex_web_srcs) -uptex_web_srcs = \ - tex.web \ - tex.ch \ - tracingstacklevels.ch \ - zlib-fmt.ch - -# Generate uptex.ch -uptex.ch: tie$(EXEEXT) uptex.web $(uptex_ch_srcs) - $(tie_c) uptex.web $(uptex_ch_srcs) -uptex_ch_srcs = \ - ptexdir/ptex-base.ch \ - uptexdir/uptex-m.ch \ - $(uptex_ch_synctex) \ - tex-binpool.ch - -EXTRA_DIST += $(uptex_web_srcs) $(uptex_ch_srcs) uptexdir/uptex.defines - -DISTCLEANFILES += $(nodist_uptex_SOURCES) uptex.web uptex.ch uptex-web2c \ - uptex.p uptex.pool uptex-tangle - -## upBibTeX -## -nodist_upbibtex_SOURCES = upbibtex.c upbibtex.h -upbibtex_SOURCES = uptexdir/kanji.h -upbibtex_CPPFLAGS = $(uptex_cppflags) -upbibtex_LDADD = $(uptex_ldadd) -upbibtex_DEPENDENCIES = $(uptex_dependencies) -upbibtex.c upbibtex.h: upbibtex-web2c - @$(web2c) upbibtex -upbibtex-web2c: upbibtex.p $(web2c_depend) uptexdir/uptex.defines web2c/cvtbib.sed - @$(web2c) upbibtex -upbibtex.p: tangle$(EXEEXT) upbibtex.web uptexdir/upbibtex.ch - $(up_tangle) upbibtex upbibtex -upbibtex.web: tie$(EXEEXT) bibtex.web bibtex.ch ptexdir/pbibtex.ch - $(tie_m) bibtex.web bibtex.ch ptexdir/pbibtex.ch -EXTRA_DIST += ptexdir/pbibtex.ch uptexdir/upbibtex.ch - -## upDVItype -## -nodist_updvitype_SOURCES = updvitype.c updvitype.h -updvitype_SOURCES = uptexdir/kanji.h -updvitype_CPPFLAGS = $(uptex_cppflags) -DHEX_CHAR_CODE -updvitype_LDADD = $(uptex_ldadd) -updvitype_DEPENDENCIES = $(uptex_dependencies) -updvitype.c updvitype.h: updvitype-web2c - @$(web2c) updvitype -updvitype-web2c: updvitype.p $(web2c_depend) uptexdir/uptex.defines - @$(web2c) updvitype -updvitype.p: tangle$(EXEEXT) updvitype.web uptexdir/updvitype.ch - $(up_tangle) updvitype updvitype -updvitype.web: tie$(EXEEXT) dvitype.web dvitype.ch ptexdir/pdvitype.ch - $(tie_m) dvitype.web dvitype.ch ptexdir/pdvitype.ch -EXTRA_DIST += ptexdir/pdvitype.ch uptexdir/updvitype.ch - -## upPLtoTF -## -nodist_uppltotf_SOURCES = uppltotf.c uppltotf.h -uppltotf_SOURCES = uptexdir/kanji.h -uppltotf_CPPFLAGS = $(uptex_cppflags) -DPRESERVE_PUTC -uppltotf_LDADD = $(uptex_ldadd) -uppltotf_DEPENDENCIES = $(uptex_dependencies) -uppltotf.c uppltotf.h: uppltotf-web2c - @$(web2c) uppltotf -uppltotf-web2c: uppltotf.p $(web2c_depend) uptexdir/uptex.defines - @$(web2c) uppltotf -uppltotf.p: tangle$(EXEEXT) uppltotf.web uptexdir/uppltotf.ch - $(up_tangle) uppltotf uppltotf -uppltotf.web: tie$(EXEEXT) pltotf.web pltotf.ch ptexdir/ppltotf.ch - $(tie_m) pltotf.web pltotf.ch ptexdir/ppltotf.ch -EXTRA_DIST += ptexdir/ppltotf.ch uptexdir/uppltotf.ch - -## upTFtoPL -## -nodist_uptftopl_SOURCES = uptftopl.c uptftopl.h -uptftopl_SOURCES = uptexdir/kanji.h -uptftopl_CPPFLAGS = $(uptex_cppflags) -uptftopl_LDADD = $(uptex_ldadd) -uptftopl_DEPENDENCIES = $(uptex_dependencies) -uptftopl.c uptftopl.h: uptftopl-web2c - @$(web2c) uptftopl -uptftopl-web2c: uptftopl.p $(web2c_depend) uptexdir/uptex.defines - @$(web2c) uptftopl -uptftopl.p: tangle$(EXEEXT) uptftopl.web uptexdir/uptftopl.ch - $(up_tangle) uptftopl uptftopl -uptftopl.web: tie$(EXEEXT) tftopl.web tftopl.ch ptexdir/ptftopl.ch - $(tie_m) tftopl.web tftopl.ch ptexdir/ptftopl.ch -EXTRA_DIST += ptexdir/ptftopl.ch uptexdir/uptftopl.ch - -## -EXTRA_DIST += \ - uptexdir/COPYRIGHT \ - uptexdir/COPYRIGHT.jis \ - uptexdir/ChangeLog - -# upTeX Tests -uptex_tests = uptexdir/uptriptest.test uptexdir/upver.test -uptexdir/uptriptest.log: uptex$(EXEEXT) dvitype$(EXEEXT) pltotf$(EXEEXT) tftopl$(EXEEXT) -uptexdir/upver.log: uptex$(EXEEXT) -upweb_tests = \ - uptexdir/upbibtex.test \ - uptexdir/updvitype.test \ - uptexdir/uppltotf.test \ - uptexdir/uptftopl.test \ - uptexdir/yokotate.test \ - uptexdir/newjfm.test \ - uptexdir/uparse.test \ - uptexdir/gkhuge.test -uptexdir/upbibtex.log: upbibtex$(EXEEXT) -uptexdir/updvitype.log: updvitype$(EXEEXT) -uptexdir/uppltotf.log: uppltotf$(EXEEXT) -uptexdir/uptftopl.log: uptftopl$(EXEEXT) -uptexdir/yokotate.log: uppltotf$(EXEEXT) uptftopl$(EXEEXT) -uptexdir/newjfm.log: uppltotf$(EXEEXT) uptftopl$(EXEEXT) -uptexdir/uparse.log: uppltotf$(EXEEXT) uptftopl$(EXEEXT) -uptexdir/gkhuge.log: uppltotf$(EXEEXT) uptftopl$(EXEEXT) - -EXTRA_DIST += $(uptex_tests) $(upweb_tests) -DISTCLEANFILES += $(upweb_programs:=.c) $(upweb_programs:=.h) \ - $(upweb_programs:=.p) $(upweb_programs:=-web2c) $(upweb_programs:=.web) - -if UPTEX -TESTS += $(uptex_tests) -TRIPTRAP += uptrip.diffs -TRIPTRAP_CLEAN += uptrip-clean -endif UPTEX -if UPWEB -TESTS += $(upweb_tests) -endif UPWEB - -## Test data and results -## -## uptexdir/upbibtex.test -DISTCLEANFILES += uptests/xexampl.aux uptests/xexampl.bbl uptests/xexampl.blg -## uptexdir/updvitype.test -DISTCLEANFILES += uptests/xstory.dvityp uptests/xpagenum.typ -## uptexdir/uppltotf.test -DISTCLEANFILES += uptests/xcmr10.tfm -## uptexdir/uptftopl.test -DISTCLEANFILES += uptests/xcmr10.pl -## uptexdir/yokotate.test -EXTRA_DIST += uptexdir/tests/umin10.pl uptexdir/tests/umin10.tfm -EXTRA_DIST += uptexdir/tests/utmin10.pl uptexdir/tests/utmin10.tfm -DISTCLEANFILES += uptests/x*min10.* -## uptexdir/newjfm.test -EXTRA_DIST += uptexdir/tests/testnewu.pl uptexdir/tests/testnewu.tfm -DISTCLEANFILES += uptests/xtestnewu.* -## uptexdir/uparse.test -EXTRA_DIST += uptexdir/tests/uparse.pl uptexdir/tests/uparse.tfm -DISTCLEANFILES += uptests/xuparse.* uptests/yuparse.* -## uptexdir/gkhuge.test -EXTRA_DIST += uptexdir/tests/gkhugeok.tfm uptexdir/tests/gkhugeng.tfm uptexdir/tests/gkhugeng.err -DISTCLEANFILES += uptests/ygkhuge*.* -## uptexdir/uptriptest -EXTRA_DIST += uptexdir/uptrip/uptrip.diffs uptexdir/uptrip/texmf.cnf -uptrip.diffs: uptex$(EXEEXT) dvitype$(EXEEXT) pltotf$(EXEEXT) tftopl$(EXEEXT) - $(triptrap_diffs) $@ -.PHONY: uptrip-clean -uptrip-clean: - rm -rf uptripdir - -DISTCLEANFILES += uptrip.diffs - diff --git a/Build/source/texk/web2c/uptexdir/gkhuge.test b/Build/source/texk/web2c/uptexdir/gkhuge.test deleted file mode 100755 index d85c8d238dd..00000000000 --- a/Build/source/texk/web2c/uptexdir/gkhuge.test +++ /dev/null @@ -1,38 +0,0 @@ -#! /bin/sh -vx -# $Id$ -# Copyright 2018 Karl Berry <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -test -d uptests || mkdir -p uptests - -TEXMFCNF=$srcdir/../kpathsea -export TEXMFCNF - -# Test inputs -testdir=$srcdir/uptexdir/tests - -# Testing upPLtoTF/upTFtoPL for huge GLUEKERN table -# with rearrangement. -for font in gkhugeok; do - - # This test is constructed as a cycle, since JPL source - # of gkhugeok.tfm is so large. - ./uptftopl -verbose $testdir/$font.tfm uptests/y$font.pl && \ - ./uppltotf -verbose uptests/y$font.pl uptests/y$font.tfm && \ - cmp $testdir/$font.tfm uptests/y$font.tfm && echo || exit 1 - -done - -for font in gkhugeng; do - - # Fifth byte of the JFM (= lf; length of the whole file) - # must not exceed 2^{15}-1; check that and exit with an - # error message, instead of trying to allocate too much. - # The invalid gkhugeng.tfm was erroneously created before - # web2c/pltotf.ch change 2017-09-10, due to overflow - ./uptftopl $testdir/$font.tfm uptests/y$font.pl \ - 2>uptests/y$font.err && exit 1 || echo - diff $testdir/$font.err uptests/y$font.err && echo || exit 1 - -done - diff --git a/Build/source/texk/web2c/uptexdir/kanji.c b/Build/source/texk/web2c/uptexdir/kanji.c deleted file mode 100644 index 1149c838908..00000000000 --- a/Build/source/texk/web2c/uptexdir/kanji.c +++ /dev/null @@ -1,542 +0,0 @@ -/* - * KANJI Code conversion routines. - * (for upTeX and e-upTeX) - */ - -#include "kanji.h" - -#define CS_TOKEN_FLAG 0x1FFFFFFF -#define CJK_CHAR_LIMIT 0x1000000 -#define CJK_TOKEN_FLAG 0xFFFFFF -#define KCAT_KANJI 16 -#define KCAT_HANGUL 19 - -/* TOKEN */ -boolean check_kanji (integer c) -{ - if (c >= CS_TOKEN_FLAG) return false; - else if (!(XXHi(c)>=KCAT_KANJI && XXHi(c)<=KCAT_HANGUL)) return false; - else return is_char_kanji(c); -} - -boolean is_char_ascii(integer c) -{ - return (0 <= c && c < 0x100); -} - -boolean is_char_kanji(integer c) -{ - if (is_internalUPTEX()) - return (c >= 0); - else - return iskanji1(Hi(c)) && iskanji2(Lo(c)); -} - -boolean ismultiprn(integer c) -{ - int i, j; - - for (i=2; i<=4; i++) for (j=1; j<=i; j++) { - if (ismultichr(i,j,c)) return true; - } - return false; -} - -integer calc_pos(integer c) -{ - unsigned char c1, c2; - - if(c>=0 && c<=255) return(c); - c1 = Hi(c); - c2 = Lo(c); - - c1 = (c1 % 4) * 64; /* c1 = 0, 64, 128, 192 */ - c2 = c2 % 64; /* c2 = 0..63 */ - return(c1 + c2); /* ret = 0..255 */ -} - -/* Ref. http://www.unicode.org/Public/UNIDATA/Blocks.txt */ -/* # Blocks-13.0.0.txt */ -/* # Date: 2019-07-10, 19:06:00 GMT [KW] */ -static long ucs_range[]={ - 0x0000, /* Basic Latin */ /* 0x00 */ - 0x0080, /* Latin-1 Supplement */ - 0x0100, /* Latin Extended-A */ - 0x0180, /* Latin Extended-B */ - 0x0250, /* IPA Extensions */ - 0x02B0, /* Spacing Modifier Letters */ - 0x0300, /* Combining Diacritical Marks */ - 0x0370, /* Greek and Coptic */ - 0x0400, /* Cyrillic */ - 0x0500, /* Cyrillic Supplement */ - 0x0530, /* Armenian */ - 0x0590, /* Hebrew */ - 0x0600, /* Arabic */ - 0x0700, /* Syriac */ - 0x0750, /* Arabic Supplement */ - 0x0780, /* Thaana */ - 0x07C0, /* NKo */ /* 0x10 */ - 0x0800, /* Samaritan */ - 0x0840, /* Mandaic */ - 0x0860, /* Syriac Supplement */ - 0x08A0, /* Arabic Extended-A */ - 0x0900, /* Devanagari */ - 0x0980, /* Bengali */ - 0x0A00, /* Gurmukhi */ - 0x0A80, /* Gujarati */ - 0x0B00, /* Oriya */ - 0x0B80, /* Tamil */ - 0x0C00, /* Telugu */ - 0x0C80, /* Kannada */ - 0x0D00, /* Malayalam */ - 0x0D80, /* Sinhala */ - 0x0E00, /* Thai */ - 0x0E80, /* Lao */ /* 0x20 */ - 0x0F00, /* Tibetan */ - 0x1000, /* Myanmar */ - 0x10A0, /* Georgian */ - 0x1100, /* Hangul Jamo */ - 0x1200, /* Ethiopic */ - 0x1380, /* Ethiopic Supplement */ - 0x13A0, /* Cherokee */ - 0x1400, /* Unified Canadian Aboriginal Syllabics */ - 0x1680, /* Ogham */ - 0x16A0, /* Runic */ - 0x1700, /* Tagalog */ - 0x1720, /* Hanunoo */ - 0x1740, /* Buhid */ - 0x1760, /* Tagbanwa */ - 0x1780, /* Khmer */ - 0x1800, /* Mongolian */ /* 0x30 */ - 0x18B0, /* Unified Canadian Aboriginal Syllabics Extended */ - 0x1900, /* Limbu */ - 0x1950, /* Tai Le */ - 0x1980, /* New Tai Lue */ - 0x19E0, /* Khmer Symbols */ - 0x1A00, /* Buginese */ - 0x1A20, /* Tai Tham */ - 0x1AB0, /* Combining Diacritical Marks Extended */ - 0x1B00, /* Balinese */ - 0x1B80, /* Sundanese */ - 0x1BC0, /* Batak */ - 0x1C00, /* Lepcha */ - 0x1C50, /* Ol Chiki */ - 0x1C80, /* Cyrillic Extended-C */ - 0x1C90, /* Georgian Extended */ - 0x1CC0, /* Sundanese Supplement */ /* 0x40 */ - 0x1CD0, /* Vedic Extensions */ - 0x1D00, /* Phonetic Extensions */ - 0x1D80, /* Phonetic Extensions Supplement */ - 0x1DC0, /* Combining Diacritical Marks Supplement */ - 0x1E00, /* Latin Extended Additional */ - 0x1F00, /* Greek Extended */ - 0x2000, /* General Punctuation */ - 0x2070, /* Superscripts and Subscripts */ - 0x20A0, /* Currency Symbols */ - 0x20D0, /* Combining Diacritical Marks for Symbols */ - 0x2100, /* Letterlike Symbols */ - 0x2150, /* Number Forms */ - 0x2190, /* Arrows */ - 0x2200, /* Mathematical Operators */ - 0x2300, /* Miscellaneous Technical */ - 0x2400, /* Control Pictures */ /* 0x50 */ - 0x2440, /* Optical Character Recognition */ - 0x2460, /* Enclosed Alphanumerics */ - 0x2500, /* Box Drawing */ - 0x2580, /* Block Elements */ - 0x25A0, /* Geometric Shapes */ - 0x2600, /* Miscellaneous Symbols */ - 0x2700, /* Dingbats */ - 0x27C0, /* Miscellaneous Mathematical Symbols-A */ - 0x27F0, /* Supplemental Arrows-A */ - 0x2800, /* Braille Patterns */ - 0x2900, /* Supplemental Arrows-B */ - 0x2980, /* Miscellaneous Mathematical Symbols-B */ - 0x2A00, /* Supplemental Mathematical Operators */ - 0x2B00, /* Miscellaneous Symbols and Arrows */ - 0x2C00, /* Glagolitic */ - 0x2C60, /* Latin Extended-C */ /* 0x60 */ - 0x2C80, /* Coptic */ - 0x2D00, /* Georgian Supplement */ - 0x2D30, /* Tifinagh */ - 0x2D80, /* Ethiopic Extended */ - 0x2DE0, /* Cyrillic Extended-A */ - 0x2E00, /* Supplemental Punctuation */ - 0x2E80, /* CJK Radicals Supplement */ - 0x2F00, /* Kangxi Radicals */ - 0x2FF0, /* Ideographic Description Characters */ - 0x3000, /* CJK Symbols and Punctuation */ - 0x3040, /* Hiragana */ - 0x30A0, /* Katakana */ - 0x3100, /* Bopomofo */ - 0x3130, /* Hangul Compatibility Jamo */ - 0x3190, /* Kanbun */ - 0x31A0, /* Bopomofo Extended */ /* 0x70 */ - 0x31C0, /* CJK Strokes */ - 0x31F0, /* Katakana Phonetic Extensions */ - 0x3200, /* Enclosed CJK Letters and Months */ - 0x3300, /* CJK Compatibility */ - 0x3400, /* CJK Unified Ideographs Extension A */ - 0x4DC0, /* Yijing Hexagram Symbols */ - 0x4E00, /* CJK Unified Ideographs */ - 0xA000, /* Yi Syllables */ - 0xA490, /* Yi Radicals */ - 0xA4D0, /* Lisu */ - 0xA500, /* Vai */ - 0xA640, /* Cyrillic Extended-B */ - 0xA6A0, /* Bamum */ - 0xA700, /* Modifier Tone Letters */ - 0xA720, /* Latin Extended-D */ - 0xA800, /* Syloti Nagri */ /* 0x80 */ - 0xA830, /* Common Indic Number Forms */ - 0xA840, /* Phags-pa */ - 0xA880, /* Saurashtra */ - 0xA8E0, /* Devanagari Extended */ - 0xA900, /* Kayah Li */ - 0xA930, /* Rejang */ - 0xA960, /* Hangul Jamo Extended-A */ - 0xA980, /* Javanese */ - 0xA9E0, /* Myanmar Extended-B */ - 0xAA00, /* Cham */ - 0xAA60, /* Myanmar Extended-A */ - 0xAA80, /* Tai Viet */ - 0xAAE0, /* Meetei Mayek Extensions */ - 0xAB00, /* Ethiopic Extended-A */ - 0xAB30, /* Latin Extended-E */ - 0xAB70, /* Cherokee Supplement */ /* 0x90 */ - 0xABC0, /* Meetei Mayek */ - 0xAC00, /* Hangul Syllables */ - 0xD7B0, /* Hangul Jamo Extended-B */ - 0xD800, /* High Surrogates */ - 0xDB80, /* High Private Use Surrogates */ - 0xDC00, /* Low Surrogates */ - 0xE000, /* Private Use Area */ - 0xF900, /* CJK Compatibility Ideographs */ - 0xFB00, /* Alphabetic Presentation Forms */ - 0xFB50, /* Arabic Presentation Forms-A */ - 0xFE00, /* Variation Selectors */ - 0xFE10, /* Vertical Forms */ - 0xFE20, /* Combining Half Marks */ - 0xFE30, /* CJK Compatibility Forms */ - 0xFE50, /* Small Form Variants */ - 0xFE70, /* Arabic Presentation Forms-B */ /* 0xa0 */ - 0xFF00, /* Halfwidth and Fullwidth Forms */ - 0xFFF0, /* Specials */ - 0x10000, /* Linear B Syllabary */ - 0x10080, /* Linear B Ideograms */ - 0x10100, /* Aegean Numbers */ - 0x10140, /* Ancient Greek Numbers */ - 0x10190, /* Ancient Symbols */ - 0x101D0, /* Phaistos Disc */ - 0x10280, /* Lycian */ - 0x102A0, /* Carian */ - 0x102E0, /* Coptic Epact Numbers */ - 0x10300, /* Old Italic */ - 0x10330, /* Gothic */ - 0x10350, /* Old Permic */ - 0x10380, /* Ugaritic */ - 0x103A0, /* Old Persian */ /* 0xb0 */ - 0x10400, /* Deseret */ - 0x10450, /* Shavian */ - 0x10480, /* Osmanya */ - 0x104B0, /* Osage */ - 0x10500, /* Elbasan */ - 0x10530, /* Caucasian Albanian */ - 0x10600, /* Linear A */ - 0x10800, /* Cypriot Syllabary */ - 0x10840, /* Imperial Aramaic */ - 0x10860, /* Palmyrene */ - 0x10880, /* Nabataean */ - 0x108E0, /* Hatran */ - 0x10900, /* Phoenician */ - 0x10920, /* Lydian */ - 0x10980, /* Meroitic Hieroglyphs */ - 0x109A0, /* Meroitic Cursive */ /* 0xc0 */ - 0x10A00, /* Kharoshthi */ - 0x10A60, /* Old South Arabian */ - 0x10A80, /* Old North Arabian */ - 0x10AC0, /* Manichaean */ - 0x10B00, /* Avestan */ - 0x10B40, /* Inscriptional Parthian */ - 0x10B60, /* Inscriptional Pahlavi */ - 0x10B80, /* Psalter Pahlavi */ - 0x10C00, /* Old Turkic */ - 0x10C80, /* Old Hungarian */ - 0x10D00, /* Hanifi Rohingya */ - 0x10E60, /* Rumi Numeral Symbols */ - 0x10E80, /* Yezidi */ - 0x10F00, /* Old Sogdian */ - 0x10F30, /* Sogdian */ - 0x10FB0, /* Chorasmian */ /* 0xd0 */ - 0x10FE0, /* Elymaic */ - 0x11000, /* Brahmi */ - 0x11080, /* Kaithi */ - 0x110D0, /* Sora Sompeng */ - 0x11100, /* Chakma */ - 0x11150, /* Mahajani */ - 0x11180, /* Sharada */ - 0x111E0, /* Sinhala Archaic Numbers */ - 0x11200, /* Khojki */ - 0x11280, /* Multani */ - 0x112B0, /* Khudawadi */ - 0x11300, /* Grantha */ - 0x11400, /* Newa */ - 0x11480, /* Tirhuta */ - 0x11580, /* Siddham */ - 0x11600, /* Modi */ /* 0xe0 */ - 0x11660, /* Mongolian Supplement */ - 0x11680, /* Takri */ - 0x11700, /* Ahom */ - 0x11800, /* Dogra */ - 0x118A0, /* Warang Citi */ - 0x11900, /* Dives Akuru */ - 0x119A0, /* Nandinagari */ - 0x11A00, /* Zanabazar Square */ - 0x11A50, /* Soyombo */ - 0x11AC0, /* Pau Cin Hau */ - 0x11C00, /* Bhaiksuki */ - 0x11C70, /* Marchen */ - 0x11D00, /* Masaram Gondi */ - 0x11D60, /* Gunjala Gondi */ - 0x11EE0, /* Makasar */ - 0x11FB0, /* Lisu Supplement */ /* 0xf0 */ - 0x11FC0, /* Tamil Supplement */ - 0x12000, /* Cuneiform */ - 0x12400, /* Cuneiform Numbers and Punctuation */ - 0x12480, /* Early Dynastic Cuneiform */ - 0x13000, /* Egyptian Hieroglyphs */ - 0x13430, /* Egyptian Hieroglyph Format Controls */ - 0x14400, /* Anatolian Hieroglyphs */ - 0x16800, /* Bamum Supplement */ - 0x16A40, /* Mro */ - 0x16AD0, /* Bassa Vah */ - 0x16B00, /* Pahawh Hmong */ - 0x16E40, /* Medefaidrin */ - 0x16F00, /* Miao */ - 0x16FE0, /* Ideographic Symbols and Punctuation */ - 0x17000, /* Tangut */ - 0x18800, /* Tangut Components */ /* 0x100 */ - 0x18B00, /* Khitan Small Script */ - 0x18D00, /* Tangut Supplement */ - 0x1B000, /* Kana Supplement */ - 0x1B100, /* Kana Extended-A */ - 0x1B130, /* Small Kana Extension */ - 0x1B170, /* Nushu */ - 0x1BC00, /* Duployan */ - 0x1BCA0, /* Shorthand Format Controls */ - 0x1D000, /* Byzantine Musical Symbols */ - 0x1D100, /* Musical Symbols */ - 0x1D200, /* Ancient Greek Musical Notation */ - 0x1D2E0, /* Mayan Numerals */ - 0x1D300, /* Tai Xuan Jing Symbols */ - 0x1D360, /* Counting Rod Numerals */ - 0x1D400, /* Mathematical Alphanumeric Symbols */ - 0x1D800, /* Sutton SignWriting */ /* 0x110 */ - 0x1E000, /* Glagolitic Supplement */ - 0x1E100, /* Nyiakeng Puachue Hmong */ - 0x1E2C0, /* Wancho */ - 0x1E800, /* Mende Kikakui */ - 0x1E900, /* Adlam */ - 0x1EC70, /* Indic Siyaq Numbers */ - 0x1ED00, /* Ottoman Siyaq Numbers */ - 0x1EE00, /* Arabic Mathematical Alphabetic Symbols */ - 0x1F000, /* Mahjong Tiles */ - 0x1F030, /* Domino Tiles */ - 0x1F0A0, /* Playing Cards */ - 0x1F100, /* Enclosed Alphanumeric Supplement */ - 0x1F200, /* Enclosed Ideographic Supplement */ - 0x1F300, /* Miscellaneous Symbols and Pictographs */ - 0x1F600, /* Emoticons */ - 0x1F650, /* Ornamental Dingbats */ /* 0x120 */ - 0x1F680, /* Transport and Map Symbols */ - 0x1F700, /* Alchemical Symbols */ - 0x1F780, /* Geometric Shapes Extended */ - 0x1F800, /* Supplemental Arrows-C */ - 0x1F900, /* Supplemental Symbols and Pictographs */ - 0x1FA00, /* Chess Symbols */ - 0x1FA70, /* Symbols and Pictographs Extended-A */ - 0x1FB00, /* Symbols for Legacy Computing */ - 0x20000, /* CJK Unified Ideographs Extension B */ - 0x2A700, /* CJK Unified Ideographs Extension C */ - 0x2B740, /* CJK Unified Ideographs Extension D */ - 0x2B820, /* CJK Unified Ideographs Extension E */ - 0x2CEB0, /* CJK Unified Ideographs Extension F */ - 0x2F800, /* CJK Compatibility Ideographs Supplement */ - 0x30000, /* CJK Unified Ideographs Extension G */ - 0x31350, /* reserved */ /* 0x130 */ - 0x40000, /* reserved */ - 0x50000, /* reserved */ - 0x60000, /* reserved */ - 0x70000, /* reserved */ - 0x80000, /* reserved */ - 0x90000, /* reserved */ - 0xA0000, /* reserved */ - 0xB0000, /* reserved */ - 0xC0000, /* reserved */ - 0xD0000, /* reserved */ - 0xE0000, /* Tags */ - 0xE0100, /* Variation Selectors Supplement */ - 0xF0000, /* Supplementary Private Use Area-A */ - 0x100000, /* Supplementary Private Use Area-B */ - /* Value over 0x10FFFF is illegal under Unicode, - They are for some special use. *** experimental *** */ - 0x110000, /* Reserved */ - 0x120000, /* Reserved */ /* 0x140 */ - 0x130000, /* Reserved */ - 0x140000, /* Reserved */ - 0x150000, /* Reserved */ - 0x160000, /* Reserved */ - 0x170000, /* Reserved */ - 0x180000, /* Reserved */ - 0x190000, /* Reserved */ - 0x1A0000, /* Reserved */ - 0x1B0000, /* Reserved */ - 0x1C0000, /* Reserved */ - 0x1D0000, /* Reserved */ - 0x1E0000, /* Reserved */ - 0x1F0000, /* Reserved */ - 0x200000, /* Reserved */ - 0x210000, /* Reserved */ - 0x220000, /* Reserved */ /* 0x150 */ - CJK_CHAR_LIMIT -}; - -#define NUCS_RANGE (sizeof(ucs_range)/sizeof(ucs_range[0])) - -/* Return i, which satisfies a[i] <= x < a[i+1]. */ -/* 'i' is serached between left <= i <= right. */ -/* If no i satisfies such condition, return left-1. */ -/* [Okumura et al.] An algorithm encyclopedia in Java, p.236. */ -static int -binary_search (long x, long *a, int left, int right) -{ - right++; - while (left < right) { - int mid = (left + right) / 2; - if (a[mid] <= x ) left = mid + 1; - else right = mid; - } - return left - 1; -} - -#define FEMININE_ORDINAL_INDICATOR 0x00AA -#define MASCULINE_ORDINAL_INDICATOR 0x00BA -#define LATIN_CAPITAL_LETTER_A_WITH_GRAVE 0x00C0 -#define LATIN_CAPITAL_LETTER_O_WITH_DIAERESIS 0x00D6 -#define LATIN_CAPITAL_LETTER_O_WITH_STROKE 0x00D8 -#define LATIN_SMALL_LETTER_O_WITH_DIAERESIS 0x00F6 -#define LATIN_SMALL_LETTER_O_WITH_STROKE 0x00F8 -#define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS 0x00FF -#define FULLWIDTH_DIGIT_0 0xFF10 -#define FULLWIDTH_DIGIT_9 0xFF19 -#define FULLWIDTH_CAPITAL_A 0xFF21 -#define FULLWIDTH_CAPITAL_Z 0xFF3A -#define FULLWIDTH_SMALL_A 0xFF41 -#define FULLWIDTH_SMALL_Z 0xFF5A -#define HALFWIDTH_KATAKANA_WO 0xFF66 -#define HALFWIDTH_KATAKANA_SMALL_TSU 0xFF6F -#define HALFWIDTH_KATAKANA_A 0xFF71 -#define HALFWIDTH_KATAKANA_N 0xFF9D - -integer kcatcodekey(integer c) -{ - integer block; - if (is_internalUPTEX()) { - block = binary_search((long)c, ucs_range, 0, NUCS_RANGE-1); - if (block==0x01) { - /* Latin-1 Letters */ - if ( FEMININE_ORDINAL_INDICATOR ==c - || MASCULINE_ORDINAL_INDICATOR==c - || (LATIN_CAPITAL_LETTER_A_WITH_GRAVE <=c && c<=LATIN_CAPITAL_LETTER_O_WITH_DIAERESIS) - || (LATIN_CAPITAL_LETTER_O_WITH_STROKE<=c && c<=LATIN_SMALL_LETTER_O_WITH_DIAERESIS ) - || (LATIN_SMALL_LETTER_O_WITH_STROKE <=c && c<=LATIN_SMALL_LETTER_Y_WITH_DIAERESIS ) ) - return 0x1FD; - } - if (block==0xa1) { - /* Fullwidth ASCII variants except for U+FF01..FF0F, U+FF1A..FF20, U+FF3B..FF40, U+FF5B..FF5E */ - if ( (FULLWIDTH_DIGIT_0 <=c && c<=FULLWIDTH_DIGIT_9 ) - || (FULLWIDTH_CAPITAL_A<=c && c<=FULLWIDTH_CAPITAL_Z) - || (FULLWIDTH_SMALL_A <=c && c<=FULLWIDTH_SMALL_Z ) ) - return 0x1FE; - /* Halfwidth Katakana variants except for U+FF65, U+FF70, U+FF9E..FF9F */ - if ( (HALFWIDTH_KATAKANA_WO <=c && c<=HALFWIDTH_KATAKANA_SMALL_TSU ) - || (HALFWIDTH_KATAKANA_A <=c && c<=HALFWIDTH_KATAKANA_N ) ) - return 0x1FF; - } - return block; - } else { - return Hi(toDVI(c)); - } -} - -integer multilenbuffchar(integer c) -{ - c=toBUFF(c); - if (BYTE1(c)) return 4; - if (BYTE2(c)) return 3; - if (BYTE3(c)) return 2; - if (BYTE4(c)) return 1; - return 0; -} - -void init_kanji (const_string file_str, const_string internal_str) -{ - if (!set_enc_string (file_str, internal_str)) { - fprintf (stderr, "Bad kanji encoding \"%s\" or \"%s\".\n", - file_str ? file_str : "NULL", - internal_str ? internal_str : "NULL"); - uexit(1); - } -} - -void init_default_kanji (const_string file_str, const_string internal_str) -{ - char *p; - - init_kanji (file_str, internal_str); - - p = getenv ("PTEX_KANJI_ENC"); - if (p) { - if (!set_enc_string (p, NULL)) - fprintf (stderr, "Ignoring bad kanji encoding \"%s\".\n", p); - } - -#ifdef WIN32 - p = kpse_var_value ("guess_input_kanji_encoding"); - if (p) { - if (*p == '1' || *p == 'y' || *p == 't') - infile_enc_auto = 1; - free(p); - } -#endif -} - -void init_default_kanji_select(void) -{ - char *base; - - base = kpse_program_basename (argv[0]); - - if (FILESTRNCASEEQ(base, "p", 1) || FILESTRNCASEEQ(base, "ep", 2)) { - - enable_UPTEX (false); /* disable */ -#if defined(WIN32) -/* pBibTeX is EUC only */ - if (FILESTRNCASEEQ(base, "pbibtex", 7)) { - init_default_kanji(NULL, "euc"); - } else { -/* for pTeX, e-pTeX, pDVItype, pPLtoTF, and pTFtoPL */ - init_default_kanji(NULL, "sjis"); - } -#else - init_default_kanji(NULL, "euc"); -#endif - - } else { - -/* for upTeX, e-upTeX, upBibTeX, upDVItype, upPLtoTF, and upTFtoPL */ - enable_UPTEX (true); /* enable */ - init_default_kanji ("utf8", "uptex"); - - } -} diff --git a/Build/source/texk/web2c/uptexdir/kanji.h b/Build/source/texk/web2c/uptexdir/kanji.h deleted file mode 100644 index 601e88d81f6..00000000000 --- a/Build/source/texk/web2c/uptexdir/kanji.h +++ /dev/null @@ -1,73 +0,0 @@ -/* - kanji.h: Handling 2byte char, and so on. -*/ -#ifndef KANJI_H -#define KANJI_H -#include "cpascal.h" -#include <ptexenc/ptexenc.h> -#include <ptexenc/unicode.h> -#ifdef eupTeX -#define getintone(w) ((w).cint1) -#define setintone(w,a) ((w).cint1=(a)) -#endif -#include <zlib.h> - -#ifndef KANJI -#define KANJI -#endif - -/* (e)upTeX does not allow file names with 0x5c */ -#define not_kanji_char_seq(a,b) (1) -#define notkanjicharseq not_kanji_char_seq - -/* functions */ -#define XXHi(x) BYTE1(x) -#define XHi(x) BYTE2(x) -#define Hi(x) BYTE3(x) -#define Lo(x) BYTE4(x) - -extern boolean check_kanji (integer c); -#define checkkanji check_kanji -extern boolean is_char_ascii (integer c); -#define ischarascii is_char_ascii -extern boolean is_char_kanji (integer c); -#define ischarkanji is_char_kanji -extern boolean ismultiprn (integer c); -extern integer calc_pos (integer c); -#define calcpos calc_pos -extern integer kcatcodekey (integer c); -extern integer multilenbuffchar (integer c); - -extern void init_default_kanji (const_string file_str, const_string internal_str); -extern void init_default_kanji_select (void); -/* for upTeX, e-upTeX, upBibTeX, upDVItype, upPLtoTF, and upTFtoPL */ -#define initkanji() init_default_kanji_select() -/* for upDVItype */ -#define setpriorfileenc() set_prior_file_enc() - -/* number of rest of multi-char for kcode_pos */ -#define nrestmultichr(x) ( (x)!=0 ? ((x) / 8) + 2 - ((x) % 8) : -1 ) - -#ifndef PRESERVE_PUTC -#undef putc -#define putc(c,fp) putc2(c,fp) -#endif /* !PRESERVE_PUTC */ - -#ifndef PRESERVE_FPUTS -#undef fputs -#define fputs(c,fp) fputs2(c,fp) -#endif /* !PRESERVE_FPUTS */ - -#ifdef UPBIBTEX -#define inputline2(fp,buff,pos,size,ptr) input_line2(fp,buff,pos,size,ptr) -#else -#define inputline2(fp,buff,pos,size) input_line2(fp,buff,pos,size,NULL) -#endif - -extern void init_kanji (const_string file_str, const_string internal_str); -extern void dump_kanji (gzFile fp); -extern void undump_kanji (gzFile fp); -#define dumpkanji dump_kanji -#define undumpkanji undump_kanji - -#endif /* not KANJI_H */ diff --git a/Build/source/texk/web2c/uptexdir/kanji_dump.c b/Build/source/texk/web2c/uptexdir/kanji_dump.c deleted file mode 100644 index 795ed7497a1..00000000000 --- a/Build/source/texk/web2c/uptexdir/kanji_dump.c +++ /dev/null @@ -1,51 +0,0 @@ -/* - * Dump/undump Kanji encoding for (e)upTeX. - */ - -#include "kanji.h" -#ifndef upTeX -#define upTeX -#endif -#include <texmfmp.h> - -void dump_kanji (gzFile fp) -{ - char buffer[12]; - const char *p = get_enc_string (); - size_t len = strlen (p); - - if (len > 11) { - fprintf (stderr, "Kanji encoding string \"%s\" exceeds 11 bytes.\n", p); - uexit(1); - } - - strcpy (buffer, p); - for (len++; len < 12; len++) - buffer[len] = 0; - do_dump (buffer, 1, 12, fp); -} - -void undump_kanji (gzFile fp) -{ - char buffer[12]; - char *p; - int i; - - do_undump (buffer, 1, 12, fp); - buffer[11] = 0; /* force string termination, just in case */ - - p = strchr (buffer, '.'); - if (p) - *p++ = 0; - else - p = buffer; - - i = get_internal_enc(); - - /* Now BUFFER and P are the file and internal encoding strings. */ - init_kanji (NULL, p); - if (get_internal_enc() != i) { - fprintf (stderr, "Kanji internal encoding incompatible with the preloaded format.\n"); - fprintf (stderr, "I'll stick to %s.\n", enc_to_string(get_internal_enc())); - } -} diff --git a/Build/source/texk/web2c/uptexdir/newjfm.test b/Build/source/texk/web2c/uptexdir/newjfm.test deleted file mode 100755 index 3240dad835e..00000000000 --- a/Build/source/texk/web2c/uptexdir/newjfm.test +++ /dev/null @@ -1,22 +0,0 @@ -#! /bin/sh -vx -# $Id: newjfm.test 46400 2018-01-21 05:26:27Z hironobu $ -# Copyright 2018 Karl Berry <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -test -d uptests || mkdir -p uptests - -# Test inputs -testdir=$srcdir/uptexdir/tests - -# Testing upPLtoTF/upTFtoPL for new JFM spec by texjporg. -for font in testnewu; do - - ./uppltotf -verbose $testdir/$font.pl uptests/x$font.tfm && \ - cmp $testdir/$font.tfm uptests/x$font.tfm && echo || exit 1 - - TEXMFCNF=$srcdir/../kpathsea \ - ./uptftopl -charcode-format octal -verbose $testdir/$font.tfm uptests/x$font.pl && \ - diff $testdir/$font.pl uptests/x$font.pl && echo || exit 1 - -done - diff --git a/Build/source/texk/web2c/uptexdir/tests/gkhuge.tex b/Build/source/texk/web2c/uptexdir/tests/gkhuge.tex deleted file mode 100644 index 744eb42672f..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/gkhuge.tex +++ /dev/null @@ -1,33 +0,0 @@ -\prebreakpenalty`…=0 -\postbreakpenalty`「=0 -\postbreakpenalty`【=0 -\postbreakpenalty`(=0 -\postbreakpenalty`:=0 -\postbreakpenalty`;=0 - -\tracingonline1 -\showboxdepth10000 -\showboxbreadth10000 - -\font\x=upjisr-h\x -\setbox0=\hbox{あ…あ「あ【あ(あ:あ;あ}\showbox0 -\box0 - -\font\y=gkhugeok\y -\setbox2=\hbox{あ…あ「あ【あ(あ:あ;あ}\showbox2 -\box2 - -\newfam\mx -\newfam\my -\textfont\mx=\x \scriptfont\mx=\x \scriptscriptfont\mx=\x -\textfont\my=\y \scriptfont\my=\y \scriptscriptfont\my=\y - -\jfam\mx -\setbox4=\hbox{$あ…あ「あ【あ(あ:あ;あ$}\showbox4 -\box4 - -\jfam\my -\setbox6=\hbox{$あ…あ「あ【あ(あ:あ;あ$}\showbox6 -\box6 - -\bye diff --git a/Build/source/texk/web2c/uptexdir/tests/gkhugeng.err b/Build/source/texk/web2c/uptexdir/tests/gkhugeng.err deleted file mode 100644 index 484f95d3bad..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/gkhugeng.err +++ /dev/null @@ -1,3 +0,0 @@ -Input file is in YOKO-kumi kanji tfm format. -The fifth byte of the input file exceeds 127! -Sorry, but I can't go on; are you sure this is a TFM? diff --git a/Build/source/texk/web2c/uptexdir/tests/gkhugeng.tfm b/Build/source/texk/web2c/uptexdir/tests/gkhugeng.tfm Binary files differdeleted file mode 100644 index 60c13f00cbf..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/gkhugeng.tfm +++ /dev/null diff --git a/Build/source/texk/web2c/uptexdir/tests/gkhugeok.tfm b/Build/source/texk/web2c/uptexdir/tests/gkhugeok.tfm Binary files differdeleted file mode 100644 index 23c2a631d7f..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/gkhugeok.tfm +++ /dev/null diff --git a/Build/source/texk/web2c/uptexdir/tests/test_if.tex b/Build/source/texk/web2c/uptexdir/tests/test_if.tex deleted file mode 100644 index 35588f992c1..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/test_if.tex +++ /dev/null @@ -1,29 +0,0 @@ -\kcatcode`あ=18 -\def\xA{あ}\let\yA=あ -\kcatcode`あ=17 -\def\xB{あ}\let\yB=あ -\kcatcode`あ=16 - -\message{\ifcat あ\xA Y\else N\fi} -\message{\ifcat あ\yA Y\else N\fi} -\message{\ifcat あ\xB Y\else N\fi} -\message{\ifcat あ\yB Y\else N\fi} - -\message{\if あ\xA Y\else N\fi} -\message{\if あ\yA Y\else N\fi} -\message{\if い\xA Y\else N\fi} -\message{\if い\yA Y\else N\fi} - -\ifx\ucs\undefined\else - \kcatcode"100=16 - \message{upTeX} - \def\xA{Ā}% U+0100 - \def\xB{ā}% U+0101 - \message{\if \xA\relax Y\else N\fi} - \message{\if \xB\relax Y\else N\fi} - \message{\ifcat\xA\relax Y\else N\fi} - \message{\ifcat\xB\relax Y\else N\fi} -\fi -\end - - diff --git a/Build/source/texk/web2c/uptexdir/tests/testnewu.pl b/Build/source/texk/web2c/uptexdir/tests/testnewu.pl deleted file mode 100644 index 6b211cd51aa..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/testnewu.pl +++ /dev/null @@ -1,130 +0,0 @@ -(COMMENT THIS IS A KANJI FORMAT FILE) -(FAMILY UPJIS KANJI) -(FACE F MRR) -(CODINGSCHEME TEX KANJI TEXT) -(DESIGNSIZE R 10.0) -(COMMENT DESIGNSIZE IS IN POINTS) -(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE) -(CHECKSUM O 0) -(FONTDIMEN - (SLANT R 0.0) - (SPACE R 0.0) - (STRETCH R 0.1) - (SHRINK R 0.0) - (XHEIGHT R 1.0) - (QUAD R 1.0) - (EXTRASPACE R 0.25) - (EXTRASTRETCH R 0.2) - (EXTRASHRINK R 0.125) - ) -(GLUEKERN - (LABEL O 0) - (GLUE O 1 R 0.5 R 0.0 R 0.5) - (GLUE O 3 R 0.25 R 0.0 R 0.25) - (STOP) - (LABEL O 1) - (GLUE O 3 R 0.25 R 0.0 R 0.25) - (STOP) - (LABEL O 2) - (GLUE O 0 R 0.5 R 0.0 R 0.5) - (GLUE O 1 R 0.5 R 0.0 R 0.5) - (GLUE O 3 R 0.25 R 0.0 R 0.25) - (GLUE O 5 R 0.5 R 0.0 R 0.5) - (STOP) - (LABEL O 3) - (GLUE O 0 R 0.25 R 0.0 R 0.25) - (GLUE O 1 R 0.25 R 0.0 R 0.25) - (GLUE O 2 R 0.25 R 0.0 R 0.25) - (GLUE O 3 R 0.5 R 0.0 R 0.25) - (GLUE O 4 R 0.25 R 0.0 R 0.25) - (GLUE O 5 R 0.25 R 0.0 R 0.25) - (STOP) - (LABEL O 4) - (GLUE O 0 R 0.5 R 0.0 R 0.0) - (GLUE O 1 R 0.5 R 0.0 R 0.0) - (GLUE O 3 R 0.75 R 0.0 R 0.25) - (GLUE O 5 R 0.5 R 0.0 R 0.0) - (STOP) - (LABEL O 5) - (GLUE O 1 R 0.5 R 0.0 R 0.5) - (GLUE O 3 R 0.25 R 0.0 R 0.25) - (KRN O 5 R 0.0) - (STOP) - ) -(CHARSINTYPE O 1 - U 81FC U FF08 U 26951 - ) -(CHARSINTYPE O 2 - U 5409 U FF09 U 20BB7 - ) -(CHARSINTYPE O 3 - U 2462 U FF1A - ) -(CHARSINTYPE O 4 - U 2463 U 3002 - ) -(CHARSINTYPE O 5 - U 2026 U 2464 - ) -(TYPE O 0 - (CHARWD R 1.0) - (CHARHT R 0.88) - (CHARDP R 0.12) - (COMMENT - (GLUE O 1 R 0.5 R 0.0 R 0.5) - (GLUE O 3 R 0.25 R 0.0 R 0.25) - ) - ) -(TYPE O 1 - (CHARWD R 0.5) - (CHARHT R 0.88) - (CHARDP R 0.12) - (COMMENT - (GLUE O 3 R 0.25 R 0.0 R 0.25) - ) - ) -(TYPE O 2 - (CHARWD R 0.5) - (CHARHT R 0.88) - (CHARDP R 0.12) - (COMMENT - (GLUE O 0 R 0.5 R 0.0 R 0.5) - (GLUE O 1 R 0.5 R 0.0 R 0.5) - (GLUE O 3 R 0.25 R 0.0 R 0.25) - (GLUE O 5 R 0.5 R 0.0 R 0.5) - ) - ) -(TYPE O 3 - (CHARWD R 0.5) - (CHARHT R 0.88) - (CHARDP R 0.12) - (COMMENT - (GLUE O 0 R 0.25 R 0.0 R 0.25) - (GLUE O 1 R 0.25 R 0.0 R 0.25) - (GLUE O 2 R 0.25 R 0.0 R 0.25) - (GLUE O 3 R 0.5 R 0.0 R 0.25) - (GLUE O 4 R 0.25 R 0.0 R 0.25) - (GLUE O 5 R 0.25 R 0.0 R 0.25) - ) - ) -(TYPE O 4 - (CHARWD R 0.5) - (CHARHT R 0.88) - (CHARDP R 0.12) - (COMMENT - (GLUE O 0 R 0.5 R 0.0 R 0.0) - (GLUE O 1 R 0.5 R 0.0 R 0.0) - (GLUE O 3 R 0.75 R 0.0 R 0.25) - (GLUE O 5 R 0.5 R 0.0 R 0.0) - ) - ) -(TYPE O 5 - (CHARWD R 1.0) - (CHARHT R 0.88) - (CHARDP R 0.12) - (COMMENT - (GLUE O 1 R 0.5 R 0.0 R 0.5) - (GLUE O 3 R 0.25 R 0.0 R 0.25) - (KRN O 5 R 0.0) - ) - ) diff --git a/Build/source/texk/web2c/uptexdir/tests/testnewu.tfm b/Build/source/texk/web2c/uptexdir/tests/testnewu.tfm Binary files differdeleted file mode 100644 index 6860278f2ca..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/testnewu.tfm +++ /dev/null diff --git a/Build/source/texk/web2c/uptexdir/tests/umin10.pl b/Build/source/texk/web2c/uptexdir/tests/umin10.pl deleted file mode 100644 index 6a6e819b19c..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/umin10.pl +++ /dev/null @@ -1,395 +0,0 @@ -(COMMENT THIS IS A KANJI FORMAT FILE) -(FAMILY MINCHO) -(FACE F MRR) -(CODINGSCHEME TEX KANJI TEXT) -(DESIGNSIZE R 10.0) -(COMMENT DESIGNSIZE IS IN POINTS) -(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE) -(CHECKSUM O 35147750366) -(FONTDIMEN - (SLANT R 0.0) - (SPACE R 0.0) - (STRETCH R 0.091641) - (SHRINK R 0.0) - (XHEIGHT R 0.916443) - (QUAD R 0.962216) - (EXTRASPACE R 0.229101) - (EXTRASTRETCH R 0.183283) - (EXTRASHRINK R 0.114551) - ) -(GLUEKERN - (LABEL O 0) - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (STOP) - (LABEL O 7) - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (KRN O 10 R -0.048114) - (KRN O 11 R -0.048114) - (STOP) - (LABEL O 12) - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (KRN O 10 R -0.096228) - (KRN O 11 R -0.096228) - (STOP) - (LABEL O 13) - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (KRN O 10 R -0.144327) - (KRN O 11 R -0.144327) - (STOP) - (LABEL O 14) - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (KRN O 10 R -0.192441) - (KRN O 11 R -0.192441) - (STOP) - (LABEL O 2) - (LABEL O 10) - (GLUE O 0 R 0.608551 R 0.0 R 0.229101) - (GLUE O 7 R 0.608551 R 0.0 R 0.229101) - (GLUE O 12 R 0.608551 R 0.0 R 0.229101) - (GLUE O 13 R 0.608551 R 0.0 R 0.229101) - (GLUE O 14 R 0.608551 R 0.0 R 0.229101) - (GLUE O 10 R 0.0 R 0.3042755 R 0.0) - (GLUE O 2 R 0.0 R 0.3042755 R 0.0) - (GLUE O 4 R 0.458203 R 0.0 R 0.229101) - (GLUE O 5 R 0.458203 R 0.0 R 0.229101) - (GLUE O 3 R 0.458203 R 0.0 R 0.229101) - (GLUE O 6 R 0.229101 R 0.229101 R 0.229101) - (STOP) - (LABEL O 4) - (GLUE O 0 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 7 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 12 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 13 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 14 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 10 R 0.0 R 0.3042755 R 0.0) - (GLUE O 2 R 0.0 R 0.3042755 R 0.0) - (GLUE O 4 R 0.0 R 0.3042755 R 0.0) - (GLUE O 5 R 0.0 R 0.3042755 R 0.0) - (GLUE O 3 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 6 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 11 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 1 R 0.3042755 R 0.0 R 0.3042755) - (STOP) - (LABEL O 5) - (GLUE O 0 R 0.229101 R 0.0 R 0.229101) - (GLUE O 7 R 0.229101 R 0.0 R 0.229101) - (GLUE O 12 R 0.229101 R 0.0 R 0.229101) - (GLUE O 13 R 0.229101 R 0.0 R 0.229101) - (GLUE O 14 R 0.229101 R 0.0 R 0.229101) - (GLUE O 10 R 0.0 R 0.3042755 R 0.0) - (GLUE O 2 R 0.0 R 0.3042755 R 0.0) - (GLUE O 4 R 0.0 R 0.3042755 R 0.0) - (GLUE O 5 R 0.0 R 0.3042755 R 0.0) - (GLUE O 3 R 0.229101 R 0.0 R 0.229101) - (GLUE O 6 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 11 R 0.229101 R 0.0 R 0.229101) - (GLUE O 1 R 0.229101 R 0.0 R 0.229101) - (STOP) - (LABEL O 3) - (GLUE O 0 R 0.107391 R 0.0 R 0.107391) - (GLUE O 7 R 0.107391 R 0.0 R 0.107391) - (GLUE O 12 R 0.107391 R 0.0 R 0.107391) - (GLUE O 13 R 0.107391 R 0.0 R 0.107391) - (GLUE O 14 R 0.107391 R 0.0 R 0.107391) - (GLUE O 10 R 0.0 R 0.3042755 R 0.0) - (GLUE O 2 R 0.0 R 0.3042755 R 0.0) - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (GLUE O 11 R 0.107391 R 0.0 R 0.107391) - (GLUE O 1 R 0.107391 R 0.0 R 0.107391) - (STOP) - (LABEL O 6) - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.0 R 0.458203 R 0.0) - (STOP) - (LABEL O 1) - (LABEL O 11) - (GLUE O 0 R 0.458203 R 0.0 R 0.229101) - (GLUE O 7 R 0.458203 R 0.0 R 0.229101) - (GLUE O 12 R 0.458203 R 0.0 R 0.229101) - (GLUE O 13 R 0.458203 R 0.0 R 0.229101) - (GLUE O 14 R 0.458203 R 0.0 R 0.229101) - (GLUE O 10 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 2 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 4 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 5 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 3 R 0.458203 R 0.0 R 0.229101) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (GLUE O 11 R 0.0 R 0.458203 R 0.0) - (GLUE O 1 R 0.0 R 0.458203 R 0.0) - (STOP) - ) -(CHARSINTYPE O 1 - U 3009 U 300B U 300D U 300F U 3011 U 3015 U 3017 U 3019 U 301F U FF09 - U FF3D U FF5D U FF60 - ) -(CHARSINTYPE O 2 - U 309B U 309C - ) -(CHARSINTYPE O 3 - U 2234 U 2640 U 2642 U 3003 U 3005 U 3041 U 3043 U 3045 U 3047 U 3049 - U 3063 U 3083 U 3085 U 3087 U 308E U 3095 U 3096 U 309E U 30A1 U 30A3 - U 30A5 U 30A7 U 30A9 U 30C3 U 30E3 U 30E5 U 30E7 U 30EE U 30F5 U 30F6 - U 31F0 U 31F1 U 31F2 U 31F3 U 31F4 U 31F5 U 31F6 U 31F7 U 31F8 U 31F9 - U 31FA U 31FB U 31FC U 31FD U 31FE U 31FF U FF04 U FFE0 U FFE1 - ) -(CHARSINTYPE O 4 - U 00B4 U 2010 U 2016 U 2018 U 2019 U 30FB U FF01 U FF1A U FF1B U FF40 - U FF5C - ) -(CHARSINTYPE O 5 - U 00A7 U 00A8 U 00B0 U 201C U 201D U 2032 U 2033 U 309D U 30FD U FF1F - U FF3E - ) -(CHARSINTYPE O 6 - U 3008 U 300A U 300C U 300E U 3010 U 3014 U 3016 U 3018 U 301D U FF08 - U FF3B U FF5B U FF5F - ) -(CHARSINTYPE O 7 - U 3046 U 304F U 3050 U 3051 U 3052 U 3059 U 305A U 308A U 30C6 U 30C7 - U 30E4 - ) -(CHARSINTYPE O 10 - U FF0C U FF0E - ) -(CHARSINTYPE O 11 - U 3001 U 3002 - ) -(CHARSINTYPE O 12 - U 30A2 U 30A4 U 30A6 U 30AA U 30B1 U 30B2 U 30B5 U 30B6 U 30BD U 30BE - U 30C1 U 30C2 U 30C4 U 30C5 U 30C8 U 30C9 U 30CA U 30D5 U 30D6 U 30D7 - U 30DF U 30E1 U 30E9 U 30EA U 30EF U 30F2 - ) -(CHARSINTYPE O 13 - U 30AF U 30B0 U 30BF U 30C0 - ) -(CHARSINTYPE O 14 - U 30CE - ) -(TYPE O 0 - (CHARWD R 0.962216) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - ) - ) -(TYPE O 1 - (CHARWD R 0.504013) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 0 R 0.458203 R 0.0 R 0.229101) - (GLUE O 7 R 0.458203 R 0.0 R 0.229101) - (GLUE O 12 R 0.458203 R 0.0 R 0.229101) - (GLUE O 13 R 0.458203 R 0.0 R 0.229101) - (GLUE O 14 R 0.458203 R 0.0 R 0.229101) - (GLUE O 10 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 2 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 4 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 5 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 3 R 0.458203 R 0.0 R 0.229101) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (GLUE O 11 R 0.0 R 0.458203 R 0.0) - (GLUE O 1 R 0.0 R 0.458203 R 0.0) - ) - ) -(TYPE O 2 - (CHARWD R 0.353665) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 0 R 0.608551 R 0.0 R 0.229101) - (GLUE O 7 R 0.608551 R 0.0 R 0.229101) - (GLUE O 12 R 0.608551 R 0.0 R 0.229101) - (GLUE O 13 R 0.608551 R 0.0 R 0.229101) - (GLUE O 14 R 0.608551 R 0.0 R 0.229101) - (GLUE O 10 R 0.0 R 0.3042755 R 0.0) - (GLUE O 2 R 0.0 R 0.3042755 R 0.0) - (GLUE O 4 R 0.458203 R 0.0 R 0.229101) - (GLUE O 5 R 0.458203 R 0.0 R 0.229101) - (GLUE O 3 R 0.458203 R 0.0 R 0.229101) - (GLUE O 6 R 0.229101 R 0.229101 R 0.229101) - ) - ) -(TYPE O 3 - (CHARWD R 0.747434) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 0 R 0.107391 R 0.0 R 0.107391) - (GLUE O 7 R 0.107391 R 0.0 R 0.107391) - (GLUE O 12 R 0.107391 R 0.0 R 0.107391) - (GLUE O 13 R 0.107391 R 0.0 R 0.107391) - (GLUE O 14 R 0.107391 R 0.0 R 0.107391) - (GLUE O 10 R 0.0 R 0.3042755 R 0.0) - (GLUE O 2 R 0.0 R 0.3042755 R 0.0) - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (GLUE O 11 R 0.107391 R 0.0 R 0.107391) - (GLUE O 1 R 0.107391 R 0.0 R 0.107391) - ) - ) -(TYPE O 4 - (CHARWD R 0.353665) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 0 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 7 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 12 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 13 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 14 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 10 R 0.0 R 0.3042755 R 0.0) - (GLUE O 2 R 0.0 R 0.3042755 R 0.0) - (GLUE O 4 R 0.0 R 0.3042755 R 0.0) - (GLUE O 5 R 0.0 R 0.3042755 R 0.0) - (GLUE O 3 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 6 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 11 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 1 R 0.3042755 R 0.0 R 0.3042755) - ) - ) -(TYPE O 5 - (CHARWD R 0.504013) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 0 R 0.229101 R 0.0 R 0.229101) - (GLUE O 7 R 0.229101 R 0.0 R 0.229101) - (GLUE O 12 R 0.229101 R 0.0 R 0.229101) - (GLUE O 13 R 0.229101 R 0.0 R 0.229101) - (GLUE O 14 R 0.229101 R 0.0 R 0.229101) - (GLUE O 10 R 0.0 R 0.3042755 R 0.0) - (GLUE O 2 R 0.0 R 0.3042755 R 0.0) - (GLUE O 4 R 0.0 R 0.3042755 R 0.0) - (GLUE O 5 R 0.0 R 0.3042755 R 0.0) - (GLUE O 3 R 0.229101 R 0.0 R 0.229101) - (GLUE O 6 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 11 R 0.229101 R 0.0 R 0.229101) - (GLUE O 1 R 0.229101 R 0.0 R 0.229101) - ) - ) -(TYPE O 6 - (CHARWD R 0.504013) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.0 R 0.458203 R 0.0) - ) - ) -(TYPE O 7 - (CHARWD R 0.962216) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (KRN O 10 R -0.048114) - (KRN O 11 R -0.048114) - ) - ) -(TYPE O 10 - (CHARWD R 0.353665) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 0 R 0.608551 R 0.0 R 0.229101) - (GLUE O 7 R 0.608551 R 0.0 R 0.229101) - (GLUE O 12 R 0.608551 R 0.0 R 0.229101) - (GLUE O 13 R 0.608551 R 0.0 R 0.229101) - (GLUE O 14 R 0.608551 R 0.0 R 0.229101) - (GLUE O 10 R 0.0 R 0.3042755 R 0.0) - (GLUE O 2 R 0.0 R 0.3042755 R 0.0) - (GLUE O 4 R 0.458203 R 0.0 R 0.229101) - (GLUE O 5 R 0.458203 R 0.0 R 0.229101) - (GLUE O 3 R 0.458203 R 0.0 R 0.229101) - (GLUE O 6 R 0.229101 R 0.229101 R 0.229101) - ) - ) -(TYPE O 11 - (CHARWD R 0.504013) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 0 R 0.458203 R 0.0 R 0.229101) - (GLUE O 7 R 0.458203 R 0.0 R 0.229101) - (GLUE O 12 R 0.458203 R 0.0 R 0.229101) - (GLUE O 13 R 0.458203 R 0.0 R 0.229101) - (GLUE O 14 R 0.458203 R 0.0 R 0.229101) - (GLUE O 10 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 2 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 4 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 5 R 0.229101 R 0.229101 R 0.229101) - (GLUE O 3 R 0.458203 R 0.0 R 0.229101) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (GLUE O 11 R 0.0 R 0.458203 R 0.0) - (GLUE O 1 R 0.0 R 0.458203 R 0.0) - ) - ) -(TYPE O 12 - (CHARWD R 0.962216) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (KRN O 10 R -0.096228) - (KRN O 11 R -0.096228) - ) - ) -(TYPE O 13 - (CHARWD R 0.962216) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (KRN O 10 R -0.144327) - (KRN O 11 R -0.144327) - ) - ) -(TYPE O 14 - (CHARWD R 0.962216) - (CHARHT R 0.777588) - (CHARDP R 0.138855) - (COMMENT - (GLUE O 4 R 0.3042755 R 0.0 R 0.3042755) - (GLUE O 5 R 0.229101 R 0.0 R 0.229101) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 6 R 0.458203 R 0.0 R 0.229101) - (KRN O 10 R -0.192441) - (KRN O 11 R -0.192441) - ) - ) diff --git a/Build/source/texk/web2c/uptexdir/tests/umin10.tfm b/Build/source/texk/web2c/uptexdir/tests/umin10.tfm Binary files differdeleted file mode 100644 index 443fcaeb845..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/umin10.tfm +++ /dev/null diff --git a/Build/source/texk/web2c/uptexdir/tests/unibib.aux b/Build/source/texk/web2c/uptexdir/tests/unibib.aux deleted file mode 100644 index c8ad2dc61ca..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/unibib.aux +++ /dev/null @@ -1,4 +0,0 @@ -\relax -\citation{*} -\bibstyle{jplain} -\bibdata{unibib} diff --git a/Build/source/texk/web2c/uptexdir/tests/unibib.bbl b/Build/source/texk/web2c/uptexdir/tests/unibib.bbl deleted file mode 100644 index 718ab2c44bc..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/unibib.bbl +++ /dev/null @@ -1,50 +0,0 @@ -\begin{thebibliography}{1} - -\bibitem{björk2020} -Tomas Björk. -\newblock {\em Arbitrage Theory in Continuous Time}. -\newblock Oxford University Press, 2020. - -\bibitem{boswell} -Dustin Boswell and Trevor Foucher. -\newblock リーダブルコード - ―より良いコードを書くためのシンプルで実践的 - なテクニック (Theory in practice). -\newblock オライリージャパン, 2012. - -\bibitem{dostoevskii} -Фёдор~Миха́йлович Достое́вский. -\newblock {\em Братья Карамазовы}. -\newblock Гослитиздат, 1958. - -\bibitem{gim} -김만중. -\newblock 구운몽. -\newblock 高麗書林, 1975. - -\bibitem{nikos} -Νίκος Καζαντζάκης. -\newblock {\em Συμπόσιον}. -\newblock 京緑社, 2020. - -\bibitem{knuth86} -Donald~E. Knuth. -\newblock {\em The \TeX book}. -\newblock Addison-Wesley, 1986. - -\bibitem{ken-na} -中野賢. -\newblock 日本語{\LaTeXe}ブック. -\newblock アスキー, 1996. - -\bibitem{kigou} -Foo Hoge. -\newblock {\em $£(!?)☃♪、。§○●}. -\newblock Snowman commedian Press, 2020. - -\bibitem{fullwidth} -Bar Fuga. -\newblock 1. -\newblock TeXnician Co., Ltd., 2020. - -\end{thebibliography} diff --git a/Build/source/texk/web2c/uptexdir/tests/unibib.bib b/Build/source/texk/web2c/uptexdir/tests/unibib.bib deleted file mode 100644 index 11e6baa22a8..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/unibib.bib +++ /dev/null @@ -1,81 +0,0 @@ -%% ASCII only -@book{knuth86, - author = "Donald E. Knuth", - title = "The \TeX book", - publisher = "Addison-Wesley", - year = 1986, -} - -%% Latin-1 -@book{björk2020, - author = "Tomas Björk", - title = "Arbitrage Theory in Continuous Time", - publisher = "Oxford University Press", - year = 2020, -} - -%% 日本人姓名;読み仮名つき -@book{ken-na, - author = "中野 賢", - yomi = "Ken Nakano", - title = "日本語{\LaTeXe}ブック", - publisher = "アスキー", - year = 1996, -} - -%% ギリシャ文字;ニコス・カザンザキス「饗宴」 -@book{nikos, - author = "Νίκος Καζαντζάκης", - yomi = "Nikos Kazantzakis", - title = "Συμπόσιον", - publisher = "京緑社", - year = 2020, -} - -%% キリル文字;ドストエフスキー「カラマーゾフの兄弟」 -@book{dostoevskii, - title = "Братья Карамазовы", - author = "Достое́вский, Фёдор Миха́йлович", - yomi = "Dostoevskii, F.M.", - publisher = "Гослитиздат", - year = "1958", -} - -%% ハングル:金萬重「九雲夢」 -@book{gim, - author = "김 만중", - yomi = "Manjung Gim", - title = "구운몽", - publisher = "高麗書林", - year = 1975, -} - -%% 日本語文献;著者は非・日本人 -@book{boswell, - author = {Boswell, Dustin and Foucher, Trevor}, - title = {リーダブルコード ―より良いコードを書くためのシンプルで実践的 - なテクニック (Theory in practice) }, - year = 2012, - publisher = {オライリージャパン}, - translator = {角 征典}, - language = {ja}, - yomi = {boswell} -} - -%% 全角数字(17)は和文扱いとする -@book{fullwidth, - author = "Bar Fuga", - yomi = "ぜんかく", - title = "1", - publisher = "TeXnician Co., Ltd.", - year = 2020, -} - -%% 記号類(18)は欧文扱いとする -@book{kigou, - author = "Foo Hoge", - yomi = "きごうたち", - title = "$£(!?)☃♪、。§○●", - publisher = "Snowman commedian Press", - year = 2020, -} diff --git a/Build/source/texk/web2c/uptexdir/tests/unibib.tex b/Build/source/texk/web2c/uptexdir/tests/unibib.tex deleted file mode 100644 index 918d11f37b2..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/unibib.tex +++ /dev/null @@ -1,98 +0,0 @@ -% https://github.com/texjporg/tex-jp-build/issues/109 - -\begin{filecontents}[overwrite]{\jobname.bib} -%% ASCII only -@book{knuth86, - author = "Donald E. Knuth", - title = "The \TeX book", - publisher = "Addison-Wesley", - year = 1986, -} - -%% Latin-1 -@book{björk2020, - author = "Tomas Björk", - title = "Arbitrage Theory in Continuous Time", - publisher = "Oxford University Press", - year = 2020, -} - -%% 日本人姓名;読み仮名つき -@book{ken-na, - author = "中野 賢", - yomi = "Ken Nakano", - title = "日本語{\LaTeXe}ブック", - publisher = "アスキー", - year = 1996, -} - -%% ギリシャ文字;ニコス・カザンザキス「饗宴」 -@book{nikos, - author = "Νίκος Καζαντζάκης", - yomi = "Nikos Kazantzakis", - title = "Συμπόσιον", - publisher = "京緑社", - year = 2020, -} - -%% キリル文字;ドストエフスキー「カラマーゾフの兄弟」 -@book{dostoevskii, - title = "Братья Карамазовы", - author = "Достое́вский, Фёдор Миха́йлович", - yomi = "Dostoevskii, F.M.", - publisher = "Гослитиздат", - year = "1958", -} - -%% ハングル:金萬重「九雲夢」 -@book{gim, - author = "김 만중", - yomi = "Manjung Gim", - title = "구운몽", - publisher = "高麗書林", - year = 1975, -} - -%% 日本語文献;著者は非・日本人 -@book{boswell, - author = {Boswell, Dustin and Foucher, Trevor}, - title = {リーダブルコード ―より良いコードを書くためのシンプルで実践的 - なテクニック (Theory in practice) }, - year = 2012, - publisher = {オライリージャパン}, - translator = {角 征典}, - language = {ja}, - yomi = {boswell} -} - -%% 全角数字(17)は和文扱いとする -@book{fullwidth, - author = "Bar Fuga", - yomi = "ぜんかく", - title = "1", - publisher = "TeXnician Co., Ltd.", - year = 2020, -} - -%% 記号類(18)は欧文扱いとする -@book{kigou, - author = "Foo Hoge", - yomi = "きごうたち", - title = "$£(!?)☃♪、。§○●", - publisher = "Snowman commedian Press", - year = 2020, -} -\end{filecontents} - -\documentclass{ltjsarticle} -% ギリシャ文字・キリル文字を欧文扱い -\ltjsetparameter{jacharrange={-2}} -\usepackage{luatexja-fontspec} -\usepackage[sourcehan]{luatexja-preset} -\setmainfont{XITS}% ギリシャ文字・キリル文字を含む -\begin{document} -test -\nocite{*} -\bibliographystyle{jplain} -\bibliography{\jobname} -\end{document} diff --git a/Build/source/texk/web2c/uptexdir/tests/uparse.pl b/Build/source/texk/web2c/uptexdir/tests/uparse.pl deleted file mode 100644 index 906989df2f7..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/uparse.pl +++ /dev/null @@ -1,70 +0,0 @@ -(FAMILY JFM UCODE) -(FACE F MRR) -(CODINGSCHEME TEX KANJI TEXT) -(DESIGNSIZE R 10.0) -(CHECKSUM O 0) -(FONTDIMEN - (SLANT R 0.0) - (SPACE R 0.0) - (STRETCH R 0.1) - (SHRINK R 0.0) - (XHEIGHT R 1.0) - (QUAD R 1.0) - (EXTRASPACE R 0.25) - (EXTRASTRETCH R 0.2) - (EXTRASHRINK R 0.125) - ) -(GLUEKERN - (LABEL O 0) - (LABEL O 5) - (LABEL O 6) - (GLUE O 3 R 0.25 R 0.1 R 0.1) - (STOP) - (LABEL O 3) - (GLUE O 0 R 0.25 R 0.1 R 0.1) - (GLUE O 5 R 0.25 R 0.1 R 0.1) - (GLUE O 6 R 0.25 R 0.1 R 0.1) - (GLUE O 3 R 0.5 R 0.25 R 0.25) - (STOP) - ) -(CHARSINTYPE O 1 U A1) -(CHARSINTYPE O 2 U 28) -(CHARSINTYPE O 3 U B7) -(CHARSINTYPE O 4 U 21) -(CHARSINTYPE O 5 U 200B7) -(CHARSINTYPE O 6 U 3042) -(TYPE O 0 - (CHARWD R 1.0) - (CHARHT R 0.88) - (CHARDP R 0.12) - ) -(TYPE O 1 - (CHARWD R 0.5) - (CHARHT R 0.88) - (CHARDP R 0.12) - ) -(TYPE O 2 - (CHARWD R 0.3) - (CHARHT R 0.88) - (CHARDP R 0.12) - ) -(TYPE O 3 - (CHARWD R 0.5) - (CHARHT R 0.88) - (CHARDP R 0.12) - ) -(TYPE O 4 - (CHARWD R 0.5) - (CHARHT R 0.88) - (CHARDP R 0.12) - ) -(TYPE O 5 - (CHARWD R 1.0) - (CHARHT R 0.88) - (CHARDP R 0.12) - ) -(TYPE O 6 - (CHARWD R 1.0) - (CHARHT R 0.88) - (CHARDP R 0.12) - ) diff --git a/Build/source/texk/web2c/uptexdir/tests/uparse.tfm b/Build/source/texk/web2c/uptexdir/tests/uparse.tfm Binary files differdeleted file mode 100644 index 88d1ec39291..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/uparse.tfm +++ /dev/null diff --git a/Build/source/texk/web2c/uptexdir/tests/utmin10.pl b/Build/source/texk/web2c/uptexdir/tests/utmin10.pl deleted file mode 100644 index 0baa7a2c3e3..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/utmin10.pl +++ /dev/null @@ -1,287 +0,0 @@ -(COMMENT THIS IS A KANJI FORMAT FILE) -(DIRECTION TATE) -(FAMILY MINCHO) -(FACE F MRR) -(CODINGSCHEME JIS X0208) -(DESIGNSIZE R 10.0) -(COMMENT DESIGNSIZE IS IN POINTS) -(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE) -(CHECKSUM O 35147750366) -(FONTDIMEN - (SLANT R 0.0) - (SPACE R 0.0) - (STRETCH R 0.091641) - (SHRINK R 0.0) - (XHEIGHT R 0.916443) - (QUAD R 0.962216) - (EXTRASPACE R 0.229101) - (EXTRASTRETCH R 0.183283) - (EXTRASHRINK R 0.114551) - ) -(GLUEKERN - (LABEL O 0) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - (STOP) - (LABEL O 1) - (GLUE O 0 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - (STOP) - (LABEL O 2) - (GLUE O 0 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - (STOP) - (LABEL O 3) - (GLUE O 0 R 0.107391 R 0.0 R 0.107391) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - (STOP) - (LABEL O 4) - (GLUE O 0 R 0.962216 R 0.0 R 0.481108) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.962216 R 0.0 R 0.481108) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.962216 R 0.0 R 0.481108) - (GLUE O 7 R 0.962216 R 0.0 R 0.481108) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - (STOP) - (LABEL O 5) - (GLUE O 0 R 0.0 R 0.0 R 0.0) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.0 R 0.0 R 0.0) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 7 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - (STOP) - (LABEL O 6) - (GLUE O 0 R 0.0 R 0.0 R 0.0) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.0 R 0.0 R 0.0) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.0 R 0.0 R 0.0) - (GLUE O 7 R 0.240554 R 0.0 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - (STOP) - (LABEL O 7) - (GLUE O 0 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 1 R 0.240554 R 0.0 R 0.240554) - (GLUE O 2 R 0.240554 R 0.0 R 0.240554) - (GLUE O 3 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 4 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 5 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 6 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 7 R 0.0 R 0.183283 R 0.0) - (GLUE O 10 R 0.240554 R 0.0 R 0.240554) - (STOP) - (LABEL O 10) - (GLUE O 0 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - (STOP) - ) -(CHARSINTYPE O 1 - U FF0C U FF0E - ) -(CHARSINTYPE O 2 - U 3001 U 3002 - ) -(CHARSINTYPE O 3 - U 3003 U 3005 U 3041 U 3043 U 3045 U 3047 U 3049 U 3063 U 3083 U 3085 - U 3087 U 308E U 3095 U 3096 U 309D U 309E U 30A1 U 30A3 U 30A5 U 30A7 - U 30A9 U 30C3 U 30E3 U 30E5 U 30E7 U 30EE U 30F5 U 30F6 U 30FD U 30FE - U 31F0 U 31F1 U 31F2 U 31F3 U 31F4 U 31F5 U 31F6 U 31F7 U 31F8 U 31F9 - U 31FA U 31FB U 31FC U 31FD U 31FE U 31FF - ) -(CHARSINTYPE O 4 - U FF01 U FF1F - ) -(CHARSINTYPE O 5 - U 2015 U 2025 U 2026 - ) -(CHARSINTYPE O 6 - U 2018 U 201C U 3008 U 300A U 300C U 300E U 3010 U 3014 U 3016 U 3018 - U 301D U FF08 U FF3B U FF5B U FF5F - ) -(CHARSINTYPE O 7 - U 2010 U 2016 U 30FB U FF5C - ) -(CHARSINTYPE O 10 - U 2019 U 201D U 3009 U 300B U 300D U 300F U 3011 U 3015 U 3017 U 3019 - U 301F U FF09 U FF3D U FF5D U FF60 - ) -(TYPE O 0 - (CHARWD R 0.962216) - (CHARHT R 0.458221) - (CHARDP R 0.458221) - (COMMENT - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - ) - ) -(TYPE O 1 - (CHARWD R 0.481108) - (CHARHT R 0.458221) - (CHARDP R 0.458221) - (COMMENT - (GLUE O 0 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - ) - ) -(TYPE O 2 - (CHARWD R 0.481108) - (CHARHT R 0.458221) - (CHARDP R 0.458221) - (COMMENT - (GLUE O 0 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - ) - ) -(TYPE O 3 - (CHARWD R 0.747434) - (CHARHT R 0.458221) - (CHARDP R 0.458221) - (COMMENT - (GLUE O 0 R 0.107391 R 0.0 R 0.107391) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.107391 R 0.0 R 0.107391) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - ) - ) -(TYPE O 4 - (CHARWD R 0.962216) - (CHARHT R 0.458221) - (CHARDP R 0.458221) - (COMMENT - (GLUE O 0 R 0.962216 R 0.0 R 0.481108) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.962216 R 0.0 R 0.481108) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.962216 R 0.0 R 0.481108) - (GLUE O 7 R 0.962216 R 0.0 R 0.481108) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - ) - ) -(TYPE O 5 - (CHARWD R 0.962216) - (CHARHT R 0.458221) - (CHARDP R 0.458221) - (COMMENT - (GLUE O 0 R 0.0 R 0.0 R 0.0) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.0 R 0.0 R 0.0) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 7 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - ) - ) -(TYPE O 6 - (CHARWD R 0.481108) - (CHARHT R 0.458221) - (CHARDP R 0.458221) - (COMMENT - (GLUE O 0 R 0.0 R 0.0 R 0.0) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.0 R 0.0 R 0.0) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.0 R 0.0 R 0.0) - (GLUE O 6 R 0.0 R 0.0 R 0.0) - (GLUE O 7 R 0.240554 R 0.0 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - ) - ) -(TYPE O 7 - (CHARWD R 0.481108) - (CHARHT R 0.458221) - (CHARDP R 0.458221) - (COMMENT - (GLUE O 0 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 1 R 0.240554 R 0.0 R 0.240554) - (GLUE O 2 R 0.240554 R 0.0 R 0.240554) - (GLUE O 3 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 4 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 5 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 6 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 7 R 0.0 R 0.183283 R 0.0) - (GLUE O 10 R 0.240554 R 0.0 R 0.240554) - ) - ) -(TYPE O 10 - (CHARWD R 0.481108) - (CHARHT R 0.458221) - (CHARDP R 0.458221) - (COMMENT - (GLUE O 0 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 1 R 0.0 R 0.0 R 0.0) - (GLUE O 2 R 0.0 R 0.0 R 0.0) - (GLUE O 3 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 4 R 0.0 R 0.0 R 0.0) - (GLUE O 5 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 6 R 0.481108 R 0.183283 R 0.481108) - (GLUE O 7 R 0.240554 R 0.183283 R 0.240554) - (GLUE O 10 R 0.0 R 0.0 R 0.0) - ) - ) diff --git a/Build/source/texk/web2c/uptexdir/tests/utmin10.tfm b/Build/source/texk/web2c/uptexdir/tests/utmin10.tfm Binary files differdeleted file mode 100644 index 007fa132baf..00000000000 --- a/Build/source/texk/web2c/uptexdir/tests/utmin10.tfm +++ /dev/null diff --git a/Build/source/texk/web2c/uptexdir/uparse.test b/Build/source/texk/web2c/uptexdir/uparse.test deleted file mode 100755 index a51e5945f82..00000000000 --- a/Build/source/texk/web2c/uptexdir/uparse.test +++ /dev/null @@ -1,31 +0,0 @@ -#! /bin/sh -vx -# $Id$ -# Copyright 2018 Karl Berry <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -test -d uptests || mkdir -p uptests - -# Test inputs -testdir=$srcdir/uptexdir/tests - -# Testing upPLtoTF/upTFtoPL for JPL parsing -# and direct charcter printing (without -charcode-format octal). -for font in uparse; do - - # allow hex kanji code with arbitary digits, - # no error for no trailing spaces. - ./uppltotf -verbose $testdir/$font.pl uptests/x$font.tfm && \ - cmp $testdir/$font.tfm uptests/x$font.tfm && echo || exit 1 - - # upTFtoPL should always print ASCII characters in charcode format, - # even when -charcode-format octal is disabled; otherwise - # upPLtoTF cannot accept the resulting JPL file correctly. - # This test is constructed as a cycle, so that there is no - # non-ASCII character inside test case distribution. - TEXMFCNF=$srcdir/../kpathsea \ - ./uptftopl -verbose $testdir/$font.tfm uptests/y$font.pl && \ - ./uppltotf -verbose uptests/y$font.pl uptests/y$font.tfm && \ - cmp $testdir/$font.tfm uptests/y$font.tfm && echo || exit 1 - -done - diff --git a/Build/source/texk/web2c/uptexdir/upbibtex.ch b/Build/source/texk/web2c/uptexdir/upbibtex.ch deleted file mode 100644 index fa3cf4e4051..00000000000 --- a/Build/source/texk/web2c/uptexdir/upbibtex.ch +++ /dev/null @@ -1,435 +0,0 @@ -@x -@d my_name=='pbibtex' -@d banner=='This is pBibTeX, Version 0.99d-j0.33' -@y -@d my_name=='upbibtex' -@d banner=='This is upBibTeX, Version 0.99d-j0.33-u1.27' -@z - -@x -for i:=@'200 to @'237 do xchr[i]:=chr(i-@'200); -for i:=@'240 to 255 do xchr[i]:=chr(i); -@y -for i:=@'200 to 255 do xchr[i]:=chr(i); -@z - -@x -for i:=@'200 to @'237 do xord[i]:= i-@'200; -for i:=@'240 to 255 do xord[i]:=i; -@y -for i:=@'200 to 255 do xord[i]:=i; -@z - -@x -@d zen_pun_first = 161 {Zenkaku punctuation first byte; in EUC} -@d zen_space = 161 {Zenkaku space first, second byte; in EUC} -@d zen_kuten = 162 {Zenkaku kuten second byte; in EUC} -@d zen_ten = 163 {Zenkaku ten second byte; in EUC} -@d zen_comma = 164 {Zenkaku comman second byte; in EUC} -@d zen_period = 165 {Zenkaku period second byte; in EUC} -@d zen_question = 169 {Zenkaku question mark second byte; in EUC} -@d zen_exclamation = 170 {Zenkaku exclamation mark second byte; in EUC} -@y -@d e_ss3 = @"8F {single shift three in EUC} -@d e_pun_first = @"A1 {Zenkaku punctuation first byte; in EUC} -@d e_space = @"A1A1 {Zenkaku space; in EUC} -@d e_toten = @"A1A2 {Zenkaku kuten; in EUC} -@d e_kuten = @"A1A3 {Zenkaku toten; in EUC} -@d e_comma = @"A1A4 {Zenkaku comman; in EUC} -@d e_period = @"A1A5 {Zenkaku period; in EUC} -@d e_question = @"A1A9 {Zenkaku question mark; in EUC} -@d e_exclamation =@"A1AA {Zenkaku exclamation mark; in EUC} -@d u_pun_first1 = @"E3 {Zenkaku punctuation first byte(1); in UTF-8} -@d u_pun_first2 = @"EF {Zenkaku punctuation first byte(2); in UTF-8} -@d u_space = @"3000 {Zenkaku space; in UCS} -@d u_toten = @"3001 {Zenkaku toten; in UCS} -@d u_kuten = @"3002 {Zenkaku kuten; in UCS} -@d u_comma = @"FF0C {Zenkaku comman; in UCS} -@d u_period = @"FF0E {Zenkaku period; in UCS} -@d u_question = @"FF1F {Zenkaku question mark; in UCS} -@d u_exclamation = @"FF01 {Zenkaku exclamation mark; in UCS} -@d u_double_question = @"2047 {Zenkaku double question mark; in UCS} -@d u_double_exclam = @"203C {Zenkaku double exclamation mark; in UCS} -@d u_question_exclam = @"2048 {Zenkaku question exclamation mark; in UCS} -@d u_exclam_question = @"2049 {Zenkaku exclamation question mark; in UCS} -@z - -@x -for i:=@'200 to @'237 do lex_class[i] := illegal; -for i:=@'240 to 255 do lex_class[i] := alpha; -lex_class[@'33]:=alpha; -@y -@z - -@x -for i:=@'200 to @'237 do id_class[i] := illegal_id_char; -@y -@z - -@x -for i:=@'240 to 254 do char_width[i]:=514; -@y -@z - -@x procedure get_the_top_level_aux_file_name -label aux_found,@!aux_not_found; -@y -label aux_found,@!aux_not_found; -var i:0..last_text_char; {this is the first one declared} -@z -@x - @<Process a possible command line@> -@y - @<Process a possible command line@> - @<Initialize variables depending on Kanji code@> -@z - -@x - zen_ten, - zen_period, - zen_question, - zen_exclamation: - if( str_pool[sp_ptr-1] = zen_pun_first ) then - repush_string - else - @<Add the |period| (it's necessary) and push@>; - othercases - @<Add the |period| (it's necessary) and push@> -@y - othercases - begin - if (is_internalEUC) then - begin - case (fromBUFF(str_pool, sp_ptr+1, sp_ptr-1)) of - e_kuten, - e_period, - e_question, - e_exclamation: - if (str_pool[sp_ptr-2]<>e_ss3) then - repush_string - else - @<Add the |period| (it's necessary) and push@>; - othercases - @<Add the |period| (it's necessary) and push@>; - endcases; - end; - if (is_internalUPTEX) then - begin - case (fromBUFF(str_pool, sp_ptr+1, sp_ptr-2)) of - u_kuten, - u_period, - u_question, - u_exclamation, - u_double_question, - u_double_exclam, - u_question_exclam, - u_exclam_question: - repush_string; - othercases - @<Add the |period| (it's necessary) and push@>; - endcases; - end; - end; -@z - -@x - if(str_pool[str_start[pop_lit1]]>127) then { a KANJI char is 2byte long } -@y - if(str_pool[str_start[pop_lit1]]>127) then { a KANJI char is |2..4|byte long } -@z - -@x - if( (ex_buf[ex_buf_ptr-1]=zen_comma) or (ex_buf[ex_buf_ptr-1]=zen_kuten) ) - then ex_buf_ptr := ex_buf_ptr - 2 - else ex_buf_ptr := ex_buf_ptr - 4; -@y - if (is_internalEUC) then - if((fromBUFF(ex_buf, ex_buf_length, ex_buf_ptr-2) = e_comma) or - (fromBUFF(ex_buf, ex_buf_length, ex_buf_ptr-2) = e_toten)) - then ex_buf_ptr := ex_buf_ptr - 2 - else ex_buf_ptr := ex_buf_ptr - 4; - if (is_internalUPTEX) then - if((fromBUFF(ex_buf, ex_buf_length, ex_buf_ptr-3) = u_comma) or - (fromBUFF(ex_buf, ex_buf_length, ex_buf_ptr-3) = u_toten)) - then ex_buf_ptr := ex_buf_ptr - 3 - else ex_buf_ptr := ex_buf_ptr - 4; -@z - -@x - zen_pun_first: - begin - if((ex_buf[ex_buf_ptr+1]=zen_comma) or - (ex_buf[ex_buf_ptr+1]=zen_kuten) ) then -@y - e_pun_first: - if (is_internalEUC) then - begin - if ((fromBUFF(ex_buf, ex_buf_length, ex_buf_ptr) = e_comma) or - (fromBUFF(ex_buf, ex_buf_length, ex_buf_ptr) = e_toten)) then -@z -@x - else if(ex_buf[ex_buf_ptr+1]=zen_space) then -@y - else if (fromBUFF(ex_buf,ex_buf_length,ex_buf_ptr) = e_space) then -@z -@x - end; -@y - end else begin - ex_buf_ptr := ex_buf_ptr + multibytelen(ex_buf[ex_buf_ptr]); - preceding_white := false; - end; - u_pun_first1, - u_pun_first2: - if (is_internalUPTEX) then - begin - if ((fromBUFF(ex_buf, ex_buf_length, ex_buf_ptr) = u_comma) or - (fromBUFF(ex_buf, ex_buf_length, ex_buf_ptr) = u_toten)) then - begin - preceding_white := false; - and_found := true - end - else if (fromBUFF(ex_buf,ex_buf_length,ex_buf_ptr) = u_space) then - begin - ex_buf[ex_buf_ptr] := space; - ex_buf[ex_buf_ptr+1] := space; - ex_buf[ex_buf_ptr+2] := space; - preceding_white := true; - end; - ex_buf_ptr := ex_buf_ptr + 3; - end else begin - ex_buf_ptr := ex_buf_ptr + multibytelen(ex_buf[ex_buf_ptr]); - preceding_white := false; - end; -@z - -@x - if( ex_buf[ex_buf_ptr] > 127 ) then - ex_buf_ptr := ex_buf_ptr +2 - else - incr(ex_buf_ptr); -@y - ex_buf_ptr := ex_buf_ptr + multibytelen(ex_buf[ex_buf_ptr]); -@z - -@x - if name_buf[name_bf_ptr]>127 then begin - append_ex_buf_char_and_check (name_buf[name_bf_ptr]); - incr(name_bf_ptr); - append_ex_buf_char_and_check (name_buf[name_bf_ptr]); - end - else - append_ex_buf_char_and_check (name_buf[name_bf_ptr]); -@y - append_ex_buf_char_and_check (name_buf[name_bf_ptr]); - if multibytelen(name_buf[name_bf_ptr]) > 1 then - append_ex_buf_char_and_check (name_buf[name_bf_ptr+1]); - if multibytelen(name_buf[name_bf_ptr]) > 2 then - append_ex_buf_char_and_check (name_buf[name_bf_ptr+2]); - if multibytelen(name_buf[name_bf_ptr]) > 3 then - append_ex_buf_char_and_check (name_buf[name_bf_ptr+3]); - name_bf_ptr := name_bf_ptr + multibytelen(name_buf[name_bf_ptr])-1; -@z - -@x -{ 2 bytes Kanji code break check } -tps:=str_start[pop_lit3]; -while (tps < sp_ptr) do begin - if str_pool[tps] > 127 - then tps := tps + 2 - else incr(tps); -end; -tpe:=tps; -while (tpe < sp_end) do begin - if str_pool[tpe] > 127 - then tpe := tpe+2 - else incr(tpe); -end; -if tps<>sp_ptr then begin - if tps>str_start[pop_lit3] - then decr(sp_ptr) - else incr(sp_ptr); -end; -if tpe<>sp_end then begin - if tpe<str_start[pop_lit3+1] - then incr(sp_end) - else decr(sp_end); -end; -@y -{ |2..4| bytes Kanji code break check } -tps:=str_start[pop_lit3]; -tpe:=tps; -while tpe < str_start[pop_lit3+1] do begin - if multibytelen(str_pool[tpe])<0 - or (str_start[pop_lit3+1] < tpe+multibytelen(str_pool[tpe])) then - break; - tpe := tpe + multibytelen(str_pool[tpe]); - if tpe<=sp_ptr then - tps := tpe; - if sp_end<=tpe then break; -end; -sp_ptr := tps; -sp_end := tpe; -@z - -@x - if str_pool[sp_ptr] >127 then begin - append_char (str_pool[sp_ptr]); incr(sp_ptr); - append_char (str_pool[sp_ptr]); incr(sp_ptr); - end - else begin - append_char (str_pool[sp_ptr]); incr(sp_ptr); - end; -@y - append_char (str_pool[sp_ptr]); - incr(sp_ptr); -@z - -@x - incr(sp_xptr1); num_text_chars:=num_text_chars+2; -@y - num_text_chars := num_text_chars + multibytelen(str_pool[sp_xptr1-1]); - sp_xptr1 := sp_xptr1-1 + multibytelen(str_pool[sp_xptr1-1]); -@z - -@x -const n_options = 6; {Pascal won't count array lengths for us.} -@y -const n_options = 7; {Pascal won't count array lengths for us.} -@z - -@x - usage_help (PBIBTEX_HELP, 'issue@@texjp.org'); -@y - usage_help (UPBIBTEX_HELP, 'issue@@texjp.org'); -@z - -@x - end; {Else it was a flag; |getopt| has already done the assignment.} -@y - end else if argument_is ('kanji-internal') then begin - if (not (set_enc_string(nil,optarg) and - (is_internalEUC or is_internalUPTEX))) then - write_ln('Bad internal kanji encoding "', stringcast(optarg), '".'); - - end; {Else it was a flag; |getopt| has already done the assignment.} -@z - -@x -@ An element with all zeros always ends the list. -@y -@ Kanji-internal option. -@.-kanji-internal@> - -@<Define the option...@> = -long_options[current_option].name := 'kanji-internal'; -long_options[current_option].has_arg := 1; -long_options[current_option].flag := 0; -long_options[current_option].val := 0; -incr(current_option); - -@ An element with all zeros always ends the list. -@z - -@x procedure x_is_kanji_str -procedure x_is_kanji_str; -label exit; -@y -procedure x_is_kanji_str; -label exit; -var ctmp,clen:integer; -@z - -@x procedure x_is_kanji_str (cont.) - while sp_ptr<sp_end do begin - if str_pool[sp_ptr]>127 then begin - push_lit_stk(1,stk_int); - return; - end else begin - incr(sp_ptr); - end; - end; -@y - while sp_ptr<sp_end do begin - clen := multibytelen(str_pool[sp_ptr]); - if sp_ptr+clen<=sp_end then - ctmp := fromBUFF(str_pool, sp_ptr+clen, sp_ptr) - else - ctmp := str_pool[sp_ptr]; - if is_char_kanji_upbibtex(ctmp) then begin - push_lit_stk(1,stk_int); - return; - end else begin - if sp_ptr+clen<=sp_end then - sp_ptr := sp_ptr + clen - else - incr(sp_ptr); - end; - end; -@z - -@x -exit:end; -@y -exit:end; - -@ @<Procedures and functions for handling numbers, characters, and strings@>= -function is_char_kanji_upbibtex(@!c:integer):boolean; -label exit; -var k:integer; -begin - { based on upTeX-1.26 kcatcode status: 16,17,19->true / 15,18->false } - is_char_kanji_upbibtex := true; - if (is_internalUPTEX) then begin { should be in sync with |kcat_code| of uptex-m.ch } - k := kcatcodekey(c); - if k=@"24 then return { Hangul Jamo } - else if (k>=@"67)and(k<=@"69) then return { CJK Radicals Supplement .. Ideographic Description Characters } - else if (k>=@"6B)and(k<=@"6C) then return { Hiragana, Katakana } - else if k=@"6D then return { Bopomofo } - else if k=@"6E then return { Hangul Compatibility Jamo } - else if (k>=@"6F)and(k<=@"71) then return { Kanbun .. CJK Strokes } - else if k=@"72 then return { Katakana Phonetic Extensions } - else if k=@"75 then return { CJK Unified Ideographs Extension A } - else if k=@"77 then return { CJK Unified Ideographs } - else if k=@"87 then return { Hangul Jamo Extended-A } - else if k=@"92 then return { Hangul Syllables } - else if k=@"93 then return { Hangul Jamo Extended-B } - else if k=@"98 then return { CJK Compatibility Ideographs } - else if (k>=@"103)and(k<=@"105) then return { Kana Supplement .. Small Kana Extension } - else if (k>=@"129)and(k<=@"12F) then return { CJK Unified Ideographs Extension B .. G } - else if k=@"1FE then return { Fullwidth digit and latin alphabet } - else if k=@"1FF then return; { Halfwidth katakana } - end - else { is_internalEUC } - if is_char_kanji(c) then return; - is_char_kanji_upbibtex := false; -exit:end; - -@ @<Initialize variables depending on Kanji code@>= -if (is_internalUPTEX) then - begin - for i:=@"80 to @"BF do lex_class[i] := alpha; { trail bytes } - for i:=@"C0 to @"C1 do lex_class[i] := illegal; - for i:=@"C2 to @"F4 do lex_class[i] := alpha; { lead bytes } - for i:=@"F5 to @"FF do lex_class[i] := illegal; - for i:=@"C0 to @"C1 do id_class[i] := illegal_id_char; - for i:=@"F5 to @"FF do id_class[i] := illegal_id_char; - for i:=@"80 to @"BF do char_width[i]:=257; { trail bytes } - for i:=@"C2 to @"DF do char_width[i]:=771; { lead bytes (2bytes) } - for i:=@"E0 to @"EF do char_width[i]:=514; { lead bytes (3bytes) } - for i:=@"F0 to @"F4 do char_width[i]:=257; { lead bytes (4bytes) } - end -else - begin { is_internalEUC } - for i:=@'200 to @'240 do lex_class[i] := illegal; - for i:=@'241 to 254 do lex_class[i] := alpha; - lex_class[255]:=illegal; - for i:=@'200 to @'240 do id_class[i] := illegal_id_char; - id_class[255]:=illegal_id_char; - lex_class[@'33]:=alpha; - lex_class[e_ss3]:=alpha; - for i:=@'241 to 254 do char_width[i]:=514; - char_width[e_ss3]:=0; - end; -@z - diff --git a/Build/source/texk/web2c/uptexdir/upbibtex.test b/Build/source/texk/web2c/uptexdir/upbibtex.test deleted file mode 100755 index 715608c56d3..00000000000 --- a/Build/source/texk/web2c/uptexdir/upbibtex.test +++ /dev/null @@ -1,15 +0,0 @@ -#! /bin/sh -vx -# $Id$ -# Copyright 2017 Karl Berry <tex-live@tug.org> -# Copyright 2011-2013 Peter Breitenlohner <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -test -d uptests || mkdir -p uptests - -cp $srcdir/tests/exampl.aux uptests/xexampl.aux - -TEXMFCNF=$srcdir/../kpathsea \ - BSTINPUTS=$srcdir/tests \ - BIBINPUTS=$srcdir/tests \ - ./upbibtex uptests/xexampl || exit 1 - diff --git a/Build/source/texk/web2c/uptexdir/updvitype.ch b/Build/source/texk/web2c/uptexdir/updvitype.ch deleted file mode 100644 index 41b0aae3936..00000000000 --- a/Build/source/texk/web2c/uptexdir/updvitype.ch +++ /dev/null @@ -1,39 +0,0 @@ -@x -@d my_name=='pdvitype' -@d banner=='This is pDVItype, Version 3.6-p0.5' -@y -@d my_name=='updvitype' -@d banner=='This is upDVItype, Version 3.6-p0.5-u1.27' -@z - -@x procedure initialize - print (banner); - print_ln (version_string); -@y - print (banner); - print (' ('); - print (conststringcast(get_enc_string)); - print (')'); - print_ln (version_string); -@z - -@x procedure out_kanji - if text_ptr>=line_length-3 then flush_text; - c:=toBUFF(fromDVI(c)); - incr(text_ptr); text_buf[text_ptr]:= Hi(c); - incr(text_ptr); text_buf[text_ptr]:= Lo(c); -@y - if text_ptr>=line_length-5 then flush_text; - c:=toBUFF(fromDVI(c)); - if BYTE1(c)<>0 then begin incr(text_ptr); text_buf[text_ptr]:=BYTE1(c); end; - if BYTE2(c)<>0 then begin incr(text_ptr); text_buf[text_ptr]:=BYTE2(c); end; - if BYTE3(c)<>0 then begin incr(text_ptr); text_buf[text_ptr]:=BYTE3(c); end; - incr(text_ptr); text_buf[text_ptr]:=BYTE4(c); -@z - -@x - usage_help (PDVITYPE_HELP, 'issue@@texjp.org'); -@y - usage_help (UPDVITYPE_HELP, 'issue@@texjp.org'); -@z - diff --git a/Build/source/texk/web2c/uptexdir/updvitype.test b/Build/source/texk/web2c/uptexdir/updvitype.test deleted file mode 100755 index 191b01eca15..00000000000 --- a/Build/source/texk/web2c/uptexdir/updvitype.test +++ /dev/null @@ -1,20 +0,0 @@ -#! /bin/sh -vx -# $Id$ -# Copyright 2017 Karl Berry <tex-live@tug.org> -# Copyright 2011-2013 Peter Breitenlohner <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -test -d uptests || mkdir -p uptests - -if tfmpath=`$KPSEWHICH cmbx10.tfm`; then - - TEXMFCNF=$srcdir/../kpathsea \ - TFMFONTS=`dirname "$tfmpath"` \ - ./updvitype -show-opcodes $srcdir/tests/story >uptests/xstory.dvityp || exit 1 - -fi - -TEXMFCNF=$srcdir/../kpathsea \ - TFMFONTS=$srcdir/tests \ - ./updvitype --p=\*.\*.2 $srcdir/tests/pagenum.dvi >uptests/xpagenum.typ || exit 1 - diff --git a/Build/source/texk/web2c/uptexdir/uppltotf.ch b/Build/source/texk/web2c/uptexdir/uppltotf.ch deleted file mode 100644 index 8978f5de8d6..00000000000 --- a/Build/source/texk/web2c/uptexdir/uppltotf.ch +++ /dev/null @@ -1,108 +0,0 @@ -@x -@d my_name=='ppltotf' -@d banner=='This is pPLtoTF, Version 3.6-p2.0' -@y -@d my_name=='uppltotf' -@d banner=='This is upPLtoTF, Version 3.6-p2.0-u1.27' -@z - -@x - usage_help (PPLTOTF_HELP, 'issue@@texjp.org'); -@y - usage_help (UPPLTOTF_HELP, 'issue@@texjp.org'); -@z - -@x -max_kanji=7237; { maximum number of 2byte characters } -max_kanji_code=@"7E7E; { maximum jis code } -@y -max_kanji=1114111; { maximam number of 2byte characters } -max_kanji_code=@"10FFFF; { maximum ucs code } -@z - -@x function get_next_raw -if multistrlen(ustringcast(buffer),loc+2,loc)=2 then cur_char:=" " -@y -if multistrlen(ustringcast(buffer),loc+3,loc)>1 then cur_char:=" " -@z - -@x procedure print_jis_hex -var dig:array[0..3] of byte; {holds jis hex codes} -i:byte; {index of array} -begin dig[0]:=Hi(jis_code) div 16; dig[1]:=Hi(jis_code) mod 16; -dig[2]:=Lo(jis_code) div 16; dig[3]:=Lo(jis_code) mod 16; -for i:=0 to 3 do -@y -var dig:array[0..5] of byte; {holds jis hex codes} -i:byte; {index of array} -begin dig[0]:=(jis_code div 65536) div 16; dig[1]:=(jis_code div 65536) mod 16; -dig[2]:=(jis_code div 4096) mod 16; dig[3]:=(jis_code div 256) mod 16; -dig[4]:=(jis_code div 16) mod 16; dig[5]:=jis_code mod 16; -for i:=0 to 1 do - if (dig[i]<>0)or(dig[0]<>0) then begin { if dig[0]<>0, dig[1] should be always printed } - if dig[i]<10 then print(dig[i]) else - case dig[i] of - 10: print('A'); 11: print('B'); 12: print('C'); - 13: print('D'); 14: print('E'); 15: print('F'); - end; - end; -for i:=2 to 5 do -@z - -@x function valid_jis_code -var @!first_byte,@!second_byte:integer; { jis code bytes } -begin valid_jis_code:=true; -first_byte:=cx div @'400; second_byte:=cx mod @'400; -if (first_byte<@"21) - or((first_byte>@"28)and(first_byte<@"30)) - or(first_byte>@"74) then valid_jis_code:=false; -if (second_byte<@"21)or(second_byte>@"7E) then valid_jis_code:=false; -@y -begin valid_jis_code:=true; -if (cx>@"10FFFF)or(not is_char_kanji(fromDVI(cx))) - or(toDVI(fromDVI(cx))<>cx) then valid_jis_code:=false; -@z - -@x function jis_to_index -var @!first_byte,@!second_byte:integer; { jis code bytes } -begin -first_byte:=jis div @'400 -@"21; -second_byte:=jis mod @'400 -@"21; -if first_byte<8 then - jis_to_index:=first_byte*94+second_byte -else { next |first_byte| start 16 } - jis_to_index:=(first_byte-7)*94+second_byte; -@y -begin -jis_to_index:=jis; -@z - -@x function index_to_jis -begin if ix<=8*94-1 then - index_to_jis:=(ix div 94 +@"21)*@'400+(ix mod 94 +@"21) -else - index_to_jis:=((ix+7*94) div 94 +@"21)*@'400+((ix+7*94) mod 94 +@"21); -@y -begin -index_to_jis:=ix; -@z - -@x function get_kanji -else if multistrlen(ustringcast(buffer), loc+2, loc)=2 then - begin jis_code:=toDVI(fromBUFF(ustringcast(buffer), loc+2, loc)); - incr(loc); cur_char:=" "; -@y -else if (ch='U')or(ch='u') then - begin repeat ch:=get_next_raw; - until ch<>' '; {skip the blanks after the type code} - @<Scan a Kanji hexadecimal code@>; - jis_code:=toDVI(fromUCS(cx)); cur_char:=ch; - if not valid_jis_code(jis_code) then - err_print('jis code ', jis_code:1, ' is invalid'); - end -else if multistrlen(ustringcast(buffer), loc+4, loc)>1 then - begin cur_char:=" "; - jis_code:=toDVI(fromBUFF(ustringcast(buffer), loc+4, loc)); - loc:=loc+multistrlen(ustringcast(buffer), loc+4, loc)-1; -@z - diff --git a/Build/source/texk/web2c/uptexdir/uppltotf.test b/Build/source/texk/web2c/uptexdir/uppltotf.test deleted file mode 100755 index 845a5c51441..00000000000 --- a/Build/source/texk/web2c/uptexdir/uppltotf.test +++ /dev/null @@ -1,10 +0,0 @@ -#! /bin/sh -vx -# $Id$ -# Copyright 2017 Karl Berry <tex-live@tug.org> -# Copyright 2011-2013 Peter Breitenlohner <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -test -d uptests || mkdir -p uptests - -./uppltotf -verbose $srcdir/tests/cmr10 uptests/xcmr10 || exit 1 - diff --git a/Build/source/texk/web2c/uptexdir/uptex-m.ch b/Build/source/texk/web2c/uptexdir/uptex-m.ch deleted file mode 100644 index 78f830cb897..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptex-m.ch +++ /dev/null @@ -1,1266 +0,0 @@ -% This is a change file for upTeX u1.27 -% By Takuji Tanaka. -% -% (02/26/2007) TTK upTeX u0.01 -% (03/18/2007) TTK upTeX u0.03 -% (04/08/2007) TTK upTeX u0.05 -% (04/15/2007) TTK upTeX u0.06 -% (05/13/2007) TTK upTeX u0.07 -% (05/28/2007) TTK upTeX u0.08 -% (06/16/2007) TTK upTeX u0.09 -% (07/28/2007) TTK upTeX u0.10 -% (08/07/2007) TTK upTeX u0.11 -% (08/25/2007) TTK upTeX u0.12 -% (09/15/2007) TTK upTeX u0.13 -% (09/25/2007) TTK upTeX u0.14 -% (10/18/2007) TTK upTeX u0.15 -% (11/10/2007) TTK upTeX u0.16 -% (11/13/2007) TTK upTeX u0.17 -% (12/08/2007) TTK upTeX u0.18 -% (12/26/2007) TTK upTeX u0.19 -% (01/12/2008) TTK upTeX u0.20 -% (03/13/2008) TTK upTeX u0.21 -% (08/03/2008) TTK upTeX u0.22 -% (09/04/2008) TTK upTeX u0.23 -% (10/18/2008) TTK upTeX u0.24 -% (12/13/2008) TTK upTeX u0.25 -% (02/21/2009) TTK upTeX u0.26 -% (03/12/2009) TTK upTeX u0.27 -% (08/23/2009) TTK upTeX u0.28 -% (01/31/2010) TTK upTeX u0.29 -% (04/10/2010) TTK upTeX u0.30 -% (01/15/2012) TTK upTeX u1.00 -% (04/29/2012) TTK upTeX u1.10 -% (08/13/2012) TTK upTeX u1.11 -% (12/29/2014) TTK upTeX u1.20 -% (02/20/2016) TTK upTeX u1.21 -% (01/15/2017) TTK upTeX u1.22 -% (04/09/2017) TTK Hironori Kitagawa fixed a bug in \endlinechar. -% (2018-01-21) HK Added \uptexversion primitive and co. -% (2018-02-24) TTK upTeX u1.23 -% (2019-02-23) TTK upTeX u1.24 -% (2019-05-06) HK Hironori Kitagawa fixed a bug in \if. -% (2019-05-06) TTK upTeX u1.25 -% (2020-02-22) TTK upTeX u1.26 -% (2020-10-25) TTK upTeX u1.27 - -@x upTeX: banner - {printed when \pTeX\ starts} -@y - {printed when \pTeX\ starts} -@# -@d upTeX_version=1 -@d upTeX_revision==".27" -@d upTeX_version_string=='-u1.27' {current u\pTeX\ version} -@# -@d upTeX_banner=='This is upTeX, Version 3.141592653',pTeX_version_string,upTeX_version_string -@d upTeX_banner_k==upTeX_banner - {printed when u\pTeX\ starts} -@z - -@x upTeX: banner -@d banner==pTeX_banner -@d banner_k==pTeX_banner_k -@y -@d banner==upTeX_banner -@d banner_k==upTeX_banner_k -@z - -@x -@!KANJI_code=0..65535; {sixteen-bit numbers} -@y -@!KANJI_code=0..@"FFFFFF; {0..0x10FFFF: Unicode, 0x110000..0xFFFFFF: special} -@z - -@x -@!trick_buf2:array[0..ssup_error_line] of 0..2; {pTeX: buffer for KANJI} -@!kcode_pos: 0..2; {pTeX: denotes whether first byte or second byte of KANJI} -@y -@!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|} -@z - -@x -procedure print_ln; {prints an end-of-line} -@y -procedure print_ln; {prints an end-of-line} -var @!ii: integer; -@z - -@x - if kcode_pos=1 then begin wterm(' '); wlog(' '); end; -@y - if nrestmultichr(kcode_pos)>0 then - for ii:=0 to nrestmultichr(kcode_pos)-1 do - begin wterm(' '); wlog(' '); end; -@z - -@x -log_only: begin if kcode_pos=1 then wlog(' '); -@y -log_only: begin - if nrestmultichr(kcode_pos)>0 then - for ii:=0 to nrestmultichr(kcode_pos)-1 do wlog(' '); -@z - -@x -term_only: begin if kcode_pos=1 then wterm(' '); -@y -term_only: begin - if nrestmultichr(kcode_pos)>0 then - for ii:=0 to nrestmultichr(kcode_pos)-1 do wterm(' '); -@z - -@x -if kcode_pos=1 then kcode_pos:=2 -@y -if (kcode_pos=1)or((kcode_pos>=@'11)and(kcode_pos<=@'12)) - or((kcode_pos>=@'21)and(kcode_pos<=@'23)) then incr(kcode_pos) -@z - -@x - begin kcode_pos:=1; -@y - begin - if (ismultichr(4,1,xchr[s])) then kcode_pos:=@'21 - else if (ismultichr(3,1,xchr[s])) then kcode_pos:=@'11 - else kcode_pos:=1; -@z - -@x - if file_offset>=max_print_line-1 then -@y - if file_offset>=max_print_line-nrestmultichr(kcode_pos) then -@z - -@x - if term_offset>=max_print_line-1 then -@y - if term_offset>=max_print_line-nrestmultichr(kcode_pos) then -@z - -@x -@d min_quarterword=0 {smallest allowable value in a |quarterword|} -@d max_quarterword=255 {largest allowable value in a |quarterword|} -@d min_halfword==-@"FFFFFFF {smallest allowable value in a |halfword|} -@d max_halfword==@"FFFFFFF {largest allowable value in a |halfword|} -@d max_cjk_val=@"10000 -@y -@d min_quarterword=0 {smallest allowable value in a |quarterword|} -@d max_quarterword=@"FFFF {largest allowable value in a |quarterword|} -@d min_halfword=-@"3FFFFFFF {smallest allowable value in a |halfword|} -@d max_halfword=@"3FFFFFFF {largest allowable value in a |halfword|} -@d max_cjk_val=@"1000000 {to separate wchar and kcatcode} -@z - -@x -@d kanji=16 {kanji} -@d kana=17 {hiragana, katakana, alphabet} -@d other_kchar=18 {kanji codes} -@d max_char_code=18 {largest catcode for individual characters} -@y -@d not_cjk=15 {is not cjk characters} -@d kanji=16 {kanji} -@d kana=17 {hiragana, katakana, alphabet} -@d other_kchar=18 {cjk symbol codes} -@d hangul=19 {hangul codes} -@d max_char_code=19 {largest catcode for individual characters} -@z - -@x -@d math_comp=left_right+1 {component of formula ( \.{\\mathbin}, etc.~)} -@y -@d kchar_num=left_right+1 {cjk character specified numerically ( \.{\\kchar} )} -@d math_comp=kchar_num+1 {component of formula ( \.{\\mathbin}, etc.~)} -@z - -@x -@d math_given=char_given+1 {math code defined by \.{\\mathchardef}} -@y -@d kchar_given=char_given+1 {cjk character code defined by \.{\\kchardef}} -@d math_given=kchar_given+1 {math code defined by \.{\\mathchardef}} -@z - -@x -@d max_command=set_auto_spacing {the largest command code seen at |big_switch|} -@y -@d set_enable_cjk_token=set_auto_spacing+1 {set cjk mode ( \.{\\enablecjktoken}, \.{\\disablecjktoken}, \.{\\forcecjktoken} )} -@d max_command=set_enable_cjk_token {the largest command code seen at |big_switch|} -@z - -@x -@d cat_code_base=auto_xspacing_code+1 - {table of 256 command codes (the ``catcodes'')} -@d kcat_code_base=cat_code_base+256 - {table of 256 command codes for the wchar's catcodes } -@d auto_xsp_code_base=kcat_code_base+256 {table of 256 auto spacer flag} -@y -@d enable_cjk_token_code=auto_xspacing_code+1 -@d cat_code_base=enable_cjk_token_code+1 - {table of 256 command codes (the ``catcodes'')} -@d kcat_code_base=cat_code_base+256 - {table of 512 command codes for the wchar's catcodes } -@d auto_xsp_code_base=kcat_code_base+512 {table of 256 auto spacer flag} -@z - -@x -@d auto_xspacing==equiv(auto_xspacing_code) -@y -@d auto_xspacing==equiv(auto_xspacing_code) -@d enable_cjk_token==equiv(enable_cjk_token_code) -@z - -@x -eqtb[auto_xspacing_code]:=eqtb[cat_code_base]; -for k:=0 to 255 do - begin cat_code(k):=other_char; kcat_code(k):=other_kchar; - math_code(k):=hi(k); sf_code(k):=1000; - auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0; - kinsoku_code(k):=0; kinsoku_type(k):=0; - end; -@y -eqtb[auto_xspacing_code]:=eqtb[cat_code_base]; -eqtb[enable_cjk_token_code]:=eqtb[cat_code_base]; -for k:=0 to 255 do - begin cat_code(k):=other_char; - math_code(k):=hi(k); sf_code(k):=1000; - auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0; - kinsoku_code(k):=0; kinsoku_type(k):=0; - end; -for k:=0 to 511 do - begin kcat_code(k):=other_kchar; - end; -@z - -@x -@t\hskip10pt@>kcat_code(@"20+1):=other_kchar; {1 ku} -@t\hskip10pt@>kcat_code(@"20+2):=other_kchar; {2 ku} -@+@t\1@>for k:=3 to 6 do kcat_code(@"20+k):=kana; {3 ku ... 6 ku} -@+@t\1@>for k:=7 to 8 do kcat_code(@"20+k):=other_kchar; {7 ku ... 8 ku} -@+@t\1@>for k:=16 to 84 do kcat_code(@"20+k):=kanji; {16 ku ... 84 ku} -{ $\.{@@"20}+|k| = |kcatcodekey|(|fromKUTEN|(|HILO|(k,1))$ } -@y -if (isinternalUPTEX) then begin - { default: |other_kchar| } - @t\hskip10pt@>kcat_code(@"0):=not_cjk; - @+@t\1@>for k:=@"2 to @"3 do kcat_code(k):=not_cjk; { Latin Extended-A, Latin Extended-B } - @t\hskip10pt@>kcat_code(@"24):=hangul; { Hangul Jamo } - @t\hskip10pt@>kcat_code(@"45):=not_cjk; { Latin Extended Additional } - @+@t\1@>for k:=@"67 to @"69 do kcat_code(k):=kanji; { CJK Radicals Supplement .. Ideographic Description Characters } - @+@t\1@>for k:=@"6B to @"6C do kcat_code(k):=kana; { Hiragana, Katakana } - @t\hskip10pt@>kcat_code(@"6D):=kanji; { Bopomofo } - @t\hskip10pt@>kcat_code(@"6E):=hangul; { Hangul Compatibility Jamo } - @+@t\1@>for k:=@"6F to @"71 do kcat_code(k):=kanji; { Kanbun .. CJK Strokes } - @t\hskip10pt@>kcat_code(@"72):=kana; { Katakana Phonetic Extensions } - @t\hskip10pt@>kcat_code(@"75):=kanji; { CJK Unified Ideographs Extension A } - @t\hskip10pt@>kcat_code(@"77):=kanji; { CJK Unified Ideographs } - @t\hskip10pt@>kcat_code(@"87):=hangul; { Hangul Jamo Extended-A } - @t\hskip10pt@>kcat_code(@"92):=hangul; { Hangul Syllables } - @t\hskip10pt@>kcat_code(@"93):=hangul; { Hangul Jamo Extended-B } - @t\hskip10pt@>kcat_code(@"98):=kanji; { CJK Compatibility Ideographs } - { \hskip10pt|kcat_code(@"A1):=other_kchar;| Halfwidth and Fullwidth Forms } - @+@t\1@>for k:=@"103 to @"105 do kcat_code(k):=kana; { Kana Supplement .. Small Kana Extension } - @+@t\1@>for k:=@"129 to @"12F do kcat_code(k):=kanji; { CJK Unified Ideographs Extension B .. G } - @t\hskip10pt@>kcat_code(@"1FD):=not_cjk; { Latin-1 Letters } - @t\hskip10pt@>kcat_code(@"1FE):=kana; { Fullwidth digit and latin alphabet } - @t\hskip10pt@>kcat_code(@"1FF):=kana; { Halfwidth katakana } -end else begin - @t\hskip10pt@>kcat_code(@"20+1):=other_kchar; {1 ku} - @t\hskip10pt@>kcat_code(@"20+2):=other_kchar; {2 ku} - @+@t\1@>for k:=3 to 6 do kcat_code(@"20+k):=kana; {3 ku ... 6 ku} - @+@t\1@>for k:=7 to 13 do kcat_code(@"20+k):=other_kchar; {7 ku ... 13 ku} - @+@t\1@>for k:=14 to 120 do kcat_code(@"20+k):=kanji; {14 ku ... 120 ku} - { $\.{@@"20}+|k| = |kcatcodekey|(|fromKUTEN|(|HILO|(k,1))$ } - @+@t\1@>for k:=16 to 94 do kcat_code(@"A0+k):=kanji; {2 men 16 ku ... 94 ku} -end; -@z - -@x l.5897 - upTeX -primitive("char",char_num,0);@/ -@!@:char_}{\.{\\char} primitive@> -@y -primitive("char",char_num,0);@/ -@!@:char_}{\.{\\char} primitive@> -primitive("kchar",kchar_num,0);@/ -@!@:kchar_}{\.{\\kchar} primitive@> -@z - -@x -ital_corr: print_esc("/"); -@y -ital_corr: print_esc("/"); -kchar_num: print_esc("kchar"); -@z - -@x -@d cs_token_flag==@"FFFF {amount added to the |eqtb| location in a -token that stands for a control sequence; is a multiple of~256, less~1} -@d left_brace_token=@'0400 {$2^8\cdot|left_brace|$} -@d left_brace_limit=@'1000 {$2^8\cdot(|left_brace|+1)$} -@d right_brace_token=@'1000 {$2^8\cdot|right_brace|$} -@d right_brace_limit=@'1400 {$2^8\cdot(|right_brace|+1)$} -@d math_shift_token=@'1400 {$2^8\cdot|math_shift|$} -@d tab_token=@'2000 {$2^8\cdot|tab_mark|$} -@d out_param_token=@'2400 {$2^8\cdot|out_param|$} -@d space_token=@'5040 {$2^8\cdot|spacer|+|" "|$} -@d letter_token=@'5400 {$2^8\cdot|letter|$} -@d other_token=@'6000 {$2^8\cdot|other_char|$} -@d match_token=@'6400 {$2^8\cdot|match|$} -@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} -@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)$} -@d right_brace_token=@"200 {$2^8\cdot|right_brace|$} -@d right_brace_limit=@"300 {$2^8\cdot(|right_brace|+1)$} -@d math_shift_token=@"300 {$2^8\cdot|math_shift|$} -@d tab_token=@"400 {$2^8\cdot|tab_mark|$} -@d out_param_token=@"500 {$2^8\cdot|out_param|$} -@d space_token=@"A20 {$2^8\cdot|spacer|+|" "|$} -@d letter_token=@"B00 {$2^8\cdot|letter|$} -@d other_token=@"C00 {$2^8\cdot|other_char|$} -@d match_token=@"D00 {$2^8\cdot|match|$} -@d end_match_token=@"E00 {$2^8\cdot|end_match|$} -@z - -@x - if check_kanji(info(p)) then {|wchar_token|} - begin m:=kcat_code(kcatcodekey(info(p))); c:=info(p); - end - else begin m:=Hi(info(p)); c:=Lo(info(p)); -@y - if check_kanji(info(p)) then {|wchar_token|} - begin m:=info(p) div max_cjk_val; c:=info(p) mod max_cjk_val; end - else begin m:=info(p) div max_char_val; c:=info(p) mod max_char_val; -@z - -@x -kanji,kana,other_kchar: print_kanji(KANJI(c)); -@y -kanji,kana,other_kchar,hangul: print_kanji(KANJI(c)); -@z - -@x -kanji,kana,other_kchar: begin print("kanji character "); -@y -kanji,kana,other_kchar,hangul: begin print("kanji character "); -@z - -@x - if (first_count>0)and(trick_buf2[(first_count-1)mod error_line]=1) then - incr(first_count); -@y - kcp:=trick_buf2[(first_count-1)mod error_line]; - if (first_count>0)and(kcp>0) then - first_count:=first_count+nrestmultichr(kcp); -@z - -@x -if trick_buf2[p mod error_line]=2 then - begin p:=p+1; n:=n-1; - end; -@y -kcp:=trick_buf2[p mod error_line]; -if (kcp mod @'10)>1 then begin - p:=p+nrestmultichr(kcp)+1; n:=n-nrestmultichr(kcp)-1; end; -@z - -@x -if trick_buf2[(p-1) mod error_line]=1 then p:=p-1; -@y -kcp:=trick_buf2[(p-1) mod error_line]; -if ((kcp mod @'10)>0)and(nrestmultichr(kcp)>0) then p:=p-(kcp mod @'10); -@z - -@x - s:=get_avail; info(s):=Lo(info(loc)); -@y - s:=get_avail; info(s):=(info(loc) mod max_char_val); -@z - -@x - begin cur_chr:=buffer[loc]; incr(loc); - if multistrlen(ustringcast(buffer), limit+1, loc-1)=2 then - begin cur_chr:=fromBUFF(ustringcast(buffer), limit+1, loc-1); - cur_cmd:=kcat_code(kcatcodekey(cur_chr)); - incr(loc); - end - else reswitch: cur_cmd:=cat_code(cur_chr); -@y - begin - cur_chr:=fromBUFF(ustringcast(buffer), limit+1, loc); - cur_cmd:=kcat_code(kcatcodekey(cur_chr)); - if (multistrlen(ustringcast(buffer), limit+1, loc)>1) and check_kcat_code(cur_cmd) then begin - if (cur_cmd=not_cjk) then cur_cmd:=other_kchar; - loc:=loc+multistrlen(ustringcast(buffer), limit+1, loc) end - else begin - cur_chr:=buffer[loc]; incr(loc); - reswitch: cur_cmd:=cat_code(cur_chr); - end; -@z - -@x -@ @d add_delims_to(#)==#+math_shift,#+tab_mark,#+mac_param, - #+sub_mark,#+letter,#+other_char -@d all_jcode(#)==#+kanji,#+kana,#+other_kchar -@y -@ @d add_delims_to(#)==#+math_shift,#+tab_mark,#+mac_param, - #+sub_mark,#+letter,#+other_char -@d all_jcode(#)==#+kanji,#+kana,#+other_kchar -@d hangul_code(#)==#+hangul -@z - -@x -all_jcode(skip_blanks),all_jcode(new_line),all_jcode(mid_line): - state:=mid_kanji; -@y -all_jcode(skip_blanks),all_jcode(new_line),all_jcode(mid_line): - state:=mid_kanji; -hangul_code(skip_blanks),hangul_code(new_line),hangul_code(mid_kanji): - state:=mid_line; -@z - -@x -else begin k:=loc; cur_chr:=buffer[k]; incr(k); - if multistrlen(ustringcast(buffer), limit+1, k-1)=2 then - begin cat:=kcat_code(kcatcodekey(fromBUFF(ustringcast(buffer), limit+1, k-1))); incr(k); - end - else cat:=cat_code(cur_chr); -start_cs: - if (cat=letter)or(cat=kanji)or(cat=kana) then state:=skip_blanks -@y -else begin k:=loc; - cur_chr:=fromBUFF(ustringcast(buffer), limit+1, k); - cat:=kcat_code(kcatcodekey(cur_chr)); - if (multistrlen(ustringcast(buffer), limit+1, k)>1) and check_kcat_code(cat) then begin - if (cat=not_cjk) then cat:=other_kchar; - k:=k+multistrlen(ustringcast(buffer), limit+1, k) end - else begin {not multi-byte char} - cur_chr:=buffer[k]; - cat:=cat_code(cur_chr); - incr(k); - end; -start_cs: - if (cat=letter)or(cat=kanji)or(cat=kana)or(cat=hangul) then state:=skip_blanks -@z - -@x - else if ((cat=letter)or(cat=kanji)or(cat=kana))and(k<=limit) then -@y - else if ((cat=letter)or(cat=kanji)or(cat=kana)or(cat=hangul))and(k<=limit) then -@z - -@x - if (cat=kanji)or(cat=kana) then -@y - if (cat=kanji)or(cat=kana)or(cat=hangul) then -@z - -@x -begin repeat cur_chr:=buffer[k]; incr(k); - if multistrlen(ustringcast(buffer), limit+1, k-1)=2 then - begin cat:=kcat_code(kcatcodekey(fromBUFF(ustringcast(buffer), limit+1, k-1))); incr(k); - end - else cat:=cat_code(cur_chr); -@y -begin repeat - cur_chr:=fromBUFF(ustringcast(buffer), limit+1, k); - cat:=kcat_code(kcatcodekey(cur_chr)); - if (multistrlen(ustringcast(buffer), limit+1, k)>1) and check_kcat_code(cat) then begin - if (cat=not_cjk) then cat:=other_kchar; - k:=k+multistrlen(ustringcast(buffer), limit+1, k) end - else begin {not multi-byte char} - cur_chr:=buffer[k]; - cat:=cat_code(cur_chr); - incr(k); - end; -@z - -@x -until not((cat=letter)or(cat=kanji)or(cat=kana))or(k>limit); -{@@<If an expanded...@@>;} -if not((cat=letter)or(cat=kanji)or(cat=kana)) then decr(k); -if cat=other_kchar then decr(k); {now |k| points to first nonletter} -@y -until not((cat=letter)or(cat=kanji)or(cat=kana)or(cat=hangul))or(k>limit); -{@@<If an expanded...@@>;} -if not((cat=letter)or(cat=kanji)or(cat=kana)or(cat=hangul)) then decr(k); -if cat=other_kchar then k:=k-multilenbuffchar(cur_chr)+1; {now |k| points to first nonletter} -@z - -@x - else if check_kanji(t) then {|wchar_token|} - begin cur_chr:=t; cur_cmd:=kcat_code(kcatcodekey(t)); - end - else - begin cur_cmd:=Hi(t); cur_chr:=Lo(t); -@y - else if check_kanji(t) then {|wchar_token|} - begin cur_cmd:=t div max_cjk_val; cur_chr:=t mod max_cjk_val; end - else - begin cur_cmd:=t div max_char_val; cur_chr:=t mod max_char_val; -@z - -@x - if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {|wchar_token|} - cur_tok:=cur_chr - else cur_tok:=(cur_cmd*@'400)+cur_chr -@y - if (cur_cmd>=kanji)and(cur_cmd<=hangul) then {|wchar_token|} - cur_tok:=(cur_cmd*max_cjk_val)+cur_chr - else cur_tok:=(cur_cmd*max_char_val)+cur_chr -@z - -@x - if check_kanji(info(p)) then {|wchar_token|} - begin buffer[j]:=Hi(info(p)); incr(j); - end; - buffer[j]:=Lo(info(p)); incr(j); p:=link(p); -@y - if check_kanji(info(p)) then {|wchar_token|} - begin t:=toBUFF(info(p) mod max_cjk_val); - if BYTE1(t)<>0 then begin buffer[j]:=BYTE1(t); incr(j); end; - if BYTE2(t)<>0 then begin buffer[j]:=BYTE2(t); incr(j); end; - if BYTE3(t)<>0 then begin buffer[j]:=BYTE3(t); incr(j); end; - buffer[j]:=BYTE4(t); incr(j); - p:=link(p); - end - else - begin buffer[j]:=info(p) mod max_char_val; incr(j); p:=link(p); - end; -@z - -@x - if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then - cur_tok:=cur_chr - else cur_tok:=(cur_cmd*@'400)+cur_chr -@y - if (cur_cmd>=kanji)and(cur_cmd<=hangul) then - cur_tok:=(cur_cmd*max_cjk_val)+cur_chr - else cur_tok:=(cur_cmd*max_char_val)+cur_chr -@z - -@x - if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then - cur_tok:=cur_chr - else cur_tok:=(cur_cmd*@'400)+cur_chr -@y - if (cur_cmd>=kanji)and(cur_cmd<=hangul) then - cur_tok:=(cur_cmd*max_cjk_val)+cur_chr - else cur_tok:=(cur_cmd*max_char_val)+cur_chr -@z - -@x -char_given,math_given: scanned_result(cur_chr)(int_val); -@y -kchar_given, -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|} -@z - -@x -@!t:halfword; {token being appended} -@!k:pool_pointer; {index into |str_pool|} -begin str_room(1); -p:=temp_head; link(p):=null; k:=b; -while k<pool_ptr do - begin t:=so(str_pool[k]); - if multistrlen(ustringcast(str_pool), pool_ptr, k)=2 then - begin t:=fromBUFF(ustringcast(str_pool), pool_ptr, k); incr(k); - end - else if t=" " then t:=space_token - else t:=other_token+t; -@y -@!t:halfword; {token being appended} -@!k:pool_pointer; {index into |str_pool|} -@!cc:escape..max_char_code; -begin str_room(1); -p:=temp_head; link(p):=null; k:=b; -while k<pool_ptr do - begin t:=fromBUFF(ustringcast(str_pool), pool_ptr, k); - cc:=kcat_code(kcatcodekey(t)); - if (multistrlen(ustringcast(str_pool), pool_ptr, k)>1)and - check_kcat_code(cc) then - begin if (cc=not_cjk) then cc:=other_kchar; - t:=t+cc*max_cjk_val; - k:=k+multistrlen(ustringcast(str_pool), pool_ptr, k)-1; - end - else begin t:=so(str_pool[k]); - if t=" " then t:=space_token - else t:=other_token+t; - end; -@z - -@x - -@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_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 -@!@:kuten_}{\.{\\kuten} primitive@> -@y -@!@:kuten_}{\.{\\kuten} primitive@> -primitive("ucs",convert,ucs_code); -@!@:ucs_}{\.{\\ucs} primitive@> -@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"); - ucs_code:print_esc("ucs"); -@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|} -@z - -@x -kuten_code: print_int(fromKUTEN(cur_val)); -@y -kuten_code: print_int(fromKUTEN(cur_val)); -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 - begin n:=cur_chr; m:=kcat_code(kcatcodekey(n)); - end -@y -if (cur_cmd>=kanji)and(cur_cmd<=hangul) then - begin m:=cur_cmd; n:=cur_chr; - end -@z - -@x -get_x_token_or_active_char; -if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then - begin cur_cmd:=kcat_code(kcatcodekey(cur_chr)); - end -@y -get_x_token_or_active_char; -if (cur_cmd>=kanji)and(cur_cmd<=hangul) then - begin cur_cmd:=cur_cmd; - end {dummy} -@z - -@x - if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {is kanji} - begin str_room(2); - append_char(Hi(cur_chr)); {kanji upper byte} - append_char(Lo(cur_chr)); {kanji lower byte} -@y - if (cur_cmd>=kanji)and(cur_cmd<=hangul) then {|wchar_token|} - begin str_room(4); {4 is maximum} - cur_chr:=toBUFF(cur_chr); - if BYTE1(cur_chr)<>0 then append_char(BYTE1(cur_chr)); - if BYTE2(cur_chr)<>0 then append_char(BYTE2(cur_chr)); - if BYTE3(cur_chr)<>0 then append_char(BYTE3(cur_chr)); - append_char(BYTE4(cur_chr)); -@z - -@x -@d set2=129 {typeset a character and move right} -@y -@d set2=129 {typeset a character and move right} -@d set3=130 {typeset a character and move right} -@z - -@x - jc:=toDVI(KANJI(info(p))); - dvi_out(set2); dvi_out(Hi(jc)); dvi_out(Lo(jc)); -@y - jc:=toDVI(KANJI(info(p)) mod max_cjk_val); - if (jc<@"10000) then begin - dvi_out(set2); - end else begin - dvi_out(set3); dvi_out(BYTE2(jc)); - end; - dvi_out(BYTE3(jc)); dvi_out(BYTE4(jc)); -@z - -@x -loop@+ begin get_x_token; - reswitch: case cur_cmd of - letter,other_char,char_given:@<Append a new letter or hyphen@>; - char_num: begin scan_char_num; cur_chr:=cur_val; cur_cmd:=char_given; - goto reswitch; - end; -@y -loop@+ begin get_x_token; - reswitch: case cur_cmd of - letter,other_char,char_given,kchar_given:@<Append a new letter or hyphen@>; - char_num,kchar_num: begin scan_char_num; cur_chr:=cur_val; cur_cmd:=char_given; - goto reswitch; - end; -@z - -@x -hmode+kanji,hmode+kana,hmode+other_kchar: goto main_loop_j; -hmode+char_given: - if is_char_ascii(cur_chr) then goto main_loop else goto main_loop_j; -hmode+char_num: begin scan_char_num; cur_chr:=cur_val; - if is_char_ascii(cur_chr) then goto main_loop else goto main_loop_j; - end; -hmode+no_boundary: begin get_x_token; - if (cur_cmd=letter)or(cur_cmd=other_char)or - (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar)or - (cur_cmd=char_given)or(cur_cmd=char_num) then cancel_boundary:=true; -@y -hmode+kanji,hmode+kana,hmode+other_kchar,hmode+hangul,hmode+kchar_given: goto main_loop_j; -hmode+char_given: - if check_echar_range(cur_chr) then goto main_loop else goto main_loop_j; -hmode+char_num: begin scan_char_num; cur_chr:=cur_val; - if check_echar_range(cur_chr) then goto main_loop else goto main_loop_j; - end; -hmode+kchar_num: begin scan_char_num; cur_chr:=cur_val; - goto main_loop_j; - end; -hmode+no_boundary: begin get_x_token; - if (cur_cmd=letter)or(cur_cmd=other_char)or - ((cur_cmd>=kanji)and(cur_cmd<=hangul))or - (cur_cmd=char_given)or(cur_cmd=char_num)or - (cur_cmd=kchar_given)or(cur_cmd=kchar_num) then cancel_boundary:=true; -@z - -@x -if cur_cmd=letter then goto main_loop_lookahead+1; -if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then - @<goto |main_lig_loop|@>; -if cur_cmd=other_char then goto main_loop_lookahead+1; -if cur_cmd=char_given then - begin if is_char_ascii(cur_chr) then goto main_loop_lookahead+1 - else @<goto |main_lig_loop|@>; - end; -x_token; {now expand and set |cur_cmd|, |cur_chr|, |cur_tok|} -if cur_cmd=letter then goto main_loop_lookahead+1; -if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then - @<goto |main_lig_loop|@>; -if cur_cmd=other_char then goto main_loop_lookahead+1; -if cur_cmd=char_given then - begin if is_char_ascii(cur_chr) then goto main_loop_lookahead+1 - else @<goto |main_lig_loop|@>; - end; -if cur_cmd=char_num then - begin scan_char_num; cur_chr:=cur_val; - if is_char_ascii(cur_chr) then goto main_loop_lookahead+1 - else @<goto |main_lig_loop|@>; - end; -@y -if cur_cmd=letter then goto main_loop_lookahead+1; -if (cur_cmd>=kanji)and(cur_cmd<=hangul) then - @<goto |main_lig_loop|@>; -if cur_cmd=other_char then goto main_loop_lookahead+1; -if cur_cmd=char_given then - begin if check_echar_range(cur_chr) then goto main_loop_lookahead+1 - else @<goto |main_lig_loop|@>; - end; -if cur_cmd=kchar_given then - @<goto |main_lig_loop|@>; -x_token; {now expand and set |cur_cmd|, |cur_chr|, |cur_tok|} -if cur_cmd=letter then goto main_loop_lookahead+1; -if (cur_cmd>=kanji)and(cur_cmd<=hangul) then - @<goto |main_lig_loop|@>; -if cur_cmd=other_char then goto main_loop_lookahead+1; -if cur_cmd=char_given then - begin if check_echar_range(cur_chr) then goto main_loop_lookahead+1 - else @<goto |main_lig_loop|@>; - end; -if cur_cmd=char_num then - begin scan_char_num; cur_chr:=cur_val; - if check_echar_range(cur_chr) then goto main_loop_lookahead+1 - else @<goto |main_lig_loop|@>; - end; -if cur_cmd=kchar_num then - begin scan_char_num; cur_chr:=cur_val; - @<goto |main_lig_loop|@>; - end; -@z - -@x -vmode+letter,vmode+other_char,vmode+char_num,vmode+char_given, - vmode+math_shift,vmode+un_hbox,vmode+vrule, - vmode+accent,vmode+discretionary,vmode+hskip,vmode+valign, - vmode+kanji,vmode+kana,vmode+other_kchar, -@y -vmode+letter,vmode+other_char,vmode+char_num,vmode+char_given, - vmode+kchar_num,vmode+kchar_given, - vmode+math_shift,vmode+un_hbox,vmode+vrule, - vmode+accent,vmode+discretionary,vmode+hskip,vmode+valign, - vmode+kanji,vmode+kana,vmode+other_kchar,vmode+hangul, -@z - -@x -if not is_char_ascii(cur_val) then - begin KANJI(cx):=cur_val; - if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - p:=new_character(f,get_jfm_pos(KANJI(cx),f)); - if p<>null then - begin - link(p):=get_avail; info(link(p)):=KANJI(cx); - end; -@y -if check_echar_range(cur_val)=0 then - begin KANJI(cx):=cur_val; - if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - p:=new_character(f,get_jfm_pos(KANJI(cx),f)); - if p<>null then - begin - link(p):=get_avail; - info(link(p)):=KANJI(cx) + kcat_code(kcatcodekey(cx))*max_cjk_val; - end; -@z - -@x -if (cur_cmd=letter)or(cur_cmd=other_char) then - q:=new_character(f,cur_chr) -else if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then - begin if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - cx:=cur_chr; - end -else if cur_cmd=char_given then - if is_char_ascii(cur_chr) then q:=new_character(f,cur_chr) - else begin - if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - KANJI(cx):=cur_chr - end - else if cur_cmd=char_num then - begin scan_char_num; - if is_char_ascii(cur_val) then q:=new_character(f,cur_val) - else begin - if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - KANJI(cx):=cur_val - end - end -@y -if (cur_cmd=letter)or(cur_cmd=other_char) then - q:=new_character(f,cur_chr) -else if (cur_cmd>=kanji)and(cur_cmd<=hangul) then - begin if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - cx:=cur_chr; - end -else if cur_cmd=char_given then - if check_echar_range(cur_chr) then q:=new_character(f,cur_chr) - else begin - if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - KANJI(cx):=cur_chr - end -else if cur_cmd=char_num then - begin scan_char_num; - if check_echar_range(cur_val) then q:=new_character(f,cur_val) - else begin - if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - KANJI(cx):=cur_val - end - end -else if cur_cmd=kchar_given then - begin - if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - KANJI(cx):=cur_chr - end -else if cur_cmd=kchar_num then - begin scan_char_num; - if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; - KANJI(cx):=cur_val - end -@z - -@x - begin q:=new_character(f,get_jfm_pos(KANJI(cx),f)); - link(q):=get_avail; info(link(q)):=KANJI(cx); last_jchr:=q; -@y - begin q:=new_character(f,get_jfm_pos(KANJI(cx),f)); - link(q):=get_avail; - info(link(q)):=KANJI(cx) + kcat_code(kcatcodekey(cx))*max_cjk_val; - last_jchr:=q; -@z - -@x -letter,other_char,char_given: - if (is_char_ascii(cur_chr) or (cur_chr=256)) then begin -@y -letter,other_char,char_given: - if (cur_chr>=0)and(cur_chr<=256) then begin -@z - -@x - KANJI(cx):=cur_chr; -kanji,kana,other_kchar: cx:=cur_chr; -@y - KANJI(cx):=cur_chr; -kchar_given: - KANJI(cx):=cur_chr; -kanji,kana,other_kchar,hangul: cx:=cur_chr; -@z - -@x - math_type(p):=math_jchar; fam(p):=cur_jfam; character(p):=qi(0); - math_kcode(p-1):=KANJI(cx); -@y - math_type(p):=math_jchar; fam(p):=cur_jfam; character(p):=qi(0); - math_kcode(p-1):=KANJI(cx) + kcat_code(kcatcodekey(cx))*max_cjk_val; -@z - -@x -mmode+letter,mmode+other_char,mmode+char_given: - if is_char_ascii(cur_chr) then - if cur_chr<128 then set_math_char(ho(math_code(cur_chr))) - else set_math_char(cur_chr) - else set_math_kchar(cur_chr); -mmode+kanji,mmode+kana,mmode+other_kchar: begin - cx:=cur_chr; set_math_kchar(KANJI(cx)); - end; -mmode+char_num: begin scan_char_num; cur_chr:=cur_val; - if is_char_ascii(cur_chr) then - if cur_chr<128 then set_math_char(ho(math_code(cur_chr))) - else set_math_char(cur_chr) - else set_math_kchar(cur_chr); - end; -@y -mmode+letter,mmode+other_char,mmode+char_given: - if check_echar_range(cur_chr) then - if cur_chr<128 then set_math_char(ho(math_code(cur_chr))) - else set_math_char(cur_chr) - else set_math_kchar(cur_chr); -mmode+kanji,mmode+kana,mmode+other_kchar,mmode+hangul: begin - cx:=cur_chr; set_math_kchar(KANJI(cx)); - end; -mmode+char_num: begin scan_char_num; cur_chr:=cur_val; - if check_echar_range(cur_chr) then - if cur_chr<128 then set_math_char(ho(math_code(cur_chr))) - else set_math_char(cur_chr) - else set_math_kchar(cur_chr); - end; -mmode+kchar_given: - set_math_kchar(cur_chr); -mmode+kchar_num: begin scan_char_num; cur_chr:=cur_val; - set_math_kchar(cur_chr); - end; -@z - -@x -any_mode(assign_inhibit_xsp_code), -any_mode(set_auto_spacing), -@y -any_mode(assign_inhibit_xsp_code), -any_mode(set_auto_spacing), -any_mode(set_enable_cjk_token), -@z - -@x l.23666 - upTeX -@d char_sub_def_code=7 {|shorthand_def| for \.{\\charsubdef}} - -@<Put each...@>= -primitive("chardef",shorthand_def,char_def_code);@/ -@!@:char_def_}{\.{\\chardef} primitive@> -@y -@d char_sub_def_code=7 {|shorthand_def| for \.{\\charsubdef}} -@d kchar_def_code=char_sub_def_code+1 {|shorthand_def| for \.{\\kchardef}} - -@<Put each...@>= -primitive("chardef",shorthand_def,char_def_code);@/ -@!@:char_def_}{\.{\\chardef} primitive@> -primitive("kchardef",shorthand_def,kchar_def_code);@/ -@!@:kchar_def_}{\.{\\kchardef} primitive@> -@z - -@x -shorthand_def: case chr_code of - char_def_code: print_esc("chardef"); - math_char_def_code: print_esc("mathchardef"); -@y -shorthand_def: case chr_code of - char_def_code: print_esc("chardef"); - kchar_def_code: print_esc("kchardef"); - math_char_def_code: print_esc("mathchardef"); -@z - -@x l.23698 - upTeX -char_given: begin print_esc("char"); print_hex(chr_code); - end; -@y -char_given: begin print_esc("char"); print_hex(chr_code); - end; -kchar_given: begin print_esc("kchar"); print_hex(chr_code); - end; -@z - -@x l.23729 - upTeX - char_def_code: begin scan_char_num; define(p,char_given,cur_val); - end; -@y - char_def_code: begin scan_char_num; define(p,char_given,cur_val); - end; - kchar_def_code: begin scan_char_num; define(p,kchar_given,cur_val); - end; -@z - -@x -@ @<Let |m| be the minimal...@>= -if cur_chr=kcat_code_base then m:=kanji else m:=0 -@y -@ @<Let |m| be the minimal...@>= -if cur_chr=kcat_code_base then m:=not_cjk else m:=0 -@z - -@x -@<Change the case of the token in |p|, if a change is appropriate@>= -t:=info(p); -if (t<cs_token_flag+single_base)and(not check_kanji(t)) then - begin c:=t mod 256; -@y -@<Change the case of the token in |p|, if a change is appropriate@>= -t:=info(p); -if (t<cs_token_flag+single_base)and(not check_kanji(t)) then - begin c:=t mod max_char_val; -@z - -@x -@d set_auto_xspacing_code=3 -@y -@d set_auto_xspacing_code=3 -@d reset_enable_cjk_token_code=0 -@d set_enable_cjk_token_code=1 -@d set_force_cjk_token_code=2 -@z - -@x -@!@:no_auto_xspacing_}{\.{\\noautoxspacing} primitive@> -@y -@!@:no_auto_xspacing_}{\.{\\noautoxspacing} primitive@> -primitive("enablecjktoken",set_enable_cjk_token,reset_enable_cjk_token_code); -@!@:enable_cjk_token_}{\.{\\enablecjktoken} primitive@> -primitive("disablecjktoken",set_enable_cjk_token,set_enable_cjk_token_code); -@!@:disable_cjk_token_}{\.{\\disablecjktoken} primitive@> -primitive("forcecjktoken",set_enable_cjk_token,set_force_cjk_token_code); -@!@:force_cjk_token_}{\.{\\forcecjktoken} primitive@> -@z - -@x - if (chr_code mod 2)=0 then print_esc("noauto") else print_esc("auto"); - if chr_code<2 then print("spacing") else print("xspacing"); -end; -@y - if (chr_code mod 2)=0 then print_esc("noauto") else print_esc("auto"); - if chr_code<2 then print("spacing") else print("xspacing"); -end; -set_enable_cjk_token:begin - if chr_code=0 then print_esc("enable") - else if chr_code=1 then print_esc("disable") else print_esc("force"); - print("cjktoken"); -end; -@z - -@x - else begin p:=auto_xspacing_code; cur_chr:=(cur_chr mod 2); end; - define(p,data,cur_chr); -end; -@y - else begin p:=auto_xspacing_code; cur_chr:=(cur_chr mod 2); end; - define(p,data,cur_chr); -end; -set_enable_cjk_token: define(enable_cjk_token_code,data,cur_chr); -@z - -@x -@ @<Insert a space around the character |p|@>= -if font_dir[font(p)]<>dir_default then - begin KANJI(cx):=info(link(p)); -@y -@ @<Insert a space around the character |p|@>= -if font_dir[font(p)]<>dir_default then - begin KANJI(cx):=info(link(p)) mod max_cjk_val; -@z - -@x -else if font_dir[font(first_char)]<>dir_default then - begin KANJI(cx):=info(link(first_char)); -@y -else if font_dir[font(first_char)]<>dir_default then - begin KANJI(cx):=info(link(first_char)) mod max_cjk_val; -@z - -@x -begin if is_char_node(link(p)) then - begin q:=p; p:=link(p); - if font_dir[font(p)]<>dir_default then - begin KANJI(cx):=info(link(p)); -@y -begin if is_char_node(link(p)) then - begin q:=p; p:=link(p); - if font_dir[font(p)]<>dir_default then - begin KANJI(cx):=info(link(p)) mod max_cjk_val; -@z - -@x - begin KANJI(cx):=info(link(p)); i:=kcat_code(kcatcodekey(cx)); k:=0; - if (i=kanji)or(i=kana) then begin t:=q; s:=p; end; -@y - begin KANJI(cx):=info(link(p)) mod max_cjk_val; - i:=info(link(p)) div max_cjk_val; k:=0; - if (i=kanji)or(i=kana)or(i=hangul) then begin t:=q; s:=p; end; -@z - -@x - fast_get_avail(main_p); info(main_p):=KANJI(cur_chr); -@y - fast_get_avail(main_p); info(main_p):=KANJI(cur_chr)+cur_cmd*max_cjk_val; -@z - -@x - main_i:=orig_char_info(main_f)(cur_l); - case cur_cmd of - kanji,kana,other_kchar: begin -@y - main_i:=orig_char_info(main_f)(cur_l); - case cur_cmd of - kanji,kana,other_kchar,hangul: begin -@z - -@x - kanji,kana,other_kchar: cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); - letter,other_char: begin ins_kp:=true; cur_l:=qi(0); end; - char_given: begin - if is_char_ascii(cur_chr) then - begin ins_kp:=true; cur_l:=qi(0); - end - else cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); - end; - char_num: begin scan_char_num; cur_chr:=cur_val; - if is_char_ascii(cur_chr) then - begin ins_kp:=true; cur_l:=qi(0); - end - else cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); - end; -@y - kanji,kana,other_kchar,hangul: cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); - letter,other_char: begin ins_kp:=true; cur_l:=qi(0); end; - char_given: begin - if check_echar_range(cur_chr) then - begin ins_kp:=true; cur_l:=qi(0); - end - else cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); - end; - char_num: begin scan_char_num; cur_chr:=cur_val; - if check_echar_range(cur_chr) then - begin ins_kp:=true; cur_l:=qi(0); - end - else cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); - end; - kchar_given: begin - cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); - end; - kchar_num: begin scan_char_num; cur_chr:=cur_val; - cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); - end; -@z - -@x -procedure print_kanji(@!s:KANJI_code); {prints a single character} -begin -if s>255 then - begin print_char(Hi(s)); print_char(Lo(s)); - end else print_char(s); -@y -procedure print_kanji(@!s:KANJI_code); {prints a single character} -begin -s:=toBUFF(s mod max_cjk_val); -if BYTE1(s)<>0 then print_char(BYTE1(s)); -if BYTE2(s)<>0 then print_char(BYTE2(s)); -if BYTE3(s)<>0 then print_char(BYTE3(s)); - print_char(BYTE4(s)); -end; - -function check_kcat_code(@!ct:integer):integer; -begin -if ((ct>=kanji)and(enable_cjk_token=0))or(enable_cjk_token=2)then - check_kcat_code:=1 -else check_kcat_code:=0; -end; - -function check_echar_range(@!c:integer):integer; -begin -if (c>=0)and(c<256)then - check_echar_range:=1 -else check_echar_range:=0; -@z diff --git a/Build/source/texk/web2c/uptexdir/uptex.defines b/Build/source/texk/web2c/uptexdir/uptex.defines deleted file mode 100644 index 52243e57185..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptex.defines +++ /dev/null @@ -1,48 +0,0 @@ -{ defined at kanji.c, kanji.h, ptexenc/ptexenc.h, ptexenc/unicode.h } -@define function BYTE1 (); -@define function BYTE2 (); -@define function BYTE3 (); -@define function BYTE4 (); -@define function Hi (); -@define function Lo (); - -@define function getencstring; -@define function setencstring (); -@define procedure setpriorfileenc; -@define function isinternalUPTEX; -@define function isinternalEUC; - -@define function iskanji1 (); -@define function is1stchr (); -@define function ismultichr (); - -@define function multistrlen (); -@define function multibytelen (); -@define function fromBUFF (); -@define function toBUFF (); - -@define function fromDVI (); -@define function toDVI (); -@define function putc2 (); -@define function fputs2 (); -@define function inputline2 (); - -@define function fromJIS (); -@define function fromEUC (); -@define function fromSJIS (); -@define function fromKUTEN (); -@define function fromUCS (); - -@define function notkanjicharseq (); -@define function checkkanji (); -@define function ischarascii (); -@define function ischarkanji (); -@define function ismultiprn (); -@define function calcpos (); -@define function kcatcodekey (); -@define function multilenbuffchar (); -@define function nrestmultichr (); - -@define procedure dumpkanji (); -@define procedure initkanji; -@define procedure undumpkanji (); diff --git a/Build/source/texk/web2c/uptexdir/uptex_version.h b/Build/source/texk/web2c/uptexdir/uptex_version.h deleted file mode 100644 index cfe69163294..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptex_version.h +++ /dev/null @@ -1 +0,0 @@ -#define UPTEX_VERSION "u1.27" diff --git a/Build/source/texk/web2c/uptexdir/uptexextra.c b/Build/source/texk/web2c/uptexdir/uptexextra.c deleted file mode 100644 index 40bd527d19b..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptexextra.c +++ /dev/null @@ -1,12 +0,0 @@ -/* uptexextra.c: Hand-coded routines for upTeX. - - This file is public domain. */ - -#define EXTERN /* Instantiate data from uptexd.h here. */ -#define DLLPROC dlluptexmain - -/* This file defines TeX and upTeX. */ -#include <uptexd.h> - -/* Hand-coded routines for TeX or Metafont in C. */ -#include <lib/texmfmp.c> diff --git a/Build/source/texk/web2c/uptexdir/uptexextra.h b/Build/source/texk/web2c/uptexdir/uptexextra.h deleted file mode 100644 index e1fa75424d7..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptexextra.h +++ /dev/null @@ -1,25 +0,0 @@ -/* uptexextra.h: banner etc. for upTeX. - - This is included by upTeX, from uptexextra.c -*/ - -#include <ptexdir/ptex_version.h> /* for PTEX_VERSION */ -#include <uptexdir/uptex_version.h> /* for UPTEX_VERSION */ - -#define BANNER "This is upTeX, Version 3.141592653-" PTEX_VERSION "-" UPTEX_VERSION -#define COPYRIGHT_HOLDER "D.E. Knuth" -#define AUTHOR NULL -#define PROGRAM_HELP UPTEXHELP -#define BUG_ADDRESS "issue@texjp.org" -#define DUMP_VAR TEXformatdefault -#define DUMP_LENGTH_VAR formatdefaultlength -#define DUMP_OPTION "fmt" -#define DUMP_EXT ".fmt" -#define INPUT_FORMAT kpse_tex_format -#define INI_PROGRAM "iniuptex" -#define VIR_PROGRAM "viruptex" - -#ifdef Xchr -#undef Xchr -#define Xchr(x) (x) -#endif /* Xchr */ diff --git a/Build/source/texk/web2c/uptexdir/uptftopl.ch b/Build/source/texk/web2c/uptexdir/uptftopl.ch deleted file mode 100644 index 7b3032ce2db..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptftopl.ch +++ /dev/null @@ -1,94 +0,0 @@ -@x -@d my_name=='ptftopl' -@d banner=='This is pTFtoPL, Version 3.3-p2.0' -@y -@d my_name=='uptftopl' -@d banner=='This is upTFtoPL, Version 3.3-p2.0-u1.27' -@z - -@x - usage_help (PTFTOPL_HELP, 'issue@@texjp.org'); -@y - usage_help (UPTFTOPL_HELP, 'issue@@texjp.org'); -@z - -@x -@d max_kanji=7237 {number of the kanji characters - 1} -@y -@d max_kanji=1114111 {number of the kanji characters - 1} -@z - -@x procedure out_kanji -i:0..3; {index of array} -@y -i:0..5; {index of array} -@z -@x - begin cx:=jis_code; out('J '); {specify jiscode format} - dig[0]:=Hi(cx) div 16; dig[1]:=Hi(cx) mod 16; - dig[2]:=Lo(cx) div 16; dig[3]:=Lo(cx) mod 16; - for i:=0 to 3 do -@y - begin cx:=jis_code; - if (isinternalUPTEX) then out('U ') - else out('J '); {specify jiscode format} - dig[0]:=(cx div 65536) div 16; dig[1]:=(cx div 65536) mod 16; - dig[2]:=(cx div 4096) mod 16; dig[3]:=(cx div 256) mod 16; - dig[4]:=(cx div 16) mod 16; dig[5]:=cx mod 16; - for i:=0 to 1 do - if (dig[i]<>0)or(dig[0]<>0) then begin { if dig[0]<>0, dig[1] should be always printed } - if dig[i]<10 then out(dig[i]) else - case dig[i] of - 10: out('A'); 11: out('B'); 12: out('C'); - 13: out('D'); 14: out('E'); 15: out('F'); - end; - end; - for i:=2 to 5 do -@z - -@x - out(xchr[Hi(cx)]); out(xchr[Lo(cx)]); -@y - if BYTE1(cx)<>0 then out(xchr[BYTE1(cx)]); - if BYTE2(cx)<>0 then out(xchr[BYTE2(cx)]); - if BYTE3(cx)<>0 then out(xchr[BYTE3(cx)]); - out(xchr[BYTE4(cx)]); -@z - -@x function valid_jis_code -var first_byte, second_byte:integer; { jis code bytes } -begin valid_jis_code:=true; -first_byte:=cx div @'400; second_byte:=cx mod @'400; -if (first_byte<@"21) - or((first_byte>@"28)and(first_byte<@"30)) - or(first_byte>@"74) then valid_jis_code:=false; -if (second_byte<@"21)or(second_byte>@"7E) then valid_jis_code:=false; -@y -begin valid_jis_code:=true; -if (cx>@"10FFFF)or(not is_char_kanji(fromDVI(cx))) - or(toDVI(fromDVI(cx))<>cx) then valid_jis_code:=false; -@z - -@x function index_to_jis -if ix<=8*94-1 then - index_to_jis:=(ix div 94 + @"21) * @'400 + (ix mod 94 + @"21) -else - index_to_jis:=((ix+7 * 94) div 94 + @"21) * @'400 + ((ix+7*94) mod 94 + @"21); -@y -index_to_jis:=ix; -@z - -@x function jis_to_index -var first_byte,second_byte:integer; { jis code bytes } -begin -first_byte:=cx div @'400 - @"21; -second_byte:=cx mod @'400 - @"21; -if first_byte<8 then - jis_to_index:=first_byte*94+second_byte -else - jis_to_index:=(first_byte-7)*94+second_byte; -@y -begin -jis_to_index:=cx; -@z - diff --git a/Build/source/texk/web2c/uptexdir/uptftopl.test b/Build/source/texk/web2c/uptexdir/uptftopl.test deleted file mode 100755 index 0f0aab1d6ed..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptftopl.test +++ /dev/null @@ -1,11 +0,0 @@ -#! /bin/sh -vx -# $Id$ -# Copyright 2017 Karl Berry <tex-live@tug.org> -# Copyright 2011-2013 Peter Breitenlohner <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -test -d uptests || mkdir -p uptests - -TEXMFCNF=$srcdir/../kpathsea \ - ./uptftopl -verbose $srcdir/tests/cmr10 uptests/xcmr10 || exit 1 - diff --git a/Build/source/texk/web2c/uptexdir/uptrip/texmf.cnf b/Build/source/texk/web2c/uptexdir/uptrip/texmf.cnf deleted file mode 100644 index bc7cde7871d..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptrip/texmf.cnf +++ /dev/null @@ -1,41 +0,0 @@ -% uptexdir/uptrip/texmf.cnf -- configuration for the uptrip test. - -% These values apply to all the programs, and they are necessary for any -% kind of reasonable diff. -error_line = 64 -half_error_line = 32 -max_print_line = 72 - -% upTeX. -mem_bot = 1 -main_memory = 4500 -max_strings = 3000 -pool_size = 40000 - -string_vacancies = 8000 - -font_mem_size = 20000 -font_max = 75 -stack_size = 200 -nest_size = 40 -buf_size = 500 -save_size = 600 -dvi_buf_size = 800 -% Although hyph_size is settable, it can't be <hyph_prime, which is 607, -% and the original trip setting is 307, so no point in changing the default. - -% Avoid running any MakeTeX* program. -MAKETEXTFM = 0 -MAKETEXTEX = 0 -MAKETEXMF = 0 - -% Search paths. -% trip.tex: -TEXINPUTS = . -% trip.tfm: -TFMFONTS = . -% trip.fmt: -TEXFORMATS = . -% tex.pool: -TEXPOOL = . - diff --git a/Build/source/texk/web2c/uptexdir/uptrip/uptrip.diffs b/Build/source/texk/web2c/uptexdir/uptrip/uptrip.diffs deleted file mode 100644 index 2bb94558a14..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptrip/uptrip.diffs +++ /dev/null @@ -1,621 +0,0 @@ -#! /bin/sh -vx -# $Id: uptriptest.test 48633 2018-09-09 17:56:55Z karl $ -# Copyright 2017-2018 Karl Berry <tex-live@tug.org> -# Copyright 2011-2014 Peter Breitenlohner <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE -+ LC_ALL=C -+ export LC_ALL -+ LANGUAGE=C -+ export LANGUAGE - -testdir=$abs_srcdir/triptrap -+ testdir=SRCDIR/triptrap -uptestdir=$abs_srcdir/uptexdir/uptrip -+ uptestdir=SRCDIR/uptexdir/uptrip - -TEXMFCNF=$uptestdir; export TEXMFCNF -+ TEXMFCNF=SRCDIR/uptexdir/uptrip -+ export TEXMFCNF - -rm -rf uptripdir -+ rm -rf uptripdir -mkdir uptripdir -+ mkdir uptripdir -cd uptripdir -+ cd uptripdir - -dvitype_args="-output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*'" -+ dvitype_args='-output-level=2 -dpi=72.27 -page-start='\''*.*.*.*.*.*.*.*.*.*'\''' - -echo ">>> Running TRIP test for upTeX." >&2 -+ echo '>>> Running TRIP test for upTeX.' ->>> Running TRIP test for upTeX. -echo ">>> See $uptestdir/uptrip.diffs for example of acceptable diffs." >&2 -+ echo '>>> See SRCDIR/uptexdir/uptrip/uptrip.diffs for example of acceptable diffs.' ->>> See SRCDIR/uptexdir/uptrip/uptrip.diffs for example of acceptable diffs. - -# upTeX outputs direction of boxes. -P_SED1='s/, yoko direction//;s/yoko direction, //' -+ P_SED1='s/, yoko direction//;s/yoko direction, //' -P_SED2='s/yoko(math) direction, //' -+ P_SED2='s/yoko(math) direction, //' - -is_OK=: -+ is_OK=: - -set -x -+ set -x - -echo "*** TRIP test for upTeX ***." -+ echo '*** TRIP test for upTeX ***.' -*** TRIP test for upTeX ***. - -./pltotf $testdir/trip.pl trip.tfm || exit 1 -+ ./pltotf SRCDIR/triptrap/trip.pl trip.tfm - -./tftopl ./trip.tfm trip.pl || exit 1 -+ ./tftopl ./trip.tfm trip.pl - -diff $testdir/trip.pl trip.pl || is_OK=false -+ diff SRCDIR/triptrap/trip.pl trip.pl - -# get same filename in log -$LN_S $testdir/trip.tex . -+ ln -s SRCDIR/triptrap/trip.tex . - -rm -f trip.log -+ rm -f trip.log -./uptex --progname=upinitex --ini <$testdir/trip1.in >uptripin.fot -+ ./uptex --progname=upinitex --ini -if test ! -s trip.fmt; then - echo "*** trip.fmt not created by trip1.in, investigate!" >&2 - exit 1 -fi -+ test '!' -s trip.fmt -sed "$P_SED1" trip.log > uptripin.log || exit 1 -+ sed 's/, yoko direction//;s/yoko direction, //' trip.log -diff $testdir/tripin.log uptripin.log -+ diff SRCDIR/triptrap/tripin.log uptripin.log -1c1 -< This is TeX, Version 3.141592653 (INITEX) 4 JUL 1776 12:00 ---- -> This is upTeX, Version 3.141592653-p3.8.3-u1.27 (utf8.uptex) (TeX Live 2021/dev) (INITEX) 27 JAN 2021 18:03 -3c3 -< (trip.tex ---- -> (./trip.tex -91c91,92 -< ### horizontal mode entered at line 77 (language255:hyphenmin1,63) ---- -> ### horizontal mode entered at line 77 (language255:hyph -> enmin1,63) -93a95 -> \displace 0.0 -95a98 -> \displace 0.0 -368a372 -> ....\displace 0.0 -370a375 -> ....\displace 0.0 -437,438d441 -< ....\rip 6 (ligature ) -< ....\rip 7 (ligature ) -450,453c453,456 -< (preloaded format=trip 1776.7.4) -< 1326 strings of total length 23633 -< 471 memory locations dumped; current usage is 96&278 -< 341 multiletter control sequences ---- -> (preloaded format=trip 2021.1.27) -> 1489 strings of total length 26192 -> 487 memory locations dumped; current usage is 108&278 -> 395 multiletter control sequences -461c464 -< Hyphenation trie of length 273 has 9 ops out of 500 ---- -> Hyphenation trie of length 273 has 9 ops out of 35111 - -# May as well test non-ini second time through. -rm -f trip.log -+ rm -f trip.log -./uptex --progname=uptex <$testdir/trip2.in >uptrip.fot -+ ./uptex --progname=uptex -sed "$P_SED1;$P_SED2" trip.log > uptrip.log -+ sed 's/, yoko direction//;s/yoko direction, //;s/yoko(math) direction, //' trip.log -diff $testdir/trip.fot uptrip.fot -+ diff SRCDIR/triptrap/trip.fot uptrip.fot -1,3c1,2 -< This is TeX, Version 3.141592653 (INITEX) -< ** &trip trip -< (trip.tex ## ---- -> This is upTeX, Version 3.141592653-p3.8.3-u1.27 (utf8.uptex) (TeX Live 2021/dev) (preloaded format=uptex) -> **(./trip.tex ## -17c16 -< Memory usage before: 159&313; after: 102&278; still untouched: 1613 ---- -> Memory usage before: 192&313; after: 116&278; still untouched: 3113 -75c74 -< Memory usage before: 334&431; after: 292&418; still untouched: 175 ---- -> Memory usage before: 458&431; after: 396&418; still untouched: 484 - -# We use $DIFF instead of `diff' only for those files where there -# might actually be legitimate numerical differences. -$DIFF $DIFFFLAGS $testdir/trip.log uptrip.log -+ diff SRCDIR/triptrap/trip.log uptrip.log -1c1 -< This is TeX, Version 3.141592653 (preloaded format=trip 1776.7.4) 4 JUL 1776 12:00 ---- -> This is upTeX, Version 3.141592653-p3.8.3-u1.27 (utf8.uptex) (TeX Live 2021/dev) (preloaded format=trip 2021.1.27) 27 JAN 2021 18:03 -3c3 -< (trip.tex ## ---- -> (./trip.tex ## -73c73 -< Memory usage before: 159&313; after: 102&278; still untouched: 1613 ---- -> Memory usage before: 192&313; after: 116&278; still untouched: 3113 -113a114 -> .\displace 0.0 -198a200 -> .\displace 0.0 -253a256 -> .\displace 0.0 -308a312 -> .\displace 0.0 -349a354 -> .\displace 0.0 -385,386c390,391 -< \insert100, natural size 803.09999; split(1.0 plus 43.0,-2.0); float cos -< t 100 ---- -> \insert100Y, natural size 803.09999; split(1.0 plus 43.0,-2.0); float co -> st 100 -406a412 -> ....\displace 0.0 -409a416 -> ....\displace 0.0 -412a420 -> ....\displace 0.0 -420a429 -> .\displace 0.0 -426c435 -< \insert200, natural size 400.0; split(0.0,-2.0); float cost 100 ---- -> \insert200Y, natural size 400.0; split(0.0,-2.0); float cost 100 -435a445 -> .\displace 0.0 -441c451 -< \insert200, natural size 400.0; split(1.0,-1.0); float cost 100 ---- -> \insert200Y, natural size 400.0; split(1.0,-1.0); float cost 100 -450a461 -> .\displace 0.0 -456c467 -< \insert200, natural size 400.0; split(2.0,-1.0); float cost 100 ---- -> \insert200Y, natural size 400.0; split(2.0,-1.0); float cost 100 -466a478 -> .\displace 0.0 -474c486 -< \special{^^80-1000.0pt} ---- -> \special{-1000.0pt} -483,484c495,496 -< \insert200, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost -< 3 ---- -> \insert200Y, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost -> 3 -588a601 -> .....\displace 0.0 -591a605 -> .....\displace 0.0 -594a609 -> .....\displace 0.0 -630a646 -> ......\displace 0.0 -633a650 -> ......\displace 0.0 -636a654 -> ......\displace 0.0 -642c660 -< Memory usage before: 747&484; after: 581&481; still untouched: 1492 ---- -> Memory usage before: 1114&483; after: 860&480; still untouched: 1993 -647c665,666 -< ### internal vertical mode entered at line 150 (\output routine) ---- -> ### internal vertical mode entered at line 150 (\output -> routine) -650a670 -> .\displace 0.0 -660a681 -> .\displace 0.0 -670a692 -> .\displace 0.0 -681a704 -> .\displace 0.0 -689c712 -< \special{^^80-1000.0pt} ---- -> \special{-1000.0pt} -693,694c716,717 -< \insert100, natural size 535.4; split(1.0 plus 43.0,-2.0); float cost 10 -< 0 ---- -> \insert100Y, natural size 535.4; split(1.0 plus 43.0,-2.0); float cost 1 -> 00 -701c724 -< \insert200, natural size 2.0; split(2.0,-1.0); float cost 100 ---- -> \insert200Y, natural size 2.0; split(2.0,-1.0); float cost 100 -714,715c737,738 -< \insert200, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost -< 3 ---- -> \insert200Y, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost -> 3 -815c838 -< Memory usage before: 475&470; after: 290&466; still untouched: 1473 ---- -> Memory usage before: 706&469; after: 414&465; still untouched: 1974 -820c843,844 -< ### internal vertical mode entered at line 150 (\output routine) ---- -> ### internal vertical mode entered at line 150 (\output -> routine) -915c939 -< Memory usage before: 218&459; after: 149&458; still untouched: 1473 ---- -> Memory usage before: 304&458; after: 194&457; still untouched: 1974 -920c944,945 -< ### internal vertical mode entered at line 150 (\output routine) ---- -> ### internal vertical mode entered at line 150 (\output -> routine) -1070c1095 -< Memory usage before: 118&328; after: 102&328; still untouched: 1473 ---- -> Memory usage before: 146&327; after: 122&327; still untouched: 1974 -1405c1430 -< \vbox(16383.99998+0.0)x1000.0, glue set 16342.0fil ---- -> \vbox(16383.99998+0.0)x1000.0, glue set 16341.99998fil -1493a1519 -> ..\displace 0.0 -1503a1530 -> ..\displace 0.0 -1504a1532 -> ..\displace 0.0 -1511c1539 -< Memory usage before: 990&376; after: 584&370; still untouched: 735 ---- -> Memory usage before: 1494&375; after: 842&369; still untouched: 1974 -1887c1915 -< .\rip A ---- -> .\displace 0.0 -1923c1951 -< .\hbox(0.0+0.0)x120.0 [] ---- -> .\hbox(0.0+0.0)x120.0, yoko(math) direction [] -1954c1982 -< (tripos.tex ---- -> (./tripos.tex -2018c2046 -< \vbox(16383.99998+1.0)x100.0, glue set 16239.0fil ---- -> \vbox(16383.99998+1.0)x100.0, glue set 16238.99998fil -2022a2051 -> ..\displace 0.0 -2048,2049c2077,2078 -< ..\rip ^^82 (ligature CA) -< ..\rip ^^82 (ligature CA) ---- -> ..\rip (ligature CA) -> ..\rip (ligature CA) -2058a2088 -> ..\displace 0.0 -2071a2102 -> ..\displace 0.0 -2092a2124 -> ..\displace 0.0 -2113a2146 -> ..\displace 0.0 -2123a2157 -> ..\displace 0.0 -2142a2177 -> ..\displace 0.0 -2150a2186 -> ..\displace 0.0 -2171c2207,2208 -< ..\hbox(0.0+0.0)x120.0 ---- -> ..\hbox(0.0+0.0)x120.0, yoko(math) direction -> ...\displace 0.0 -2189c2226 -< Memory usage before: 950&531; after: 546&448; still untouched: 706 ---- -> Memory usage before: 1490&530; after: 822&447; still untouched: 1945 -2397c2434 -< ! Improper alphabetic constant. ---- -> ! Improper alphabetic or KANJI constant. -2533c2570 -< \vbox(16383.99998+0.0)x20.0, glue set 16331.0fil ---- -> \vbox(16383.99998+0.0)x20.0, glue set 16330.99998fil -2544a2582 -> ..\displace 0.0 -2570c2608,2609 -< .\hbox(0.0+0.0)x15.0, glue set 0.1875, shifted 5.0 ---- -> .\hbox(0.0+0.0)x15.0, glue set 0.1875, shifted 5.0, yoko(math) direction -> -2572c2611 -< ..\hbox(0.0+0.0)x0.0 ---- -> ..\hbox(0.0+0.0)x0.0, yoko(math) direction -2575c2614 -< Memory usage before: 339&413; after: 236&405; still untouched: 706 ---- -> Memory usage before: 493&411; after: 325&403; still untouched: 1945 -2650,2651c2689,2690 -< Dimensions can be in units of em, ex, in, pt, pc, -< cm, mm, dd, cc, bp, or sp; but yours is a new one! ---- -> Dimensions can be in units of em, ex, zw, zh, in, pt, pc, -> cm, mm, dd, cc, bp, H, Q, or sp; but yours is a new one! -3038c3077,3078 -< ^\hbox(7.0+1.0)x2.0 ---- -> ^\hbox(7.0+1.0)x2.0, yoko(math) direction -> ^.\displace 0.0 -3051c3091 -< \insert0, natural size 0.0; split(1.0 plus 43.0,-2.0); float cost 100 ---- -> \insert0Y, natural size 0.0; split(1.0 plus 43.0,-2.0); float cost 100 -3054c3094 -< .\fam0 ^^c8 ---- -> .\fam0 -3056c3096 -< .\vbox(-2.0+0.0)x0.0 ---- -> .\vbox(-2.0+0.0)x0.0, yoko(math) direction -3060c3100,3101 -< ^.\hbox(7.0+1.0)x2.0, shifted -2.0 ---- -> ^.\hbox(7.0+1.0)x2.0, shifted -2.0, yoko(math) direction -> ^..\displace 0.0 -3140a3182 -> .....\displace 0.0 -3142a3185 -> ....|\displace 0.0 -3143a3187 -> ....\displace 0.0 -3151a3196 -> .\displace 0.0 -3235c3280 -< ! \textfont 0 is undefined (character ^^c8). ---- -> ! \textfont 0 is undefined (character ). -3286c3331 -< .\vbox(6.0+-8.0)x0.0 ---- -> .\vbox(6.0+-8.0)x0.0, yoko(math) direction -3326c3371 -< \vbox(10000.0+2.0)x28.0, glue set 9737.58789fil ---- -> \vbox(10000.0+2.0)x28.0, glue set 9737.58742fil -3329a3375 -> ..\displace 0.0 -3374c3420 -< ..\vbox(6.0+-8.0)x0.0 ---- -> ..\vbox(6.0+-8.0)x0.0, yoko(math) direction -3385c3431,3432 -< ......\hbox(7.0+1.0)x2.0, shifted -2.0 ---- -> ......\hbox(7.0+1.0)x2.0, shifted -2.0, yoko(math) direction -> .......\displace 0.0 -3411c3458 -< p ^^82 ---- -> p -3544a3592 -> ..........\displace 0.0 -3546a3595 -> .........|\displace 0.0 -3547a3597 -> .........\displace 0.0 -3564c3614,3615 -< ...\hbox(7.0+1.0)x1.99 ---- -> ...\hbox(7.0+1.0)x1.99, yoko(math) direction -> ....\displace 0.0 -3616c3667 -< Memory usage before: 2170&521; after: 1181&459; still untouched: 175 ---- -> Memory usage before: 3279&519; after: 1749&457; still untouched: 484 -3864c3915 -< \vbox(16383.99998+2.0)x100.0, glue set 16318.0fil ---- -> \vbox(16383.99998+2.0)x100.0, glue set 16317.99997fil -3919,3920c3970,3972 -< ...\vbox(-0.00002+13.00002)x52.5, glue set - 0.00247 -< ....\vbox(-0.00002+0.0)x0.0 ---- -> ...\vbox(-0.00002+13.00002)x52.5, glue set - 0.00247, yoko(math) directi -> on -> ....\vbox(-0.00002+0.0)x0.0, yoko(math) direction -3951c4003 -< Memory usage before: 640&415; after: 397&410; still untouched: 175 ---- -> Memory usage before: 955&413; after: 569&408; still untouched: 484 -3985c4037 -< ^^82 ---- -> -3991c4043 -< []\ip A ^^82 ---- -> []\ip A -4034c4086 -< \vbox(16383.99998+0.0)x8236.0, glue set 16344.0fil ---- -> \vbox(16383.99998+0.0)x8236.0, glue set 16343.99998fil -4041c4093 -< ..\ip ^^82 ---- -> ..\ip -4053c4105 -< Memory usage before: 235&401; after: 178&399; still untouched: 175 ---- -> Memory usage before: 338&399; after: 244&397; still untouched: 484 -4420c4472 -< \vbox(16383.99998+0.0)x100.0, glue set 16332.0fil ---- -> \vbox(16383.99998+0.0)x100.0, glue set 16331.99998fil -4425a4478 -> ...\displace 0.0 -4447a4501 -> ...\displace 0.0 -4475a4530 -> ...\displace 0.0 -4492a4548 -> ...\displace 0.0 -4506c4562 -< Memory usage before: 651&432; after: 417&418; still untouched: 175 ---- -> Memory usage before: 1004&431; after: 602&417; still untouched: 484 -4742c4798,4799 -< \vbox(16383.99998+0.0)x205.12613, glue set 16344.0fil ---- -> \vbox(16383.99998+0.0)x205.12613, glue set 16343.99998fil, yoko directio -> n -4746a4804 -> ...\displace 0.0 -4762a4821 -> .....\displace 0.0 -4777a4837 -> ......\displace 0.0 -4828c4888 -< Memory usage before: 776&458; after: 464&452; still untouched: 175 ---- -> Memory usage before: 1182&457; after: 678&451; still untouched: 484 -5701c5761 -< ! \textfont 0 is undefined (character ^^c8). ---- -> ! \textfont 0 is undefined (character ). -6381c6441 -< (tripos.tex ---- -> (./tripos.tex -6502c6562 -< l.429 ...^^M=13 \def^^M{\relax}# ---- -> l.429 ...^^M=13 \defqqM{\relax}# -6596c6656 -< Memory usage before: 819&428; after: 720&426; still untouched: 175 ---- -> Memory usage before: 1228&428; after: 1074&426; still untouched: 484 -6853c6913 -< .|vbox(0.0+0.0)x0.0 ---- -> .|vbox(0.0+0.0)x0.0, yoko(math) direction -6876a6937 -> ..|displace 0.0 -6891a6953 -> ..|displace 0.0 -6926a6989 -> .|displace 0.0 -6959a7023 -> .|displace 0.0 -6961c7025,7026 -< .|hbox(0.0+0.0)x0.0 ---- -> .|hbox(0.0+0.0)x0.0, yoko(math) direction -> ..|displace 0.0 -6991a7057 -> .|displace 0.0 -7103a7170 -> ...|displace 0.0 -7108d7174 -< ...|ip A (ligature BB) -7116a7183 -> ...|displace 0.0 -7125d7191 -< ...|kern2.0 -7126a7193 -> .|displace 0.0 -7136c7203 -< ...|vbox(0.0+0.0)x0.0 ---- -> ...|vbox(0.0+0.0)x0.0, yoko(math) direction -7156c7223 -< Memory usage before: 895&439; after: 290&420; still untouched: 175 ---- -> Memory usage before: 1346&439; after: 394&420; still untouched: 484 -7289c7356 -< Memory usage before: 334&431; after: 292&418; still untouched: 175 ---- -> Memory usage before: 458&431; after: 396&418; still untouched: 484 -7297,7300c7364,7367 -< 47 strings out of 1674 -< 253 string characters out of 8367 -< 2825 words of memory out of 3000 -< 372 multiletter control sequences out of 2100 ---- -> 44 strings out of 1511 -> 261 string characters out of 13808 -> 4016 words of memory out of 4500 -> 426 multiletter control sequences out of 15000+0 -7302c7369 -< 2 hyphenation exceptions out of 307 ---- -> 1 hyphenation exception out of 659 - -mv tripos.tex uptripos.tex -+ mv tripos.tex uptripos.tex -diff $testdir/tripos.tex uptripos.tex || is_OK=false -+ diff SRCDIR/triptrap/tripos.tex uptripos.tex - -eval ./dvitype $dvitype_args trip.dvi >uptrip.typ || exit 1 -+ eval ./dvitype -output-level=2 -dpi=72.27 '-page-start='\''*.*.*.*.*.*.*.*.*.*'\''' trip.dvi -./dvitype -output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*' trip.dvi -++ ./dvitype -output-level=2 -dpi=72.27 '-page-start=*.*.*.*.*.*.*.*.*.*' trip.dvi -$DIFF $DIFFFLAGS $testdir/trip.typ uptrip.typ -+ diff SRCDIR/triptrap/trip.typ uptrip.typ -1c1 -< This is DVItype, Version 3.6 ---- -> This is DVItype, Version 3.6 (TeX Live 2021/dev) -9c9 -< ' TeX output 1776.07.04:1200' ---- -> ' TeX output 2021.01.27:1803' -419c419 -< 1121: down4 639342208 ---- -> 1121: down4 639342177 -1087,1088c1087,1088 -< 2535: y4 203921760 -< 2540: y0 203921760 ---- -> 2535: y4 203921756 -> 2540: y0 203921756 - -$is_OK || { - echo ">>> There were some errors." >&2 - exit 1 -} -+ : - -PASS uptexdir/uptriptest.test (exit status: 0) -PASS: uptexdir/uptriptest.test diff --git a/Build/source/texk/web2c/uptexdir/uptriptest.test b/Build/source/texk/web2c/uptexdir/uptriptest.test deleted file mode 100755 index 8035f023bb3..00000000000 --- a/Build/source/texk/web2c/uptexdir/uptriptest.test +++ /dev/null @@ -1,71 +0,0 @@ -#! /bin/sh -vx -# $Id$ -# Copyright 2017-2018 Karl Berry <tex-live@tug.org> -# Copyright 2011-2014 Peter Breitenlohner <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE - -testdir=$abs_srcdir/triptrap -uptestdir=$abs_srcdir/uptexdir/uptrip - -TEXMFCNF=$uptestdir; export TEXMFCNF - -rm -rf uptripdir -mkdir uptripdir -cd uptripdir - -dvitype_args="-output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*'" - -echo ">>> Running TRIP test for upTeX." >&2 -echo ">>> See $uptestdir/uptrip.diffs for example of acceptable diffs." >&2 - -# upTeX outputs direction of boxes. -P_SED1='s/, yoko direction//;s/yoko direction, //' -P_SED2='s/yoko(math) direction, //' - -is_OK=: - -set -x - -echo "*** TRIP test for upTeX ***." - -../pltotf $testdir/trip.pl trip.tfm || exit 1 - -../tftopl ./trip.tfm trip.pl || exit 1 - -diff $testdir/trip.pl trip.pl || is_OK=false - -# get same filename in log -$LN_S $testdir/trip.tex . - -rm -f trip.log -../uptex --progname=upinitex --ini <$testdir/trip1.in >uptripin.fot -if test ! -s trip.fmt; then - echo "*** trip.fmt not created by trip1.in, investigate!" >&2 - exit 1 -fi -sed "$P_SED1" trip.log > uptripin.log || exit 1 -diff $testdir/tripin.log uptripin.log - -# May as well test non-ini second time through. -rm -f trip.log -../uptex --progname=uptex <$testdir/trip2.in >uptrip.fot -sed "$P_SED1;$P_SED2" trip.log > uptrip.log -diff $testdir/trip.fot uptrip.fot - -# We use $DIFF instead of `diff' only for those files where there -# might actually be legitimate numerical differences. -$DIFF $DIFFFLAGS $testdir/trip.log uptrip.log - -mv tripos.tex uptripos.tex -diff $testdir/tripos.tex uptripos.tex || is_OK=false - -eval ../dvitype $dvitype_args trip.dvi >uptrip.typ || exit 1 -$DIFF $DIFFFLAGS $testdir/trip.typ uptrip.typ - -$is_OK || { - echo ">>> There were some errors." >&2 - exit 1 -} - diff --git a/Build/source/texk/web2c/uptexdir/upver.test b/Build/source/texk/web2c/uptexdir/upver.test deleted file mode 100755 index 9384214603f..00000000000 --- a/Build/source/texk/web2c/uptexdir/upver.test +++ /dev/null @@ -1,32 +0,0 @@ -#! /bin/sh -vx -# $Id$ -# Copyright 2019 Hironobu Yamashita <h.y.acetaminophen@gmail.com> -# You may freely use, modify and/or distribute this file. - -LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE - -TEXMFCNF=$srcdir/../kpathsea; export TEXMFCNF -TEXINPUTS=$srcdir/ptexdir/tests:.; export TEXINPUTS - -# check consistency between runtime terminal and log -./uptex -ini -interaction batchmode -jobname upver1-log pver1.tex >upver1-term.log || exit 1 -sed -n 's/^This is \([-A-Za-z]*\), Version [^-]*-\([^ ]*\) \(.*\)/\1 \2/p' \ - upver1-term.log >upver1-term_ed.log || exit 1 -sed -n 's/^This is \([-A-Za-z]*\), Version [^-]*-\([^ ]*\) \(.*\)/\1 \2/p' \ - upver1-log.log >upver1-log_ed.log || exit 1 -diff upver1-term_ed.log upver1-log_ed.log || exit 2 - -# check consistency between runtime and version output -./uptex -version >upver2-self.log || exit 1 -sed -n '1 s/^\([-A-Za-z]*\) [^-]*-\([^ ]*\) \(.*\)/\1 \2/p' \ - upver2-self.log >upver2-self_ed.log || exit 1 -diff upver1-term_ed.log upver2-self_ed.log || exit 4 - -# check consistency between version output and version primitives -./uptex -ini -interaction batchmode -jobname upver2-prim pver2.tex || exit 1 -sed -n 's/^Engine \([-A-Za-z]*\) \([^ ]*\) \(.*\)/\1 \2/p' \ - upver2-prim.log >upver2-prim_ed.log || exit 1 -diff upver2-self_ed.log upver2-prim_ed.log || exit 8 - -exit 0 - diff --git a/Build/source/texk/web2c/uptexdir/yokotate.test b/Build/source/texk/web2c/uptexdir/yokotate.test deleted file mode 100755 index 82fce7d0c60..00000000000 --- a/Build/source/texk/web2c/uptexdir/yokotate.test +++ /dev/null @@ -1,23 +0,0 @@ -#! /bin/sh -vx -# $Id$ -# Copyright 2017 Karl Berry <tex-live@tug.org> -# Copyright 2013 Peter Breitenlohner <tex-live@tug.org> -# You may freely use, modify and/or distribute this file. - -test -d uptests || mkdir -p uptests - -# Test inputs -testdir=$srcdir/uptexdir/tests - -# Testing upPLtoTF/upTFtoPL for umin10 (yoko=horiz) and utmin10 (tate=vert). -for font in umin10 utmin10; do - - ./uppltotf -verbose $testdir/$font.pl uptests/x$font.tfm && \ - cmp $testdir/$font.tfm uptests/x$font.tfm && echo || exit 1 - - TEXMFCNF=$srcdir/../kpathsea \ - ./uptftopl -charcode-format octal -verbose $testdir/$font.tfm uptests/x$font.pl && \ - diff $testdir/$font.pl uptests/x$font.pl && echo || exit 1 - -done - |