zxjafbfont (15dec12)

git-svn-id: svn://tug.org/texlive/trunk@28539 c570f23f-e606-0410-a88d-b1316a301751

6 files changed, 113 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/latex/zxjafbfont/LICENSE b/Master/texmf-dist/doc/latex/zxjafbfont/LICENSE
new file mode 100644
index 00000000000..788b1d69d96
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/zxjafbfont/LICENSE
@@ -0,0 +1,24 @@
+$BK\%=%U%H%&%'%"$O(B MIT $B%i%$%;%s%9$N2<$GG[I[$5$l$^$9!#Cx:n8"$O:n<T$G$"$k(B
+$B!VH,EP?rG7!JJLL>(B ZR$B!K!W$KB0$7$^$9!#$^$?K\%=%U%H%&%'%"$OL5J]>Z$G$9!#(B
+
+The MIT License
+
+Copyright (c) 2009-2011 Takayuki YATO (a.k.a. "ZR")
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
diff --git a/Master/texmf-dist/doc/latex/zxjafbfont/README b/Master/texmf-dist/doc/latex/zxjafbfont/README
new file mode 100644
index 00000000000..9971e8d7a6d
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/zxjafbfont/README
@@ -0,0 +1,24 @@
+ZXjafbfont パッケージ
+
+前提環境
+  XeTeX および xeCJK パッケージが正しくインストールおよび設定されていること。
+
+インストール
+  - *.sty      →  $TEXMF/tex/xelatex/ZXjafbfont/
+
+使用法
+  xeCJK（または zxjatype）より後に zxjafbfont パッケージを読み込む。
+    \usepackage[...]{xeCJK} % または zxjatype
+    \usepackage{zxjafbfont}
+  代替として用いるフォントファミリを xeCJK の \setCJKfamilyfont （または
+  zxjatype の \setjafamilyfont）命令で宣言する。
+    \setCJKfamilyfont{altcjk}{Some CJK Family}
+  文書中の任意の場所（プレアンブルでも本文でも可）で \setCJKfallbackfamily
+  命令で宣言したファミリ名を指定すと、それ以降で指定のファミリが代替として
+  自動的に用いられるようになる。
+    \setCJKfallbackfamily{altcjk}
+  \unsetCJKfallbackfamily 命令で代替の指定を解除できる。
+    \unsetCJKfallbackfamily
+
+En toi Pythmeni tes TeXnopoleos ～電脳世界の奥底にて～
+http://zrbabbler.sp.land.to/
diff --git a/Master/texmf-dist/tex/latex/zxjafbfont/zxjafbfont.sty b/Master/texmf-dist/tex/latex/zxjafbfont/zxjafbfont.sty
new file mode 100644
index 00000000000..762a0d5ec58
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/zxjafbfont/zxjafbfont.sty
@@ -0,0 +1,63 @@
+%
+% zxjafbfont.sty
+%
+
+%% package declaration
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{zxjafbfont}[2011/02/20 v0.2]
+
+%% preparations
+\def\zxjx@pkgname{zxjafbfont}
+\def\zxjx@error{\PackageError\zxjx@pkgname}
+%
+\RequirePackage{xeCJK}
+
+%%------ User interface
+
+%%<*> \setCJKfallbackfamily{<CJK_family_name>}
+\newcommand*\setCJKfallbackfamily[1]{%
+  \let\CJKsymbol\zxjx@CJKsymbol
+  \edef\zxjx@fb@family{#1}}
+
+%%<*> \unsetCJKfallbackfamily
+\newcommand*\unsetCJKfallbackfamily{%
+  \let\CJKsymbol\zxjx@org@CJKsymbol
+  \let\zxjx@fb@family\relax}
+
+%% \zxjx@fb@family
+\let\zxjx@fb@family\relax
+
+%%------ Patch to xeCJK procedures
+
+%% \zxjx@enter@local
+\def\zxjx@enter@local{%
+  \bgroup \let\zxjx@maybe@egroup\egroup
+  \zxjx@revoke@ingress}
+\let\zxjx@maybe@egroup\@empty
+\def\zxjx@preto@ictoks#1#2#3{%
+  \chardef\zxjx@x=#1\chardef\zxjx@y=#2\relax
+  \XeTeXinterchartoks\zxjx@x\zxjx@y\expandafter{%
+    \expandafter#3\the\XeTeXinterchartoks\zxjx@x\zxjx@y}}
+\@for\zxjx@a:=1,2,3\do{%
+  \@for\zxjx@b:=0,1,2,3,4,5,6,255\do{%
+    \zxjx@preto@ictoks\zxjx@a\zxjx@b{\zxjx@maybe@egroup}}}
+\def\zxjx@revoke@ingress{%
+  % Segfaults would occur unless \relax is there... (why?)
+  \XeTeXinterchartoks 255 1{\relax}%
+  \XeTeXinterchartoks 255 2{\relax}%
+  \XeTeXinterchartoks 255 3{\relax}}
+\chardef\zxjx@geta="3013
+
+%% \zxjx@CJKsymbol
+\def\zxjx@CJKsymbol#1{%
+  \zxjx@enter@local
+  \chardef\zxjx@uc=`#1\relax
+  \unless\iffontchar\font\zxjx@uc
+    \CJKfamily\zxjx@fb@family \xeCJK@setfont
+  \fi
+  \zxjx@uc}
+\let\zxjx@org@CJKsymbol\CJKsymbol
+
+%%------ all done
+\endinput
+%% EOF
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 2be0e6590b8..820ebf55857 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -466,6 +466,7 @@ my @TLP_working = qw(
     xwatermark xyling xypic xypic-tut-pt xytree
   yafoot yagusylo yannisgr yax ydoc yfonts york-thesis youngtab yplan ytableau
   zed-csp zhnumber ziffer zhmetrics zhspacing zwgetfdate zwpagelayout
+    zxjafbfont
 ); 
 
 
diff --git a/Master/tlpkg/tlpsrc/collection-langcjk.tlpsrc b/Master/tlpkg/tlpsrc/collection-langcjk.tlpsrc
index 07b8fa2ae8d..66301b0a27b 100644
--- a/Master/tlpkg/tlpsrc/collection-langcjk.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-langcjk.tlpsrc
@@ -40,3 +40,4 @@ depend xpinyin
 depend zhmetrics
 depend zhnumber
 depend zhspacing
+depend zxjafbfont
diff --git a/Master/tlpkg/tlpsrc/zxjafbfont.tlpsrc b/Master/tlpkg/tlpsrc/zxjafbfont.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/zxjafbfont.tlpsrc