texlive[45348] Master/texmf-dist: ifptex (18sep17)

Wed Sep 20 01:23:43 CEST 2017

Revision: 45348
          http://tug.org/svn/texlive?view=revision&revision=45348
Author:   karl
Date:     2017-09-20 01:23:43 +0200 (Wed, 20 Sep 2017)
Log Message:
-----------
ifptex (18sep17)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/ifptex/README-ja.md
    trunk/Master/texmf-dist/doc/generic/ifptex/README.md
    trunk/Master/texmf-dist/tex/generic/ifptex/ifptex.sty
    trunk/Master/texmf-dist/tex/generic/ifptex/ifuptex.sty

Modified: trunk/Master/texmf-dist/doc/generic/ifptex/README-ja.md
===================================================================

--- trunk/Master/texmf-dist/doc/generic/ifptex/README-ja.md	2017-09-19 23:23:23 UTC (rev 45347)
+++ trunk/Master/texmf-dist/doc/generic/ifptex/README-ja.md	2017-09-19 23:23:43 UTC (rev 45348)
@@ -86,6 +86,8 @@
 更新履歴
 --------
 
+  * Version 1.2a 〈2017/09/15〉
+      - (試験的) `漢字コード=UTF-8` 機能を追加。
   * Version 1.2  〈2017/09/09〉
       - `\ifstrictupTeX`、`\RequireStrictupTeX` を追加。
   * Version 1.1  〈2017/05/04〉

Modified: trunk/Master/texmf-dist/doc/generic/ifptex/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/generic/ifptex/README.md	2017-09-19 23:23:23 UTC (rev 45347)
+++ trunk/Master/texmf-dist/doc/generic/ifptex/README.md	2017-09-19 23:23:43 UTC (rev 45348)
@@ -92,6 +92,7 @@
 Revision History
 ----------------
 
+  * Version 1.2a 〈2017/09/15〉
   * Version 1.2  〈2017/09/09〉
       - Add `\ifstrictupTeX` and `RequireStrictupTeX`.
   * Version 1.1  〈2017/05/04〉

Modified: trunk/Master/texmf-dist/tex/generic/ifptex/ifptex.sty
===================================================================
--- trunk/Master/texmf-dist/tex/generic/ifptex/ifptex.sty	2017-09-19 23:23:23 UTC (rev 45347)
+++ trunk/Master/texmf-dist/tex/generic/ifptex/ifptex.sty	2017-09-19 23:23:43 UTC (rev 45348)
@@ -1,6 +1,6 @@
 %%
 %% This is file 'ifptex.sty'.
-%% 
+%%
 %% Copyright (c) 2017 Takayuki YATO (aka. "ZR")
 %%   GitHub:   https://github.com/zr-tex8r
 %%   Twitter:  @zr_tex8r
@@ -47,7 +47,8 @@
 
 %% package declaration
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{ifptex}[2017/09/09 v1.2 pTeX checker]
+\ProvidesPackage{ifptex}[2017/09/15 v1.2a pTeX checker]
+\def\bxip at pkgname{ifptex}
 
 %% enter the big group
 \begingroup
@@ -212,6 +213,75 @@
 \gdef\RequireStrictpTeXng{%
   \ifstrictpTeXng\else \bxip at err@required{pTeX-ng}\fi}
 
+%--------------------------------------- KanjiKoodo declaration
+
+%% \bxip at def@str\CS{<strcode>}
+\def\bxip at def@str#1#2{%
+  \let\bxip at str\@empty#2\let#1\bxip at str}
+\def\bxip at def@str at j#1{%
+  \kansujichar1=#1\relax\edef\bxip at str{\bxip at str\kansuji1}}
+\def\bxip at def@str at a#1{%
+  \uccode`\?=#1\relax\uppercase{\edef\bxip at str{\bxip at str?}}}
+\def\U/#1#2#3#4{\bxip at def@str at j{\ucs"#1#2#3#4}}
+\ifx\ucs\@undefined \def\U/#1#2#3#4{}\fi
+\def\J/#1#2#3#4{\bxip at def@str at j{\jis"#1#2#3#4}}
+\def\X/#1#2{\bxip at def@str at a{"#1#2}}
+
+%% KanjiKoodo strings
+% This is the correct "KanjiKoodo=".
+\bxip at def@str\bxip@@knjcde at u@u
+{\J/3441\J/3B7A\J/2533\J/213C\J/2549\X/3D}
+% This is the token list that results when upTeX with settings
+% "kanji=sjis, kanji-internal=uptex" reads the string "KanjiKoodo="
+% written in UTF-8. Note that mojibake will ocuur unless "kanji=utf8".
+\bxip at def@str\bxip@@knjcde at s@u
+{\U/8C8D\X/A2\U/87C4\U/52B1\U/3055\U/7E5D\X/BC\U/7E5D\X/89\X/3D}
+% Ditto, with settings "kanji=sjis, kanji-internal=sjis", and so on....
+\bxip at def@str\bxip@@knjcde at s@s
+{\J/6C3E\X/A2\J/6A2F\J/4E65\J/2435\J/6563\X/BC\J/6563\X/89\X/3D}
+\bxip at def@str\bxip@@knjcde at s@e
+{\J/6C3E\J/226A\J/2F4E\J/6524\J/3565\J/633C\J/6563\X/89\X/3D}
+\bxip at def@str\bxip@@knjcde at e@u
+{\U/7FB2\U/221A\X/AD\X/97\X/E3\X/82\U/6F5F\X/83\U/82E5\X/83\X/89\X/3D}
+\bxip at def@str\bxip@@knjcde at e@s
+{\J/663C\J/2265\X/AD\J/4E65\J/236A\J/2563\J/3C63\J/2569\X/3D}
+\bxip at def@str\bxip@@knjcde at e@e
+{\J/663C\J/2265\X/AD\X/97\X/E3\X/82\J/3363\X/83\J/3C63\X/83\X/89\X/3D}
+
+%% KanjiKoodo control sequences
+% The correct \[KanjiKoodo=UTF-8], meaning input kanji code is right.
+\global\@namedef{\bxip@@knjcde at u@u UTF-8}{\bxip at ensure@utf{}}
+% The mojibake \[XXXXX=UTf-8], meaning input kanji code is wrong.
+\global\@namedef{\bxip@@knjcde at s@u UTF-8}{\bxip at ensure@utf{sjis}}
+\global\@namedef{\bxip@@knjcde at s@s UTF-8}{\bxip at ensure@utf{sjis}}
+\global\@namedef{\bxip@@knjcde at s@e UTF-8}{\bxip at ensure@utf{sjis}}
+\global\@namedef{\bxip@@knjcde at e@u UTF-8}{\bxip at ensure@utf{euc}}
+\global\@namedef{\bxip@@knjcde at e@s UTF-8}{\bxip at ensure@utf{euc}}
+\global\@namedef{\bxip@@knjcde at e@e UTF-8}{\bxip at ensure@utf{euc}}
+
+%% \bxip at ensure@utf{<enc>}
+\gdef\bxip at ensure@utf#1{%
+  \ifx @#1@\expandafter\@gobble
+  \else \expandafter\@firstofone
+  \fi{\bxip at ensure@utf at a{#1}}}
+\ifx\epTeXinputencoding\@undefined
+  \gdef\bxip at ensure@utf at a#1{%
+    \PackageWarning\bxip at pkgname
+     {The input kanji code for file '\@currname.\@currext'\MessageBreak
+      is set to #1, but should be utf8\@gobble}%
+\else
+  \gdef\bxip at ensure@utf at a#1{%
+    \PackageInfo\bxip at pkgname
+     {The input kanji code for file '\@currname.\@currext'\MessageBreak
+      was changed from #1 to utf8\@gobble}%
+    \ifnum\currentgrouplevel>\z@
+      \aftergroup\bxip at ensure@utf at b
+    \else \expandafter\bxip at ensure@utf at b
+    \fi}
+  \gdef\bxip at ensure@utf at b{%
+    \epTeXinputencoding utf8}% unterminated
+\fi
+
 %--------------------------------------- deprecated stuffs
 
 %%<+>D \ifNativeupTeX == \ifnativeupTeX

Modified: trunk/Master/texmf-dist/tex/generic/ifptex/ifuptex.sty
===================================================================
--- trunk/Master/texmf-dist/tex/generic/ifptex/ifuptex.sty	2017-09-19 23:23:23 UTC (rev 45347)
+++ trunk/Master/texmf-dist/tex/generic/ifptex/ifuptex.sty	2017-09-19 23:23:43 UTC (rev 45348)
@@ -43,10 +43,10 @@
 
 %% package declaration
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{ifuptex}[2017/09/09 v1.2 upTeX checker]
+\ProvidesPackage{ifuptex}[2017/09/15 v1.2a upTeX checker]
 
 %% load ifptex
-\x\RequirePackage{ifptex}[2017/09/09]
+\x\RequirePackage{ifptex}[2017/09/15]
 
 %% all done
 \bxip at up@restore at codes

