texlive[45348] Master/texmf-dist: ifptex (18sep17)
commits+karl at tug.org
commits+karl at tug.org
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
More information about the tex-live-commits
mailing list