pxchfon (4aug15)

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

5 files changed, 128 insertions, 13 deletions

diff --git a/Master/texmf-dist/doc/platex/pxchfon/README b/Master/texmf-dist/doc/platex/pxchfon/README
index f577f4b3042..73d3994ba14 100644
--- a/Master/texmf-dist/doc/platex/pxchfon/README
+++ b/Master/texmf-dist/doc/platex/pxchfon/README
@@ -36,9 +36,11 @@ This package is distributed under the MIT License.
 Revision History
 ----------------
 
+  * Version 0.7f [2015/08/04]
+      - `\diruni` and `\textdiruni`.
   * Version 0.7e [2015/05/07]
       - The map file preset feature.
-      - \usefontmapfile and \usefontmapline.
+      - `\usefontmapfile` and `\usefontmapline`.
   * Version 0.7d [2013/06/16]
       - Explicit designation of non-embedding.
   * Version 0.7c [2013/06/16]
diff --git a/Master/texmf-dist/doc/platex/pxchfon/README-ja b/Master/texmf-dist/doc/platex/pxchfon/README-ja
index a01df081baf..97d399ef83a 100644
--- a/Master/texmf-dist/doc/platex/pxchfon/README-ja
+++ b/Master/texmf-dist/doc/platex/pxchfon/README-ja
@@ -57,7 +57,7 @@ pLaTeX / upLaTeX の文書の標準のフォント（明朝・ゴシック）を
       - `pxcjk0.sfd` → $TEXMF/fonts/sfd/pxchfon/
       - `*.def`      → $TEXMF/tex/platex/pxchfon/
 
-  * W32TeX を C:\usr\local にインストールした場合の例。
+  * W32TeX を `C:\usr\local` にインストールした場合の例。
       - `*.tfm`  → `C:\usr\local\share\texmf-local\fonts\tfm\public\pxchfon`
       - `*.vf`   → `C:\usr\local\share\texmf-local\fonts\vf\public\pxchfon`
       - `pxcjk0.sfd` → `C:\usr\local\share\texmf-local\fonts\sfd\pxchfon`
@@ -70,9 +70,12 @@ MIT ライセンス
 更新履歴
 --------
 
+  * Version 0.7f [2015/08/04]
+      - `\diruni` / `\textdiruni` を追加。
   * Version 0.7e [2015/05/07]
       - マップファイルプリセット機能を追加。
-      - \usefontmapfile / \usefontmapline を追加。
+      - `\usefontmapfile` / `\usefontmapline` を追加。
+      - この版までの「試験的」機能を正式な機能とする。
   * Version 0.7d [2013/06/16]
       - 非埋込の明示指定をサポート。
   * Version 0.7c [2013/06/16]
diff --git a/Master/texmf-dist/doc/platex/pxchfon/pxchfon.pdf b/Master/texmf-dist/doc/platex/pxchfon/pxchfon.pdf
index 3bd216b4bb7..e8c4451996e 100644
--- a/Master/texmf-dist/doc/platex/pxchfon/pxchfon.pdf
+++ b/Master/texmf-dist/doc/platex/pxchfon/pxchfon.pdf
diff --git a/Master/texmf-dist/doc/platex/pxchfon/pxchfon.tex b/Master/texmf-dist/doc/platex/pxchfon/pxchfon.tex
index a81874a6965..df3d50fa00c 100644
--- a/Master/texmf-dist/doc/platex/pxchfon/pxchfon.tex
+++ b/Master/texmf-dist/doc/platex/pxchfon/pxchfon.tex
@@ -4,8 +4,8 @@
 \usepackage{metalogo}
 \usepackage{shortvrb}
 \MakeShortVerb{\|}
-\newcommand{\PkgVersion}{0.7e}
-\newcommand{\PkgDate}{2015/05/07}
+\newcommand{\PkgVersion}{0.7f}
+\newcommand{\PkgDate}{2015/08/04}
 \newcommand{\Pkg}[1]{\textsf{#1}}
 \newcommand{\Meta}[1]{$\langle$\mbox{}#1\mbox{}$\rangle$}
 \newcommand{\Note}{\par\noindent ※}
@@ -142,7 +142,8 @@ dvipdfmx 専用である。
   このため、Adobe-Japan1のグリフと対応しないUnicode文字は
   普通は使えない。なお、\texttt{directunicode} は0.6c版では
   横書きのみの対応であったが、0.7版で縦書きにも対応した。
-  ただし、dvipdfmxの仕様の都合で、縦書き用グリフにはならない。}
+  ただし、dvipdfmxの仕様の都合で、縦書き用グリフにはならない。
+  また、現状では実質的に効果がBMP内の文字に限られる。}
 \item |nodirectunicode|（既定）\Means
   |directunicode| の否定。
 \item |usecmapforalphabet|\Means
@@ -277,6 +278,20 @@ dvipdfmx 専用である。
 \item |\usefontmapline{|\Meta{マップ行}|}|\Means
   dvipdfmxのマップ行を直接指定して、その読込を指示する。
   pdf{\TeX}の |\pdfmapline| に相当する機能。
+\item |\diruni|\Means
+  和文フォントを、「Unicodeを用いてフォントのグリフにアクセスする」
+  状態に切り替える（宣言型命令）。
+  これにより、全角幅の任意の文字が出力可能となる。
+  \footnote{\texttt{directunicode} オプションはBMP内でしか
+    効かないが、この命令の効果はBMP外の文字にも及ぶ。
+    つまり本当に任意の文字が扱える。}%
+  その代わり、この状態では、約物の周りの空き調整が無効になる。
+  詳細については\ref{sec:Loading}節の |directunicode| オプションの
+  説明を参照されたい。
+  なお、この命令は、シェープを |diruni| という値に変えることで
+  実現されている。
+\item |\textdiruni{|\Meta{テキスト}|}|\Means
+  |\diruni| に対応する引数型命令。
 \end{itemize}
 
 %===========================================================
diff --git a/Master/texmf-dist/tex/platex/pxchfon/pxchfon.sty b/Master/texmf-dist/tex/platex/pxchfon/pxchfon.sty
index a0c1e8a6311..a7715eca47e 100644
--- a/Master/texmf-dist/tex/platex/pxchfon/pxchfon.sty
+++ b/Master/texmf-dist/tex/platex/pxchfon/pxchfon.sty
@@ -4,7 +4,7 @@
 
 %%%% package declaration
 \NeedsTeXFormat{pLaTeX2e}
-\ProvidesPackage{pxchfon}[2015/05/07 v0.7e]
+\ProvidesPackage{pxchfon}[2015/08/04 v0.7f]
 \def\pxcz@pkgname{pxchfon}
 
 %%%% definitions
@@ -327,13 +327,11 @@
 
 %% \pxcz@do@file@preset
 \def\pxcz@do@file@preset{%
-  \ifpxcz@uptex \pxcz@do@file@preset@a{uptex-}%
-  \else         \pxcz@do@file@preset@a{ptex-}%
-  \fi
+  \pxcz@do@file@preset@a{ptex-}%
+  \ifpxcz@uptex \pxcz@do@file@preset@a{uptex-}\fi
   \ifpxcz@otf
-    \ifpxcz@uptex \pxcz@do@file@preset@a{otf-up-}%
-    \else         \pxcz@do@file@preset@a{otf-}%
-    \fi
+    \pxcz@do@file@preset@a{otf-}%
+    \ifpxcz@uptex \pxcz@do@file@preset@a{otf-up-}\fi
   \fi}
 
 \def\pxcz@do@file@preset@a#1{%
@@ -454,6 +452,7 @@
 \Entry{mgr}{hmgothrn-h  H              \FONT}%
 \Entry{mgr}{hmgothrn-v  V              \FONT}%
 %
+\ifpxcz@otf@multi
 \Entry{kom}{otf-ukmr-h \+UniKS-UTF16-H   \FONT}%
 \Entry{kom}{otf-ukmr-v \+UniKS-UTF16-V   \FONT\w}%
 \Entry{kom}{otf-ckmr-h Identity-H        \FONT/AK12}%
@@ -478,6 +477,7 @@
 \Entry{tcg}{otf-utgr-v \+UniCNS-UTF16-V  \FONT\w}%
 \Entry{tcg}{otf-ctgr-h Identity-H        \FONT/AC14}%
 \Entry{tcg}{otf-ctgr-v Identity-V        \FONT/AC14}%
+\fi
 }
 \pxcz@mapentry{UPSTD}{%
 \Entry{mnr}{uprml-h    \UniJIS-UTF16-H \FONTs}%
@@ -551,6 +551,101 @@
   \pxcz@user@map
 }
 
+%%------------------ '\diruni'
+
+%% variables
+\newif\ifpxcz@diruni@ok
+\let\pxcz@otf@weight\relax
+
+%% check if \diruni is available
+\ifpxcz@uptex
+  \@ifpackageloaded{otf}{%
+    \ifpxcz@directunicode \pxcz@diruni@oktrue \fi
+  }{}
+\fi
+
+%%<*> \textdiruni{<text>}
+\newcommand*{\textdiruni}[1]{%
+  \relax\ifmmode\hbox\fi{\diruni#1}%
+}
+
+\ifpxcz@diruni@ok   %---- <*diruni-ok>
+
+%% otf weight mode
+% watch out for priority...
+\@ifpackagewith{otf}{deluxe}{%
+  \let\pxcz@otf@weight=d
+}{\@ifpackagewith{otf}{bold}{%
+  \let\pxcz@otf@weight=b
+}{\@ifpackagewith{otf}{noreplace}{%
+  \let\pxcz@otf@weight=n
+}{%else
+  \let\pxcz@otf@weight=r
+}}}
+
+%%<*> \diruni
+\DeclareRobustCommand*{\diruni}{%
+  \not@math@alphabet\diruni\relax
+  \fontshape{diruni}\selectfont
+}
+
+%% \pxcz@du@decl@shape{<fam>}{<ser>}{<font>}
+\@onlypreamble\pxcz@du@decl@shape
+\def\pxcz@du@decl@shape#1#2#3#4{%
+\DeclareFontShape{JY2}{#1}{#2}{diruni}{<->%
+    \if#3ts*[\utf@sc@le]#4-h\else#4\fi}{}%
+\DeclareFontShape{JT2}{#1}{#2}{diruni}{<->%
+    \if#3ts*[\utf@sc@le]#4-v\else#4\fi}{}}
+
+\if d\pxcz@otf@weight % deluxe
+\pxcz@du@decl@shape{hmc}{l}t{otf-ujml}%
+\pxcz@du@decl@shape{hmc}{m}t{otf-ujmr}%
+\pxcz@du@decl@shape{hmc}{bx}t{otf-ujmb}%
+\pxcz@du@decl@shape{hgt}{m}t{otf-ujgr}%
+\pxcz@du@decl@shape{hgt}{bx}t{otf-ujgb}%
+\pxcz@du@decl@shape{hgt}{eb}t{otf-ujge}%
+\pxcz@du@decl@shape{mg}{m}t{otf-ujmgr}%
+\else\if b\pxcz@otf@weight % bold
+\pxcz@du@decl@shape{hmc}{m}t{otf-ujmr}%
+\pxcz@du@decl@shape{hmc}{bx}f{ssub*hgt/m/diruni}%
+\pxcz@du@decl@shape{hgt}{m}t{otf-ujgb}%
+\pxcz@du@decl@shape{hgt}{bx}f{ssub*hgt/m/diruni}%
+\else\if r\pxcz@otf@weight % default
+\pxcz@du@decl@shape{hmc}{m}t{otf-ujmr}%
+\pxcz@du@decl@shape{hmc}{bx}f{ssub*hgt/m/diruni}%
+\pxcz@du@decl@shape{hgt}{m}t{otf-ujgr}%
+\pxcz@du@decl@shape{hgt}{bx}f{ssub*hgt/m/diruni}%
+\else                 % noreplace
+\pxcz@du@decl@shape{mc}{m}t{otf-ujmr}%
+\pxcz@du@decl@shape{mc}{bx}f{ssub*gt/m/diruni}%
+\pxcz@du@decl@shape{gt}{m}t{otf-ujgr}%
+\pxcz@du@decl@shape{gt}{bx}f{ssub*gt/m/diruni}%
+\fi\fi\fi
+
+\AtBeginDocument{%
+  \def\pxcz@do#1#2#3{%
+    \DeclareFontShape{#1}{#2}{#3}{diruni}{<->ssub*#2/#3/n}{}}%
+  \@for\pxcz@tmpa:={\rmdefault,\sfdefault,\ttdefault}\do{%
+    \@for\pxcz@tmpb:={m,bx}\do{%
+      \edef\pxcz@tmpb{{\f@encoding}{\pxcz@tmpa}{\pxcz@tmpb}}%
+      \expandafter\pxcz@do\pxcz@tmpb}}%
+}
+
+\else               %---- <*!diruni-ok>
+
+%%<*> \diruni
+\DeclareRobustCommand*{\diruni}{%
+  \pxcz@err@diruni
+}
+\def\pxcz@err@diruni{%
+  \pxcz@error{Command '\string\diruni' not availble}%
+   {You must load this package with 'directunicode' option on upLaTex,%
+    \MessageBreak after loading 'otf' package.\MessageBreak\@ehc}%
+  \global\let\pxcz@err@diruni\relax
+}
+
+\fi                 %---- </diruni-ok>
+
 %%------------------ 'alphabet' option
 
 %% \pxcz@decl@shape{<fam>}{<ser>}{<font>}