summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r--Master/texmf-dist/doc/xelatex/xecjk/README4
-rw-r--r--Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-CJKfntef.tex43
-rw-r--r--Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-checksingle.tex7
-rw-r--r--Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-fallback.tex2
-rw-r--r--Master/texmf-dist/doc/xelatex/xecjk/xeCJK.pdfbin655056 -> 752103 bytes
-rw-r--r--Master/texmf-dist/source/xelatex/xecjk/xeCJK.dtx2037
-rw-r--r--Master/texmf-dist/source/xelatex/xecjk/xeCJK.ins10
-rw-r--r--Master/texmf-dist/tex/xelatex/xecjk/config/xeCJK.cfg5
-rw-r--r--Master/texmf-dist/tex/xelatex/xecjk/xeCJK.sty996
-rw-r--r--Master/texmf-dist/tex/xelatex/xecjk/xeCJKfntef.sty339
10 files changed, 2581 insertions, 862 deletions
diff --git a/Master/texmf-dist/doc/xelatex/xecjk/README b/Master/texmf-dist/doc/xelatex/xecjk/README
index 94a9f709aab..721c1572864 100644
--- a/Master/texmf-dist/doc/xelatex/xecjk/README
+++ b/Master/texmf-dist/doc/xelatex/xecjk/README
@@ -14,6 +14,7 @@ This package consists of the file xeCJK.dtx
xeCJK.sty,
xeCJK.cfg,
xeCJK.ins,
+ xeCJKfntef.sty,
xeCJK-example-autofake.tex,
xeCJK-example-fallback.tex,
xeCJK-example-subCJKblock.tex,
@@ -47,8 +48,7 @@ The package requires LaTeX3 support as provided in the l3kernel and
l3packages bundles and the fontspec package. All of these are available
on CTAN as ready-to-install zip files. Suitable versions are available
in the latest version of MiKTeX and TeX Live (updating the relevant
-packages online may be necessary). Both of xpatch and etoolbox packages
-are required. They are also available on CTAN.
+packages online may be necessary).
To compile the documentation without error, you will need some specific
CJK scripts fonts (TrueType or OpenType).
diff --git a/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-CJKfntef.tex b/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-CJKfntef.tex
index 700f3d0d3a6..0e0e39b5033 100644
--- a/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-CJKfntef.tex
+++ b/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-CJKfntef.tex
@@ -9,22 +9,47 @@
\documentclass{article}
\usepackage{xeCJK}
\usepackage{xcolor}
-\usepackage{CJKfntef}
-\setCJKmainfont{SimSun}
+\usepackage{xeCJKfntef}
+\xeCJKDeclareSubCJKBlock{test}{ `殆 , `已 }
+\setCJKmainfont[test=SimHei]{SimSun}
-\begin{document}
-
-\CJKunderline{汉字}\CJKunderline{加下划线加下划线加下划线加下划线
-加下划线加下划线加下划线加下划线加下划线加下划线加下划线}
+\def\showtext{%
+ 庄子曰:“吾生也有涯,而知也无涯。以有涯随无涯,殆已!已而为知者,殆而已矣!%
+ 为善无近名,为恶无近刑,缘督以为经,可以保身,可以全生,可以养亲,可以尽年。”}
+\newcommand\CJKfntef[1]{%
+ \csname#1\endcsname{\showtext}\par
+ \csname#1\endcsname*{\showtext}\par
+ \CJKunderdot{\showtext\csname#1\endcsname{\showtext}}\par
+ \CJKunderdot{\showtext\csname#1\endcsname*{\showtext}}\par
+ \csname#1\endcsname{\showtext\CJKunderdot{\showtext}}\par
+ \csname#1\endcsname*{\showtext\CJKunderdot{\showtext}}\par\bigskip}
-\CJKunderwave{波浪线}
+\begin{document}
+\CJKunderline{汉 字}\CJKunderline{加下划线}
+\varCJKunderline{汉字}\varCJKunderline{加下划线}
\CJKunderanyline{0.5em}{\sixly \kern-.021em\char58 \kern-.021em}{自定义下划线}
-
\CJKunderanyline{0.2em}{\kern-.03em\vtop{\kern.2ex\hrule width.2em\kern 0.11em
\hrule height 0.1em}\kern-.03em}{自定义下划线}
-\CJKunderanysymbol{0.5em}{$\cdot$}{汉字加点}
+\CJKunderanyline{0.5em}{-}{\showtext}
+
+\CJKunderanysymbol{0.2em}{-}{\showtext}
+
+\CJKunderdot{\showtext}
+
+\begin{CJKfilltwosides}{40mm}
+两端分散对齐\\
+分散对齐\\
+\CJKunderdot{汉字可加点}\\
+\CJKunderline{汉字可加下划线}
+\end{CJKfilltwosides}
+
+\CJKfntef{CJKunderline}
+\CJKfntef{CJKunderwave}
+\CJKfntef{CJKunderdblline}
+\CJKfntef{CJKsout}
+\CJKfntef{CJKxout}
\end{document}
%%
diff --git a/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-checksingle.tex b/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-checksingle.tex
index 16f4a034420..3735d4a76e7 100644
--- a/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-checksingle.tex
+++ b/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-checksingle.tex
@@ -13,6 +13,8 @@
\def。{.}
\def\foo{一}
\long\def\showtext{一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十。
+\[x^2+y^2\]
+一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十\foo
$$x^2+y^2$$
一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十\foo
\begin{equation}
@@ -28,6 +30,11 @@ x^2+y^2
\xeCJKsetup{CheckSingle}
\showtext
+
+\hrulefill\bigskip
+
+\xeCJKsetup{PlainEquation}
+\showtext
\end{document}
%%
%%
diff --git a/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-fallback.tex b/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-fallback.tex
index 53e64190a31..473abf793cb 100644
--- a/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-fallback.tex
+++ b/Master/texmf-dist/doc/xelatex/xecjk/example/xeCJK-example-fallback.tex
@@ -8,7 +8,7 @@
%%
\documentclass{article}
\usepackage[AutoFallBack]{xeCJK}
-\usepackage{CJKfntef}
+\usepackage{xeCJKfntef}
\usepackage{array}
\setCJKmainfont[AutoFakeBold,AutoFakeSlant]{KaiTi_GB2312}
\setCJKfallbackfamilyfont{\CJKrmdefault}[BoldFont=SimHei]
diff --git a/Master/texmf-dist/doc/xelatex/xecjk/xeCJK.pdf b/Master/texmf-dist/doc/xelatex/xecjk/xeCJK.pdf
index 39ed5e3552e..2a30603cac8 100644
--- a/Master/texmf-dist/doc/xelatex/xecjk/xeCJK.pdf
+++ b/Master/texmf-dist/doc/xelatex/xecjk/xeCJK.pdf
Binary files differ
diff --git a/Master/texmf-dist/source/xelatex/xecjk/xeCJK.dtx b/Master/texmf-dist/source/xelatex/xecjk/xeCJK.dtx
index 4bdcdb2f7bc..bc8118b51a7 100644
--- a/Master/texmf-dist/source/xelatex/xecjk/xeCJK.dtx
+++ b/Master/texmf-dist/source/xelatex/xecjk/xeCJK.dtx
@@ -22,6 +22,7 @@ This package consists of the file xeCJK.dtx
xeCJK.sty,
xeCJK.cfg,
xeCJK.ins,
+ xeCJKfntef.sty,
xeCJK-example-autofake.tex,
xeCJK-example-fallback.tex,
xeCJK-example-subCJKblock.tex,
@@ -56,8 +57,7 @@ The package requires LaTeX3 support as provided in the l3kernel and
l3packages bundles and the fontspec package. All of these are available
on CTAN as ready-to-install zip files. Suitable versions are available
in the latest version of MiKTeX and TeX Live (updating the relevant
-packages online may be necessary). Both of xpatch and etoolbox packages
-are required. They are also available on CTAN.
+packages online may be necessary).
To compile the documentation without error, you will need some specific
CJK scripts fonts (TrueType or OpenType).
@@ -81,7 +81,7 @@ CJK scripts fonts (TrueType or OpenType).
\askforoverwritefalse
\preamble
-$Id: xeCJK.dtx 368 2012-11-23 04:55:23Z sobenlee $
+$Id: xeCJK.dtx 382 2012-12-13 04:58:22Z sobenlee $
$URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
-----------------------------------------------------------------
Author:
@@ -112,6 +112,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
xeCJK.sty,
xeCJK.cfg,
xeCJK.ins,
+ xeCJKfntef.sty,
xeCJK-example-autofake.tex,
xeCJK-example-fallback.tex,
xeCJK-example-subCJKblock.tex,
@@ -127,7 +128,9 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\declarepostamble\emptypostamble
\endpostamble
\usedir{tex/xelatex/xecjk}
-\generate{\file{\jobname.sty}{\from{\jobname.dtx}{package}}}
+\generate{
+ \file{\jobname.sty}{\from{\jobname.dtx}{package}}
+ \file{xeCJKfntef.sty}{\from{\jobname.dtx}{fntef}}}
\usedir{tex/xelatex/xecjk/config}
\generate{
\usepreamble\emptypreamble
@@ -156,41 +159,44 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\xeCJKMaybeStopHere
%</internal>
%
-%<*driver|package|config>
-\NeedsTeXFormat{LaTeX2e}
+%<*driver|package|config|fntef>
%<*!config>
+\NeedsTeXFormat{LaTeX2e}
\RequirePackage{expl3}
%</!config>
-\GetIdInfo$Id: xeCJK.dtx 368 2012-11-23 04:55:23Z sobenlee $
-%<*!config>
+\GetIdInfo$Id: xeCJK.dtx 382 2012-12-13 04:58:22Z sobenlee $
+%<*!config&!fntef>
{Typesetting CJK scripts with XeLaTeX}
-%</!config>
+%</!config&!fntef>
%<config> {Configuration file for xeCJK package}
-%<*!package>
+%<fntef> {xeCJK patch file for ulem/CJKfntef}
+%<*!package&!fntef>
\ProvidesExplFile
-%</!package>
+%</!package&!fntef>
%<*driver>
{\ExplFileName.\ExplFileExtension}
%</driver>
%<config> {\ExplFileName.cfg}
-%<package>\ProvidesExplPackage
+%<package|fntef>\ProvidesExplPackage
%<package> {\ExplFileName}
- {\ExplFileDate}{3.1.0}{\ExplFileDescription}
+%<fntef> {xeCJKfntef}
+ {\ExplFileDate}{3.1.1}{\ExplFileDescription}
%<*driver>
+\def\xeCJKversion{3.1.1}
+\let\xeCJKdate\ExplFileDate
\let\xeCJKrevnum\ExplFileVersion
\ExplSyntaxOff
%</driver>
-%</driver|package|config>
+%</driver|package|config|fntef>
%
%<*driver>
\expandafter\let\csname ver@thumbpdf.sty\endcsname\empty
\documentclass[numbered,a4paper,full]{l3doc}
\hypersetup{pdfstartview=FitH}
\usepackage{xeCJK}
-\usepackage{CJKfntef}
+\usepackage{xeCJKfntef}
\usepackage{geometry}
\usepackage[toc]{multitoc}
-\normalem
\fvset{formatcom=\xeCJKVerbAddon}
\linespread{1.1}
\setlist{noitemsep,topsep=1ex}
@@ -246,9 +252,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\def\TF{true\orvar{}false}
\def\TTF{\defaultvar{true}\orvar{}false}
\def\TFF{true\orvar\defaultvar{false}}
-\def\orvar{\char`\|}
+\chardef\orvar`\|
\let\defaultvar\textbf
-\def\argbrace#1{\{#1\}}
\@addtoreset{CodelineNo}{section}
\def\tokslink#1{\hyperlink{#1}{\ding{51}}}
\makeatother
@@ -270,14 +275,14 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%</driver>
% \fi
%
-% \CheckSum{3035}
+% \CheckSum{3762}
% \changes{v3.1.0}{2012/11/13}{放弃对 \cs{outer} 宏的特殊处理。}
+% \changes{v3.1.1}{2012/12/07}{不再依赖 \pkg{xpatch} 宏包。}
%
-% \GetFileInfo{\jobname.dtx}
%
% \title{\bfseries\pkg{xeCJK} 宏包}
% \author{\href{http://www.ctex.org}{ctex.org}}
-% \date{\filedate\qquad\fileversion\thanks{\ctexkitrev{\xeCJKrevnum}.}}
+% \date{\xeCJKdate\qquad\xeCJKversion\thanks{\ctexkitrev{\xeCJKrevnum}.}}
% \maketitle
%
% \tableofcontents
@@ -301,7 +306,6 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \package{l3packages}。\pkg{xeCJK} 还需要通过 \package{fontspec} 宏包来调用系统字
% 体。将在 \ref{subsec:opts}~节介绍的功能选项 |CJKnumber| 需要 \package{CJK} 宏包套
% 件中的 \pkg{CJKnumb} 的支持;|indentfirst| 选项需要 \package{indentfirst} 宏包。
-% 此外还需要 \package{xpatch} 和 \package{etoolbox} 宏包。
% \pkg{xeCJK} 会自动根据需要载入这些宏包。
%
% \pkg{xeCJK} 的原始作者是孙文昌,2009 年 5 月起宏包被收入 \ctexkit\ 项目进行
@@ -352,7 +356,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%
% \begin{function}{\xeCJKsetup}
% \begin{syntax}
-% \cs{xeCJKsetup} \argbrace{\meta{key_1}=\meta{var_1}, \meta{key_2}=\meta{var_2}, ...}
+% \cs{xeCJKsetup} \{\meta{key_1}=\meta{var_1}, \meta{key_2}=\meta{var_2}, ...\}
% \end{syntax}
% 其中 \meta{key_1}, \meta{key_2} 是设置选项,而 \meta{val_1}, \meta{val_2} 则是对应选项的
% 设置内容。多个选项可以在一个语句中完成设置。例如
@@ -370,11 +374,10 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 有些选项或命令后面带有 \hypertarget{expstar}{\hyperlink{expstar}{$\star$}} 号,这表示这
% 个选项或命令只能在导言区中使用,而 \hypertarget{rexpstar}{\hyperlink{rexpstar}{\ding{73}}}
% 号则表示这个选项或命令只能在导言区使用,并且只影响随后定义的 CJK 字体。其余不带特殊标记的
-% 选项或命令,如果没有特别说明,可以在导言区或正文中使用。
-%
-% 下列选项使用加粗的形式来表示 \pkg{xeCJK} 的默认设置。
+% 选项或命令,如果没有特别说明,可以在导言区或正文中使用。%
+% 使用粗体来表示 \pkg{xeCJK} 的默认设置。
%
-% \begin{function}[EXP]{LocalConfig}
+% \begin{function}[EXP,added=2012-11-22]{LocalConfig}
% \begin{syntax}
% LocalConfig = \marg{\TTF\orvar{}name}
% \end{syntax}
@@ -399,7 +402,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 到 \pkg{CJKnumb},请通过这个选项调用它。
% \end{function}
%
-% \begin{function}[EXP]{indentfirst}
+% \begin{function}[EXP,updated=2012-11-22]{indentfirst}
% \begin{syntax}
% indentfirst = \meta{\TTF}
% \end{syntax}
@@ -434,7 +437,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%
% \begin{function}{CJKglue}
% \begin{syntax}
-% CJKglue = \argbrace{\cs{hspace}\argbrace{0pt plus .08\cs{baselineskip}}}
+% CJKglue = \{\cs{hskip} 0pt plus 0.08\cs{baselineskip}\}
% \end{syntax}
% 设置 CJK 文字之间插入的 |glue|,上边是 \pkg{xeCJK} 的默认值。一般来说,除非有
% 特殊需要(例如,改变文字间距等),否则不需要设置这个选项,使用默认值即可。如果要设置
@@ -460,16 +463,43 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 入的 CJK 文字与西文之间的空格。
% \end{function}
%
-% \begin{function}{CheckSingle}
+% \begin{function}[updated=2012-12-06]{CheckSingle}
% \begin{syntax}
% CheckSingle = \meta{\TFF}
% \end{syntax}
-% 是否避免单个 CJK 文字单独占一个段落的最后一行。
+% 是否避免单个 CJK 文字单独占一个段落的最后一行。需要说明的是,这个选项只有在
+% 段末的最后一个字是 CJK 文字或者标点符号,并且倒数第二和第三个字都是文字才能
+% 正确处理处理孤字的问题。如果这倒数三个字有作为控制序列的参数的情况,那么一般
+% 来说也不能正确处理。
+% \end{function}
+%
+% \begin{function}[added=2012-12-06]{PlainEquation}
+% \begin{syntax}
+% PlainEquation = \meta{\TFF}
+% \end{syntax}
+% 如果使用了 |$$...$$| 的形式来输入行间数学公式,就需要启用本选项,以便
+% |CheckSingle| 选项能够正确识别。推荐使用 |\[...\]| 的形式来输入行间数学公式。
+% \end{function}
+%
+% \begin{function}[added=2012-12-04]{NewLineCS,NewLineCS+,NewLineCS-}
+% \begin{syntax}
+% NewLineCS = \{ \cs{par} \cs{[} \}
+% \end{syntax}
+% 设置造成断行的控制序列,以便 |CheckSingle| 选项能够正确识别。
+% 以上是 \pkg{xeCJK} 的初始设置。
% \end{function}
%
-% \begin{function}{InlineEnv,InlineEnv+,InlineEnv-}
+% \begin{function}[added=2012-12-04]{EnvCS,EnvCS+,EnvCS-}
% \begin{syntax}
-% InlineEnv = \argbrace{env1, env2, env3, ...}
+% EnvCS = \{ \cs{begin} \cs{end} \}
+% \end{syntax}
+% 设置 \LaTeX 环境开始和结束的控制序列,以便 |CheckSingle| 选项能够正确识别。
+% 以上是 \pkg{xeCJK} 的初始设置。
+% \end{function}
+%
+% \begin{function}[updated=2012-12-06]{InlineEnv,InlineEnv+,InlineEnv-}
+% \begin{syntax}
+% InlineEnv = \{\meta{env_1}, \meta{env_2}, \meta{env_3}, ...\}
% \end{syntax}
% 在使用 |CheckSingle| 选项的时候,\pkg{xeCJK} 会将 CJK 文字后接着的 \LaTeX 环境的
% 开始 |\begin{...}| 和结束 |\end{...}| 视为断行的地方,如果有某些特殊
@@ -514,7 +544,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 设置伪斜体的粗细程度,范围是 $-0.999 \sim 0.999$。
% \end{function}
%
-% \begin{function}{PunctStyle}
+% \begin{function}[updated=2012-11-10]{PunctStyle}
% \begin{syntax}
% PunctStyle = \marg{\defaultvar{quanjiao}\orvar{}banjiao\orvar{}kaiming\orvar{}hangmobanjiao\orvar{}CCT\orvar{}plain\orvar{}...}
% \end{syntax}
@@ -576,6 +606,24 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 这一选项改变这一设置。
% \end{function}
%
+% \begin{function}[added=2012-12-02]{CheckFullRight}
+% \begin{syntax}
+% CheckFullRight = \meta{\TFF}
+% \end{syntax}
+% 某些控制序列要求不能在它的前面断行。但是在缺省状态下,单个全角右标点的后面总是
+% 可以断行的。因此当这些控制序列出现在全角右标点后面时,可能出现了意料之外的断行。
+% 此时可以使用这个选项来避免这个情况。
+% \end{function}
+%
+% \begin{function}[added=2012-12-02]{NoBreakCS,NoBreakCS+,NoBreakCS-}
+% \begin{syntax}
+% NoBreakCS = \{ \cs{footnote} \cs{footnotemark} \cs{nobreak} \}
+% \end{syntax}
+% 设置不能在全角右标点后断行的控制序列。以上是 \pkg{xeCJK} 的默认设置。如果这些
+% 控制序列在文档中只出现少量几次,也可以不必使用 |CheckFullRight| 选项,而是手工
+% 在这些控制序列前面加上 \ref{subsec:others}~节介绍的 \cs{xeCJKnobreak}。
+% \end{function}
+%
% \subsection{字体设置与选择}
% \label{subsec:fontset}
%
@@ -613,20 +661,6 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 设置正文等宽族的 CJK 字体,影响 \cs{ttfamily} 和 \cs{texttt} 的字体。
% \end{function}
%
-% \begin{function}{\xeCJKVerbAddon}
-% \begin{syntax}
-% \cs{xeCJKVerbAddon}
-% \end{syntax}
-% 调整文字间距以便于让 CJK 字符占的宽度等于西文等宽字体中两个空格的宽度。这有利于
-% 等宽字体的代码对齐等情形。抄录 |(verbatim)| 环境将自动使用 \cs{xeCJKVerbAddon}
-% 的效果。需要注意的是,\cs{xeCJKVerbAddon} 对 \pkg{xeCJK} 的内部进行了比较大的
-% 修改,使用它之后,关于标点符号的禁则将会丢失。所以不能单独使用,应该放在分组里
-% 限制其作用域,否则是无效的。当然它可以和其它关于代码抄录的宏包配合使用。例如,
-% 可以使用于 \package{fancyvrb} 宏包的 |formatcom| 选项。此时设置的西文字体应该
-% 确实是等宽的以保证对齐。若西文等宽字体发生变动(包括字体大小),则需要在其后面
-% 使用 \cs{xeCJKVerbAddon},重新计算间距的宽度。
-% \end{function}
-%
% \begin{function}[EXP]{\setCJKfamilyfont}
% \begin{syntax}
% \cs{setCJKfamilyfont} \Arg{family} \oarg{font features} \Arg{font name}
@@ -634,7 +668,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 声明新的 CJK 字体族 \meta{family} 并指定字体。
% \end{function}
%
-% \begin{function}{\CJKfamily}
+% \begin{function}[updated=2012-10-27]{\CJKfamily}
% \begin{syntax}
% \cs{CJKfamily} \Arg{family}
% \cs{CJKfamily+} \Arg{family}
@@ -709,12 +743,12 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%
% \begin{function}{\CJKfamilydefault}
% 保存 \cs{normalfont} 所使用的 CJK 字体族,默认值是 \cs{CJKrmdefault}。类似西文字
-% 体的 \cs{familydefault}。可以通过更改它来改变文档的默认 CJK 字体族。例如,使用
+% 体的 \cs{familydefault}。\pkg{xeCJK} 会在导言区结束的时候根据西文字体的情况自动
+% 更新 \cs{CJKfamilydefault}。例如,在导言区里使用
% \begin{verbatim}
% \renewcommand\familydefault{\sfdefault}
-% \renewcommand\CJKfamilydefault{\CJKsfdefault}
% \end{verbatim}
-% 可以将全文的 CJK 和西文默认字体改为无衬线字体族。
+% 就可以将全文的 CJK 和西文默认字体都改为无衬线字体族。
% \end{function}
%
% \begin{function}[EXP]{\setCJKmathfont}
@@ -740,7 +774,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%
% \begin{function}{FallBack}
% \begin{syntax}
-% FallBack = \argbrace{\oarg{font features}\Arg{font name}}
+% FallBack = \{\oarg{font features}\Arg{font name}\}
% \end{syntax}
% \pkg{xeCJK} 在 \meta{font features} 里增加了 |FallBack| 这个选项。用来在声明主
% 字体的时候,同时设置备用字体。例如,上面的例子等价于:
@@ -761,8 +795,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{syntax}
% \cs{setCJKfallbackfamilyfont} \Arg{family} \oarg{common font features}
% \ \{
-% \ \argbrace{\oarg{font features 1} \Arg{font name 1}} ,
-% \ \argbrace{\oarg{font features 2} \Arg{font name 2}} ,
+% \ \{\oarg{font features 1} \Arg{font name 1}\} ,
+% \ \{\oarg{font features 2} \Arg{font name 2}\} ,
% \ ......
% \ \}
% \end{syntax}
@@ -927,7 +961,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{syntax}
% \cs{xeCJKResetCharClass}
% \end{syntax}
-% 用于重置 \pkg{xeCJK} 对各个字符类别的设置。
+% 用于恢复 \pkg{xeCJK} 对各个字符类别的初始化设置。
% \end{function}
%
% \begin{function}[EXP]{\xeCJKResetPunctClass}
@@ -941,7 +975,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{syntax}
% \cs{normalspacedchars} \Arg{char list}
% \end{syntax}
-% 在 \meta{char list} 中出现的字符两端不自动添加空格,默认设置是 |/|。
+% 在 \meta{char list} 中出现的字符两端不自动添加空格,初始设置是 |/|。
% \end{function}
%
% \subsection{标点符号的处理}
@@ -982,14 +1016,14 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \subsubsection{定义标点符号处理格式}
% \label{subsec:punctstyle}
%
-% \begin{function}[EXP]{\xeCJKDeclarePunctStyle}
+% \begin{function}[EXP,added=2012-11-10]{\xeCJKDeclarePunctStyle}
% \begin{syntax}
% \cs{xeCJKDeclarePunctStyle} \Arg{style} \Arg{options}
% \end{syntax}
% 定义新的标点符号处理格式,已经存在的同名格式将被覆盖。可以设置的选项将在下面介绍。
% \end{function}
%
-% \begin{function}[EXP]{\xeCJKEditPunctStyle}
+% \begin{function}[EXP,added=2012-11-10]{\xeCJKEditPunctStyle}
% \begin{syntax}
% \cs{xeCJKEditPunctStyle} \Arg{style} \Arg{options}
% \end{syntax}
@@ -1136,22 +1170,48 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{verbatim}
% 将使得 \cs{xeCJKsetkern} 等的设置对 |hangmobanjiao| 这一格式无效。
%
+% \subsection{其它}
+% \label{subsec:others}
+%
+% \begin{function}[added=2012-11-19]{\xeCJKVerbAddon}
+% \begin{syntax}
+% \cs{xeCJKVerbAddon}
+% \end{syntax}
+% 调整文字间距以便于让 CJK 字符占的宽度等于西文等宽字体中两个空格的宽度。这有利于
+% 等宽字体的代码对齐等情形。抄录 |(verbatim)| 环境将自动使用 \cs{xeCJKVerbAddon}
+% 的效果。需要注意的是,\cs{xeCJKVerbAddon} 对 \pkg{xeCJK} 的内部进行了比较大的
+% 修改,使用它之后,关于标点符号的禁则将会丢失。所以不能单独使用,应该放在分组里
+% 限制其作用域,否则是无效的。当然它可以和其它关于代码抄录的宏包配合使用。例如,
+% 可以使用于 \package{fancyvrb} 宏包的 |formatcom| 选项。此时设置的西文字体应该
+% 确实是等宽的以保证对齐。若西文等宽字体发生变动(包括字体大小),则需要在其后面
+% 使用 \cs{xeCJKVerbAddon},重新计算间距的宽度。
+% \end{function}
+%
+% \begin{function}[added=2012-12-03]{\xeCJKnobreak}
+% \begin{syntax}
+% ……汉字。\cs{xeCJKnobreak}\cs{footnote}\{脚注\}
+% \end{syntax}
+% \cs{xeCJKnobreak} 用在全角标点符号后面,目的是确保不能在此处断行。如果已经启用了
+% 前面介绍的 |CheckFullRight| 选项,则不需要再用此命令。
+% \end{function}
+%
% \section{已知问题和兼容性}
%
-% 为了与 \pkg{CJKnumb} 和 \pkg{CJKfntef} 宏包兼容,\pkg{xeCJK} 使用并重新定义了
-% \pkg{CJK} 宏包的部分宏命令,如 \cs{CJKfamily}、\cs{CJKsymbol} 和 \cs{CJKpunctsymbol} 等。
-% 需要指出,\pkg{xeCJK} 不需要 \pkg{CJK} 的支持,并且 \pkg{xeCJK} 自动禁止在它之后载入
-% \pkg{CJK} 宏包。
+% \pkg{xeCJK} 使用并重新定义了 \pkg{CJK} 宏包的部分宏命令,如 \cs{CJKfamily}、
+% \cs{CJKsymbol} 和 \cs{CJKglue} 等。需要指出,\pkg{xeCJK} 不需要 \pkg{CJK}
+% 的支持,并且 \pkg{xeCJK} 自动禁止在它之后载入 \pkg{CJK} 宏包。
%
-% 可以在 \pkg{xeCJK} 之后载入 \pkg{CJKfntef} 宏包,以实现\CJKunderdot{汉字加点}
-% 和\CJKunderwave{可断行的下划线}等。
+% \CJKunderline{\pkg{xeCJK} 包含有一个子宏包 \pkg{xeCJKfntef},可以用它来实现%
+% \CJKunderdot{汉字加点}和可断行的下划线等。它是 \pkg{CJKfntef} 宏包在在 \XeLaTeX
+% 下的替换版本,基本用法完全一致,在 \pkg{CJKfntef} 的源文件\ \file{CJKfntef.sty}
+% 的注解部分里有说明。}
%
% 新版本(\texttt{3.x})的 \pkg{xeCJK} 完全使用 \hologo{LaTeX3} 的语法来编写。
% \hologo{LaTeX3} 放弃了 \cs{outer} 宏的概念,因此相关工具(例如 |peek| 类函数)在
% 遇到 \cs{outer} 宏时可能会存在问题。按照目前 \pkg{xeCJK} 的实现方式,在 CJK 文字
% 后面遇到 \cs{outer} 宏时会出现类似
% \begin{verbatim}
-% ! Forbidden control sequence found while scanning use of \token_if_eq_meaning:NNTF
+% ! Forbidden control sequence found while scanning use of \use_i:nn
% \end{verbatim}
% 的错误。目前已知的有 \pkg{cprotect} 宏包提供的 \cs{cprotect}。它的定义是
% \begin{verbatim}
@@ -1170,6 +1230,13 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \pkg{polyglossia})可能会存在大小不一的冲突。\pkg{xeCJK} 虽然为此作了一些处理,但与
% 它们共同使用时应该小心。
%
+% 基于历史原因,\pkg{xltxtra} 宏包引入的 \pkg{realscripts} 定义了 \cs{dim_max:nn}
+% 和 \cs{dim_min:nn} 这两个已经在当前版本的 \pkg{expl3} 中定义了的函数。
+% \pkg{realscripts} 中的定义并不好,并且了覆盖 \pkg{expl3} 中的定义,因此破坏了
+% \pkg{xeCJK} 中的相关计算。\pkg{xltxtra} 并没有什么实际功能,完全可以不使用它。
+% 如果原来通过 \pkg{xltxtra} 得到 \XeLaTeX 这个 Logo,现在可以改用更完善的 \pkg{hologo}。
+% 如果坚持使用它,请把它放在 \pkg{xeCJK} 之后载入。
+%
%\end{documentation}
%
%
@@ -1226,7 +1293,6 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%
% \begin{macrocode}
\RequirePackage { xparse , l3keys2e }
-\RequirePackage { xpatch }
% \end{macrocode}
%
% \subsection{内部工具}
@@ -1240,7 +1306,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\int_new:N \l_@@_tmpc_int
\box_new:N \l_@@_tmp_box
\dim_new:N \l_@@_tmp_dim
-\skip_new:N \g_@@_tmp_skip
+\skip_new:N \l_@@_tmp_skip
\prop_new:N \l_@@_tmp_prop
\clist_new:N \l_@@_tmpa_clist
\clist_new:N \l_@@_tmpb_clist
@@ -1268,6 +1334,18 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
+% \begin{macro}[pTF,internal]{\xeCJK_if_package_loaded:n}
+% 判断宏包是否被引入,可用于文档正文中。
+% \begin{macrocode}
+\prg_new_conditional:Npnn \xeCJK_if_package_loaded:n #1 { p , T , F , TF }
+ {
+ \tl_if_exist:cTF { ver@ #1 . \c_@@_package_ext_tl }
+ { \prg_return_true: } { \prg_return_false: }
+ }
+\tl_const:Nx \c_@@_package_ext_tl { \@pkgextension }
+% \end{macrocode}
+% \end{macro}
+%
% \begin{macro}[internal]
% {\@@_at_end_preamble:n,\@@_after_preamble:n,\@@_after_end_preamble:n}
% 在 \cs{document} 前后加上各种钩子。
@@ -1281,9 +1359,25 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
{ \tl_gput_right:Nn \g_@@_after_preamble_hook_tl {#1} }
\cs_new_protected:Npn \@@_after_end_preamble:n #1
{ \tl_gput_right:Nn \g_@@_after_end_preamble_hook_tl {#1} }
-\AtEndPreamble { \g_@@_at_end_preamble_hook_tl }
-\AfterPreamble { \g_@@_after_preamble_hook_tl }
-\AfterEndPreamble { \g_@@_after_end_preamble_hook_tl }
+\xeCJK_if_package_loaded:nTF { etoolbox }
+ {
+ \AtEndPreamble { \g_@@_at_end_preamble_hook_tl }
+ \AfterPreamble { \g_@@_after_preamble_hook_tl }
+ \AfterEndPreamble { \g_@@_after_end_preamble_hook_tl }
+ }
+ {
+ \AtBeginDocument { \g_@@_after_preamble_hook_tl }
+ \cs_new_protected_nopar:Npn \@@_document_left_hook:
+ { \group_end: \g_@@_at_end_preamble_hook_tl \group_begin: }
+ \cs_new_protected_nopar:Npn \@@_document_right_hook:
+ { \scan_stop: \g_@@_after_end_preamble_hook_tl \tex_ignorespaces:D }
+ \cs_gset_nopar:Npx \document
+ {
+ \@@_document_left_hook:
+ \exp_not:o { \document }
+ \@@_document_right_hook:
+ }
+ }
% \end{macrocode}
% \end{macro}
%
@@ -1312,31 +1406,6 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]{\xeCJK_cs_add:Nnn,\xeCJK_cs_patch:Nnn}
-% 在已有宏内容打补丁:在其前后附加内容或者替换掉它的某些内容,只替换掉第一次匹配
-% 的内容。
-% \begin{macrocode}
-\cs_new_protected:Npn \xeCJK_cs_add:Nnn #1#2#3
- {
- \tl_if_empty:nTF {#3}
- { \tl_if_empty:nTF {#2} { \use_ii:nn } { \xpretocmd {#1} {#2} } }
- {
- \tl_if_empty:nTF {#2} { \xapptocmd {#1} {#3} }
- { \xpretocmd {#1} {#2} { \xapptocmd {#1} {#3} } { \use_ii:nn } }
- }
- { \@@_info:nxx { patch-cmd } { \token_to_str:N #1 } { succeeded } }
- { \@@_warning:nxx { patch-cmd } { \token_to_str:N #1 } { failed } }
- }
-\cs_new_protected:Npn \xeCJK_cs_patch:Nnn #1#2#3
- {
- \xpatchcmd {#1} {#2} {#3}
- { \@@_info:nxx { patch-cmd } { \token_to_str:N #1 } { succeeded } }
- { \@@_warning:nxx { patch-cmd } { \token_to_str:N #1 } { failed } }
- }
-\@@_msg_new:nn { patch-cmd } { Patching~'#1'~#2! }
-% \end{macrocode}
-% \end{macro}
-%
% \begin{macro}[internal]{\xeCJK_cs_clear:N,\xeCJK_cs_gclear:N}
% 让控制序列的意义为空。
% \begin{macrocode}
@@ -1407,9 +1476,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\cs_new_protected_nopar:Npn \xeCJK_glue_to_skip:nN #1#2
{
- \hbox_set:Nn \l_@@_tmp_box
- { #1 \skip_gset_eq:NN \g_@@_tmp_skip \tex_lastskip:D }
- \skip_set_eq:NN #2 \g_@@_tmp_skip
+ \hbox_set:Nn \l_@@_tmp_box { #1 \scan_stop: \exp_after:wN } \exp_after:wN
+ \skip_set:Nn \exp_after:wN #2 \exp_after:wN { \skip_use:N \tex_lastskip:D }
}
% \end{macrocode}
% \end{macro}
@@ -1419,29 +1487,16 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\prg_new_conditional:Npnn \xeCJK_if_blank_x:n #1 { p , T , F , TF }
{
- \if_int_compare:w \pdftex_strcmp:D { \c_empty_tl } {#1} = \c_zero
+ \if_case:w \pdftex_strcmp:D { } {#1} \exp_stop_f:
\prg_return_true:
\else:
- \if_int_compare:w \pdftex_strcmp:D { \c_space_tl } {#1} = \c_zero
+ \if_case:w \pdftex_strcmp:D { ~ } {#1} \exp_stop_f:
\prg_return_true: \else: \prg_return_false: \fi:
\fi:
}
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[pTF,internal]{\xeCJK_if_package_loaded:n}
-% 判断宏包是否被引入,可用于文档正文中。
-% \begin{macrocode}
-\prg_new_conditional:Npnn \xeCJK_if_package_loaded:n #1 { p , T , F , TF }
- {
- \tl_if_exist:cTF { ver@ #1 . \c_@@_package_ext_tl }
- { \prg_return_true: }
- { \prg_return_false: }
- }
-\tl_const:Nx \c_@@_package_ext_tl { \@pkgextension }
-% \end{macrocode}
-% \end{macro}
-%
% \begin{macro}[internal]{\xeCJK_int_until_do:nn,\@@_int_until_do:wn}
% 由于定义较为简单,可以比 \cs{int_until_do:nNnn} 稍微快一点点。
% \begin{macrocode}
@@ -1450,6 +1505,89 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\cs_new_protected:Npn \@@_int_until_do:wn \use_none:n #1
{ #1 \exp_after:wN \@@_int_until_do:wn \fi: \use_none:n {#1} }
% \end{macrocode}
+%
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_peek_catcode_ignore_spaces:NTF}
+% \changes{v3.1.1}{2012/12/04}{新增有省略空格标识的 \texttt{peek} 函数。}
+% 我们在里面设置了一个变量 \cs{l_@@_peek_ignore_spaces_bool} 用于标识后面的空格
+% 是否被省略掉了。
+% \begin{macrocode}
+\cs_new_protected:Npn \xeCJK_peek_catcode_ignore_spaces:NTF #1#2#3
+ {
+ \cs_set_eq:NN \l__peek_search_token #1 \scan_stop:
+ \tl_set:Nn \@@_peek_catcode_true:w { \group_align_safe_end: #2 }
+ \tl_set:Nn \@@_peek_catcode_false:w { \group_align_safe_end: #3 }
+ \bool_set_false:N \l_@@_peek_ignore_spaces_bool
+ \group_align_safe_begin:
+ \peek_after:Nw \@@_peek_catcode_ignore_spaces_branches:w
+ }
+\cs_new_protected_nopar:Npn \@@_peek_catcode_ignore_spaces_branches:w
+ {
+ \if_meaning:w \l_peek_token \c_space_token
+ \bool_set_true:N \l_@@_peek_ignore_spaces_bool
+ \exp_after:wN \peek_after:Nw
+ \exp_after:wN \@@_peek_catcode_ignore_spaces_branches:w
+ \tex_romannumeral:D 0
+ \else:
+ \if_catcode:w
+ \exp_not:N \l_peek_token \exp_not:N \l__peek_search_token
+ \exp_after:wN \exp_after:wN
+ \exp_after:wN \@@_peek_catcode_true:w
+ \else:
+ \exp_after:wN \exp_after:wN
+ \exp_after:wN \@@_peek_catcode_false:w
+ \fi:
+ \fi:
+ }
+\bool_new:N \l_@@_peek_ignore_spaces_bool
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_peek_after_ignore_spaces:nw}
+% 与 \cs{@ifnextchar} 和 \cs{futurenonspacelet} 类似,会省略掉后面的空格。
+% \begin{macrocode}
+\cs_new_protected:Npn \xeCJK_peek_after_ignore_spaces:nw #1
+ {
+ \tl_set:Nn \@@_peek_after_do:w { \group_align_safe_end: #1 }
+ \group_align_safe_begin:
+ \peek_after:Nw \@@_peek_ignore_spaces_branches:w
+ }
+\cs_new_protected_nopar:Npn \@@_peek_ignore_spaces_branches:w
+ {
+ \if_meaning:w \l_peek_token \c_space_token
+ \exp_after:wN \peek_after:Nw
+ \exp_after:wN \@@_peek_ignore_spaces_branches:w
+ \tex_romannumeral:D 0
+ \else:
+ \exp_after:wN \@@_peek_after_do:w
+ \fi:
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_token_value_class:N}
+% 用于取得记号 |#1| 所在的 \XeTeX 字符类。|#1| 应为 \cs{catcode} 为 |11| 或 |12|
+% 的显性或隐性记号。
+% \begin{macrocode}
+\cs_new_nopar:Npn \xeCJK_token_value_class:N #1
+ { \XeTeXcharclass \xeCJK_token_value_charcode:N #1 }
+\cs_new_nopar:Npn \xeCJK_token_value_charcode:N #1
+ { \exp_after:wN \@@_token_value_charcode:w \token_to_meaning:N #1 \q_stop }
+\cs_new_nopar:Npn \@@_token_value_charcode:w #1 ~ #2 ~ #3 \q_stop { `#3 }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[pTF,internal]{\xeCJK_if_same_class:NN}
+% 判断两个字符是否同属于一个字符类。
+% \begin{macrocode}
+\prg_new_conditional:Npnn \xeCJK_if_same_class:NN #1#2 { p , T , F , TF }
+ {
+ \if_int_compare:w
+ \xeCJK_token_value_class:N #1 = \xeCJK_token_value_class:N #2 \exp_stop_f:
+ \prg_return_true: \else: \prg_return_false: \fi:
+ }
+% \end{macrocode}
% \end{macro}
%
% \subsection{功能开关}
@@ -1481,10 +1619,66 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%
% \subsection{字符类别设定}\label{sec:xeCJK-class-set}
%
+% \begin{macro}[internal,var]{\g_@@_class_seq,\g_@@_new_class_seq}
+% 分别用于记录在 \pkg{xeCJK} 中使用的字符类别名称和新建的字符类别的编号。
+% \begin{macrocode}
+\seq_new:N \g_@@_class_seq
+\seq_new:N \g_@@_new_class_seq
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_new_class:n}
+% 新建一个字符类别。|#1| 是自定义名称。
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_new_class:n #1
+ {
+ \int_if_exist:cTF { \@@_class_csname:n {#1} }
+ { \@@_error:nx { class-already-defined } {#1} }
+ {
+ \exp_args:Nc \newXeTeXintercharclass { \@@_class_csname:n {#1} }
+ \clist_new:c { g_@@_#1_range_clist }
+ \seq_gput_right:Nn \g_@@_class_seq {#1}
+ \seq_gput_right:Nv \g_@@_new_class_seq { \@@_class_csname:n {#1} }
+ }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_save_class:nn}
+% \changes{v3.1.1}{2012/12/06}
+% {使用 \cs{xeCJK_save_class:nn} 保存 \XeTeX 预定义的字符类别。}
+% 保存 \XeTeX 预定义的字符类别。|#1| 是自定义名称,|#2| 是编号。
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_save_class:nn #1#2
+ {
+ \int_if_exist:cTF { \@@_class_csname:n {#1} }
+ { \@@_error:nx { class-already-defined } {#1} }
+ {
+ \int_const:cn { \@@_class_csname:n {#1} } {#2}
+ \clist_new:c { g_@@_#1_range_clist }
+ \seq_gput_right:Nn \g_@@_class_seq {#1}
+ }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_class_csname:n}
+% 字符类名称对应的控制序列名字。
+% \begin{macrocode}
+\cs_new_nopar:Npn \@@_class_csname:n #1 { c_@@_#1_class_int }
+\cs_new_eq:cN { \@@_class_csname:n { Others } } \l_@@_tmpa_int
+\@@_msg_new:nn { class-already-defined }
+ {
+ XeTeX~character~class~`#1'~has~been~already~defined.\\\\
+ Please~take~another~name. \\
+ }
+% \end{macrocode}
+% \end{macro}
+%
% \pkg{xeCJK} 需要以下字符类别用于字符输出。其中 |Default|、|CJK|、|FullLeft|、
% |FullRight|、|Boundary| 为 \XeTeX\ 中预定义的类别,\pkg{xeCJK} 新增加了\
% |HalfLeft|、|HalfRight|、|NormalSpace|。
-% \begin{center}\punctstyle{plain}
+% \begin{center}\xeCJKsetup{PunctStyle=plain}
% \begin{tabular}{cll}
% \toprule
% 类别 & 说明 & 例子 \\ \midrule
@@ -1500,31 +1694,18 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{tabular}
% \end{center}
%
-% \begin{macro}[internal,var]{Default,CJK,FullLeft,FullRight,Boundary}
+% \begin{macro}[internal]{Default,CJK,FullLeft,FullRight,Boundary}
% 这五类是 \XeTeX\ 预定义的类别。
% \begin{macrocode}
-\int_const:Nn \c_@@_Default_class_int { \c_zero }
-\int_const:Nn \c_@@_CJK_class_int { \c_one }
-\int_const:Nn \c_@@_FullLeft_class_int { \c_two }
-\int_const:Nn \c_@@_FullRight_class_int { \c_three }
-\int_const:Nn \c_@@_Boundary_class_int { \c_two_hundred_fifty_five }
+\xeCJK_save_class:nn { Default } { \c_zero }
+\xeCJK_save_class:nn { CJK } { \c_one }
+\xeCJK_save_class:nn { FullLeft } { \c_two }
+\xeCJK_save_class:nn { FullRight } { \c_three }
+\xeCJK_save_class:nn { Boundary } { \c_two_hundred_fifty_five }
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]{\xeCJK_new_class:n,\g_@@_class_seq}
-% 新建一个字符类别。
-% \begin{macrocode}
-\cs_new_protected_nopar:Npn \xeCJK_new_class:n #1
- {
- \exp_args:Nc \newXeTeXintercharclass { c_@@_#1_class_int }
- \clist_gclear_new:c { g_@@_#1_range_clist }
- \seq_gput_right:Nv \g_@@_class_seq { c_@@_#1_class_int }
- }
-\seq_new:N \g_@@_class_seq
-% \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}[internal,var]{HalfLeft,HalfRight,NormalSpace}
+% \begin{macro}[internal]{HalfLeft,HalfRight,NormalSpace}
% 新增西文半角左/右标点和前后原始间距的符号类。
% \begin{macrocode}
\xeCJK_new_class:n { HalfLeft }
@@ -1536,7 +1717,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macro}[var,internal]
% {\c_@@_HalfLeft_chars_clist,\c_@@_HalfRight_chars_clist,\c_@@_NormalSpace_chars_clist,
% \c_@@_FullLeft_chars_clist,\c_@@_FullRight_chars_clist,\c_@@_CJK_chars_clist}
-% \hypertarget{CJKcharclass}{\pkg{xeCJK} 设置的各个字符类的默认范围。}
+% \hypertarget{CJKcharclass}{\pkg{xeCJK} 设置的基本字符类的默认范围。}
% \begin{macrocode}
\clist_const:Nn \c_@@_HalfLeft_chars_clist
{ "28 , "2D , "5B , "60 , "7B }
@@ -1701,23 +1882,24 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \subsection{字符类别处理}
%
% \begin{macro}[internal,var]
-% {\g_@@_base_class_seq,\g_@@_CJK_class_seq,\g_@@_CJK_class_prop}
+% {\g_@@_base_class_seq,\g_@@_non_CJK_class_seq,
+% \g_@@_CJK_class_seq,\g_@@_CJK_class_prop}
% \begin{macrocode}
\seq_new:N \g_@@_base_class_seq
-\seq_gset_split:Nnn \g_@@_base_class_seq { , }
- {
- Default , CJK , FullLeft , FullRight , Boundary ,
- HalfLeft , HalfRight , NormalSpace
- }
-\seq_map_inline:Nn \g_@@_base_class_seq
- { \clist_gclear_new:c { g_@@_#1_range_clist } }
+\seq_gset_eq:NN \g_@@_base_class_seq \g_@@_class_seq
+\seq_new:N \g_@@_non_CJK_class_seq
+\seq_gset_from_clist:Nn \g_@@_non_CJK_class_seq
+ { Default , HalfLeft , HalfRight , NormalSpace , Boundary }
\seq_new:N \g_@@_CJK_class_seq
\prop_new:N \g_@@_CJK_class_prop
\cs_new_protected_nopar:Npn \@@_save_CJK_class:n #1
{
\seq_gput_right:Nn \g_@@_CJK_class_seq {#1}
- \prop_gput:Nvn \g_@@_CJK_class_prop { c_@@_#1_class_int } {#1}
+ \prop_gput:Nvn \g_@@_CJK_class_prop { \@@_class_csname:n {#1} } {#1}
+ \tl_gput_right:Nx \g_@@_check_single_CJK_case_tl
+ { { \exp_not:c { \@@_class_csname:n {#1} } } { \exp_not:N \use_ii:nn } }
}
+\tl_new:N \g_@@_check_single_CJK_case_tl
\cs_generate_variant:Nn \prop_gput:Nnn { Nvn }
\clist_map_function:nN { CJK , FullLeft , FullRight } \@@_save_CJK_class:n
% \end{macrocode}
@@ -1726,26 +1908,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macro}[internal]{\xeCJK_class_num:n}
% |#1| 为字符类别名称,用于取得字符类别对应的编号。
% \begin{macrocode}
-\cs_new_nopar:Npn \xeCJK_class_num:n #1 { \use:c { c_@@_#1_class_int } }
-% \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}[internal]{\xeCJK_value_class:n}
-% |#1| 为字符的 |Unicode|,用于取得该字符所在的字符类。
-% \begin{macrocode}
-\cs_new_nopar:Npn \xeCJK_value_class:n #1
- { \XeTeXcharclass \etex_numexpr:D #1 \scan_stop: }
-% \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}[pTF,internal]{\xeCJK_if_same_class:NN}
-% 判断两个字符是否同属于一个字符类。
-% \begin{macrocode}
-\prg_new_conditional:Npnn \xeCJK_if_same_class:NN #1#2 { p , T , F , TF }
- {
- \if_int_compare:w \xeCJK_value_class:n {`#1} = \xeCJK_value_class:n {`#2}
- \prg_return_true: \else: \prg_return_false: \fi:
- }
+\cs_new_nopar:Npn \xeCJK_class_num:n #1 { \use:c { \@@_class_csname:n {#1} } }
% \end{macrocode}
% \end{macro}
%
@@ -1784,19 +1947,19 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]{\xeCJK_set_char_class:nnn}
-% |#1| 和 |#2| 为字符类别起止的 |Unicode|,|#3| 为类别名称对应编号。
+% \begin{macro}[internal]{\@@_set_char_class_catcode:nnn}
+% 设置字符类别的同时,设置所有 |CJK| 字符的 \cs{catcode} 为 |12|。\XeTeX 的配置文件
+% \file{unicode-letters.tex} 将所有 |CJK| 表意文字的 \cs{catcode} 设置为 |11|。我们
+% 在作出改变的目的是方便 |CheckSingle| 的判断。事实上,|CheckSingle| 的判断也可以不
+% 依赖 \cs{catcode},而改为判断 \cs{XeTeXcharclass}。但是判读一个隐性记号
+% (\cs{l_peek_token})的 \cs{XeTeXcharclass} 比直接判断它的 \cs{catcode} 要低效得多。
% \begin{macrocode}
-\NewDocumentCommand \xeCJKsetcharclass { s m m m }
- {
- \xeCJK_set_char_class:nnn {#2} {#3} {#4}
- \IfBooleanF {#1} { \xeCJKResetPunctClass }
- }
-\cs_new_protected_nopar:Npn \xeCJK_set_char_class:nnn #1#2#3
+\cs_new_protected_nopar:Npn \@@_set_char_class_catcode:nnn #1#2#3
{
\@@_check_num_range:nnNN {#1} {#2} \l_@@_tmpa_int \l_@@_tmpb_int
\int_set:Nn \l_@@_tmpc_int {#3}
- \prop_get:NVNTF \g_@@_CJK_class_prop \l_@@_tmpc_int \l_@@_tmpa_tl
+ \int_compare:nNnTF
+ { \use:c { \@@_class_csname:n { CJK } } } = \l_@@_tmpc_int
{ \cs_set_eq:NN \@@_set_char_catcode:n \char_set_catcode_other:n }
{ \cs_set_eq:NN \@@_set_char_catcode:n \use_none:n }
\xeCJK_int_until_do:nn { \l_@@_tmpa_int > \l_@@_tmpb_int }
@@ -1809,6 +1972,22 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
+% \begin{macro}[internal]{\@@_set_char_class:nnn}
+% 只设置字符类别,而不改变 \cs{catcode}。
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_set_char_class:nnn #1#2#3
+ {
+ \@@_check_num_range:nnNN {#1} {#2} \l_@@_tmpa_int \l_@@_tmpb_int
+ \int_set:Nn \l_@@_tmpc_int {#3}
+ \xeCJK_int_until_do:nn { \l_@@_tmpa_int > \l_@@_tmpb_int }
+ {
+ \XeTeXcharclass \l_@@_tmpa_int = \l_@@_tmpc_int
+ \int_incr:N \l_@@_tmpa_int
+ }
+ }
+% \end{macrocode}
+% \end{macro}
+%
% \begin{macro}[internal]{\@@_check_num_range:nnNN}
% \begin{macrocode}
\cs_new_protected_nopar:Npn \@@_check_num_range:nnNN #1#2#3#4
@@ -1826,14 +2005,26 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
+% \begin{macro}[internal]{\xeCJK_set_char_class:nnn}
+% \changes{v3.1.1}{2012/12/05}{在文档中设置字符类别时不重复设置 \cs{catcode}。}
+% |#1| 和 |#2| 为字符类别起止的 |Unicode|,|#3| 为类别名称对应编号。在宏包内部使用
+% 时,设置 |CJK| 字符的 \cs{catcode},而在文档中使用时不设置。
+% \begin{macrocode}
+\cs_new_eq:NN \xeCJK_set_char_class:nnn \@@_set_char_class_catcode:nnn
+\AtEndOfPackage
+ { \cs_set_eq:NN \xeCJK_set_char_class:nnn \@@_set_char_class:nnn }
+% \end{macrocode}
+% \end{macro}
+%
% \begin{macro}[internal]{\@@_set_char_class_eq:nn}
-% 将字符类 |#2| 中的字符全部设置成字符类 |#1|。只使用于 |#2| 的字符类范围为离散的
+% \changes{v3.1.1}{2012/12/06}{交换参数的顺序。}
+% 将字符类 |#1| 中的字符全部设置成字符类 |#2|。只适用于 |#1| 的字符类范围为离散的
% 逗号列表的情况。
% \begin{macrocode}
\cs_new_protected_nopar:Npn \@@_set_char_class_eq:nn #1#2
{
- \int_set:Nn \l_@@_tmpa_int { \xeCJK_class_num:n {#1} }
- \clist_map_inline:cn { c_@@_#2_chars_clist }
+ \int_set:Nn \l_@@_tmpa_int { \xeCJK_class_num:n {#2} }
+ \clist_map_inline:cn { c_@@_#1_chars_clist }
{ \XeTeXcharclass ##1 = \l_@@_tmpa_int }
}
% \end{macrocode}
@@ -1844,10 +2035,9 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\NewDocumentCommand \normalspacedchars { m }
{
- \tl_map_inline:xn {#1}
+ \tl_map_inline:nn {#1}
{ \XeTeXcharclass `##1 = \xeCJK_class_num:n { NormalSpace } }
}
-\cs_generate_variant:Nn \tl_map_inline:nn { x }
% \end{macrocode}
% \end{macro}
%
@@ -1887,7 +2077,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\cs_new_protected_nopar:Npn \xeCJK_inter_class_toks:nnn #1#2#3
{ \XeTeXinterchartoks \xeCJK_class_num:n {#1} ~ \xeCJK_class_num:n {#2} = {#3} }
-\cs_generate_variant:Nn \xeCJK_inter_class_toks:nnn { nnc , nnx }
+\cs_generate_variant:Nn \xeCJK_inter_class_toks:nnn { nnc , nnv , nnx }
% \end{macrocode}
% \end{macro}
%
@@ -1997,7 +2187,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% & \tokslink{def-cjk}
% & \tokslink{def-cjk}
% & \tokslink{def-cjk}
-% & \tokslink{fl-fr-others}\\
+% & \tokslink{fl-fr-bound}\\
% |FullRight|
% & \tokslink{def-cjk}
% & \tokslink{fl-fr-others}
@@ -2006,7 +2196,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% & \tokslink{def-cjk}
% & \tokslink{def-cjk}
% & \tokslink{def-cjk}
-% & \tokslink{fl-fr-others}\\
+% & \tokslink{fl-fr-bound}\\
% |HalfLeft|
% &
% & \tokslink{def-cjk}
@@ -2053,20 +2243,15 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\clist_map_inline:nn { Default , HalfLeft , HalfRight , NormalSpace }
{
- \clist_map_inline:nn { CJK , FullLeft , FullRight }
+ \xeCJK_inter_class_toks:nnn {#1} { CJK }
{
- \xeCJK_inter_class_toks:nnn {#1} {##1}
- {
- \xeCJK_class_group_begin:
- \xeCJK_select_font:
- \xeCJK_clear_inter_class_toks:nn {#1} {##1}
- \xeCJK_clear_Boundary_and_CJK_toks:
- }
- \xeCJK_inter_class_toks:nnn {##1} {#1} { \xeCJK_class_group_end: }
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_inter_class_toks:nn {#1} { CJK }
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \CJKsymbol
}
- \xeCJK_app_inter_class_toks:nnn {#1} { CJK } { \CJKsymbol }
- \clist_map_inline:nn { FullLeft , FullRight }
- { \xeCJK_app_inter_class_toks:nnc {#1} {##1} { xeCJK_CJK_and_##1:N } }
+ \xeCJK_inter_class_toks:nnn { CJK } {#1} { \xeCJK_class_group_end: }
}
% \end{macrocode}
%
@@ -2088,7 +2273,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\xeCJK_if_last_node_p:n { CJK } ||
\xeCJK_if_last_node_p:n { CJK-space }
}
- { \CJKecglue } { \c_space_token }
+ { \CJKecglue } { ~ }
}
{
\xeCJK_if_last_node:nTF { CJK } { \CJKecglue }
@@ -2106,8 +2291,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
{
\xeCJK_inter_class_toks:nnn {#1} { Boundary }
{
- \peek_meaning_remove:NTF \/
- { \/ { \xeCJK_make_node:n { default } } }
+ \peek_meaning_remove:NTF \tex_italiccorrection:D
+ { \tex_italiccorrection:D { \xeCJK_make_node:n { default } } }
{
\token_if_space:NTF \l_peek_token
{ { \xeCJK_make_node:n { default-space } } }
@@ -2123,7 +2308,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\xeCJK_inter_class_toks:nnn { Boundary } { CJK }
{
- { \xeCJK_check_for_glue: }
+ \xeCJK_check_for_glue:
\xeCJK_class_group_begin:
\xeCJK_clear_Boundary_and_CJK_toks:
\xeCJK_select_font:
@@ -2167,8 +2352,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\xeCJK_if_last_node_p:n { CJK } ||
\xeCJK_if_last_node_p:n { CJK-space }
}
- { \bool_if:NTF \l_@@_reserve_space_bool \c_space_token \CJKglue }
- { \c_space_token }
+ { \bool_if:NTF \l_@@_reserve_space_bool { ~ } { \CJKglue } }
+ { ~ }
}
}
}
@@ -2214,7 +2399,14 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% CJK 文字之间插入的 |glue|。
% \begin{macrocode}
\keys_define:nn { xeCJK / options }
- { CJKglue .code:n = { \cs_set_protected:Npn \CJKglue {#1} } }
+ {
+ CJKglue .code:n =
+ {
+ \cs_set_protected_nopar:Npn \CJKglue {#1}
+ \xeCJK_glue_to_skip:nN {#1} \l_@@_ccglue_skip
+ }
+ }
+\skip_new:N \l_@@_ccglue_skip
% \end{macrocode}
% \end{macro}
%
@@ -2225,8 +2417,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
{
CJKecglue .code:n =
{
- \cs_set_protected:Npn \CJKecglue {#1}
- \xeCJK_glue_to_skip:nN \CJKecglue \l_@@_ecglue_skip
+ \cs_set_protected_nopar:Npn \CJKecglue {#1}
+ \xeCJK_glue_to_skip:nN {#1} \l_@@_ecglue_skip
} ,
xCJKecglue .choice: ,
xCJKecglue / true .code:n =
@@ -2237,13 +2429,13 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
xCJKecglue / false .code:n =
{
\bool_set_false:N \l_@@_xecglue_bool
- \cs_set_eq:NN \@@_space_or_xecglue: \c_space_token
+ \cs_set_eq:NN \@@_space_or_xecglue: \c_space_tl
} ,
xCJKecglue / unknown .code:n =
{
\bool_set_true:N \l_@@_xecglue_bool
- \cs_set_protected:Npn \CJKecglue {#1}
- \xeCJK_glue_to_skip:nN \CJKecglue \l_@@_ecglue_skip
+ \cs_set_protected_nopar:Npn \CJKecglue {#1}
+ \xeCJK_glue_to_skip:nN {#1} \l_@@_ecglue_skip
\cs_set_eq:NN \@@_space_or_xecglue: \CJKecglue
} ,
xCJKecglue .default:n = { true }
@@ -2279,13 +2471,16 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\cs_new_protected_nopar:Npn \xeCJK_ignore_spaces:w
{
- \peek_catcode:NTF \c_space_token
+ \xeCJK_peek_catcode_ignore_spaces:NTF \c_math_toggle_token
{
- \xeCJK_if_last_node:nT { CJK }
- { \tex_unkern:D \tex_unkern:D { \xeCJK_make_node:n { CJK-space } } }
- \peek_catcode_ignore_spaces:NTF \c_math_toggle_token
- { \@@_space_or_xecglue: }
+ \bool_if:NTF \l_@@_peek_ignore_spaces_bool
+ { \@@_space_or_xecglue: } { \CJKecglue }
+ }
+ {
+ \bool_if:NTF \l_@@_peek_ignore_spaces_bool
{
+ \tex_unkern:D \tex_unkern:D
+ { \xeCJK_make_node:n { CJK-space } }
\bool_if:nT
{
\token_if_macro_p:N \l_peek_token ||
@@ -2294,14 +2489,9 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
}
{ \@@_space_or_xecglue: }
}
- }
- {
- \token_if_math_toggle:NTF \l_peek_token
- { \CJKecglue }
{ \cs_if_exist:NF \l_peek_token \exp_not:N }
}
}
-\cs_new_eq:NN \xeCJK_ignorespaces: \xeCJK_ignore_spaces:w
% \end{macrocode}
% \end{macro}
%
@@ -2316,38 +2506,46 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
-% \hypertarget{bound-fl-fr}{}
+% \hypertarget{fl-fr-others}{}
% \begin{macrocode}
-\clist_map_inline:nn { FullLeft , FullRight }
+\xeCJK_inter_class_toks:nnn { FullLeft } { CJK }
+ { \xeCJK_FullLeft_and_CJK: \CJKsymbol }
+\xeCJK_inter_class_toks:nnn { FullRight } { CJK }
+ { \xeCJK_FullRight_and_CJK: \CJKsymbol }
+\seq_map_inline:Nn \g_@@_non_CJK_class_seq
{
- \xeCJK_inter_class_toks:nnn { Boundary } {#1}
+ \clist_map_inline:nn { FullLeft , FullRight }
{
- \xeCJK_class_group_begin:
- \xeCJK_clear_Boundary_and_CJK_toks:
- \xeCJK_select_font:
- \use:c { xeCJK_CJK_and_#1:N }
+ \xeCJK_inter_class_toks:nnx {#1} {##1}
+ { \exp_not:c { xeCJK_Default_and_##1:nN } {#1} }
+ \xeCJK_inter_class_toks:nnc {##1} {#1} { xeCJK_##1_and_Default: }
}
}
-\xeCJK_inter_class_toks:nnn { FullLeft } { Boundary }
- { \xeCJK_class_group_end: \tex_ignorespaces:D }
+% \end{macrocode}
+%
+% \hypertarget{bound-fl-fr}{}
+% \begin{macrocode}
+\xeCJK_inter_class_toks:nnn { Boundary } { FullLeft }
+ { \xeCJK_Boundary_and_FullLeft:N }
+\xeCJK_inter_class_toks:nnn { Boundary } { FullRight }
+ { \xeCJK_Boundary_and_FullRight:N }
+% \end{macrocode}
+%
+% \begin{macro}[internal]{\xeCJK_FullRight_and_Boundary:}
+% \hypertarget{fl-fr-bound}{}
+% \begin{macrocode}
+\xeCJK_app_inter_class_toks:nnn { FullLeft } { Boundary } { \tex_ignorespaces:D }
\xeCJK_inter_class_toks:nnn { FullRight } { Boundary }
- { \xeCJK_class_group_end: \CJKglue \tex_ignorespaces:D }
+ { \xeCJK_FullRight_and_Boundary: }
% \end{macrocode}
+% \end{macro}
%
-% \hypertarget{fl-fr-others}{}
+% \begin{macro}[internal]{\xeCJK_FullRight_and_Boundary:}
% \begin{macrocode}
-\xeCJK_inter_class_toks:nnn { FullLeft } { CJK } { \CJKsymbol }
-\xeCJK_inter_class_toks:nnn { FullRight } { CJK } { \CJKglue \CJKsymbol }
-\seq_map_inline:Nn \g_@@_base_class_seq
- {
- \bool_if:nF
- { \str_if_eq_p:nn {#1} { FullLeft } || \str_if_eq_p:nn {#1} { FullRight } }
- {
- \xeCJK_pre_inter_class_toks:nnn { FullLeft } {#1} { \xeCJK_after_FullLeft: }
- \xeCJK_pre_inter_class_toks:nnn { FullRight } {#1} { \xeCJK_after_FullRight: }
- }
- }
+\cs_new_protected_nopar:Npn \xeCJK_FullRight_and_Boundary:
+ { \xeCJK_FullRight_and_Default: \tex_ignorespaces:D }
% \end{macrocode}
+% \end{macro}
%
% \hypertarget{cjk-fl-fr}{}
% \begin{macrocode}
@@ -2376,12 +2574,13 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\cs_new_protected_nopar:Npn \@@_punct_glue:NN #1#2
{
- \skip_horizontal:n
+ \@@_punct_hskip:n
{
\@@_use_punct_dim:nnn { glue } {#1} {#2}
minus \dim_eval:n { ( \@@_use_punct_dim:nnn { glue } {#1} {#2} ) / \c_two }
}
}
+\cs_new_eq:NN \@@_punct_hskip:n \skip_horizontal:n
% \end{macrocode}
% \end{macro}
%
@@ -2400,45 +2599,145 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]{\xeCJK_after_FullLeft:}
+% \begin{macro}[internal]{\xeCJK_FullLeft_and_CJK:}
% \begin{macrocode}
-\cs_new_protected_nopar:Npn \xeCJK_after_FullLeft:
+\cs_new_protected_nopar:Npn \xeCJK_FullLeft_and_CJK:
{
- \xeCJK_no_break:
- \@@_punct_if_middle:NT \g_@@_last_punct_tl
+ \@@_punct_if_middle:NTF \g_@@_last_punct_tl
{
- \xeCJK_get_punct_bounds:NN \c_@@_left_tl \g_@@_last_punct_tl
- \@@_punct_glue:NN \c_@@_left_tl \g_@@_last_punct_tl
\@@_punct_rule:NN \c_@@_right_tl \g_@@_last_punct_tl
\xeCJK_no_break:
+ \@@_punct_glue:NN \c_@@_left_tl \g_@@_last_punct_tl
}
+ { \xeCJK_no_break: }
}
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]{\xeCJK_after_FullRight:}
+% \begin{macro}[internal]{\xeCJK_FullLeft_and_Default:}
% \begin{macrocode}
-\cs_new_protected_nopar:Npn \xeCJK_after_FullRight:
+\cs_new_protected_nopar:Npn \xeCJK_FullLeft_and_Default:
+ {
+ \@@_punct_if_middle:NTF \g_@@_last_punct_tl
+ {
+ \@@_punct_rule:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \xeCJK_class_group_end: \xeCJK_no_break:
+ \@@_punct_glue:NN \c_@@_left_tl \g_@@_last_punct_tl
+ }
+ { \xeCJK_class_group_end: \xeCJK_no_break: }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_FullRight_and_CJK:}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_FullRight_and_CJK:
{
- \xeCJK_get_punct_bounds:NN \c_@@_right_tl \g_@@_last_punct_tl
\@@_punct_rule:NN \c_@@_right_tl \g_@@_last_punct_tl
\@@_punct_glue:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \CJKglue
}
% \end{macrocode}
% \end{macro}
%
+% \begin{macro}[internal]{\xeCJK_FullRight_and_Default:}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_FullRight_and_Default:
+ {
+ \@@_punct_rule:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \xeCJK_class_group_end:
+ \@@_punct_glue:NN \c_@@_right_tl \g_@@_last_punct_tl
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_Default_and_FullLeft:nN}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_Default_and_FullLeft:nN #1#2
+ {
+ \xeCJK_get_punct_bounds:NN \c_@@_left_tl {#2}
+ \@@_Default_and_FullLeft_glue:N {#2}
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_inter_class_toks:nn {#1} { FullLeft }
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \tl_gset:Nx \g_@@_last_punct_tl {#2}
+ \@@_punct_rule:NN \c_@@_left_tl {#2}
+ \CJKpunctsymbol {#2}
+ }
+\cs_new_protected_nopar:Npn \@@_Default_and_FullLeft_glue:N #1
+ { \@@_punct_glue:NN \c_@@_left_tl {#1} }
+% \end{macrocode}
+% \end{macro}
+%
% \begin{macro}[internal]{\xeCJK_CJK_and_FullLeft:N}
% \begin{macrocode}
\cs_new_protected_nopar:Npn \xeCJK_CJK_and_FullLeft:N #1
{
\xeCJK_get_punct_bounds:NN \c_@@_left_tl {#1}
- \int_compare:nNnF \etex_lastnodetype:D = \c_one
- { \@@_CJK_FullLeft_glue: \@@_punct_glue:NN \c_@@_left_tl {#1} }
+ \@@_CJK_and_FullLeft_glue:N {#1}
\tl_gset:Nx \g_@@_last_punct_tl {#1}
\@@_punct_rule:NN \c_@@_left_tl {#1}
\CJKpunctsymbol {#1}
}
-\cs_new_protected_nopar:Npn \@@_CJK_FullLeft_glue: { \CJKglue }
+\cs_new_protected_nopar:Npn \@@_CJK_and_FullLeft_glue:N #1
+ { \CJKglue \@@_punct_glue:NN \c_@@_left_tl {#1} }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_Boundary_and_FullLeft:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_Boundary_and_FullLeft:N #1
+ {
+ \xeCJK_get_punct_bounds:NN \c_@@_left_tl {#1}
+ \@@_Boundary_and_FullLeft_glue:N {#1}
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \tl_gset:Nx \g_@@_last_punct_tl {#1}
+ \@@_punct_rule:NN \c_@@_left_tl {#1}
+ \CJKpunctsymbol {#1}
+ }
+\cs_new_protected_nopar:Npn \@@_Boundary_and_FullLeft_glue:N #1
+ {
+ \int_compare:nNnF \etex_lastnodetype:D = \c_one
+ { \@@_punct_glue:NN \c_@@_left_tl {#1} }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_Default_and_FullRight:nN}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_Default_and_FullRight:nN #1#2
+ {
+ \xeCJK_get_punct_bounds:NN \c_@@_right_tl {#2}
+ \@@_Default_and_FullRight_glue:N {#2}
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_inter_class_toks:nn {#1} { FullRight }
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \tl_gset:Nx \g_@@_last_punct_tl {#2}
+ \@@_punct_if_middle:NT {#2}
+ { \@@_punct_rule:NN \c_@@_left_tl {#2} }
+ \xeCJK_FullRight_symbol:N {#2}
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_Boundary_and_FullRight:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_Boundary_and_FullRight:N #1
+ {
+ \xeCJK_get_punct_bounds:NN \c_@@_right_tl {#1}
+ \@@_Default_and_FullRight_glue:N {#1}
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \tl_gset:Nx \g_@@_last_punct_tl {#1}
+ \@@_punct_if_middle:NT {#1}
+ { \@@_punct_rule:NN \c_@@_left_tl {#1} }
+ \xeCJK_FullRight_symbol:N {#1}
+ }
% \end{macrocode}
% \end{macro}
%
@@ -2447,19 +2746,29 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\cs_new_protected_nopar:Npn \xeCJK_CJK_and_FullRight:N #1
{
\xeCJK_get_punct_bounds:NN \c_@@_right_tl {#1}
+ \@@_CJK_and_FullRight_glue:N {#1}
+ \tl_gset:Nx \g_@@_last_punct_tl {#1}
+ \@@_punct_if_middle:NT {#1}
+ { \@@_punct_rule:NN \c_@@_left_tl {#1} }
+ \xeCJK_FullRight_symbol:N {#1}
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]
+% {\@@_CJK_and_FullRight_glue:N,\@@_Default_and_FullRight_glue:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_CJK_and_FullRight_glue:N #1
+ {
\@@_punct_if_long:NTF {#1}
{ \CJKglue }
{
- \xeCJK_no_break:
- \@@_punct_if_middle:NT {#1}
- {
- \@@_punct_glue:NN \c_@@_right_tl {#1}
- \@@_punct_rule:NN \c_@@_left_tl {#1}
- }
+ \@@_punct_if_middle:NTF {#1}
+ { \xeCJK_no_break: \@@_punct_glue:NN \c_@@_right_tl {#1} }
+ { \xeCJK_no_break: }
}
- \tl_gset:Nx \g_@@_last_punct_tl {#1}
- \CJKpunctsymbol {#1}
}
+\cs_new_eq:NN \@@_Default_and_FullRight_glue:N \@@_CJK_and_FullRight_glue:N
% \end{macrocode}
% \end{macro}
%
@@ -2487,7 +2796,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\@@_punct_kern:NN \g_@@_last_punct_tl {#1}
\tl_gset:Nx \g_@@_last_punct_tl {#1}
\xeCJK_no_break:
- \CJKpunctsymbol {#1}
+ \xeCJK_FullRight_symbol:N {#1}
}
% \end{macrocode}
% \end{macro}
@@ -2515,58 +2824,170 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\@@_punct_kern:NN \g_@@_last_punct_tl {#1}
\tl_gset:Nx \g_@@_last_punct_tl {#1}
\xeCJK_no_break:
- \CJKpunctsymbol {#1}
+ \xeCJK_FullRight_symbol:N {#1}
}
% \end{macrocode}
% \end{macro}
%
-% \subsection{段末孤字处理}
+% \subsection{全角右标点后的断行}
%
-% \begin{macro}{CheckSingle}
-% 孤字处理功能选项。
+% \begin{macro}{CheckFullRight}
+% \changes{v3.1.1}{2012/12/02}{处理全角右标点之后的断行问题。}
+% 选项设置。
% \begin{macrocode}
\keys_define:nn { xeCJK / options }
{
- CheckSingle .choice: ,
- CheckSingle / true .code:n = { \xeCJKenablechecksingle } ,
- CheckSingle / false .code:n = { \xeCJKdisablechecksingle } ,
- CheckSingle .default:n = { true } ,
- CJKchecksingle .meta:n = { CheckSingle = true }
+ CheckFullRight .choice: ,
+ CheckFullRight / true .code:n =
+ {
+ \cs_if_eq:NNF \xeCJK_FullRight_and_Boundary: \xeCJK_check_FullRight:
+ {
+ \cs_set_eq:NN \@@_save_FullRight_check: \xeCJK_FullRight_and_Boundary:
+ \cs_set_eq:NN \@@_save_FullRight_symbol:N \xeCJK_FullRight_symbol:N
+ \cs_set_eq:NN \xeCJK_FullRight_and_Boundary: \xeCJK_check_FullRight:
+ \cs_set_eq:NN \xeCJK_FullRight_symbol:N \xeCJK_check_FullRight_symbol:Nw
+ }
+ } ,
+ CheckFullRight / false .code:n =
+ {
+ \cs_if_eq:NNT \xeCJK_FullRight_and_Boundary: \xeCJK_check_FullRight:
+ {
+ \cs_set_eq:NN \xeCJK_FullRight_and_Boundary: \@@_save_FullRight_check:
+ \cs_set_eq:NN \xeCJK_FullRight_symbol:N \@@_save_FullRight_symbol:N
+ }
+ } ,
+ CheckFullRight .default:n = { true }
}
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]{\xeCJKenablechecksingle,\xeCJKdisablechecksingle}
-% 孤字处理功能开关。
+% \begin{macro}[internal]{\xeCJK_FullRight_symbol:N}
+% \begin{macrocode}
+\cs_new_nopar:Npn \xeCJK_FullRight_symbol:N { \CJKpunctsymbol }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_check_FullRight:}
% \begin{macrocode}
-\bool_new:N \l_@@_check_single_bool
-\NewDocumentCommand \xeCJKenablechecksingle { }
+\cs_new_protected_nopar:Npn \xeCJK_check_FullRight:
{
- \bool_if:NF \l_@@_check_single_bool
+ \xeCJK_get_punct_bounds:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \@@_punct_rule:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \tl_case:Non \l_peek_token { \l_@@_no_break_cs_case_tl } { }
+ \@@_punct_glue:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \xeCJK_class_group_end:
+ }
+\cs_generate_variant:Nn \tl_case:Nnn { No }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_check_FullRight_symbol:Nw}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_check_FullRight_symbol:Nw #1
+ { \xeCJK_peek_after_ignore_spaces:nw { \@@_save_FullRight_symbol:N {#1} } }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_cs_case_keys_define:nNNnn}
+% \begin{macrocode}
+\cs_new_protected:Npn \xeCJK_cs_case_keys_define:nNNnn #1#2#3#4#5
+ {
+ \tl_new:N #2
+ \seq_new:N #3
+ \keys_define:nn { xeCJK / options }
{
- \bool_set_true:N \l_@@_check_single_bool
- \cs_set_eq:NN \@@_check_single_save:N \xeCJK_CJK_and_CJK:N
- \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \xeCJK_check_single:Nw
+ #1 .code:n =
+ {
+ \seq_set_split:Nnn #3 { } {##1}
+ \@@_update_cs_case_tl:NNnn #2#3 {#4} {#5}
+ } ,
+ #1+ .code:n =
+ {
+ \tl_map_inline:nn {##1}
+ { \seq_if_in:NnF #2 {####1} { \seq_put_right:Nn #3 {####1} } }
+ \@@_update_cs_case_tl:NNnn #2#3 {#4} {#5}
+ } ,
+ #1- .code:n =
+ {
+ \tl_map_inline:nn {##1} { \seq_remove_all:Nn #3 {####1} }
+ \@@_update_cs_case_tl:NNnn #2#3 {#4} {#5}
+ }
}
}
-\NewDocumentCommand \xeCJKdisablechecksingle { }
+\cs_new_protected:Npn \@@_update_cs_case_tl:NNnn #1#2#3#4
+ {
+ \tl_clear:N #1
+ \seq_map_inline:Nn #2 { \tl_put_right:Nn #1 { {##1} {#3} } }
+ #4
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{NoBreakCS}
+% 设置不能在全角右标点之后断行的控制序列。
+% \begin{macrocode}
+\xeCJK_cs_case_keys_define:nNNnn { NoBreakCS }
+ \l_@@_no_break_cs_case_tl \l_@@_no_break_cs_seq { \xeCJK_no_break: } { }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\xeCJKnobreak}
+% \changes{v3.1.1}{2012/12/03}{增加 \cs{nobreak} 的 \pkg{xeCJK} 版本。}
+% 为保险起见,我们在这里用了一个循环。
+% \begin{macrocode}
+\NewDocumentCommand \xeCJKnobreak { }
{
- \bool_if:NT \l_@@_check_single_bool
+ \int_zero:N \l_@@_tmpa_int
+ \int_while_do:nNnn \etex_lastnodetype:D = \c_eleven
{
- \bool_set_false:N \l_@@_check_single_bool
- \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \@@_check_single_save:N
+ \int_if_even:nTF \l_@@_tmpa_int
+ {
+ \int_incr:N \l_@@_tmpa_int
+ \skip_set_eq:NN \l_@@_tmp_skip \tex_lastskip:D
+ }
+ { \skip_add:Nn \l_@@_tmp_skip \tex_lastskip:D }
+ \tex_unskip:D
}
+ \xeCJK_no_break:
+ \int_if_even:nF \l_@@_tmpa_int
+ { \skip_horizontal:N \l_@@_tmp_skip }
}
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]
-% {\xeCJK_check_single:Nw,\xeCJK_check_single:NNw,\xeCJK_check_single:NNNw}
+% \subsection{段末孤字处理}
+%
+% \begin{macro}{CheckSingle}
+% 孤字处理功能选项。
+% \begin{macrocode}
+\keys_define:nn { xeCJK / options }
+ {
+ CheckSingle .choice: ,
+ CheckSingle / true .code:n =
+ {
+ \cs_if_eq:NNF \xeCJK_CJK_and_CJK:N \xeCJK_check_single:Nw
+ {
+ \cs_set_eq:NN \@@_check_single_save:N \xeCJK_CJK_and_CJK:N
+ \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \xeCJK_check_single:Nw
+ }
+ } ,
+ CheckSingle / false .code:n =
+ {
+ \cs_if_eq:NNT \xeCJK_CJK_and_CJK:N \xeCJK_check_single:Nw
+ { \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \@@_check_single_save:N }
+ } ,
+ CheckSingle .default:n = { true } ,
+ CJKchecksingle .meta:n = { CheckSingle = true }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_check_single:Nw}
% \begin{macrocode}
\cs_new_protected_nopar:Npn \xeCJK_check_single:Nw #1
{
\peek_catcode:NTF \c_catcode_other_token
- { \xeCJK_check_single:NNw {#1} }
+ { \xeCJK_check_single:NNw #1 }
{
\bool_if:nTF
{
@@ -2574,102 +2995,198 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\exp_args:No \tl_if_single_token_p:n \l_peek_token &&
\exp_after:wN \token_if_other_p:N \l_peek_token
}
- { \xeCJK_check_single:NNw {#1} }
- { \@@_check_single_save:N {#1} }
+ { \exp_after:wN \xeCJK_check_single:NNw \exp_after:wN #1 }
+ { \@@_check_single_save:N #1 }
}
}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_check_single:NNw}
+% \changes{v3.1.1}{2012/12/04}{改进定义,减少使用 \texttt{peek} 函数的次数。}
+% 使用 \cs{group_align_safe_begin:} 和 \cs{group_align_safe_end:} 是为了防止在表格
+% 里面报错。
+% \begin{macrocode}
\cs_new_protected_nopar:Npn \xeCJK_check_single:NNw #1#2
{
- \peek_catcode:NTF \c_catcode_other_token
- { \@@_check_single_save:N {#1} #2 }
+ \xeCJK_peek_catcode_ignore_spaces:NTF \c_catcode_other_token
{
- \bool_if:nTF
+ \bool_if:NTF \l_@@_peek_ignore_spaces_bool
+ { \@@_check_single_space:NN #1#2 }
+ { \@@_check_single_save:N #1 #2 }
+ }
+ {
+ \group_align_safe_begin:
+ \token_if_cs:NTF \l_peek_token
{
- \token_if_space_p:N \l_peek_token ||
- \token_if_math_toggle_p:N \l_peek_token ||
- \token_if_cs_p:N \l_peek_token
+ \group_align_safe_end:
+ \bool_if:NTF \l_@@_peek_ignore_spaces_bool
+ { \xeCJK_check_single_cs:NNn #1#2 { ~ } }
+ { \xeCJK_check_single_cs:NNn #1#2 { } }
}
{
- \bool_if:nTF { \token_if_space_p:N \l_peek_token }
+ \group_align_safe_end:
+ \bool_if:nTF
{
- \peek_catcode_ignore_spaces:NTF \c_catcode_other_token
- { \@@_check_single_save:N {#1} #2 \c_space_token }
- {
- \bool_if:nTF
- {
- \token_if_math_toggle_p:N \l_peek_token ||
- \token_if_cs_p:N \l_peek_token
- }
- { \xeCJK_check_single:NNNw {#1} {#2} \c_space_token }
- { \@@_check_single_save:N {#1} #2 \c_space_token }
- }
+ \l_@@_plain_equation_bool &&
+ \token_if_math_toggle_p:N \l_peek_token
+ }
+ {
+ \bool_if:NTF \l_@@_peek_ignore_spaces_bool
+ { \xeCJK_check_single_equation:NNnNw #1 #2 { ~ } }
+ { \xeCJK_check_single_equation:NNnNw #1 #2 { } }
+ }
+ {
+ \bool_if:NTF \l_@@_peek_ignore_spaces_bool
+ { \@@_check_single_save:N #1 #2 ~ }
+ { \@@_check_single_save:N #1 #2 }
}
- { \xeCJK_check_single:NNNw {#1} {#2} { } }
}
- { \@@_check_single_save:N {#1} #2 }
}
}
-\cs_new_protected_nopar:Npn \xeCJK_check_single:NNNw #1#2#3
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_check_single_space:NN}
+% \changes{v3.1.1}{2012/12/13}
+% {\texttt{CheckSingle} 支持段末“汉字$+$汉字$+$空格$+$汉字/标点”的形式。}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_check_single_space:NN #1#2
{
- \bool_if:nTF
+ \int_case:non { \xeCJK_token_value_class:N #2 }
+ { \g_@@_check_single_CJK_case_tl }
+ { \use_i:nn }
+ { \@@_check_single_save:N #1 #2 ~ }
{
- \token_if_eq_meaning_p:NN \l_peek_token \par ||
- \token_if_eq_meaning_p:NN \l_peek_token \[ % \]
+ \int_case:non { \xeCJK_token_value_class:N \l_peek_token }
+ { \g_@@_check_single_CJK_case_tl }
+ { \use_i:nn }
+ { \@@_check_single_save:N #1 #2 ~ }
+ { \@@_check_single_save:N #1 #2 }
}
- { \CJKsymbol {#1} \xeCJK_no_break: #2 }
- { \xeCJK_check_single_env:NNNw {#1} {#2} {#3} }
}
+\cs_generate_variant:Nn \int_case:nnn { no }
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]
-% {\xeCJK_check_single_env:NNNw,\xeCJK_check_single_env:NNNNn}
+% \begin{macro}[internal]{\xeCJK_check_single_equation:NNnNw}
% \begin{macrocode}
-\cs_new_protected_nopar:Npn \xeCJK_check_single_env:NNNw #1#2#3
+\cs_new_protected_nopar:Npn \xeCJK_check_single_equation:NNnNw #1#2#3#4
{
- \peek_catcode_remove:NTF \c_math_toggle_token
+ \peek_catcode:NTF \c_math_toggle_token
{
- \peek_catcode:NTF \c_math_toggle_token
- { \CJKsymbol {#1} \xeCJK_no_break: #2 \c_math_toggle_token }
- { \@@_check_single_save:N {#1} #2#3 \c_math_toggle_token }
+ \xeCJK_no_break: \@@_check_single_save:N #1
+ \xeCJK_no_break: #2 #4
}
+ { \@@_check_single_save:N #1 #2#3#4 }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_check_single_cs:NNn}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_check_single_cs:NNn #1#2#3
+ {
+ \tl_case:Non \l_peek_token
+ { \l_@@_check_single_cs_case_tl }
+ { \use_iii:nnn }
+ { \xeCJK_check_single_env:nnNn }
{
- \peek_meaning_remove:NTF \begin
- { \xeCJK_check_single_env:NNNNn {#1} {#2} {#3} \begin }
- {
- \peek_meaning_remove:NTF \end
- { \xeCJK_check_single_env:NNNNn {#1} {#2} {#3} \end }
- { \@@_check_single_save:N {#1} #2#3 }
- }
+ \xeCJK_no_break: \@@_check_single_save:N #1
+ \xeCJK_no_break: #2
}
+ { \@@_check_single_save:N #1 #2#3 }
}
-\cs_new_protected_nopar:Npn \xeCJK_check_single_env:NNNNn #1#2#3#4#5
+\tl_new:N \l_@@_check_single_cs_case_tl
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJK_check_single_env:nnNn}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_check_single_env:nnNn #1#2#3#4
{
- \clist_if_in:NnTF \g_@@_inline_env_clist {#5}
- { \@@_check_single_save:N {#1} #2#3 }
- { \CJKsymbol {#1} \xeCJK_no_break: #2 }
- \scan_stop: #4 {#5}
+ \str_case_x:non {#4}
+ { \l_@@_inline_env_case_tl }
+ { \use_i:nn }
+ {#1} {#2}
+ \scan_stop: #3 {#4}
}
+\cs_generate_variant:Nn \str_case_x:nnn { no }
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}{InlineEnv,InlineEnv+,InlineEnv-}
+% \changes{v3.1.1}{2012/12/04}{增加 \texttt{NewLineCS} 和 \texttt{EnvCS} 选项。}
+%
+% \begin{macro}{NewLineCS}
+% \begin{macrocode}
+\xeCJK_cs_case_keys_define:nNNnn { NewLineCS }
+ \l_@@_new_line_cs_case_tl \l_@@_new_line_cs_seq { \use_ii:nnn }
+ {
+ \tl_concat:NNN \l_@@_check_single_cs_case_tl
+ \l_@@_new_line_cs_case_tl \l_@@_env_cs_case_tl
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{EnvCS}
+% \begin{macrocode}
+\xeCJK_cs_case_keys_define:nNNnn { EnvCS }
+ \l_@@_env_cs_case_tl \l_@@_env_cs_seq { \use:n }
+ {
+ \tl_concat:NNN \l_@@_check_single_cs_case_tl
+ \l_@@_new_line_cs_case_tl \l_@@_env_cs_case_tl
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{InlineEnv}
+% \changes{v3.1.1}{2012/12/05}{改变行内环境的设置方式,从而使用 \cs{str_case_x:nnn}
+% 代替原来的 \cs{clist_if_in:NnTF} 来判断是否是行内环境。}
% \begin{macrocode}
\keys_define:nn { xeCJK / options }
{
- InlineEnv .clist_gset:N = \g_@@_inline_env_clist ,
+ InlineEnv .code:n =
+ {
+ \seq_set_from_clist:Nn \l_@@_inline_env_seq {#1}
+ \@@_update_inline_env_case_tl:
+ } ,
InlineEnv+ .code:n =
{
- \clist_gput_right:Nx \g_@@_inline_env_clist {#1}
- \clist_gremove_duplicates:N \g_@@_inline_env_clist
+ \clist_map_inline:nn {#1}
+ {
+ \seq_if_in:NnF \l_@@_inline_env_seq {##1}
+ { \seq_put_right:Nn \l_@@_inline_env_seq {##1} }
+ }
+ \@@_update_inline_env_case_tl:
} ,
InlineEnv- .code:n =
{
- \clist_map_inline:xn {#1}
- { \clist_gremove_all:Nn \g_@@_inline_env_clist {##1} }
+ \clist_map_inline:nn {#1}
+ { \seq_remove_all:Nn \l_@@_inline_env_seq {##1} }
+ \@@_update_inline_env_case_tl:
}
}
-\cs_generate_variant:Nn \clist_map_inline:nn { x }
+\seq_new:N \l_@@_inline_env_seq
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\@@_update_inline_env_case_tl:}
+% \begin{macrocode}
+\cs_new_protected:Npn \@@_update_inline_env_case_tl:
+ {
+ \tl_clear:N \l_@@_inline_env_case_tl
+ \seq_map_inline:Nn \l_@@_inline_env_seq
+ { \tl_put_right:Nn \l_@@_inline_env_case_tl { {##1} { \use_ii:nn } } }
+ }
+\tl_new:N \l_@@_inline_env_case_tl
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{PlainEquation}
+% \changes{v3.1.1}{2012/12/06}{增加 \texttt{PlainEquation} 选项。}
+% \begin{macrocode}
+\keys_define:nn { xeCJK / options }
+ { PlainEquation .bool_set:N = \l_@@_plain_equation_bool }
% \end{macrocode}
% \end{macro}
%
@@ -2725,7 +3242,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
{
\clist_map_inline:nn {#1}
{
- \int_if_exist:cTF { c_@@_ CJK/##1 _class_int }
+ \int_if_exist:cTF { \@@_class_csname:n { CJK/##1 } }
{
\xeCJK_declare_char_class:nx
{ CJK \bool_if:NF \l_@@_sub_cancel_bool { /##1 } }
@@ -2748,11 +3265,11 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\cs_new_protected_nopar:Npn \xeCJK_declare_sub_char_class:nnn #1#2#3
{
- \int_if_exist:cF { c_@@_ #1/#2 _class_int }
+ \int_if_exist:cF { \@@_class_csname:n { #1/#2 } }
{
\xeCJK_new_class:n { #1/#2 }
\@@_set_sub_class_toks:nn {#1} {#2}
- \@@_new_sub_key:n {#2}
+ \xeCJK_new_sub_key:n {#2}
}
\xeCJK_declare_char_class:nn { #1/#2 } {#3}
}
@@ -2823,6 +3340,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\NewDocumentCommand \xeCJKsetwidth { m m }
{ \tl_map_inline:xn {#1} { \tl_gset:cn { g_@@_punct_width/##1/tl } {#2} } }
+\cs_generate_variant:Nn \tl_map_inline:nn { x }
% \end{macrocode}
% \end{macro}
%
@@ -2916,13 +3434,13 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\prg_new_conditional:Npnn \@@_punct_if_right:N #1 { p , T , F , TF }
{
- \if_int_compare:w \xeCJK_value_class:n {`#1} = \xeCJK_class_num:n { FullRight }
+ \if_int_compare:w \xeCJK_token_value_class:N #1 = \xeCJK_class_num:n { FullRight }
\prg_return_true: \else: \prg_return_false: \fi:
}
-\cs_generate_variant:Nn \prg_new_conditional:Npnn { c }
\clist_map_inline:Nn \g_@@_special_punct_clist
{
- \prg_new_conditional:cpnn { @@_punct_if_#1:N } ##1 { p , T , F , TF }
+ \exp_args:Nc
+ \prg_new_conditional:Npnn { @@_punct_if_#1:N } ##1 { p , T , F , TF }
{
\if_cs_exist:w \@@_special_punct_tl:nN {#1} {##1} \cs_end:
\prg_return_true: \else: \prg_return_false: \fi:
@@ -2960,11 +3478,11 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%
% 定义标点处理模板。
% \begin{macrocode}
-\DeclareObjectType { xeCJK / punctuation } { 3 }
+\DeclareObjectType { xeCJK / punctuation } { \c_three }
% \end{macrocode}
%
% \begin{macrocode}
-\DeclareTemplateInterface { xeCJK / punctuation } { basic } { 3 }
+\DeclareTemplateInterface { xeCJK / punctuation } { basic } { \c_three }
{
enabled-global-setting : boolean = true ,
fixed-punct-width : length = \c_max_dim ,
@@ -2998,7 +3516,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
%
% \begin{macrocode}
-\DeclareTemplateCode { xeCJK / punctuation } { basic } { 3 }
+\DeclareTemplateCode { xeCJK / punctuation } { basic } { \c_three }
{
enabled-global-setting = \l_@@_enabled_global_setting_bool ,
fixed-punct-width = \l_@@_fixed_punct_width_dim ,
@@ -3347,7 +3865,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
( \@@_use_punct_dim:nnn { bound } \c_@@_right_tl {#1} )
}
\@@_gset_punct_dim:nnx { width } {#1}
- { \dim_use:N \etex_fontcharwd:D \tex_font:D `#1 }
+ { \dim_use:N \etex_fontcharwd:D \tex_font:D \xeCJK_token_value_charcode:N #1 }
\@@_gset_punct_dim:nnx { dimen } {#1}
{ \dim_eval:n { \@@_use_punct_dim:nn { width } {#1} - \l_@@_tmp_dim } }
\@@_punct_if_long:NT {#1}
@@ -3375,7 +3893,10 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 用 \cs{XeTeXglyphbounds} 取得标点符号的上下左右空白。
% \begin{macrocode}
\cs_new_nopar:Npn \xeCJK_glyph_bounds:NN #1#2
- { \dim_use:N \XeTeXglyphbounds #1 ~ \XeTeXcharglyph `#2 \exp_stop_f: }
+ {
+ \dim_use:N \XeTeXglyphbounds #1 ~
+ \XeTeXcharglyph \xeCJK_token_value_charcode:N #2 \exp_stop_f:
+ }
% \end{macrocode}
% \end{macro}
%
@@ -3508,35 +4029,22 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\keys_define:nn { xeCJK / options }
{
AutoFallBack .choice: ,
- AutoFallBack / true .code:n = { \xeCJKenablefallback } ,
- AutoFallBack / false .code:n = { \xeCJKdisablefallback } ,
- AutoFallBack .default:n = { true } ,
- fallback .meta:n = { AutoFallBack = true }
- }
-% \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}[internal]{\xeCJKenablefallback, \xeCJKdisablefallback}
-% 后备字体的启用开关,默认关闭。
-% \begin{macrocode}
-\NewDocumentCommand \xeCJKenablefallback { }
- {
- \bool_if:NF \l_@@_fallback_bool
+ AutoFallBack / true .code:n =
{
- \bool_set_true:N \l_@@_fallback_bool
- \cs_set_eq:NN \@@_fallback_save_CJKsymbol:N \CJKsymbol
- \cs_set_eq:NN \CJKsymbol \xeCJK_fallback_test_glyph:N
- }
- }
-\NewDocumentCommand \xeCJKdisablefallback { }
- {
- \bool_if:NT \l_@@_fallback_bool
+ \cs_if_eq:NNF \CJKsymbol \xeCJK_fallback_test_glyph:N
+ {
+ \cs_set_eq:NN \@@_fallback_save_CJKsymbol:N \CJKsymbol
+ \cs_set_eq:NN \CJKsymbol \xeCJK_fallback_test_glyph:N
+ }
+ } ,
+ AutoFallBack / false .code:n =
{
- \bool_set_false:N \l_@@_fallback_bool
- \cs_set_eq:NN \CJKsymbol \@@_fallback_save_CJKsymbol:N
- }
+ \cs_if_eq:NNT \CJKsymbol \xeCJK_fallback_test_glyph:N
+ { \cs_set_eq:NN \CJKsymbol \@@_fallback_save_CJKsymbol:N }
+ } ,
+ AutoFallBack .default:n = { true } ,
+ fallback .meta:n = { AutoFallBack = true }
}
-\bool_new:N \l_@@_fallback_bool
% \end{macrocode}
% \end{macro}
%
@@ -3554,6 +4062,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%
% \begin{macro}[internal]{\xeCJK_fallback_loop:Nn}
% \changes{v3.1.0}{2012/11/19}{调整备用字体的循环方式。}
+% \changes{v3.1.1}{2012/12/02}{修正备用字体的不正确警告。}
% 循环测试后备字体是否包含字符 |#1|。若后备字体中存在该字符或者再没有后备字体,则
% 结束循环。
% \begin{macrocode}
@@ -3567,7 +4076,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
{ \xeCJK_fallback_loop:Nn {#1} { #2/FallBack } }
}
{
- \@@_warning:nxx { fallback } {#1} {#2}
+ \xeCJK_family_if_exist:xT { \l_xeCJK_family_tl/FallBack }
+ { \@@_warning:nxx { fallback } {#1} {#2} }
\@@_fallback_save_CJKsymbol:N {#1}
}
}
@@ -3577,6 +4087,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
( \prop_get:No \g_@@_family_font_name_prop {#2} )~
does~not~contain~glyph~'#1'~(U+\int_to_hexadecimal:n {`#1}).\\
}
+\bool_new:N \l_@@_fallback_first_bool
\cs_generate_variant:Nn \prop_get:Nn { No }
% \end{macrocode}
% \end{macro}
@@ -3659,11 +4170,11 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]{\@@_new_sub_key:n,\g_@@_sub_key_seq}
+% \begin{macro}[internal]{\xeCJK_new_sub_key:n,\g_@@_sub_key_seq}
% 用于定义 CJK 子区字体和备用字体的选项。
% \begin{macrocode}
\seq_new:N \g_@@_sub_key_seq
-\cs_new_protected_nopar:Npn \@@_new_sub_key:n #1
+\cs_new_protected_nopar:Npn \xeCJK_new_sub_key:n #1
{
\seq_gput_right:Nn \g_@@_sub_key_seq {#1}
\keys_define:nn { xeCJK / features }
@@ -3693,7 +4204,6 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
#1 .default:n = { }
}
}
-\cs_generate_variant:Nn \@@_new_sub_key:n { x }
% \end{macrocode}
% \end{macro}
%
@@ -3734,7 +4244,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%
% \begin{macro}{FallBack}
% \begin{macrocode}
-\@@_new_sub_key:n { FallBack }
+\xeCJK_new_sub_key:n { FallBack }
% \end{macrocode}
% \end{macro}
%
@@ -3791,7 +4301,6 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\cs_new_protected_nopar:Npn \@@_set_family_initial:
{
- \@@_gobble_CJKfamily:
\int_gincr:N \g_@@_family_int
\prop_clear:N \l_@@_add_font_prop
\prop_map_inline:Nn \g_@@_features_id_prop
@@ -3871,7 +4380,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\cs_gset_protected_nopar:cpx { \@@_family_csname:n {#1} }
{
\group_begin:
- \@@_gobble_CJKfamily:
+ \cs_set_eq:NN
+ \exp_not:n { \@@_update_family:n \use_none:n }
\exp_not:n { \fontspec_set_family:Nnn \l_@@_fontspec_family_tl }
{ \exp_not:V \l_@@_fontspec_options_clist }
{ \exp_not:V \l_@@_font_name_tl }
@@ -4046,7 +4556,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
}
}
\prop_map_inline:Nn \l_@@_add_font_prop
- { \clist_put_right:Nn \l_@@_fontspec_options_clist { ##1 = { ##2 } } }
+ { \clist_put_right:Nn \l_@@_fontspec_options_clist { ##1 = {##2} } }
}
% \end{macrocode}
% \end{macro}
@@ -4179,7 +4689,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macro}
%
% \begin{macro}[internal]{\@@_switch_font:nn}
-% \changes{v3.1.0}{2012/11/18}{改进 \cs{@@_switch_font:nn} 的定义。}
+% \changes{v3.1.0}{2012/11/18}{改进定义,加快切换速度。}
% 两个 CJK 分区之间的字体切换。
% \begin{macrocode}
\cs_new_protected_nopar:Npn \@@_switch_font:nn #1#2
@@ -4211,7 +4721,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
{
\@@_copy_family:xx { \l_xeCJK_family_tl/#1 }
{
- \cs_if_exist:cTF { \@@_family_csname:n { \CJKfamilydefault/#1 } }
+ \cs_if_exist:cTF
+ { \@@_family_csname:n { \CJKfamilydefault/#1 } }
{ \CJKfamilydefault/#1 } { \l_xeCJK_family_tl }
}
}
@@ -4234,8 +4745,8 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\prop_gput:Nxx \g_@@_family_name_prop {#1} {#2}
\cs_gset_protected_nopar:cpx { \@@_family_nfss_csname:n {#1} }
{
- \exp_not:N \fontencoding { \c_@@_encoding_tl }
- \exp_not:N \fontfamily {#2}
+ \tl_set:Nx \exp_not:N \f@encoding { \c_@@_encoding_tl }
+ \tl_set:Nx \exp_not:N \f@family {#2}
\exp_not:N \selectfont
}
}
@@ -4468,13 +4979,24 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
-% 在导言区结束的时候,若没有声明 CJK 字体,则给出一个警告。并在此时设置数学字体。
+% 在导言区结束的时候,若没有声明 CJK 字体,则给出一个警告。并在此时根据西文字体的
+% 情况更新 \cs{CJKfamilydefault} 和设置数学字体。
% \begin{macrocode}
\@@_at_end_preamble:n
{
\prop_if_empty:NTF \g_@@_family_font_name_prop
{ \@@_warning:n { no-CJKfamily } }
{
+ \tl_gset:Nx \CJKfamilydefault
+ {
+ \str_case_x:nnn { \familydefault }
+ {
+ { \rmdefault } { \CJKrmdefault }
+ { \sfdefault } { \CJKsfdefault }
+ { \ttdefault } { \CJKttdefault }
+ }
+ { \CJKfamilydefault }
+ }
\CJKfamily { \CJKfamilydefault }
\bool_if:NT \g_@@_math_bool { \xeCJK_set_mathfont: }
}
@@ -4488,7 +5010,6 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
}
% \end{macrocode}
%
-%
% \subsection{数学字体设置}
%
% \begin{macro}{CJKmath}
@@ -4575,16 +5096,16 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\bool_if:NF \l_@@_verb_addon_bool
{
\bool_set_true:N \l_@@_verb_addon_bool
- \@@_set_char_class_eq:nn { CJK } { FullLeft }
- \@@_set_char_class_eq:nn { CJK } { FullRight }
- \@@_set_char_class_eq:nn { Default } { HalfLeft }
- \@@_set_char_class_eq:nn { Default } { HalfRight }
- \@@_set_char_class_eq:nn { Default } { NormalSpace }
+ \@@_set_char_class_eq:nn { FullLeft } { CJK }
+ \@@_set_char_class_eq:nn { FullRight } { CJK }
+ \@@_set_char_class_eq:nn { HalfLeft } { Default }
+ \@@_set_char_class_eq:nn { HalfRight } { Default }
+ \@@_set_char_class_eq:nn { NormalSpace } { Default }
\xeCJKsetup { xCJKecglue = false }
\cs_set_protected_nopar:Npn \CJKglue
{ \skip_horizontal:N \g_@@_verb_exspace_skip }
\cs_set_protected_nopar:Npn \CJKecglue
- { \skip_horizontal:N 0.5 \g_@@_verb_exspace_skip }
+ { \skip_horizontal:n { 0.5 \g_@@_verb_exspace_skip } }
\cs_set_eq:NN \xeCJK_check_for_glue: \CJKecglue
\cs_set_eq:NN \xeCJK_ignore_spaces:w \CJKecglue
\skip_set:Nn \tex_rightskip:D { \c_zero_dim plus 1 fil }
@@ -4599,11 +5120,11 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 总是在 \LaTeX 的抄录环境(包括 \cs{verb})里使用 \cs{xeCJKVerbAddon},以保证代码
% 的对齐。
% \begin{macrocode}
-\@@_after_preamble:n
- { \xeCJK_cs_add:Nnn \verbatim@font { } { \xeCJKVerbAddon } }
+\@@_after_preamble:n { \tl_put_right:Nn \verbatim@font { \xeCJKVerbAddon } }
% \end{macrocode}
%
% \begin{macro}[internal]{\@@_set_verb_exspace:}
+% \changes{v3.1.1}{2012/12/08}{调整间距的计算方法。}
% 在抄录环境中,CJK 文字之间的间距为当前西文字体两个空格的宽度与当前字体大小之差,
% 而与西文和空格的间距为 CJK 文字之间的间距的一半。这里的问题是,
% \cs{g_@@_verb_exspace_skip} 有可能为负么?现在的处理是保证它非负。如果真的出现
@@ -4612,20 +5133,26 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\cs_new_protected_nopar:Npn \@@_set_verb_exspace:
{
- \tl_if_exist:cTF { xeCJK/verb/\curr@fontshape/\f@size }
+ \tl_if_exist:cF { xeCJK/verb/\l_xeCJK_family_tl/\curr@fontshape/\f@size }
{
- \skip_gset:Nn \g_@@_verb_exspace_skip
- { \tl_use:c { xeCJK/verb/\curr@fontshape/\f@size } }
- }
- {
- \skip_gset:Nn \g_@@_verb_exspace_skip
+ \group_begin:
+ \xeCJK_select_font:
+ \use:x
{
- \dim_max:nn
- { \c_zero_dim }
- { \c_two \tex_fontdimen:D \c_two \tex_font:D - \f@size pt }
+ \group_end:
+ \tl_gset:cx
+ \exp_not:n { { xeCJK/verb/\l_xeCJK_family_tl/\curr@fontshape/\f@size } }
+ {
+ \exp_not:N \dim_max:nn { \c_zero_dim }
+ {
+ \c_two \tex_fontdimen:D \c_two \tex_font:D -
+ \dim_use:N \etex_fontcharwd:D \tex_font:D "4E00
+ }
+ }
}
- \tl_gset:cV { xeCJK/verb/\curr@fontshape/\f@size } \g_@@_verb_exspace_skip
}
+ \skip_gset:Nn \g_@@_verb_exspace_skip
+ { \use:c { xeCJK/verb/\l_xeCJK_family_tl/\curr@fontshape/\f@size } }
}
\skip_new:N \g_@@_verb_exspace_skip
% \end{macrocode}
@@ -4648,7 +5175,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
} }
\AtEndOfPackage
{
- \xeCJK_cs_add:Nnn \fontspec_visible_space: { \scan_stop: } { }
+ \tl_put_left:Nn \fontspec_visible_space: { \scan_stop: }
\cs_gset_eq:NN \fontspec_visible_space_fallback: \xeCJK_visible_space_fallback:
}
% \end{macrocode}
@@ -4661,24 +5188,28 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\cs_new_protected_nopar:Npn \xeCJK_set_visible_space_font:
{
\tl_set:Nx \l_@@_current_coor_tl { xeCJK/space/\curr@fontshape/\f@size }
- \dim_set:Nn \l_@@_tmp_dim { \tex_fontdimen:D \c_two \tex_font:D }
- \fontencoding { \g_fontspec_encoding_tl }
- \fontfamily { lmtt }
+ \exp_after:wN \@@_set_visible_space_size:n
+ \exp_after:wN { \dim_use:N \tex_fontdimen:D \c_two \tex_font:D }
+ \xeCJK_font_gset_to_current:c { \l_@@_current_coor_tl }
+ }
+\cs_new_protected_nopar:Npn \@@_set_visible_space_size:n #1
+ {
+ \tl_set:Nx \f@encoding { \g_fontspec_encoding_tl }
+ \tl_set:Nx \f@family { lmtt }
\selectfont
- \dim_compare:nNnF \l_@@_tmp_dim = { \tex_fontdimen:D \c_two \tex_font:D }
+ \dim_compare:nNnF {#1} = { \tex_fontdimen:D \c_two \tex_font:D }
{
\fontsize
{
\dim_eval:n
{
- \f@size pt * \dim_ratio:nn
- { \l_@@_tmp_dim } { \tex_fontdimen:D \c_two \tex_font:D }
+ \f@size pt *
+ \dim_ratio:nn {#1} { \tex_fontdimen:D \c_two \tex_font:D }
}
}
{ \f@baselineskip }
\selectfont
}
- \xeCJK_font_gset_to_current:c { \l_@@_current_coor_tl }
}
% \end{macrocode}
% \end{macro}
@@ -4723,7 +5254,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}{quiet,silent}
+% \begin{macro}[internal]{quiet,silent}
% 将调用 \pkg{xeCJK} 时使用的未知的选项传递给 \pkg{fontspec} 宏包。
% 对 \pkg{fontspec} 的 |quiet| 和 |silent| 选项进行修改,使其适用于 \pkg{xeCJK}。
% \begin{macrocode}
@@ -4773,9 +5304,11 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\keys_set:nn { xeCJK / options }
{
CJKglue = { \skip_horizontal:n { \c_zero_dim plus 0.08 \tex_baselineskip:D } } ,
- CJKecglue = \c_space_token ,
+ CJKecglue = { ~ } ,
xCJKecglue = false ,
CheckSingle = false ,
+ PlainEquation = false ,
+ CheckFullRight = false ,
CJKspace = false ,
CJKmath = false ,
CJKnumber = false ,
@@ -4785,6 +5318,9 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
EmboldenFactor = 4 ,
SlantFactor = 0.167 ,
PunctStyle = quanjiao ,
+ NewLineCS = { \par \[ } ,
+ EnvCS = { \begin \end } ,
+ NoBreakCS = { \footnote \footnotemark \nobreak } ,
KaiMingPunct = { ^^^^3002 ^^^^ff0e ^^^^ff1f ^^^^ff01 } ,
LongPunct = { ^^^^2014 ^^^^2015 ^^^^2500 ^^^^2025 ^^^^2026 } ,
MiddlePunct = { ^^^^2014 ^^^^2015 ^^^^2500 ^^^^00b7 ^^^^30fb ^^^^ff65 } ,
@@ -4841,7 +5377,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macro}{\xeCJKsetup}
% 在导言区或文档中设置 \pkg{xeCJK} 的接口。
% \begin{macrocode}
-\NewDocumentCommand \xeCJKsetup { m }
+\NewDocumentCommand \xeCJKsetup { +m }
{
\keys_set:nn { xeCJK / options } {#1}
\tex_ignorespaces:D
@@ -4888,24 +5424,80 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
+% \begin{macro}[internal]{\xeCJKenablefallback, \xeCJKdisablefallback}
+% \begin{macrocode}
+\NewDocumentCommand \xeCJKenablefallback { }
+ { \xeCJKsetup { AutoFallBack = true } }
+\NewDocumentCommand \xeCJKdisablefallback { }
+ { \xeCJKsetup { AutoFallBack = false } }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\xeCJKsetcharclass}
+% \begin{macrocode}
+\NewDocumentCommand \xeCJKsetcharclass { m m m }
+ {
+ \xeCJK_set_char_class:nnn {#1} {#2} {#3}
+ \xeCJKResetPunctClass
+ }
+% \end{macrocode}
+% \end{macro}
+%
% \subsection{兼容性修补}
%
-% 补丁 \cs{normalfont},\cs{rmfamily},\cs{sffamily} 和 \cs{ttfamily},使其同时对
-% CJK 字体族有效。
-% \begin{macrocode}
-\xeCJK_cs_add:Nnn \rmfamily { \CJKfamily { \CJKrmdefault } } { }
-\xeCJK_cs_add:Nnn \sffamily { \CJKfamily { \CJKsfdefault } } { }
-\xeCJK_cs_add:Nnn \ttfamily { \CJKfamily { \CJKttdefault } } { }
-\xeCJK_cs_add:Nnn \normalfont { \CJKfamily { \CJKfamilydefault } } { }
-\cs_set_eq:NN \reset@font \normalfont
+% \changes{v3.1.1}{2012/12/13}{对于与 \pkg{xltxtra} 的冲突给出错误警告。}
+% \begin{macrocode}
+\@@_msg_new:nn { conflict-package }
+ {
+ The~`#1'~package~is~in~conflict~with~xeCJK. \\
+ Please~do~not~use~it~or~load~it~after~xeCJK.
+ }
+\xeCJK_if_package_loaded:nTF { realscripts }
+ {
+ \@ifpackagelater { realscripts } { 2010/10/10 } { }
+ { \@@_error:nx { conflict-package } { xltxtra } }
+ }
+ {
+ \cs_new_eq:NN \@@_dim_max:nn \dim_max:nn
+ \cs_new_eq:NN \@@_dim_min:nn \dim_min:nn
+ \@@_at_end_preamble:n
+ {
+ \xeCJK_if_package_loaded:nT { realscripts }
+ {
+ \@ifpackagelater { realscripts } { 2010/10/10 } { }
+ {
+ \cs_gset_eq:NN \dim_max:nn \@@_dim_max:nn
+ \cs_gset_eq:NN \dim_min:nn \@@_dim_min:nn
+ }
+ }
+ \cs_undefine:N \@@_dim_max:nn
+ \cs_undefine:N \@@_dim_min:nn
+ }
+ }
% \end{macrocode}
%
-% 因为我们在上面把 \cs{CJKfamily} 加在了 \cs{rmfamily} 里面,而 \pkg{fontspec} 在
-% 调用字体时,某些选项要使用它。为减少影响,下面使 \cs{CJKfamily} 在通过
-% \pkg{fontspec} 来实际调用字体时无效。
+% \begin{macro}[internal]{\fontfamily}
+% \changes{v3.1.1}{2012/12/06}{修改主要 \texttt{CJK} 字体族的自动更新方式。}
+% 修改 \cs{fontfamily},使主要 |CJK| 字体族能随西文主要字体更新。
% \begin{macrocode}
-\xeCJK_cs_add:Nnn \fontspec_init: { \@@_gobble_CJKfamily: } { }
+\RenewDocumentCommand \fontfamily { m }
+ {
+ \tl_set:Nx \f@family {#1}
+ \@@_update_family:n
+ {
+ \str_case_x:nnn {#1}
+ {
+ { \rmdefault } { \CJKfamily { \CJKrmdefault } }
+ { \sfdefault } { \CJKfamily { \CJKsfdefault } }
+ { \ttdefault } { \CJKfamily { \CJKttdefault } }
+ { \familydefault } { \CJKfamily { \CJKfamilydefault } }
+ }
+ { }
+ }
+ }
+\cs_new_eq:NN \@@_update_family:n \use:n
% \end{macrocode}
+% \end{macro}
%
% \newbox\xeCJKtmpbox
% \setbox\xeCJKtmpbox\vbox\bgroup
@@ -4924,15 +5516,15 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% 处理。
% \begin{macrocode}
\cs_new_eq:NN \xeCJK@fix@penalty \fix@penalty
-\xeCJK_cs_patch:Nnn \xeCJK@fix@penalty \@@italiccorr \xeCJK@patch@italiccorr
-\xeCJK_cs_patch:Nnn \sw@slant \fix@penalty \xeCJK@fix@penalty
+\tl_replace_once:Nnn \xeCJK@fix@penalty { \@@italiccorr } { \xeCJK@italiccorr }
+\tl_replace_once:Nnn \sw@slant { \fix@penalty } { \xeCJK@fix@penalty }
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]{\xeCJK@patch@italiccorr}
+% \begin{macro}[internal]{\xeCJK@italiccorr}
% 修复倾斜校正,并处理汉字后面的空格。
% \begin{macrocode}
-\cs_new_protected_nopar:Npn \xeCJK@patch@italiccorr
+\cs_new_protected_nopar:Npn \xeCJK@italiccorr
{
\int_compare:nNnTF \XeTeXinterchartokenstate > \c_zero
{
@@ -4982,24 +5574,24 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%<@@=xeCJK>
% \end{macrocode}\egroup
%
-% \begin{macro}[internal]{\@@_set_others_toks:n,\c_@@_Others_class_int}
+% \begin{macro}[internal]{\@@_set_others_toks:n}
% 简单处理与同样使用 \cs{XeTeXinterchartoks} 机制的宏包的兼容问题。
% \begin{macrocode}
\@@_after_end_preamble:n
{
\int_compare:nNnF
- { \c_three + ( \seq_count:N \g_@@_class_seq ) } = \xe@alloc@intercharclass
+ { \c_three + \seq_count:N \g_@@_new_class_seq } = \xe@alloc@intercharclass
{
\int_step_inline:nnnn \c_four \c_one \xe@alloc@intercharclass
{
- \seq_if_in:NnF \g_@@_class_seq {#1}
+ \seq_if_in:NnF \g_@@_new_class_seq {#1}
{ \@@_set_others_toks:n {#1} }
}
}
}
\cs_new_protected_nopar:Npn \@@_set_others_toks:n #1
{
- \int_set:Nn \c_@@_Others_class_int {#1}
+ \int_set:cn { \@@_class_csname:n { Others } } {#1}
\seq_map_inline:Nn \g_@@_CJK_class_seq
{
\xeCJK_copy_inter_class_toks:nnnn {##1} { Others } {##1} { NormalSpace }
@@ -5022,13 +5614,12 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
}
}
}
-\cs_new_eq:NN \c_@@_Others_class_int \l_@@_tmpa_int
% \end{macrocode}
% \end{macro}
%
% 单独处理宽度有分歧的几个标点:包括省略号、破折号、间隔号、引号等中西文混用的
% 符号, 保证其命令形式输出的是西文字体。并对一些编码的符号宏包做特殊处理。
-% \begin{macrocode}
+% \begin{macrocode}
\@@_after_preamble:n
{
\tl_map_inline:nn
@@ -5036,18 +5627,16 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\textellipsis \textemdash \textperiodcentered \textcentereddot
\textquoteleft \textquoteright \textquotedblleft \textquotedblright
}
- {
- \xeCJK_cs_add:Nnn #1
- { \@@_group_begin: \makexeCJKinactive } { \@@_group_end: }
- }
- \xeCJK_cs_add:Nnn \tipaencoding { \makexeCJKinactive } { }
+ { \cs_gset_nopar:Npx #1 { { \makexeCJKinactive \exp_not:o {#1} } } }
+ \tl_put_left:Nn \tipaencoding { \makexeCJKinactive }
\cs_new_eq:NN \@@_aux_r:n \r
\cs_set_nopar:Npn \r #1 { { \makexeCJKinactive \@@_aux_r:n {#1} } }
\xeCJK_if_package_loaded:nT { pifont }
- { \xeCJK_cs_add:Nnn \Pifont { \makexeCJKinactive } { } }
+ {
+ \RenewDocumentCommand \Pifont { m }
+ { \makexeCJKinactive \usefont { U } {#1} { m } { n } }
+ }
}
-\cs_new_eq:NN \@@_group_begin: \group_begin:
-\cs_new_eq:NN \@@_group_end: \group_end:
% \end{macrocode}
%
% 简单处理与 \pkg{hyperref} 宏包的兼容问题。
@@ -5060,8 +5649,6 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
{
\@@_gobble_CJKfamily:
\xeCJK_cs_clear:N \makexeCJKinactive
- \xeCJK_cs_clear:N \@@_group_begin:
- \xeCJK_cs_clear:N \@@_group_end:
}
}
}
@@ -5082,6 +5669,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \pkg{CJKnumb} 和 \pkg{CJKfntef} 宏包可以使用。
% \begin{macrocode}
\tl_set:cn { ver@CJK.sty } { 9999/99/99 }
+\tl_set_eq:cc { ver@CJKulem.sty } { ver@CJK.sty }
\tl_set_eq:cc { ver@CJKpunct.sty } { ver@CJK.sty }
% \end{macrocode}
%
@@ -5104,57 +5692,27 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \end{macrocode}
% \end{macro}
%
-% \begin{macro}[internal]{\xeCJK_hook_for_ulem:}
-% \changes{v3.1.0}{2012/11/16}{简化对 \pkg{ulem} 宏包的兼容补丁。}
-% 对 \pkg{ulem} 宏包打补丁,以支持 \pkg{CJKfntef} 宏包。目前的问题是,在下划线状态
-% 下,相邻两个标点之间的空白不能压缩。
+% 由于 \pkg{xeCJK} 禁止 \pkg{CJKulem} 的载入,因此当使用 \pkg{ctex} 宏包的 |fntef|
+% 选项时,就会出现 \cs{normalem} 没有定义的问题。此时改用 \pkg{xeCJKfntef} 以便
+% 载入 \pkg{ulem}。
% \begin{macrocode}
-\cs_new_protected_nopar:Npn \xeCJK_hook_for_ulem:
+\cs_if_eq:NNTF \ifCTEX@fntef \tex_iftrue:D
+ { \RequirePackage { xeCJKfntef } }
{
- \bool_if:NF \l_@@_ulem_hook_used_bool
+ \@@_at_end_preamble:n
{
- \bool_set_true:N \l_@@_ulem_hook_used_bool
- \xeCJK_cs_clear:N \@@_CJK_FullLeft_glue:
- \cs_set_protected_nopar:Npn \@@_FullLeft_ulem_hook: { { \CJKglue } }
- \xeCJK_swap_cs:NN \CJKsymbol \@@_ulem_CJKsymbol:N
- \xeCJK_swap_cs:NN \CJKpunctsymbol \@@_ulem_CJKpunctsymbol:N
- }
- }
-\bool_new:N \l_@@_ulem_hook_used_bool
-\@@_after_preamble:n
- {
- \xeCJK_if_package_loaded:nT { ulem }
- {
- \xeCJK_cs_gclear:N \@@_FullLeft_ulem_hook:
- \xeCJK_pre_inter_class_toks:nnn { Boundary } { FullLeft }
- { \@@_FullLeft_ulem_hook: }
- \cs_if_exist:NTF \XeTeX@CJKfntef@hook
+ \xeCJK_if_package_loaded:nF { xeCJKfntef }
{
- \xeCJK_cs_gclear:N \CJKf@global
- \AtBeginEnvironment
- { CJKfilltwosides } { \cs_set_eq:NN \CJKglue \tex_hfil:D }
- \cs_set_protected_nopar:Npn \XeTeX@CJKfntef@hook
- { \xeCJK_select_font: \makexeCJKinactive }
+ \xeCJK_if_package_loaded:nTF { CJKfntef }
+ { \RequirePackage { xeCJKfntef } }
+ {
+ \xeCJK_if_package_loaded:nT { ulem }
+ { \RequirePackage { xeCJKfntef } }
+ }
}
- { \RequirePackage { CJKulem } }
- \addto@hook \UL@hook { \xeCJK_hook_for_ulem: }
}
}
% \end{macrocode}
-% \end{macro}
-%
-% \begin{macro}[internal]{\@@_ulem_CJKsymbol:N,\@@_ulem_CJKpunctsymbol:N}
-% 这两个宏定义里面的分组记号都是必须的,否则会出现分组不匹配的情况。
-% \begin{macrocode}
-\cs_new_protected_nopar:Npn \@@_ulem_CJKsymbol:N #1
- {
- { \@@_ulem_CJKsymbol:N {#1} }
- { \xeCJK_make_node:n { CJK } } \xeCJK_ignore_spaces:w
- }
-\cs_new_protected_nopar:Npn \@@_ulem_CJKpunctsymbol:N #1
- { { \@@_ulem_CJKpunctsymbol:N {#1} } \tex_ignorespaces:D }
-% \end{macrocode}
-% \end{macro}
%
% 为使用 \pkg{CJKnumb} 宏包而作一些处理。另外 \pkg{CJKnumb} 使用的是传统汉字“萬”
% 和“億”,我们在这里把它们修正为简体字。
@@ -5187,6 +5745,447 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%</package>
% \end{macrocode}
%
+% \subsection{\pkg{xeCJKfntef}}
+%
+% \changes{v3.1.1}{2012/12/08}{增加小宏包 \pkg{xeCJKfntef},用于处理下划线的问题。}
+%
+% \begin{macrocode}
+%<*fntef>
+% \end{macrocode}
+%
+% \pkg{xeCJKfntef} 不需要 \pkg{CJKulem} 宏包的支持,因此当使用 \pkg{CJKfntef} 时,%
+% 需要另行载入 \pkg{ulem}。
+% \begin{macrocode}
+\PassOptionsToPackage { normalem } { ulem }
+\DeclareOption* { \PassOptionsToPackage { \CurrentOption } { ulem } }
+\ProcessOptions \scan_stop:
+% \end{macrocode}
+%
+% \begin{macrocode}
+\@ifpackageloaded { xeCJK }
+ { }
+ { \RequirePackage { xeCJK } }
+\RequirePackage { ulem }
+\RequirePackage { CJKfntef }
+% \end{macrocode}
+%
+% \begin{macrocode}
+\addto@hook \UL@hook { \xeCJK_hook_for_ulem: }
+% \end{macrocode}
+%
+% \begin{macro}[internal]{\xeCJK_hook_for_ulem:}
+% \changes{v3.1.0}{2012/11/16}{简化对 \pkg{ulem} 宏包的兼容补丁。}
+% \changes{v3.1.1}{2012/12/08}{完全处理下划线里的标点符号的有关问题。}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \xeCJK_hook_for_ulem:
+ {
+ \bool_if:NF \l_@@_ulem_hook_used_bool
+ {
+ \bool_set_true:N \l_@@_ulem_hook_used_bool
+ \xeCJKsetup { CheckFullRight = false }
+ \bool_if:NTF \l_@@_ulem_skip_punct_bool
+ { \cs_set_eq:NN \@@_ulem_leader_type: \UL@leadtype }
+ {
+ \xeCJK_cs_clear:N \@@_ulem_skip_punct_begin:
+ \xeCJK_cs_clear:N \@@_ulem_skip_punct_end:
+ }
+ \@@_ulem_initial:
+ \xeCJK_glue_to_skip:nN
+ {
+ \cs_set_eq:NN \ \tex_space:D
+ \cs_set_eq:NN \penalty \tex_penalty:D
+ \cs_set_eq:NN \hskip \skip_horizontal:N
+ \CJKglue
+ } \l_@@_ccglue_skip
+ \xeCJK_glue_to_skip:nN
+ {
+ \cs_set_eq:NN \ \tex_space:D
+ \cs_set_eq:NN \penalty \tex_penalty:D
+ \cs_set_eq:NN \hskip \skip_horizontal:N
+ \CJKecglue
+ } \l_@@_ecglue_skip
+ \cs_set_protected_nopar:Npn \CJKglue
+ { \@@_ulem_glue:n \l_@@_ccglue_skip }
+ \cs_set_protected_nopar:Npn \CJKecglue
+ { \@@_ulem_glue:n \l_@@_ecglue_skip }
+ }
+ }
+\bool_new:N \l_@@_ulem_hook_used_bool
+% \end{macrocode}
+% \end{macro}
+%
+% \setbox\xeCJKtmpbox\vbox\bgroup
+% \begin{macrocode}
+%<@@=>
+% \end{macrocode}\egroup
+%
+% \begin{macro}[internal]{\CJK@UL,\CJK@@UL}
+% 修改 \pkg{CJKfntef} 中的 \cs{CJK@UL} 和 \cs{CJK@@UL} 以适应下面的修改。
+% \begin{macrocode}
+\cs_set_eq:NN \CJK@UL \CJK@@UL
+\tl_replace_once:Nnn \CJK@UL { \ULon }
+ { \bool_set_true:N \l__xeCJK_ulem_skip_punct_bool \ULon }
+\tl_replace_once:Nnn \CJK@@UL { \ULon }
+ { \bool_set_false:N \l__xeCJK_ulem_skip_punct_bool \ULon }
+\bool_new:N \l__xeCJK_ulem_skip_punct_bool
+% \end{macrocode}
+% \end{macro}
+%
+% \setbox\xeCJKtmpbox\vbox\bgroup
+% \begin{macrocode}
+%<@@=xeCJK>
+% \end{macrocode}\egroup
+%
+% \begin{macro}[internal]{\@@_ulem_skip_punct_begin:,\@@_ulem_skip_punct_end:}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_skip_punct_begin:
+ { \xeCJK_cs_clear:N \UL@leadtype }
+\cs_new_protected_nopar:Npn \@@_ulem_skip_punct_end:
+ { \cs_set_eq:NN \UL@leadtype \@@_ulem_leader_type: }
+\xeCJK_cs_clear:N \@@_ulem_leader_type:
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_initial:}
+% 这里的设置是为了在下划线状态下,下划线可以自动跳过全角标点符号和正确的在它们
+% 前/后断行,并且与行首行末对齐。
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_initial:
+ {
+ \cs_set_eq:NN \@@_punct_hskip:n \@@_ulem_hskip:n
+ \cs_set_eq:NN
+ \@@_Default_and_FullLeft_glue:N \@@_ulem_Default_and_FullLeft_glue:N
+ \cs_set_eq:NN
+ \@@_Default_and_FullRight_glue:N \@@_ulem_Default_and_FullRight_glue:N
+ \cs_set_eq:NN
+ \@@_CJK_and_FullLeft_glue:N \@@_ulem_CJK_and_FullLeft_glue:N
+ \cs_set_eq:NN
+ \@@_CJK_and_FullRight_glue:N \@@_ulem_CJK_and_FullRight_glue:N
+ \cs_set_eq:NN
+ \@@_Boundary_and_FullLeft_glue:N \@@_ulem_Boundary_and_FullLeft_glue:N
+ \cs_set_eq:NN \xeCJK_FullLeft_and_Default: \@@_ulem_FullLeft_and_Default:
+ \cs_set_eq:NN \xeCJK_FullLeft_and_CJK: \@@_ulem_FullLeft_and_CJK:
+ \cs_set_eq:NN \xeCJK_FullRight_and_Default: \@@_ulem_FullRight_and_Default:
+ \cs_set_eq:NN \xeCJK_FullRight_and_CJK: \@@_ulem_FullRight_and_CJK:
+ \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \@@_ulem_CJK_and_CJK:N
+ \seq_map_inline:Nn \g_@@_CJK_sub_class_seq
+ {
+ \seq_map_inline:Nn \g_@@_CJK_sub_class_seq
+ {
+ \str_if_eq:nnTF {##1} {####1}
+ {
+ \xeCJK_inter_class_toks:nnn { CJK } { CJK/##1 }
+ { \@@_ulem_between_CJK_blocks:nnN { CJK } {##1} }
+ \xeCJK_inter_class_toks:nnn { CJK/##1 } { CJK/##1 }
+ { \@@_ulem_between_CJK_blocks:nnN { CJK } {##1} }
+ }
+ {
+ \xeCJK_inter_class_toks:nnn { CJK/##1 } { CJK/####1 }
+ { \@@_ulem_between_CJK_blocks:nnN {##1} {####1} }
+ }
+ }
+ }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_CJK_and_CJK:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_CJK_and_CJK:N
+ {
+ \xeCJK_class_group_end:
+ \UL@stop \@@_ulem_ccglue: \UL@start
+ \@@_ulem_class_group_begin:
+ \CJKsymbol
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_class_group_begin:}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_class_group_begin:
+ {
+ \xeCJK_class_group_begin:
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \xeCJK_select_font:
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_between_CJK_blocks:nnN}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_between_CJK_blocks:nnN #1#2
+ {
+ \xeCJK_class_group_end:
+ \UL@stop \@@_ulem_ccglue: \UL@start
+ \xeCJK_class_group_begin:
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \@@_switch_font:nn {#1} {#2}
+ \CJKsymbol
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_Default_and_FullLeft_glue:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_Default_and_FullLeft_glue:N #1
+ {
+ \UL@stop
+ \@@_ulem_skip_punct_begin:
+ \@@_punct_glue:NN \c_@@_left_tl {#1}
+ \UL@start
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_Boundary_and_FullLeft_glue:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_Boundary_and_FullLeft_glue:N #1
+ {
+ \UL@stop
+ \@@_ulem_skip_punct_begin:
+ \int_compare:nNnF \etex_lastnodetype:D = \c_one
+ { \@@_punct_glue:NN \c_@@_left_tl {#1} }
+ \UL@start
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_CJK_and_FullLeft_glue:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_CJK_and_FullLeft_glue:N #1
+ {
+ \xeCJK_class_group_end:
+ \UL@stop
+ \@@_ulem_skip_punct_begin:
+ \@@_ulem_ccglue:
+ \@@_punct_glue:NN \c_@@_left_tl {#1}
+ \UL@start
+ \@@_ulem_class_group_begin:
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_Default_and_FullRight_glue:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_Default_and_FullRight_glue:N #1
+ {
+ \UL@stop
+ \@@_ulem_skip_punct_begin:
+ \@@_punct_if_long:NTF {#1}
+ { \@@_ulem_ccglue: }
+ {
+ \@@_punct_if_middle:NT {#1}
+ {
+ \xeCJK_no_break:
+ \@@_punct_glue:NN \c_@@_right_tl {#1}
+ }
+ \xeCJK_no_break:
+ }
+ \UL@start
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_CJK_and_FullRight_glue:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_CJK_and_FullRight_glue:N #1
+ {
+ \xeCJK_class_group_end:
+ \@@_ulem_Default_and_FullRight_glue:N {#1}
+ \@@_ulem_class_group_begin:
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_FullLeft_and_Default:}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_FullLeft_and_Default:
+ {
+ \@@_punct_if_middle:NTF \g_@@_last_punct_tl
+ {
+ \xeCJK_get_punct_bounds:NN \c_@@_left_tl \g_@@_last_punct_tl
+ \@@_punct_rule:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \xeCJK_class_group_end: \UL@stop \xeCJK_no_break:
+ \@@_punct_glue:NN \c_@@_left_tl \g_@@_last_punct_tl
+ }
+ { \xeCJK_class_group_end: \UL@stop }
+ \@@_ulem_skip_punct_end:
+ \xeCJK_no_break:
+ \UL@start
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_FullLeft_and_CJK:}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_FullLeft_and_CJK:
+ {
+ \@@_ulem_FullLeft_and_Default:
+ \@@_ulem_class_group_begin:
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_FullRight_and_Default:}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_FullRight_and_Default:
+ {
+ \@@_punct_rule:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \xeCJK_class_group_end:
+ \UL@stop
+ \@@_punct_glue:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \@@_ulem_skip_punct_end:
+ \UL@start
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_FullRight_and_CJK:}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_FullRight_and_CJK:
+ {
+ \@@_punct_rule:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \xeCJK_class_group_end:
+ \UL@stop
+ \@@_punct_glue:NN \c_@@_right_tl \g_@@_last_punct_tl
+ \@@_ulem_ccglue:
+ \@@_ulem_skip_punct_end:
+ \UL@start
+ \@@_ulem_class_group_begin:
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_ulem_glue:n,\@@_ulem_ccglue:,\@@_ulem_hskip:n}
+% 在下划线状态下的分别代替 \cs{CJKglue} 等。
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_ulem_glue:n #1
+ {
+ \cs_if_eq:NNTF \ \LA@space
+ { \skip_horizontal:n {#1} }
+ { \UL@stop \@@_ulem_hskip:n {#1} \UL@start }
+ }
+\cs_new_protected_nopar:Npn \@@_ulem_ccglue:
+ { \skip_set_eq:NN \UL@skip \l_@@_ccglue_skip \UL@leaders }
+\cs_new_protected_nopar:Npn \@@_ulem_hskip:n #1
+ {
+ \int_compare:nNnTF \tex_lastkern:D = \c_three
+ { \skip_horizontal:n {#1} }
+ { \skip_set:Nn \UL@skip {#1} \UL@leaders }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\CJKunderdot}
+% 使用 \pkg{xeCJK} 时,\pkg{CJKfntef} 中的 \cs{CJKunderdot} 和 \cs{CJKunderanysymbol}
+% 在汉字之间不能断行。因此需要我们在这里修改它们。
+% \begin{macrocode}
+\RenewDocumentCommand \CJKunderdot { m }
+ {
+ \bool_if:NT \l_@@_ulem_hook_used_bool { \UL@stop }
+ \CJK@preUnderdot
+ \@@_make_under_symbol:n { \CJK@underdotSkip }
+ \cs_gset_eq:NN \@@_save_under_dot_CJKsymbol:N \CJKsymbol
+ \cs_set_eq:NN \CJKsymbol \@@_under_CJKsymbol:N
+ \bool_if:NT \l_@@_ulem_hook_used_bool { \UL@start }
+ #1
+ \bool_if:NT \l_@@_ulem_hook_used_bool { \UL@stop }
+ \cs_set_eq:NN \CJKsymbol \@@_save_under_dot_CJKsymbol:N
+ \CJK@postUnderdot
+ \bool_if:NT \l_@@_ulem_hook_used_bool { \UL@start }
+ \tex_ignorespaces:D
+ }
+\box_new:N \g_@@_under_symbol_box
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\CJKunderanysymbol}
+% \begin{macrocode}
+\RenewDocumentCommand \CJKunderanysymbol { m m m }
+ {
+ \group_begin:
+ \hbox_set:Nn \CJK@underdotBox {#2}
+ \@@_make_under_symbol:n {#1}
+ \cs_gset_eq:NN \@@_save_under_dot_CJKsymbol:N \CJKsymbol
+ \cs_set_eq:NN \CJKsymbol \@@_under_CJKsymbol:N
+ #3
+ \group_end:
+ \tex_ignorespaces:D
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_make_under_symbol:n}
+% \begin{macrocode}
+\cs_new_protected:Npn \@@_make_under_symbol:n #1
+ {
+ \hbox_set:Nn \l_@@_tmp_box { ^^^^4e00 }
+ \vbox_gset_to_ht:Nnn \g_@@_under_symbol_box \c_zero_dim
+ {
+ \skip_vertical:n {#1}
+ \hbox_to_zero:n
+ {
+ \tex_kern:D - \box_wd:N \l_@@_tmp_box
+ \tex_hss:D \box_use:N \CJK@underdotBox \tex_hss:D
+ }
+ \tex_vss:D
+ }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_under_CJKsymbol:N}
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_under_CJKsymbol:N #1
+ {
+ \@@_save_under_dot_CJKsymbol:N {#1}
+ \hbox_overlap_left:n { \box_use:N \g_@@_under_symbol_box }
+ { \xeCJK_make_node:n { CJK } }
+ \xeCJK_ignore_spaces:w
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{CJKfilltwosides}
+% 修改 |CJKfilltwosides| 环境,使其不必重定义 \cs{CJKsymbol}。
+% \begin{macrocode}
+\RenewDocumentEnvironment { CJKfilltwosides } { m }
+ {
+ \dim_set:Nn \l_@@_fill_width_dim {#1}
+ \cs_set_eq:NN \CJKglue \tex_hfil:D
+ \cs_set_eq:NN \\ \@@_fill_newline:
+ \mode_if_vertical:T { \tex_indent:D }
+ \tex_vbox:D \c_group_begin_token
+ \tex_hbox:D to \l_@@_fill_width_dim \c_group_begin_token
+ \tex_ignorespaces:D
+ }
+ {
+ \tex_unskip:D
+ \c_group_end_token
+ \c_group_end_token
+ }
+\dim_new:N \l_@@_fill_width_dim
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\@@_fill_newline:}
+% |CJKfilltwosides| 环境里的断行命令 |\\|。
+% \begin{macrocode}
+\cs_new_protected_nopar:Npn \@@_fill_newline:
+ {
+ \tex_unskip:D
+ \c_group_end_token
+ \tex_hbox:D to \l_@@_fill_width_dim \c_group_begin_token
+ \tex_ignorespaces:D
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macrocode}
+%</fntef>
+% \end{macrocode}
+%
% \subsection{\pkg{xeCJK.cfg}}
%
% \begin{macrocode}
@@ -5281,7 +6280,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
% \begin{macrocode}
\documentclass{article}
\usepackage[AutoFallBack]{xeCJK}
-\usepackage{CJKfntef}
+\usepackage{xeCJKfntef}
\usepackage{array}
\setCJKmainfont[AutoFakeBold,AutoFakeSlant]{KaiTi_GB2312}
\setCJKfallbackfamilyfont{\CJKrmdefault}[BoldFont=SimHei]
@@ -5437,6 +6436,8 @@ This is an example. 这是一个例子}
\def。{.}
\def\foo{一}
\long\def\showtext{一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十。
+\[x^2+y^2\]
+一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十\foo
$$x^2+y^2$$
一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十\foo
\begin{equation}
@@ -5452,6 +6453,11 @@ x^2+y^2
\xeCJKsetup{CheckSingle}
\showtext
+
+\hrulefill\bigskip
+
+\xeCJKsetup{PlainEquation}
+\showtext
\end{document}
% \end{macrocode}
%
@@ -5469,22 +6475,47 @@ x^2+y^2
\documentclass{article}
\usepackage{xeCJK}
\usepackage{xcolor}
-\usepackage{CJKfntef}
-\setCJKmainfont{SimSun}
-
-\begin{document}
+\usepackage{xeCJKfntef}
+\xeCJKDeclareSubCJKBlock{test}{ `殆 , `已 }
+\setCJKmainfont[test=SimHei]{SimSun}
-\CJKunderline{汉字}\CJKunderline{加下划线加下划线加下划线加下划线
-加下划线加下划线加下划线加下划线加下划线加下划线加下划线}
+\def\showtext{%
+ 庄子曰:“吾生也有涯,而知也无涯。以有涯随无涯,殆已!已而为知者,殆而已矣!%
+ 为善无近名,为恶无近刑,缘督以为经,可以保身,可以全生,可以养亲,可以尽年。”}
+\newcommand\CJKfntef[1]{%
+ \csname#1\endcsname{\showtext}\par
+ \csname#1\endcsname*{\showtext}\par
+ \CJKunderdot{\showtext\csname#1\endcsname{\showtext}}\par
+ \CJKunderdot{\showtext\csname#1\endcsname*{\showtext}}\par
+ \csname#1\endcsname{\showtext\CJKunderdot{\showtext}}\par
+ \csname#1\endcsname*{\showtext\CJKunderdot{\showtext}}\par\bigskip}
-\CJKunderwave{波浪线}
+\begin{document}
+\CJKunderline{汉 字}\CJKunderline{加下划线}
+\varCJKunderline{汉字}\varCJKunderline{加下划线}
\CJKunderanyline{0.5em}{\sixly \kern-.021em\char58 \kern-.021em}{自定义下划线}
-
\CJKunderanyline{0.2em}{\kern-.03em\vtop{\kern.2ex\hrule width.2em\kern 0.11em
\hrule height 0.1em}\kern-.03em}{自定义下划线}
-\CJKunderanysymbol{0.5em}{$\cdot$}{汉字加点}
+\CJKunderanyline{0.5em}{-}{\showtext}
+
+\CJKunderanysymbol{0.2em}{-}{\showtext}
+
+\CJKunderdot{\showtext}
+
+\begin{CJKfilltwosides}{40mm}
+两端分散对齐\\
+分散对齐\\
+\CJKunderdot{汉字可加点}\\
+\CJKunderline{汉字可加下划线}
+\end{CJKfilltwosides}
+
+\CJKfntef{CJKunderline}
+\CJKfntef{CJKunderwave}
+\CJKfntef{CJKunderdblline}
+\CJKfntef{CJKsout}
+\CJKfntef{CJKxout}
\end{document}
% \end{macrocode}
diff --git a/Master/texmf-dist/source/xelatex/xecjk/xeCJK.ins b/Master/texmf-dist/source/xelatex/xecjk/xeCJK.ins
index d6dda519368..9a689cc6ba9 100644
--- a/Master/texmf-dist/source/xelatex/xecjk/xeCJK.ins
+++ b/Master/texmf-dist/source/xelatex/xecjk/xeCJK.ins
@@ -6,7 +6,7 @@
%%
%% xeCJK.dtx (with options: `batchfile')
%%
-%% $Id: xeCJK.dtx 368 2012-11-23 04:55:23Z sobenlee $
+%% $Id: xeCJK.dtx 382 2012-12-13 04:58:22Z sobenlee $
%% $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%% -----------------------------------------------------------------
%% Author:
@@ -35,7 +35,7 @@
\askforoverwritefalse
\preamble
-$Id: xeCJK.dtx 368 2012-11-23 04:55:23Z sobenlee $
+$Id: xeCJK.dtx 382 2012-12-13 04:58:22Z sobenlee $
$URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
-----------------------------------------------------------------
Author:
@@ -66,6 +66,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
xeCJK.sty,
xeCJK.cfg,
xeCJK.ins,
+ xeCJKfntef.sty,
xeCJK-example-autofake.tex,
xeCJK-example-fallback.tex,
xeCJK-example-subCJKblock.tex,
@@ -81,7 +82,9 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
\declarepostamble\emptypostamble
\endpostamble
\usedir{tex/xelatex/xecjk}
-\generate{\file{\jobname.sty}{\from{\jobname.dtx}{package}}}
+\generate{
+ \file{\jobname.sty}{\from{\jobname.dtx}{package}}
+ \file{xeCJKfntef.sty}{\from{\jobname.dtx}{fntef}}}
\usedir{tex/xelatex/xecjk/config}
\generate{
\usepreamble\emptypreamble
@@ -106,6 +109,7 @@ $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%% xeCJK.sty,
%% xeCJK.cfg,
%% xeCJK.ins,
+%% xeCJKfntef.sty,
%% xeCJK-example-autofake.tex,
%% xeCJK-example-fallback.tex,
%% xeCJK-example-subCJKblock.tex,
diff --git a/Master/texmf-dist/tex/xelatex/xecjk/config/xeCJK.cfg b/Master/texmf-dist/tex/xelatex/xecjk/config/xeCJK.cfg
index cf9c3189a7f..4c34f1a2179 100644
--- a/Master/texmf-dist/tex/xelatex/xecjk/config/xeCJK.cfg
+++ b/Master/texmf-dist/tex/xelatex/xecjk/config/xeCJK.cfg
@@ -6,12 +6,11 @@
%%
%% xeCJK.dtx (with options: `config')
%%
-\NeedsTeXFormat{LaTeX2e}
-\GetIdInfo$Id: xeCJK.dtx 368 2012-11-23 04:55:23Z sobenlee $
+\GetIdInfo$Id: xeCJK.dtx 382 2012-12-13 04:58:22Z sobenlee $
{Configuration file for xeCJK package}
\ProvidesExplFile
{\ExplFileName.cfg}
- {\ExplFileDate}{3.1.0}{\ExplFileDescription}
+ {\ExplFileDate}{3.1.1}{\ExplFileDescription}
%%
%%
diff --git a/Master/texmf-dist/tex/xelatex/xecjk/xeCJK.sty b/Master/texmf-dist/tex/xelatex/xecjk/xeCJK.sty
index f6876df0358..6678f7cc805 100644
--- a/Master/texmf-dist/tex/xelatex/xecjk/xeCJK.sty
+++ b/Master/texmf-dist/tex/xelatex/xecjk/xeCJK.sty
@@ -6,7 +6,7 @@
%%
%% xeCJK.dtx (with options: `package')
%%
-%% $Id: xeCJK.dtx 368 2012-11-23 04:55:23Z sobenlee $
+%% $Id: xeCJK.dtx 382 2012-12-13 04:58:22Z sobenlee $
%% $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
%% -----------------------------------------------------------------
%% Author:
@@ -31,11 +31,11 @@
%%
\NeedsTeXFormat{LaTeX2e}
\RequirePackage{expl3}
-\GetIdInfo$Id: xeCJK.dtx 368 2012-11-23 04:55:23Z sobenlee $
+\GetIdInfo$Id: xeCJK.dtx 382 2012-12-13 04:58:22Z sobenlee $
{Typesetting CJK scripts with XeLaTeX}
\ProvidesExplPackage
{\ExplFileName}
- {\ExplFileDate}{3.1.0}{\ExplFileDescription}
+ {\ExplFileDate}{3.1.1}{\ExplFileDescription}
\msg_new:nnn { xeCJK } { Require-XeTeX }
{
The~xeCJK~package~requires~XeTeX~to~function.\\\\
@@ -58,7 +58,6 @@
\@ifpackagelater { xtemplate } { 2012/11/10 } { }
{ \msg_error:nnn { xeCJK } { l3-too-old } { xtemplate } }
\RequirePackage { xparse , l3keys2e }
-\RequirePackage { xpatch }
\tl_new:N \l__xeCJK_tmpa_tl
\tl_new:N \l__xeCJK_tmpb_tl
\int_new:N \l__xeCJK_tmpa_int
@@ -66,7 +65,7 @@
\int_new:N \l__xeCJK_tmpc_int
\box_new:N \l__xeCJK_tmp_box
\dim_new:N \l__xeCJK_tmp_dim
-\skip_new:N \g__xeCJK_tmp_skip
+\skip_new:N \l__xeCJK_tmp_skip
\prop_new:N \l__xeCJK_tmp_prop
\clist_new:N \l__xeCJK_tmpa_clist
\clist_new:N \l__xeCJK_tmpb_clist
@@ -80,6 +79,12 @@
\cs_new_protected_nopar:Npn \__xeCJK_info:nxx { \msg_info:nnxx { xeCJK } }
\cs_new_protected_nopar:Npn \xeCJK_allow_break: { \tex_penalty:D \c_zero }
\cs_new_protected_nopar:Npn \xeCJK_no_break: { \tex_penalty:D \c_ten_thousand }
+\prg_new_conditional:Npnn \xeCJK_if_package_loaded:n #1 { p , T , F , TF }
+ {
+ \tl_if_exist:cTF { ver@ #1 . \c__xeCJK_package_ext_tl }
+ { \prg_return_true: } { \prg_return_false: }
+ }
+\tl_const:Nx \c__xeCJK_package_ext_tl { \@pkgextension }
\tl_new:N \g__xeCJK_at_end_preamble_hook_tl
\tl_new:N \g__xeCJK_after_preamble_hook_tl
\tl_new:N \g__xeCJK_after_end_preamble_hook_tl
@@ -89,9 +94,25 @@
{ \tl_gput_right:Nn \g__xeCJK_after_preamble_hook_tl {#1} }
\cs_new_protected:Npn \__xeCJK_after_end_preamble:n #1
{ \tl_gput_right:Nn \g__xeCJK_after_end_preamble_hook_tl {#1} }
-\AtEndPreamble { \g__xeCJK_at_end_preamble_hook_tl }
-\AfterPreamble { \g__xeCJK_after_preamble_hook_tl }
-\AfterEndPreamble { \g__xeCJK_after_end_preamble_hook_tl }
+\xeCJK_if_package_loaded:nTF { etoolbox }
+ {
+ \AtEndPreamble { \g__xeCJK_at_end_preamble_hook_tl }
+ \AfterPreamble { \g__xeCJK_after_preamble_hook_tl }
+ \AfterEndPreamble { \g__xeCJK_after_end_preamble_hook_tl }
+ }
+ {
+ \AtBeginDocument { \g__xeCJK_after_preamble_hook_tl }
+ \cs_new_protected_nopar:Npn \__xeCJK_document_left_hook:
+ { \group_end: \g__xeCJK_at_end_preamble_hook_tl \group_begin: }
+ \cs_new_protected_nopar:Npn \__xeCJK_document_right_hook:
+ { \scan_stop: \g__xeCJK_after_end_preamble_hook_tl \tex_ignorespaces:D }
+ \cs_gset_nopar:Npx \document
+ {
+ \__xeCJK_document_left_hook:
+ \exp_not:o { \document }
+ \__xeCJK_document_right_hook:
+ }
+ }
\cs_new_nopar:Npn \xeCJK_reverse:nnn #1#2#3
{ \str_if_eq_x:nnTF {#1} {#2} {#3} {#2} }
\cs_new_protected_nopar:Npn \xeCJK_tl_remove_outer_braces:N #1
@@ -104,24 +125,6 @@
{ \__xeCJK_tl_remove_outer_braces:w #1 \q_stop }
{ \tl_trim_spaces:n {#1} }
}
-\cs_new_protected:Npn \xeCJK_cs_add:Nnn #1#2#3
- {
- \tl_if_empty:nTF {#3}
- { \tl_if_empty:nTF {#2} { \use_ii:nn } { \xpretocmd {#1} {#2} } }
- {
- \tl_if_empty:nTF {#2} { \xapptocmd {#1} {#3} }
- { \xpretocmd {#1} {#2} { \xapptocmd {#1} {#3} } { \use_ii:nn } }
- }
- { \__xeCJK_info:nxx { patch-cmd } { \token_to_str:N #1 } { succeeded } }
- { \__xeCJK_warning:nxx { patch-cmd } { \token_to_str:N #1 } { failed } }
- }
-\cs_new_protected:Npn \xeCJK_cs_patch:Nnn #1#2#3
- {
- \xpatchcmd {#1} {#2} {#3}
- { \__xeCJK_info:nxx { patch-cmd } { \token_to_str:N #1 } { succeeded } }
- { \__xeCJK_warning:nxx { patch-cmd } { \token_to_str:N #1 } { failed } }
- }
-\__xeCJK_msg_new:nn { patch-cmd } { Patching~'#1'~#2! }
\cs_new_eq:NN \xeCJK_cs_clear:N \tl_clear:N
\cs_new_eq:NN \xeCJK_cs_gclear:N \tl_gclear:N
\cs_new_protected:Npn \xeCJK_swap_cs:NN #1#2
@@ -153,30 +156,77 @@
}
\cs_new_protected_nopar:Npn \xeCJK_glue_to_skip:nN #1#2
{
- \hbox_set:Nn \l__xeCJK_tmp_box
- { #1 \skip_gset_eq:NN \g__xeCJK_tmp_skip \tex_lastskip:D }
- \skip_set_eq:NN #2 \g__xeCJK_tmp_skip
+ \hbox_set:Nn \l__xeCJK_tmp_box { #1 \scan_stop: \exp_after:wN } \exp_after:wN
+ \skip_set:Nn \exp_after:wN #2 \exp_after:wN { \skip_use:N \tex_lastskip:D }
}
\prg_new_conditional:Npnn \xeCJK_if_blank_x:n #1 { p , T , F , TF }
{
- \if_int_compare:w \pdftex_strcmp:D { \c_empty_tl } {#1} = \c_zero
+ \if_case:w \pdftex_strcmp:D { } {#1} \exp_stop_f:
\prg_return_true:
\else:
- \if_int_compare:w \pdftex_strcmp:D { \c_space_tl } {#1} = \c_zero
+ \if_case:w \pdftex_strcmp:D { ~ } {#1} \exp_stop_f:
\prg_return_true: \else: \prg_return_false: \fi:
\fi:
}
-\prg_new_conditional:Npnn \xeCJK_if_package_loaded:n #1 { p , T , F , TF }
- {
- \tl_if_exist:cTF { ver@ #1 . \c__xeCJK_package_ext_tl }
- { \prg_return_true: }
- { \prg_return_false: }
- }
-\tl_const:Nx \c__xeCJK_package_ext_tl { \@pkgextension }
\cs_new_protected:Npn \xeCJK_int_until_do:nn #1#2
{ \__xeCJK_int_until_do:wn \use_none:n { \reverse_if:N \if_int_compare:w #1#2 } }
\cs_new_protected:Npn \__xeCJK_int_until_do:wn \use_none:n #1
{ #1 \exp_after:wN \__xeCJK_int_until_do:wn \fi: \use_none:n {#1} }
+\cs_new_protected:Npn \xeCJK_peek_catcode_ignore_spaces:NTF #1#2#3
+ {
+ \cs_set_eq:NN \l__peek_search_token #1 \scan_stop:
+ \tl_set:Nn \__xeCJK_peek_catcode_true:w { \group_align_safe_end: #2 }
+ \tl_set:Nn \__xeCJK_peek_catcode_false:w { \group_align_safe_end: #3 }
+ \bool_set_false:N \l__xeCJK_peek_ignore_spaces_bool
+ \group_align_safe_begin:
+ \peek_after:Nw \__xeCJK_peek_catcode_ignore_spaces_branches:w
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_peek_catcode_ignore_spaces_branches:w
+ {
+ \if_meaning:w \l_peek_token \c_space_token
+ \bool_set_true:N \l__xeCJK_peek_ignore_spaces_bool
+ \exp_after:wN \peek_after:Nw
+ \exp_after:wN \__xeCJK_peek_catcode_ignore_spaces_branches:w
+ \tex_romannumeral:D 0
+ \else:
+ \if_catcode:w
+ \exp_not:N \l_peek_token \exp_not:N \l__peek_search_token
+ \exp_after:wN \exp_after:wN
+ \exp_after:wN \__xeCJK_peek_catcode_true:w
+ \else:
+ \exp_after:wN \exp_after:wN
+ \exp_after:wN \__xeCJK_peek_catcode_false:w
+ \fi:
+ \fi:
+ }
+\bool_new:N \l__xeCJK_peek_ignore_spaces_bool
+\cs_new_protected:Npn \xeCJK_peek_after_ignore_spaces:nw #1
+ {
+ \tl_set:Nn \__xeCJK_peek_after_do:w { \group_align_safe_end: #1 }
+ \group_align_safe_begin:
+ \peek_after:Nw \__xeCJK_peek_ignore_spaces_branches:w
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_peek_ignore_spaces_branches:w
+ {
+ \if_meaning:w \l_peek_token \c_space_token
+ \exp_after:wN \peek_after:Nw
+ \exp_after:wN \__xeCJK_peek_ignore_spaces_branches:w
+ \tex_romannumeral:D 0
+ \else:
+ \exp_after:wN \__xeCJK_peek_after_do:w
+ \fi:
+ }
+\cs_new_nopar:Npn \xeCJK_token_value_class:N #1
+ { \XeTeXcharclass \xeCJK_token_value_charcode:N #1 }
+\cs_new_nopar:Npn \xeCJK_token_value_charcode:N #1
+ { \exp_after:wN \__xeCJK_token_value_charcode:w \token_to_meaning:N #1 \q_stop }
+\cs_new_nopar:Npn \__xeCJK_token_value_charcode:w #1 ~ #2 ~ #3 \q_stop { `#3 }
+\prg_new_conditional:Npnn \xeCJK_if_same_class:NN #1#2 { p , T , F , TF }
+ {
+ \if_int_compare:w
+ \xeCJK_token_value_class:N #1 = \xeCJK_token_value_class:N #2 \exp_stop_f:
+ \prg_return_true: \else: \prg_return_false: \fi:
+ }
\keys_define:nn { xeCJK / options }
{
xeCJKactive .choice: ,
@@ -187,18 +237,41 @@
\NewDocumentCommand \makexeCJKactive { } { \XeTeXinterchartokenstate = \c_one }
\NewDocumentCommand \makexeCJKinactive { } { \XeTeXinterchartokenstate = \c_zero }
\char_set_catcode_ignore:n { "FEFF }
-\int_const:Nn \c__xeCJK_Default_class_int { \c_zero }
-\int_const:Nn \c__xeCJK_CJK_class_int { \c_one }
-\int_const:Nn \c__xeCJK_FullLeft_class_int { \c_two }
-\int_const:Nn \c__xeCJK_FullRight_class_int { \c_three }
-\int_const:Nn \c__xeCJK_Boundary_class_int { \c_two_hundred_fifty_five }
+\seq_new:N \g__xeCJK_class_seq
+\seq_new:N \g__xeCJK_new_class_seq
\cs_new_protected_nopar:Npn \xeCJK_new_class:n #1
{
- \exp_args:Nc \newXeTeXintercharclass { c__xeCJK_#1_class_int }
- \clist_gclear_new:c { g__xeCJK_#1_range_clist }
- \seq_gput_right:Nv \g__xeCJK_class_seq { c__xeCJK_#1_class_int }
+ \int_if_exist:cTF { \__xeCJK_class_csname:n {#1} }
+ { \__xeCJK_error:nx { class-already-defined } {#1} }
+ {
+ \exp_args:Nc \newXeTeXintercharclass { \__xeCJK_class_csname:n {#1} }
+ \clist_new:c { g__xeCJK_#1_range_clist }
+ \seq_gput_right:Nn \g__xeCJK_class_seq {#1}
+ \seq_gput_right:Nv \g__xeCJK_new_class_seq { \__xeCJK_class_csname:n {#1} }
+ }
}
-\seq_new:N \g__xeCJK_class_seq
+\cs_new_protected_nopar:Npn \xeCJK_save_class:nn #1#2
+ {
+ \int_if_exist:cTF { \__xeCJK_class_csname:n {#1} }
+ { \__xeCJK_error:nx { class-already-defined } {#1} }
+ {
+ \int_const:cn { \__xeCJK_class_csname:n {#1} } {#2}
+ \clist_new:c { g__xeCJK_#1_range_clist }
+ \seq_gput_right:Nn \g__xeCJK_class_seq {#1}
+ }
+ }
+\cs_new_nopar:Npn \__xeCJK_class_csname:n #1 { c__xeCJK_#1_class_int }
+\cs_new_eq:cN { \__xeCJK_class_csname:n { Others } } \l__xeCJK_tmpa_int
+\__xeCJK_msg_new:nn { class-already-defined }
+ {
+ XeTeX~character~class~`#1'~has~been~already~defined.\\\\
+ Please~take~another~name. \\
+ }
+\xeCJK_save_class:nn { Default } { \c_zero }
+\xeCJK_save_class:nn { CJK } { \c_one }
+\xeCJK_save_class:nn { FullLeft } { \c_two }
+\xeCJK_save_class:nn { FullRight } { \c_three }
+\xeCJK_save_class:nn { Boundary } { \c_two_hundred_fifty_five }
\xeCJK_new_class:n { HalfLeft }
\xeCJK_new_class:n { HalfRight }
\xeCJK_new_class:n { NormalSpace }
@@ -263,30 +336,23 @@
"2F800 -> "2FA1F
}
\seq_new:N \g__xeCJK_base_class_seq
-\seq_gset_split:Nnn \g__xeCJK_base_class_seq { , }
- {
- Default , CJK , FullLeft , FullRight , Boundary ,
- HalfLeft , HalfRight , NormalSpace
- }
-\seq_map_inline:Nn \g__xeCJK_base_class_seq
- { \clist_gclear_new:c { g__xeCJK_#1_range_clist } }
+\seq_gset_eq:NN \g__xeCJK_base_class_seq \g__xeCJK_class_seq
+\seq_new:N \g__xeCJK_non_CJK_class_seq
+\seq_gset_from_clist:Nn \g__xeCJK_non_CJK_class_seq
+ { Default , HalfLeft , HalfRight , NormalSpace , Boundary }
\seq_new:N \g__xeCJK_CJK_class_seq
\prop_new:N \g__xeCJK_CJK_class_prop
\cs_new_protected_nopar:Npn \__xeCJK_save_CJK_class:n #1
{
\seq_gput_right:Nn \g__xeCJK_CJK_class_seq {#1}
- \prop_gput:Nvn \g__xeCJK_CJK_class_prop { c__xeCJK_#1_class_int } {#1}
+ \prop_gput:Nvn \g__xeCJK_CJK_class_prop { \__xeCJK_class_csname:n {#1} } {#1}
+ \tl_gput_right:Nx \g__xeCJK_check_single_CJK_case_tl
+ { { \exp_not:c { \__xeCJK_class_csname:n {#1} } } { \exp_not:N \use_ii:nn } }
}
+\tl_new:N \g__xeCJK_check_single_CJK_case_tl
\cs_generate_variant:Nn \prop_gput:Nnn { Nvn }
\clist_map_function:nN { CJK , FullLeft , FullRight } \__xeCJK_save_CJK_class:n
-\cs_new_nopar:Npn \xeCJK_class_num:n #1 { \use:c { c__xeCJK_#1_class_int } }
-\cs_new_nopar:Npn \xeCJK_value_class:n #1
- { \XeTeXcharclass \etex_numexpr:D #1 \scan_stop: }
-\prg_new_conditional:Npnn \xeCJK_if_same_class:NN #1#2 { p , T , F , TF }
- {
- \if_int_compare:w \xeCJK_value_class:n {`#1} = \xeCJK_value_class:n {`#2}
- \prg_return_true: \else: \prg_return_false: \fi:
- }
+\cs_new_nopar:Npn \xeCJK_class_num:n #1 { \use:c { \__xeCJK_class_csname:n {#1} } }
\NewDocumentCommand \xeCJKDeclareCharClass { s > { \TrimSpaces } m m }
{
\xeCJK_declare_char_class:nx {#2} {#3}
@@ -310,16 +376,12 @@
{ m > { \SplitArgument { 1 } { -> } } m } { #1 #2 }
\cs_generate_variant:Nn \clist_gconcat:NNN { cc }
\cs_generate_variant:Nn \xeCJK_declare_char_class:nn { nx , nV }
-\NewDocumentCommand \xeCJKsetcharclass { s m m m }
- {
- \xeCJK_set_char_class:nnn {#2} {#3} {#4}
- \IfBooleanF {#1} { \xeCJKResetPunctClass }
- }
-\cs_new_protected_nopar:Npn \xeCJK_set_char_class:nnn #1#2#3
+\cs_new_protected_nopar:Npn \__xeCJK_set_char_class_catcode:nnn #1#2#3
{
\__xeCJK_check_num_range:nnNN {#1} {#2} \l__xeCJK_tmpa_int \l__xeCJK_tmpb_int
\int_set:Nn \l__xeCJK_tmpc_int {#3}
- \prop_get:NVNTF \g__xeCJK_CJK_class_prop \l__xeCJK_tmpc_int \l__xeCJK_tmpa_tl
+ \int_compare:nNnTF
+ { \use:c { \__xeCJK_class_csname:n { CJK } } } = \l__xeCJK_tmpc_int
{ \cs_set_eq:NN \__xeCJK_set_char_catcode:n \char_set_catcode_other:n }
{ \cs_set_eq:NN \__xeCJK_set_char_catcode:n \use_none:n }
\xeCJK_int_until_do:nn { \l__xeCJK_tmpa_int > \l__xeCJK_tmpb_int }
@@ -329,6 +391,16 @@
\int_incr:N \l__xeCJK_tmpa_int
}
}
+\cs_new_protected_nopar:Npn \__xeCJK_set_char_class:nnn #1#2#3
+ {
+ \__xeCJK_check_num_range:nnNN {#1} {#2} \l__xeCJK_tmpa_int \l__xeCJK_tmpb_int
+ \int_set:Nn \l__xeCJK_tmpc_int {#3}
+ \xeCJK_int_until_do:nn { \l__xeCJK_tmpa_int > \l__xeCJK_tmpb_int }
+ {
+ \XeTeXcharclass \l__xeCJK_tmpa_int = \l__xeCJK_tmpc_int
+ \int_incr:N \l__xeCJK_tmpa_int
+ }
+ }
\cs_new_protected_nopar:Npn \__xeCJK_check_num_range:nnNN #1#2#3#4
{
\bool_if:nTF { \xeCJK_if_blank_x_p:n {#1} || \xeCJK_if_blank_x_p:n {#2} }
@@ -341,18 +413,20 @@
\int_set:Nn #4 { \int_max:nn {#1} { \IfNoValueTF {#2} {#1} {#2} } }
}
}
+\cs_new_eq:NN \xeCJK_set_char_class:nnn \__xeCJK_set_char_class_catcode:nnn
+\AtEndOfPackage
+ { \cs_set_eq:NN \xeCJK_set_char_class:nnn \__xeCJK_set_char_class:nnn }
\cs_new_protected_nopar:Npn \__xeCJK_set_char_class_eq:nn #1#2
{
- \int_set:Nn \l__xeCJK_tmpa_int { \xeCJK_class_num:n {#1} }
- \clist_map_inline:cn { c__xeCJK_#2_chars_clist }
+ \int_set:Nn \l__xeCJK_tmpa_int { \xeCJK_class_num:n {#2} }
+ \clist_map_inline:cn { c__xeCJK_#1_chars_clist }
{ \XeTeXcharclass ##1 = \l__xeCJK_tmpa_int }
}
\NewDocumentCommand \normalspacedchars { m }
{
- \tl_map_inline:xn {#1}
+ \tl_map_inline:nn {#1}
{ \XeTeXcharclass `##1 = \xeCJK_class_num:n { NormalSpace } }
}
-\cs_generate_variant:Nn \tl_map_inline:nn { x }
\NewDocumentCommand \xeCJKResetPunctClass { }
{
\xeCJK_declare_char_class:nV { HalfLeft } \c__xeCJK_HalfLeft_chars_clist
@@ -369,7 +443,7 @@
\xeCJKResetCharClass
\cs_new_protected_nopar:Npn \xeCJK_inter_class_toks:nnn #1#2#3
{ \XeTeXinterchartoks \xeCJK_class_num:n {#1} ~ \xeCJK_class_num:n {#2} = {#3} }
-\cs_generate_variant:Nn \xeCJK_inter_class_toks:nnn { nnc , nnx }
+\cs_generate_variant:Nn \xeCJK_inter_class_toks:nnn { nnc , nnv , nnx }
\cs_new_nopar:Npn \xeCJK_get_inter_class_toks:nn #1#2
{ \tex_the:D \XeTeXinterchartoks \xeCJK_class_num:n {#1} ~ \xeCJK_class_num:n {#2} }
\cs_new_protected_nopar:Npn \xeCJK_clear_inter_class_toks:nn #1#2
@@ -405,20 +479,15 @@
\cs_new_eq:NN \xeCJK_class_group_end: \c_group_end_token
\clist_map_inline:nn { Default , HalfLeft , HalfRight , NormalSpace }
{
- \clist_map_inline:nn { CJK , FullLeft , FullRight }
+ \xeCJK_inter_class_toks:nnn {#1} { CJK }
{
- \xeCJK_inter_class_toks:nnn {#1} {##1}
- {
- \xeCJK_class_group_begin:
- \xeCJK_select_font:
- \xeCJK_clear_inter_class_toks:nn {#1} {##1}
- \xeCJK_clear_Boundary_and_CJK_toks:
- }
- \xeCJK_inter_class_toks:nnn {##1} {#1} { \xeCJK_class_group_end: }
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_inter_class_toks:nn {#1} { CJK }
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \CJKsymbol
}
- \xeCJK_app_inter_class_toks:nnn {#1} { CJK } { \CJKsymbol }
- \clist_map_inline:nn { FullLeft , FullRight }
- { \xeCJK_app_inter_class_toks:nnc {#1} {##1} { xeCJK_CJK_and_##1:N } }
+ \xeCJK_inter_class_toks:nnn { CJK } {#1} { \xeCJK_class_group_end: }
}
\clist_map_inline:nn { Default , HalfLeft , NormalSpace }
{
@@ -436,7 +505,7 @@
\xeCJK_if_last_node_p:n { CJK } ||
\xeCJK_if_last_node_p:n { CJK-space }
}
- { \CJKecglue } { \c_space_token }
+ { \CJKecglue } { ~ }
}
{
\xeCJK_if_last_node:nTF { CJK } { \CJKecglue }
@@ -450,8 +519,8 @@
{
\xeCJK_inter_class_toks:nnn {#1} { Boundary }
{
- \peek_meaning_remove:NTF \/
- { \/ { \xeCJK_make_node:n { default } } }
+ \peek_meaning_remove:NTF \tex_italiccorrection:D
+ { \tex_italiccorrection:D { \xeCJK_make_node:n { default } } }
{
\token_if_space:NTF \l_peek_token
{ { \xeCJK_make_node:n { default-space } } }
@@ -463,7 +532,7 @@
}
\xeCJK_inter_class_toks:nnn { Boundary } { CJK }
{
- { \xeCJK_check_for_glue: }
+ \xeCJK_check_for_glue:
\xeCJK_class_group_begin:
\xeCJK_clear_Boundary_and_CJK_toks:
\xeCJK_select_font:
@@ -503,8 +572,8 @@
\xeCJK_if_last_node_p:n { CJK } ||
\xeCJK_if_last_node_p:n { CJK-space }
}
- { \bool_if:NTF \l__xeCJK_reserve_space_bool \c_space_token \CJKglue }
- { \c_space_token }
+ { \bool_if:NTF \l__xeCJK_reserve_space_bool { ~ } { \CJKglue } }
+ { ~ }
}
}
}
@@ -531,13 +600,20 @@
\xeCJK_def_node:nn { default } { 13 sp }
\xeCJK_def_node:nn { default-space } { 14 sp }
\keys_define:nn { xeCJK / options }
- { CJKglue .code:n = { \cs_set_protected:Npn \CJKglue {#1} } }
+ {
+ CJKglue .code:n =
+ {
+ \cs_set_protected_nopar:Npn \CJKglue {#1}
+ \xeCJK_glue_to_skip:nN {#1} \l__xeCJK_ccglue_skip
+ }
+ }
+\skip_new:N \l__xeCJK_ccglue_skip
\keys_define:nn { xeCJK / options }
{
CJKecglue .code:n =
{
- \cs_set_protected:Npn \CJKecglue {#1}
- \xeCJK_glue_to_skip:nN \CJKecglue \l__xeCJK_ecglue_skip
+ \cs_set_protected_nopar:Npn \CJKecglue {#1}
+ \xeCJK_glue_to_skip:nN {#1} \l__xeCJK_ecglue_skip
} ,
xCJKecglue .choice: ,
xCJKecglue / true .code:n =
@@ -548,13 +624,13 @@
xCJKecglue / false .code:n =
{
\bool_set_false:N \l__xeCJK_xecglue_bool
- \cs_set_eq:NN \__xeCJK_space_or_xecglue: \c_space_token
+ \cs_set_eq:NN \__xeCJK_space_or_xecglue: \c_space_tl
} ,
xCJKecglue / unknown .code:n =
{
\bool_set_true:N \l__xeCJK_xecglue_bool
- \cs_set_protected:Npn \CJKecglue {#1}
- \xeCJK_glue_to_skip:nN \CJKecglue \l__xeCJK_ecglue_skip
+ \cs_set_protected_nopar:Npn \CJKecglue {#1}
+ \xeCJK_glue_to_skip:nN {#1} \l__xeCJK_ecglue_skip
\cs_set_eq:NN \__xeCJK_space_or_xecglue: \CJKecglue
} ,
xCJKecglue .default:n = { true }
@@ -575,13 +651,16 @@
}
\cs_new_protected_nopar:Npn \xeCJK_ignore_spaces:w
{
- \peek_catcode:NTF \c_space_token
+ \xeCJK_peek_catcode_ignore_spaces:NTF \c_math_toggle_token
+ {
+ \bool_if:NTF \l__xeCJK_peek_ignore_spaces_bool
+ { \__xeCJK_space_or_xecglue: } { \CJKecglue }
+ }
{
- \xeCJK_if_last_node:nT { CJK }
- { \tex_unkern:D \tex_unkern:D { \xeCJK_make_node:n { CJK-space } } }
- \peek_catcode_ignore_spaces:NTF \c_math_toggle_token
- { \__xeCJK_space_or_xecglue: }
+ \bool_if:NTF \l__xeCJK_peek_ignore_spaces_bool
{
+ \tex_unkern:D \tex_unkern:D
+ { \xeCJK_make_node:n { CJK-space } }
\bool_if:nT
{
\token_if_macro_p:N \l_peek_token ||
@@ -590,41 +669,33 @@
}
{ \__xeCJK_space_or_xecglue: }
}
- }
- {
- \token_if_math_toggle:NTF \l_peek_token
- { \CJKecglue }
{ \cs_if_exist:NF \l_peek_token \exp_not:N }
}
}
-\cs_new_eq:NN \xeCJK_ignorespaces: \xeCJK_ignore_spaces:w
\xeCJK_inter_class_toks:nnn { CJK } { CJK } { \xeCJK_CJK_and_CJK:N }
\cs_new_protected_nopar:Npn \xeCJK_CJK_and_CJK:N #1 { \CJKglue \CJKsymbol {#1} }
-\clist_map_inline:nn { FullLeft , FullRight }
+\xeCJK_inter_class_toks:nnn { FullLeft } { CJK }
+ { \xeCJK_FullLeft_and_CJK: \CJKsymbol }
+\xeCJK_inter_class_toks:nnn { FullRight } { CJK }
+ { \xeCJK_FullRight_and_CJK: \CJKsymbol }
+\seq_map_inline:Nn \g__xeCJK_non_CJK_class_seq
{
- \xeCJK_inter_class_toks:nnn { Boundary } {#1}
+ \clist_map_inline:nn { FullLeft , FullRight }
{
- \xeCJK_class_group_begin:
- \xeCJK_clear_Boundary_and_CJK_toks:
- \xeCJK_select_font:
- \use:c { xeCJK_CJK_and_#1:N }
+ \xeCJK_inter_class_toks:nnx {#1} {##1}
+ { \exp_not:c { xeCJK_Default_and_##1:nN } {#1} }
+ \xeCJK_inter_class_toks:nnc {##1} {#1} { xeCJK_##1_and_Default: }
}
}
-\xeCJK_inter_class_toks:nnn { FullLeft } { Boundary }
- { \xeCJK_class_group_end: \tex_ignorespaces:D }
+\xeCJK_inter_class_toks:nnn { Boundary } { FullLeft }
+ { \xeCJK_Boundary_and_FullLeft:N }
+\xeCJK_inter_class_toks:nnn { Boundary } { FullRight }
+ { \xeCJK_Boundary_and_FullRight:N }
+\xeCJK_app_inter_class_toks:nnn { FullLeft } { Boundary } { \tex_ignorespaces:D }
\xeCJK_inter_class_toks:nnn { FullRight } { Boundary }
- { \xeCJK_class_group_end: \CJKglue \tex_ignorespaces:D }
-\xeCJK_inter_class_toks:nnn { FullLeft } { CJK } { \CJKsymbol }
-\xeCJK_inter_class_toks:nnn { FullRight } { CJK } { \CJKglue \CJKsymbol }
-\seq_map_inline:Nn \g__xeCJK_base_class_seq
- {
- \bool_if:nF
- { \str_if_eq_p:nn {#1} { FullLeft } || \str_if_eq_p:nn {#1} { FullRight } }
- {
- \xeCJK_pre_inter_class_toks:nnn { FullLeft } {#1} { \xeCJK_after_FullLeft: }
- \xeCJK_pre_inter_class_toks:nnn { FullRight } {#1} { \xeCJK_after_FullRight: }
- }
- }
+ { \xeCJK_FullRight_and_Boundary: }
+\cs_new_protected_nopar:Npn \xeCJK_FullRight_and_Boundary:
+ { \xeCJK_FullRight_and_Default: \tex_ignorespaces:D }
\clist_map_inline:nn { CJK , FullLeft , FullRight }
{
\clist_map_inline:nn { FullLeft , FullRight }
@@ -639,58 +710,133 @@
}
\cs_new_protected_nopar:Npn \__xeCJK_punct_glue:NN #1#2
{
- \skip_horizontal:n
+ \__xeCJK_punct_hskip:n
{
\__xeCJK_use_punct_dim:nnn { glue } {#1} {#2}
minus \dim_eval:n { ( \__xeCJK_use_punct_dim:nnn { glue } {#1} {#2} ) / \c_two }
}
}
+\cs_new_eq:NN \__xeCJK_punct_hskip:n \skip_horizontal:n
\cs_new_protected_nopar:Npn \__xeCJK_punct_kern:NN #1#2
{ \tex_kern:D \__xeCJK_use_punct_dim:nnn { kern } {#1} {#2} }
\tl_new:N \g__xeCJK_last_punct_tl
-\cs_new_protected_nopar:Npn \xeCJK_after_FullLeft:
+\cs_new_protected_nopar:Npn \xeCJK_FullLeft_and_CJK:
{
- \xeCJK_no_break:
- \__xeCJK_punct_if_middle:NT \g__xeCJK_last_punct_tl
+ \__xeCJK_punct_if_middle:NTF \g__xeCJK_last_punct_tl
{
- \xeCJK_get_punct_bounds:NN \c__xeCJK_left_tl \g__xeCJK_last_punct_tl
- \__xeCJK_punct_glue:NN \c__xeCJK_left_tl \g__xeCJK_last_punct_tl
\__xeCJK_punct_rule:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
\xeCJK_no_break:
+ \__xeCJK_punct_glue:NN \c__xeCJK_left_tl \g__xeCJK_last_punct_tl
}
+ { \xeCJK_no_break: }
}
-\cs_new_protected_nopar:Npn \xeCJK_after_FullRight:
+\cs_new_protected_nopar:Npn \xeCJK_FullLeft_and_Default:
+ {
+ \__xeCJK_punct_if_middle:NTF \g__xeCJK_last_punct_tl
+ {
+ \__xeCJK_punct_rule:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \xeCJK_class_group_end: \xeCJK_no_break:
+ \__xeCJK_punct_glue:NN \c__xeCJK_left_tl \g__xeCJK_last_punct_tl
+ }
+ { \xeCJK_class_group_end: \xeCJK_no_break: }
+ }
+\cs_new_protected_nopar:Npn \xeCJK_FullRight_and_CJK:
{
- \xeCJK_get_punct_bounds:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
\__xeCJK_punct_rule:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
\__xeCJK_punct_glue:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \CJKglue
+ }
+\cs_new_protected_nopar:Npn \xeCJK_FullRight_and_Default:
+ {
+ \__xeCJK_punct_rule:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \xeCJK_class_group_end:
+ \__xeCJK_punct_glue:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ }
+\cs_new_protected_nopar:Npn \xeCJK_Default_and_FullLeft:nN #1#2
+ {
+ \xeCJK_get_punct_bounds:NN \c__xeCJK_left_tl {#2}
+ \__xeCJK_Default_and_FullLeft_glue:N {#2}
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_inter_class_toks:nn {#1} { FullLeft }
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \tl_gset:Nx \g__xeCJK_last_punct_tl {#2}
+ \__xeCJK_punct_rule:NN \c__xeCJK_left_tl {#2}
+ \CJKpunctsymbol {#2}
}
+\cs_new_protected_nopar:Npn \__xeCJK_Default_and_FullLeft_glue:N #1
+ { \__xeCJK_punct_glue:NN \c__xeCJK_left_tl {#1} }
\cs_new_protected_nopar:Npn \xeCJK_CJK_and_FullLeft:N #1
{
\xeCJK_get_punct_bounds:NN \c__xeCJK_left_tl {#1}
- \int_compare:nNnF \etex_lastnodetype:D = \c_one
- { \__xeCJK_CJK_FullLeft_glue: \__xeCJK_punct_glue:NN \c__xeCJK_left_tl {#1} }
+ \__xeCJK_CJK_and_FullLeft_glue:N {#1}
+ \tl_gset:Nx \g__xeCJK_last_punct_tl {#1}
+ \__xeCJK_punct_rule:NN \c__xeCJK_left_tl {#1}
+ \CJKpunctsymbol {#1}
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_CJK_and_FullLeft_glue:N #1
+ { \CJKglue \__xeCJK_punct_glue:NN \c__xeCJK_left_tl {#1} }
+\cs_new_protected_nopar:Npn \xeCJK_Boundary_and_FullLeft:N #1
+ {
+ \xeCJK_get_punct_bounds:NN \c__xeCJK_left_tl {#1}
+ \__xeCJK_Boundary_and_FullLeft_glue:N {#1}
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_Boundary_and_CJK_toks:
\tl_gset:Nx \g__xeCJK_last_punct_tl {#1}
\__xeCJK_punct_rule:NN \c__xeCJK_left_tl {#1}
\CJKpunctsymbol {#1}
}
-\cs_new_protected_nopar:Npn \__xeCJK_CJK_FullLeft_glue: { \CJKglue }
+\cs_new_protected_nopar:Npn \__xeCJK_Boundary_and_FullLeft_glue:N #1
+ {
+ \int_compare:nNnF \etex_lastnodetype:D = \c_one
+ { \__xeCJK_punct_glue:NN \c__xeCJK_left_tl {#1} }
+ }
+\cs_new_protected_nopar:Npn \xeCJK_Default_and_FullRight:nN #1#2
+ {
+ \xeCJK_get_punct_bounds:NN \c__xeCJK_right_tl {#2}
+ \__xeCJK_Default_and_FullRight_glue:N {#2}
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_inter_class_toks:nn {#1} { FullRight }
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \tl_gset:Nx \g__xeCJK_last_punct_tl {#2}
+ \__xeCJK_punct_if_middle:NT {#2}
+ { \__xeCJK_punct_rule:NN \c__xeCJK_left_tl {#2} }
+ \xeCJK_FullRight_symbol:N {#2}
+ }
+\cs_new_protected_nopar:Npn \xeCJK_Boundary_and_FullRight:N #1
+ {
+ \xeCJK_get_punct_bounds:NN \c__xeCJK_right_tl {#1}
+ \__xeCJK_Default_and_FullRight_glue:N {#1}
+ \xeCJK_class_group_begin:
+ \xeCJK_select_font:
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \tl_gset:Nx \g__xeCJK_last_punct_tl {#1}
+ \__xeCJK_punct_if_middle:NT {#1}
+ { \__xeCJK_punct_rule:NN \c__xeCJK_left_tl {#1} }
+ \xeCJK_FullRight_symbol:N {#1}
+ }
\cs_new_protected_nopar:Npn \xeCJK_CJK_and_FullRight:N #1
{
\xeCJK_get_punct_bounds:NN \c__xeCJK_right_tl {#1}
+ \__xeCJK_CJK_and_FullRight_glue:N {#1}
+ \tl_gset:Nx \g__xeCJK_last_punct_tl {#1}
+ \__xeCJK_punct_if_middle:NT {#1}
+ { \__xeCJK_punct_rule:NN \c__xeCJK_left_tl {#1} }
+ \xeCJK_FullRight_symbol:N {#1}
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_CJK_and_FullRight_glue:N #1
+ {
\__xeCJK_punct_if_long:NTF {#1}
{ \CJKglue }
{
- \xeCJK_no_break:
- \__xeCJK_punct_if_middle:NT {#1}
- {
- \__xeCJK_punct_glue:NN \c__xeCJK_right_tl {#1}
- \__xeCJK_punct_rule:NN \c__xeCJK_left_tl {#1}
- }
+ \__xeCJK_punct_if_middle:NTF {#1}
+ { \xeCJK_no_break: \__xeCJK_punct_glue:NN \c__xeCJK_right_tl {#1} }
+ { \xeCJK_no_break: }
}
- \tl_gset:Nx \g__xeCJK_last_punct_tl {#1}
- \CJKpunctsymbol {#1}
}
+\cs_new_eq:NN \__xeCJK_Default_and_FullRight_glue:N \__xeCJK_CJK_and_FullRight_glue:N
\cs_new_protected_nopar:Npn \xeCJK_FullLeft_and_FullLeft:N #1
{
\xeCJK_no_break:
@@ -708,7 +854,7 @@
\__xeCJK_punct_kern:NN \g__xeCJK_last_punct_tl {#1}
\tl_gset:Nx \g__xeCJK_last_punct_tl {#1}
\xeCJK_no_break:
- \CJKpunctsymbol {#1}
+ \xeCJK_FullRight_symbol:N {#1}
}
\cs_new_protected_nopar:Npn \xeCJK_FullRight_and_FullLeft:N #1
{
@@ -726,38 +872,115 @@
\__xeCJK_punct_kern:NN \g__xeCJK_last_punct_tl {#1}
\tl_gset:Nx \g__xeCJK_last_punct_tl {#1}
\xeCJK_no_break:
- \CJKpunctsymbol {#1}
+ \xeCJK_FullRight_symbol:N {#1}
}
\keys_define:nn { xeCJK / options }
{
- CheckSingle .choice: ,
- CheckSingle / true .code:n = { \xeCJKenablechecksingle } ,
- CheckSingle / false .code:n = { \xeCJKdisablechecksingle } ,
- CheckSingle .default:n = { true } ,
- CJKchecksingle .meta:n = { CheckSingle = true }
+ CheckFullRight .choice: ,
+ CheckFullRight / true .code:n =
+ {
+ \cs_if_eq:NNF \xeCJK_FullRight_and_Boundary: \xeCJK_check_FullRight:
+ {
+ \cs_set_eq:NN \__xeCJK_save_FullRight_check: \xeCJK_FullRight_and_Boundary:
+ \cs_set_eq:NN \__xeCJK_save_FullRight_symbol:N \xeCJK_FullRight_symbol:N
+ \cs_set_eq:NN \xeCJK_FullRight_and_Boundary: \xeCJK_check_FullRight:
+ \cs_set_eq:NN \xeCJK_FullRight_symbol:N \xeCJK_check_FullRight_symbol:Nw
+ }
+ } ,
+ CheckFullRight / false .code:n =
+ {
+ \cs_if_eq:NNT \xeCJK_FullRight_and_Boundary: \xeCJK_check_FullRight:
+ {
+ \cs_set_eq:NN \xeCJK_FullRight_and_Boundary: \__xeCJK_save_FullRight_check:
+ \cs_set_eq:NN \xeCJK_FullRight_symbol:N \__xeCJK_save_FullRight_symbol:N
+ }
+ } ,
+ CheckFullRight .default:n = { true }
}
-\bool_new:N \l__xeCJK_check_single_bool
-\NewDocumentCommand \xeCJKenablechecksingle { }
+\cs_new_nopar:Npn \xeCJK_FullRight_symbol:N { \CJKpunctsymbol }
+\cs_new_protected_nopar:Npn \xeCJK_check_FullRight:
{
- \bool_if:NF \l__xeCJK_check_single_bool
+ \xeCJK_get_punct_bounds:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \__xeCJK_punct_rule:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \tl_case:Non \l_peek_token { \l__xeCJK_no_break_cs_case_tl } { }
+ \__xeCJK_punct_glue:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \xeCJK_class_group_end:
+ }
+\cs_generate_variant:Nn \tl_case:Nnn { No }
+\cs_new_protected_nopar:Npn \xeCJK_check_FullRight_symbol:Nw #1
+ { \xeCJK_peek_after_ignore_spaces:nw { \__xeCJK_save_FullRight_symbol:N {#1} } }
+\cs_new_protected:Npn \xeCJK_cs_case_keys_define:nNNnn #1#2#3#4#5
+ {
+ \tl_new:N #2
+ \seq_new:N #3
+ \keys_define:nn { xeCJK / options }
{
- \bool_set_true:N \l__xeCJK_check_single_bool
- \cs_set_eq:NN \__xeCJK_check_single_save:N \xeCJK_CJK_and_CJK:N
- \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \xeCJK_check_single:Nw
+ #1 .code:n =
+ {
+ \seq_set_split:Nnn #3 { } {##1}
+ \__xeCJK_update_cs_case_tl:NNnn #2#3 {#4} {#5}
+ } ,
+ #1+ .code:n =
+ {
+ \tl_map_inline:nn {##1}
+ { \seq_if_in:NnF #2 {####1} { \seq_put_right:Nn #3 {####1} } }
+ \__xeCJK_update_cs_case_tl:NNnn #2#3 {#4} {#5}
+ } ,
+ #1- .code:n =
+ {
+ \tl_map_inline:nn {##1} { \seq_remove_all:Nn #3 {####1} }
+ \__xeCJK_update_cs_case_tl:NNnn #2#3 {#4} {#5}
+ }
}
}
-\NewDocumentCommand \xeCJKdisablechecksingle { }
+\cs_new_protected:Npn \__xeCJK_update_cs_case_tl:NNnn #1#2#3#4
{
- \bool_if:NT \l__xeCJK_check_single_bool
+ \tl_clear:N #1
+ \seq_map_inline:Nn #2 { \tl_put_right:Nn #1 { {##1} {#3} } }
+ #4
+ }
+\xeCJK_cs_case_keys_define:nNNnn { NoBreakCS }
+ \l__xeCJK_no_break_cs_case_tl \l__xeCJK_no_break_cs_seq { \xeCJK_no_break: } { }
+\NewDocumentCommand \xeCJKnobreak { }
+ {
+ \int_zero:N \l__xeCJK_tmpa_int
+ \int_while_do:nNnn \etex_lastnodetype:D = \c_eleven
{
- \bool_set_false:N \l__xeCJK_check_single_bool
- \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \__xeCJK_check_single_save:N
+ \int_if_even:nTF \l__xeCJK_tmpa_int
+ {
+ \int_incr:N \l__xeCJK_tmpa_int
+ \skip_set_eq:NN \l__xeCJK_tmp_skip \tex_lastskip:D
+ }
+ { \skip_add:Nn \l__xeCJK_tmp_skip \tex_lastskip:D }
+ \tex_unskip:D
}
+ \xeCJK_no_break:
+ \int_if_even:nF \l__xeCJK_tmpa_int
+ { \skip_horizontal:N \l__xeCJK_tmp_skip }
+ }
+\keys_define:nn { xeCJK / options }
+ {
+ CheckSingle .choice: ,
+ CheckSingle / true .code:n =
+ {
+ \cs_if_eq:NNF \xeCJK_CJK_and_CJK:N \xeCJK_check_single:Nw
+ {
+ \cs_set_eq:NN \__xeCJK_check_single_save:N \xeCJK_CJK_and_CJK:N
+ \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \xeCJK_check_single:Nw
+ }
+ } ,
+ CheckSingle / false .code:n =
+ {
+ \cs_if_eq:NNT \xeCJK_CJK_and_CJK:N \xeCJK_check_single:Nw
+ { \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \__xeCJK_check_single_save:N }
+ } ,
+ CheckSingle .default:n = { true } ,
+ CJKchecksingle .meta:n = { CheckSingle = true }
}
\cs_new_protected_nopar:Npn \xeCJK_check_single:Nw #1
{
\peek_catcode:NTF \c_catcode_other_token
- { \xeCJK_check_single:NNw {#1} }
+ { \xeCJK_check_single:NNw #1 }
{
\bool_if:nTF
{
@@ -765,91 +988,138 @@
\exp_args:No \tl_if_single_token_p:n \l_peek_token &&
\exp_after:wN \token_if_other_p:N \l_peek_token
}
- { \xeCJK_check_single:NNw {#1} }
- { \__xeCJK_check_single_save:N {#1} }
+ { \exp_after:wN \xeCJK_check_single:NNw \exp_after:wN #1 }
+ { \__xeCJK_check_single_save:N #1 }
}
}
\cs_new_protected_nopar:Npn \xeCJK_check_single:NNw #1#2
{
- \peek_catcode:NTF \c_catcode_other_token
- { \__xeCJK_check_single_save:N {#1} #2 }
+ \xeCJK_peek_catcode_ignore_spaces:NTF \c_catcode_other_token
{
- \bool_if:nTF
+ \bool_if:NTF \l__xeCJK_peek_ignore_spaces_bool
+ { \__xeCJK_check_single_space:NN #1#2 }
+ { \__xeCJK_check_single_save:N #1 #2 }
+ }
+ {
+ \group_align_safe_begin:
+ \token_if_cs:NTF \l_peek_token
{
- \token_if_space_p:N \l_peek_token ||
- \token_if_math_toggle_p:N \l_peek_token ||
- \token_if_cs_p:N \l_peek_token
+ \group_align_safe_end:
+ \bool_if:NTF \l__xeCJK_peek_ignore_spaces_bool
+ { \xeCJK_check_single_cs:NNn #1#2 { ~ } }
+ { \xeCJK_check_single_cs:NNn #1#2 { } }
}
{
- \bool_if:nTF { \token_if_space_p:N \l_peek_token }
+ \group_align_safe_end:
+ \bool_if:nTF
{
- \peek_catcode_ignore_spaces:NTF \c_catcode_other_token
- { \__xeCJK_check_single_save:N {#1} #2 \c_space_token }
- {
- \bool_if:nTF
- {
- \token_if_math_toggle_p:N \l_peek_token ||
- \token_if_cs_p:N \l_peek_token
- }
- { \xeCJK_check_single:NNNw {#1} {#2} \c_space_token }
- { \__xeCJK_check_single_save:N {#1} #2 \c_space_token }
- }
+ \l__xeCJK_plain_equation_bool &&
+ \token_if_math_toggle_p:N \l_peek_token
+ }
+ {
+ \bool_if:NTF \l__xeCJK_peek_ignore_spaces_bool
+ { \xeCJK_check_single_equation:NNnNw #1 #2 { ~ } }
+ { \xeCJK_check_single_equation:NNnNw #1 #2 { } }
+ }
+ {
+ \bool_if:NTF \l__xeCJK_peek_ignore_spaces_bool
+ { \__xeCJK_check_single_save:N #1 #2 ~ }
+ { \__xeCJK_check_single_save:N #1 #2 }
}
- { \xeCJK_check_single:NNNw {#1} {#2} { } }
}
- { \__xeCJK_check_single_save:N {#1} #2 }
}
}
-\cs_new_protected_nopar:Npn \xeCJK_check_single:NNNw #1#2#3
+\cs_new_protected_nopar:Npn \__xeCJK_check_single_space:NN #1#2
{
- \bool_if:nTF
+ \int_case:non { \xeCJK_token_value_class:N #2 }
+ { \g__xeCJK_check_single_CJK_case_tl }
+ { \use_i:nn }
+ { \__xeCJK_check_single_save:N #1 #2 ~ }
{
- \token_if_eq_meaning_p:NN \l_peek_token \par ||
- \token_if_eq_meaning_p:NN \l_peek_token \[ % \]
+ \int_case:non { \xeCJK_token_value_class:N \l_peek_token }
+ { \g__xeCJK_check_single_CJK_case_tl }
+ { \use_i:nn }
+ { \__xeCJK_check_single_save:N #1 #2 ~ }
+ { \__xeCJK_check_single_save:N #1 #2 }
}
- { \CJKsymbol {#1} \xeCJK_no_break: #2 }
- { \xeCJK_check_single_env:NNNw {#1} {#2} {#3} }
}
-\cs_new_protected_nopar:Npn \xeCJK_check_single_env:NNNw #1#2#3
+\cs_generate_variant:Nn \int_case:nnn { no }
+\cs_new_protected_nopar:Npn \xeCJK_check_single_equation:NNnNw #1#2#3#4
{
- \peek_catcode_remove:NTF \c_math_toggle_token
+ \peek_catcode:NTF \c_math_toggle_token
{
- \peek_catcode:NTF \c_math_toggle_token
- { \CJKsymbol {#1} \xeCJK_no_break: #2 \c_math_toggle_token }
- { \__xeCJK_check_single_save:N {#1} #2#3 \c_math_toggle_token }
+ \xeCJK_no_break: \__xeCJK_check_single_save:N #1
+ \xeCJK_no_break: #2 #4
}
+ { \__xeCJK_check_single_save:N #1 #2#3#4 }
+ }
+\cs_new_protected_nopar:Npn \xeCJK_check_single_cs:NNn #1#2#3
+ {
+ \tl_case:Non \l_peek_token
+ { \l__xeCJK_check_single_cs_case_tl }
+ { \use_iii:nnn }
+ { \xeCJK_check_single_env:nnNn }
{
- \peek_meaning_remove:NTF \begin
- { \xeCJK_check_single_env:NNNNn {#1} {#2} {#3} \begin }
- {
- \peek_meaning_remove:NTF \end
- { \xeCJK_check_single_env:NNNNn {#1} {#2} {#3} \end }
- { \__xeCJK_check_single_save:N {#1} #2#3 }
- }
+ \xeCJK_no_break: \__xeCJK_check_single_save:N #1
+ \xeCJK_no_break: #2
}
+ { \__xeCJK_check_single_save:N #1 #2#3 }
+ }
+\tl_new:N \l__xeCJK_check_single_cs_case_tl
+\cs_new_protected_nopar:Npn \xeCJK_check_single_env:nnNn #1#2#3#4
+ {
+ \str_case_x:non {#4}
+ { \l__xeCJK_inline_env_case_tl }
+ { \use_i:nn }
+ {#1} {#2}
+ \scan_stop: #3 {#4}
}
-\cs_new_protected_nopar:Npn \xeCJK_check_single_env:NNNNn #1#2#3#4#5
+\cs_generate_variant:Nn \str_case_x:nnn { no }
+\xeCJK_cs_case_keys_define:nNNnn { NewLineCS }
+ \l__xeCJK_new_line_cs_case_tl \l__xeCJK_new_line_cs_seq { \use_ii:nnn }
{
- \clist_if_in:NnTF \g__xeCJK_inline_env_clist {#5}
- { \__xeCJK_check_single_save:N {#1} #2#3 }
- { \CJKsymbol {#1} \xeCJK_no_break: #2 }
- \scan_stop: #4 {#5}
+ \tl_concat:NNN \l__xeCJK_check_single_cs_case_tl
+ \l__xeCJK_new_line_cs_case_tl \l__xeCJK_env_cs_case_tl
+ }
+\xeCJK_cs_case_keys_define:nNNnn { EnvCS }
+ \l__xeCJK_env_cs_case_tl \l__xeCJK_env_cs_seq { \use:n }
+ {
+ \tl_concat:NNN \l__xeCJK_check_single_cs_case_tl
+ \l__xeCJK_new_line_cs_case_tl \l__xeCJK_env_cs_case_tl
}
\keys_define:nn { xeCJK / options }
{
- InlineEnv .clist_gset:N = \g__xeCJK_inline_env_clist ,
+ InlineEnv .code:n =
+ {
+ \seq_set_from_clist:Nn \l__xeCJK_inline_env_seq {#1}
+ \__xeCJK_update_inline_env_case_tl:
+ } ,
InlineEnv+ .code:n =
{
- \clist_gput_right:Nx \g__xeCJK_inline_env_clist {#1}
- \clist_gremove_duplicates:N \g__xeCJK_inline_env_clist
+ \clist_map_inline:nn {#1}
+ {
+ \seq_if_in:NnF \l__xeCJK_inline_env_seq {##1}
+ { \seq_put_right:Nn \l__xeCJK_inline_env_seq {##1} }
+ }
+ \__xeCJK_update_inline_env_case_tl:
} ,
InlineEnv- .code:n =
{
- \clist_map_inline:xn {#1}
- { \clist_gremove_all:Nn \g__xeCJK_inline_env_clist {##1} }
+ \clist_map_inline:nn {#1}
+ { \seq_remove_all:Nn \l__xeCJK_inline_env_seq {##1} }
+ \__xeCJK_update_inline_env_case_tl:
}
}
-\cs_generate_variant:Nn \clist_map_inline:nn { x }
+\seq_new:N \l__xeCJK_inline_env_seq
+\cs_new_protected:Npn \__xeCJK_update_inline_env_case_tl:
+ {
+ \tl_clear:N \l__xeCJK_inline_env_case_tl
+ \seq_map_inline:Nn \l__xeCJK_inline_env_seq
+ { \tl_put_right:Nn \l__xeCJK_inline_env_case_tl { {##1} { \use_ii:nn } } }
+ }
+\tl_new:N \l__xeCJK_inline_env_case_tl
+\keys_define:nn { xeCJK / options }
+ { PlainEquation .bool_set:N = \l__xeCJK_plain_equation_bool }
\seq_new:N \g__xeCJK_CJK_sub_class_seq
\NewDocumentCommand \xeCJKDeclareSubCJKBlock
{ s > { \TrimSpaces } m > { \TrimSpaces } m }
@@ -881,7 +1151,7 @@
{
\clist_map_inline:nn {#1}
{
- \int_if_exist:cTF { c__xeCJK_ CJK/##1 _class_int }
+ \int_if_exist:cTF { \__xeCJK_class_csname:n { CJK/##1 } }
{
\xeCJK_declare_char_class:nx
{ CJK \bool_if:NF \l__xeCJK_sub_cancel_bool { /##1 } }
@@ -899,11 +1169,11 @@
}
\cs_new_protected_nopar:Npn \xeCJK_declare_sub_char_class:nnn #1#2#3
{
- \int_if_exist:cF { c__xeCJK_ #1/#2 _class_int }
+ \int_if_exist:cF { \__xeCJK_class_csname:n { #1/#2 } }
{
\xeCJK_new_class:n { #1/#2 }
\__xeCJK_set_sub_class_toks:nn {#1} {#2}
- \__xeCJK_new_sub_key:n {#2}
+ \xeCJK_new_sub_key:n {#2}
}
\xeCJK_declare_char_class:nn { #1/#2 } {#3}
}
@@ -956,6 +1226,7 @@
}
\NewDocumentCommand \xeCJKsetwidth { m m }
{ \tl_map_inline:xn {#1} { \tl_gset:cn { g__xeCJK_punct_width/##1/tl } {#2} } }
+\cs_generate_variant:Nn \tl_map_inline:nn { x }
\NewDocumentCommand \xeCJKsetkern { m m m }
{ \tl_gset:cn { g__xeCJK_punct/kern/#1/#2/tl } {#3} }
\tl_const:Nn \c__xeCJK_left_tl { left }
@@ -1017,13 +1288,13 @@
}
\prg_new_conditional:Npnn \__xeCJK_punct_if_right:N #1 { p , T , F , TF }
{
- \if_int_compare:w \xeCJK_value_class:n {`#1} = \xeCJK_class_num:n { FullRight }
+ \if_int_compare:w \xeCJK_token_value_class:N #1 = \xeCJK_class_num:n { FullRight }
\prg_return_true: \else: \prg_return_false: \fi:
}
-\cs_generate_variant:Nn \prg_new_conditional:Npnn { c }
\clist_map_inline:Nn \g__xeCJK_special_punct_clist
{
- \prg_new_conditional:cpnn { __xeCJK_punct_if_#1:N } ##1 { p , T , F , TF }
+ \exp_args:Nc
+ \prg_new_conditional:Npnn { __xeCJK_punct_if_#1:N } ##1 { p , T , F , TF }
{
\if_cs_exist:w \__xeCJK_special_punct_tl:nN {#1} {##1} \cs_end:
\prg_return_true: \else: \prg_return_false: \fi:
@@ -1045,8 +1316,8 @@
{ \tl_gset:cx { \__xeCJK_punct_dim_csname:nnn {#1} {#2} {#3} } {#4} }
\cs_new_protected_nopar:Npn \__xeCJK_gset_punct_dim:nnnnx #1#2#3#4#5
{ \tl_gset:cx { \__xeCJK_punct_dim_csname:nnnn {#1} {#2} {#3} {#4} } {#5} }
-\DeclareObjectType { xeCJK / punctuation } { 3 }
-\DeclareTemplateInterface { xeCJK / punctuation } { basic } { 3 }
+\DeclareObjectType { xeCJK / punctuation } { \c_three }
+\DeclareTemplateInterface { xeCJK / punctuation } { basic } { \c_three }
{
enabled-global-setting : boolean = true ,
fixed-punct-width : length = \c_max_dim ,
@@ -1077,7 +1348,7 @@
kerning-margin-ratio : real = \c_one_fp ,
kerning-margin-minimum : length = \c_zero_dim
}
-\DeclareTemplateCode { xeCJK / punctuation } { basic } { 3 }
+\DeclareTemplateCode { xeCJK / punctuation } { basic } { \c_three }
{
enabled-global-setting = \l__xeCJK_enabled_global_setting_bool ,
fixed-punct-width = \l__xeCJK_fixed_punct_width_dim ,
@@ -1367,7 +1638,7 @@
( \__xeCJK_use_punct_dim:nnn { bound } \c__xeCJK_right_tl {#1} )
}
\__xeCJK_gset_punct_dim:nnx { width } {#1}
- { \dim_use:N \etex_fontcharwd:D \tex_font:D `#1 }
+ { \dim_use:N \etex_fontcharwd:D \tex_font:D \xeCJK_token_value_charcode:N #1 }
\__xeCJK_gset_punct_dim:nnx { dimen } {#1}
{ \dim_eval:n { \__xeCJK_use_punct_dim:nn { width } {#1} - \l__xeCJK_tmp_dim } }
\__xeCJK_punct_if_long:NT {#1}
@@ -1389,7 +1660,10 @@
}
\cs_generate_variant:Nn \xeCJK_calc_punct_dimen:N { f }
\cs_new_nopar:Npn \xeCJK_glyph_bounds:NN #1#2
- { \dim_use:N \XeTeXglyphbounds #1 ~ \XeTeXcharglyph `#2 \exp_stop_f: }
+ {
+ \dim_use:N \XeTeXglyphbounds #1 ~
+ \XeTeXcharglyph \xeCJK_token_value_charcode:N #2 \exp_stop_f:
+ }
\cs_new_protected_nopar:Npn \xeCJK_get_punct_kerning:NN #1#2
{
\tl_if_exist:cF { \__xeCJK_punct_dim_csname:nnn { kern } {#1} {#2} }
@@ -1475,29 +1749,22 @@
\keys_define:nn { xeCJK / options }
{
AutoFallBack .choice: ,
- AutoFallBack / true .code:n = { \xeCJKenablefallback } ,
- AutoFallBack / false .code:n = { \xeCJKdisablefallback } ,
- AutoFallBack .default:n = { true } ,
- fallback .meta:n = { AutoFallBack = true }
- }
-\NewDocumentCommand \xeCJKenablefallback { }
- {
- \bool_if:NF \l__xeCJK_fallback_bool
+ AutoFallBack / true .code:n =
{
- \bool_set_true:N \l__xeCJK_fallback_bool
- \cs_set_eq:NN \__xeCJK_fallback_save_CJKsymbol:N \CJKsymbol
- \cs_set_eq:NN \CJKsymbol \xeCJK_fallback_test_glyph:N
- }
- }
-\NewDocumentCommand \xeCJKdisablefallback { }
- {
- \bool_if:NT \l__xeCJK_fallback_bool
+ \cs_if_eq:NNF \CJKsymbol \xeCJK_fallback_test_glyph:N
+ {
+ \cs_set_eq:NN \__xeCJK_fallback_save_CJKsymbol:N \CJKsymbol
+ \cs_set_eq:NN \CJKsymbol \xeCJK_fallback_test_glyph:N
+ }
+ } ,
+ AutoFallBack / false .code:n =
{
- \bool_set_false:N \l__xeCJK_fallback_bool
- \cs_set_eq:NN \CJKsymbol \__xeCJK_fallback_save_CJKsymbol:N
- }
+ \cs_if_eq:NNT \CJKsymbol \xeCJK_fallback_test_glyph:N
+ { \cs_set_eq:NN \CJKsymbol \__xeCJK_fallback_save_CJKsymbol:N }
+ } ,
+ AutoFallBack .default:n = { true } ,
+ fallback .meta:n = { AutoFallBack = true }
}
-\bool_new:N \l__xeCJK_fallback_bool
\cs_new_protected_nopar:Npn \xeCJK_fallback_test_glyph:N #1
{
\xeCJK_glyph_if_exist:NTF {#1}
@@ -1514,7 +1781,8 @@
{ \xeCJK_fallback_loop:Nn {#1} { #2/FallBack } }
}
{
- \__xeCJK_warning:nxx { fallback } {#1} {#2}
+ \xeCJK_family_if_exist:xT { \l_xeCJK_family_tl/FallBack }
+ { \__xeCJK_warning:nxx { fallback } {#1} {#2} }
\__xeCJK_fallback_save_CJKsymbol:N {#1}
}
}
@@ -1524,6 +1792,7 @@
( \prop_get:No \g__xeCJK_family_font_name_prop {#2} )~
does~not~contain~glyph~'#1'~(U+\int_to_hexadecimal:n {`#1}).\\
}
+\bool_new:N \l__xeCJK_fallback_first_bool
\cs_generate_variant:Nn \prop_get:Nn { No }
\NewDocumentCommand \setCJKfallbackfamilyfont { m O{} m }
{
@@ -1582,7 +1851,7 @@
slantfont .meta:n = { AutoFakeSlant = true }
}
\seq_new:N \g__xeCJK_sub_key_seq
-\cs_new_protected_nopar:Npn \__xeCJK_new_sub_key:n #1
+\cs_new_protected_nopar:Npn \xeCJK_new_sub_key:n #1
{
\seq_gput_right:Nn \g__xeCJK_sub_key_seq {#1}
\keys_define:nn { xeCJK / features }
@@ -1612,7 +1881,6 @@
#1 .default:n = { }
}
}
-\cs_generate_variant:Nn \__xeCJK_new_sub_key:n { x }
\cs_new_protected_nopar:Npn \__xeCJK_get_sub_features:nn #1#2
{
\tl_set:Nx \l__xeCJK_tmpa_tl { \xeCJK_tl_remove_outer_braces:n {#2} }
@@ -1643,7 +1911,7 @@
\cs_generate_variant:Nn \__xeCJK_get_sub_features:nn { V }
\cs_generate_variant:Nn \tl_if_head_eq_meaning:nNTF { V }
\cs_generate_variant:Nn \tl_replace_all:Nnn { NnV }
-\__xeCJK_new_sub_key:n { FallBack }
+\xeCJK_new_sub_key:n { FallBack }
\prop_new:N \g__xeCJK_features_id_prop
\prop_put:Nnn \g__xeCJK_features_id_prop { bf } { Bold }
\prop_put:Nnn \g__xeCJK_features_id_prop { it } { Italic }
@@ -1681,7 +1949,6 @@
}
\cs_new_protected_nopar:Npn \__xeCJK_set_family_initial:
{
- \__xeCJK_gobble_CJKfamily:
\int_gincr:N \g__xeCJK_family_int
\prop_clear:N \l__xeCJK_add_font_prop
\prop_map_inline:Nn \g__xeCJK_features_id_prop
@@ -1745,7 +2012,8 @@
\cs_gset_protected_nopar:cpx { \__xeCJK_family_csname:n {#1} }
{
\group_begin:
- \__xeCJK_gobble_CJKfamily:
+ \cs_set_eq:NN
+ \exp_not:n { \__xeCJK_update_family:n \use_none:n }
\exp_not:n { \fontspec_set_family:Nnn \l__xeCJK_fontspec_family_tl }
{ \exp_not:V \l__xeCJK_fontspec_options_clist }
{ \exp_not:V \l__xeCJK_font_name_tl }
@@ -1870,7 +2138,7 @@
}
}
\prop_map_inline:Nn \l__xeCJK_add_font_prop
- { \clist_put_right:Nn \l__xeCJK_fontspec_options_clist { ##1 = { ##2 } } }
+ { \clist_put_right:Nn \l__xeCJK_fontspec_options_clist { ##1 = {##2} } }
}
\prop_new:N \g__xeCJK_family_name_prop
\prop_new:N \g__xeCJK_family_font_name_prop
@@ -1991,7 +2259,8 @@
{
\__xeCJK_copy_family:xx { \l_xeCJK_family_tl/#1 }
{
- \cs_if_exist:cTF { \__xeCJK_family_csname:n { \CJKfamilydefault/#1 } }
+ \cs_if_exist:cTF
+ { \__xeCJK_family_csname:n { \CJKfamilydefault/#1 } }
{ \CJKfamilydefault/#1 } { \l_xeCJK_family_tl }
}
}
@@ -2007,8 +2276,8 @@
\prop_gput:Nxx \g__xeCJK_family_name_prop {#1} {#2}
\cs_gset_protected_nopar:cpx { \__xeCJK_family_nfss_csname:n {#1} }
{
- \exp_not:N \fontencoding { \c__xeCJK_encoding_tl }
- \exp_not:N \fontfamily {#2}
+ \tl_set:Nx \exp_not:N \f@encoding { \c__xeCJK_encoding_tl }
+ \tl_set:Nx \exp_not:N \f@family {#2}
\exp_not:N \selectfont
}
}
@@ -2179,6 +2448,16 @@
\prop_if_empty:NTF \g__xeCJK_family_font_name_prop
{ \__xeCJK_warning:n { no-CJKfamily } }
{
+ \tl_gset:Nx \CJKfamilydefault
+ {
+ \str_case_x:nnn { \familydefault }
+ {
+ { \rmdefault } { \CJKrmdefault }
+ { \sfdefault } { \CJKsfdefault }
+ { \ttdefault } { \CJKttdefault }
+ }
+ { \CJKfamilydefault }
+ }
\CJKfamily { \CJKfamilydefault }
\bool_if:NT \g__xeCJK_math_bool { \xeCJK_set_mathfont: }
}
@@ -2239,16 +2518,16 @@
\bool_if:NF \l__xeCJK_verb_addon_bool
{
\bool_set_true:N \l__xeCJK_verb_addon_bool
- \__xeCJK_set_char_class_eq:nn { CJK } { FullLeft }
- \__xeCJK_set_char_class_eq:nn { CJK } { FullRight }
- \__xeCJK_set_char_class_eq:nn { Default } { HalfLeft }
- \__xeCJK_set_char_class_eq:nn { Default } { HalfRight }
- \__xeCJK_set_char_class_eq:nn { Default } { NormalSpace }
+ \__xeCJK_set_char_class_eq:nn { FullLeft } { CJK }
+ \__xeCJK_set_char_class_eq:nn { FullRight } { CJK }
+ \__xeCJK_set_char_class_eq:nn { HalfLeft } { Default }
+ \__xeCJK_set_char_class_eq:nn { HalfRight } { Default }
+ \__xeCJK_set_char_class_eq:nn { NormalSpace } { Default }
\xeCJKsetup { xCJKecglue = false }
\cs_set_protected_nopar:Npn \CJKglue
{ \skip_horizontal:N \g__xeCJK_verb_exspace_skip }
\cs_set_protected_nopar:Npn \CJKecglue
- { \skip_horizontal:N 0.5 \g__xeCJK_verb_exspace_skip }
+ { \skip_horizontal:n { 0.5 \g__xeCJK_verb_exspace_skip } }
\cs_set_eq:NN \xeCJK_check_for_glue: \CJKecglue
\cs_set_eq:NN \xeCJK_ignore_spaces:w \CJKecglue
\skip_set:Nn \tex_rightskip:D { \c_zero_dim plus 1 fil }
@@ -2257,24 +2536,29 @@
}
\bool_new:N \l__xeCJK_verb_addon_bool
\cs_new_eq:NN \CJKfixedspacing \xeCJKVerbAddon
-\__xeCJK_after_preamble:n
- { \xeCJK_cs_add:Nnn \verbatim@font { } { \xeCJKVerbAddon } }
+\__xeCJK_after_preamble:n { \tl_put_right:Nn \verbatim@font { \xeCJKVerbAddon } }
\cs_new_protected_nopar:Npn \__xeCJK_set_verb_exspace:
{
- \tl_if_exist:cTF { xeCJK/verb/\curr@fontshape/\f@size }
- {
- \skip_gset:Nn \g__xeCJK_verb_exspace_skip
- { \tl_use:c { xeCJK/verb/\curr@fontshape/\f@size } }
- }
+ \tl_if_exist:cF { xeCJK/verb/\l_xeCJK_family_tl/\curr@fontshape/\f@size }
{
- \skip_gset:Nn \g__xeCJK_verb_exspace_skip
+ \group_begin:
+ \xeCJK_select_font:
+ \use:x
{
- \dim_max:nn
- { \c_zero_dim }
- { \c_two \tex_fontdimen:D \c_two \tex_font:D - \f@size pt }
+ \group_end:
+ \tl_gset:cx
+ \exp_not:n { { xeCJK/verb/\l_xeCJK_family_tl/\curr@fontshape/\f@size } }
+ {
+ \exp_not:N \dim_max:nn { \c_zero_dim }
+ {
+ \c_two \tex_fontdimen:D \c_two \tex_font:D -
+ \dim_use:N \etex_fontcharwd:D \tex_font:D "4E00
+ }
+ }
}
- \tl_gset:cV { xeCJK/verb/\curr@fontshape/\f@size } \g__xeCJK_verb_exspace_skip
}
+ \skip_gset:Nn \g__xeCJK_verb_exspace_skip
+ { \use:c { xeCJK/verb/\l_xeCJK_family_tl/\curr@fontshape/\f@size } }
}
\skip_new:N \g__xeCJK_verb_exspace_skip
\cs_new_protected_nopar:Npn \xeCJK_visible_space_fallback:
@@ -2285,30 +2569,34 @@
} }
\AtEndOfPackage
{
- \xeCJK_cs_add:Nnn \fontspec_visible_space: { \scan_stop: } { }
+ \tl_put_left:Nn \fontspec_visible_space: { \scan_stop: }
\cs_gset_eq:NN \fontspec_visible_space_fallback: \xeCJK_visible_space_fallback:
}
\cs_new_protected_nopar:Npn \xeCJK_set_visible_space_font:
{
\tl_set:Nx \l__xeCJK_current_coor_tl { xeCJK/space/\curr@fontshape/\f@size }
- \dim_set:Nn \l__xeCJK_tmp_dim { \tex_fontdimen:D \c_two \tex_font:D }
- \fontencoding { \g_fontspec_encoding_tl }
- \fontfamily { lmtt }
+ \exp_after:wN \__xeCJK_set_visible_space_size:n
+ \exp_after:wN { \dim_use:N \tex_fontdimen:D \c_two \tex_font:D }
+ \xeCJK_font_gset_to_current:c { \l__xeCJK_current_coor_tl }
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_set_visible_space_size:n #1
+ {
+ \tl_set:Nx \f@encoding { \g_fontspec_encoding_tl }
+ \tl_set:Nx \f@family { lmtt }
\selectfont
- \dim_compare:nNnF \l__xeCJK_tmp_dim = { \tex_fontdimen:D \c_two \tex_font:D }
+ \dim_compare:nNnF {#1} = { \tex_fontdimen:D \c_two \tex_font:D }
{
\fontsize
{
\dim_eval:n
{
- \f@size pt * \dim_ratio:nn
- { \l__xeCJK_tmp_dim } { \tex_fontdimen:D \c_two \tex_font:D }
+ \f@size pt *
+ \dim_ratio:nn {#1} { \tex_fontdimen:D \c_two \tex_font:D }
}
}
{ \f@baselineskip }
\selectfont
}
- \xeCJK_font_gset_to_current:c { \l__xeCJK_current_coor_tl }
}
\keys_define:nn { xeCJK / options }
{
@@ -2368,9 +2656,11 @@
\keys_set:nn { xeCJK / options }
{
CJKglue = { \skip_horizontal:n { \c_zero_dim plus 0.08 \tex_baselineskip:D } } ,
- CJKecglue = \c_space_token ,
+ CJKecglue = { ~ } ,
xCJKecglue = false ,
CheckSingle = false ,
+ PlainEquation = false ,
+ CheckFullRight = false ,
CJKspace = false ,
CJKmath = false ,
CJKnumber = false ,
@@ -2380,6 +2670,9 @@
EmboldenFactor = 4 ,
SlantFactor = 0.167 ,
PunctStyle = quanjiao ,
+ NewLineCS = { \par \[ } ,
+ EnvCS = { \begin \end } ,
+ NoBreakCS = { \footnote \footnotemark \nobreak } ,
KaiMingPunct = { ^^^^3002 ^^^^ff0e ^^^^ff1f ^^^^ff01 } ,
LongPunct = { ^^^^2014 ^^^^2015 ^^^^2500 ^^^^2025 ^^^^2026 } ,
MiddlePunct = { ^^^^2014 ^^^^2015 ^^^^2500 ^^^^00b7 ^^^^30fb ^^^^ff65 } ,
@@ -2407,7 +2700,7 @@
\tl_if_exist:NF \CJKttdefault { \tl_gset:Nn \CJKttdefault { tt } }
\tl_if_exist:NF \CJKfamilydefault { \tl_gset:Nn \CJKfamilydefault { \CJKrmdefault } }
\tl_new:c { \__xeCJK_family_csname:n { \CJKfamilydefault } }
-\NewDocumentCommand \xeCJKsetup { m }
+\NewDocumentCommand \xeCJKsetup { +m }
{
\keys_set:nn { xeCJK / options } {#1}
\tex_ignorespaces:D
@@ -2426,16 +2719,62 @@
{ \xeCJKsetup { AllowBreakBetweenPuncts = true } }
\NewDocumentCommand \xeCJKnobreakbetweenpuncts { }
{ \xeCJKsetup { AllowBreakBetweenPuncts = false } }
-\xeCJK_cs_add:Nnn \rmfamily { \CJKfamily { \CJKrmdefault } } { }
-\xeCJK_cs_add:Nnn \sffamily { \CJKfamily { \CJKsfdefault } } { }
-\xeCJK_cs_add:Nnn \ttfamily { \CJKfamily { \CJKttdefault } } { }
-\xeCJK_cs_add:Nnn \normalfont { \CJKfamily { \CJKfamilydefault } } { }
-\cs_set_eq:NN \reset@font \normalfont
-\xeCJK_cs_add:Nnn \fontspec_init: { \__xeCJK_gobble_CJKfamily: } { }
+\NewDocumentCommand \xeCJKenablefallback { }
+ { \xeCJKsetup { AutoFallBack = true } }
+\NewDocumentCommand \xeCJKdisablefallback { }
+ { \xeCJKsetup { AutoFallBack = false } }
+\NewDocumentCommand \xeCJKsetcharclass { m m m }
+ {
+ \xeCJK_set_char_class:nnn {#1} {#2} {#3}
+ \xeCJKResetPunctClass
+ }
+\__xeCJK_msg_new:nn { conflict-package }
+ {
+ The~`#1'~package~is~in~conflict~with~xeCJK. \\
+ Please~do~not~use~it~or~load~it~after~xeCJK.
+ }
+\xeCJK_if_package_loaded:nTF { realscripts }
+ {
+ \@ifpackagelater { realscripts } { 2010/10/10 } { }
+ { \__xeCJK_error:nx { conflict-package } { xltxtra } }
+ }
+ {
+ \cs_new_eq:NN \__xeCJK_dim_max:nn \dim_max:nn
+ \cs_new_eq:NN \__xeCJK_dim_min:nn \dim_min:nn
+ \__xeCJK_at_end_preamble:n
+ {
+ \xeCJK_if_package_loaded:nT { realscripts }
+ {
+ \@ifpackagelater { realscripts } { 2010/10/10 } { }
+ {
+ \cs_gset_eq:NN \dim_max:nn \__xeCJK_dim_max:nn
+ \cs_gset_eq:NN \dim_min:nn \__xeCJK_dim_min:nn
+ }
+ }
+ \cs_undefine:N \__xeCJK_dim_max:nn
+ \cs_undefine:N \__xeCJK_dim_min:nn
+ }
+ }
+\RenewDocumentCommand \fontfamily { m }
+ {
+ \tl_set:Nx \f@family {#1}
+ \__xeCJK_update_family:n
+ {
+ \str_case_x:nnn {#1}
+ {
+ { \rmdefault } { \CJKfamily { \CJKrmdefault } }
+ { \sfdefault } { \CJKfamily { \CJKsfdefault } }
+ { \ttdefault } { \CJKfamily { \CJKttdefault } }
+ { \familydefault } { \CJKfamily { \CJKfamilydefault } }
+ }
+ { }
+ }
+ }
+\cs_new_eq:NN \__xeCJK_update_family:n \use:n
\cs_new_eq:NN \xeCJK@fix@penalty \fix@penalty
-\xeCJK_cs_patch:Nnn \xeCJK@fix@penalty \@@italiccorr \xeCJK@patch@italiccorr
-\xeCJK_cs_patch:Nnn \sw@slant \fix@penalty \xeCJK@fix@penalty
-\cs_new_protected_nopar:Npn \xeCJK@patch@italiccorr
+\tl_replace_once:Nnn \xeCJK@fix@penalty { \@@italiccorr } { \xeCJK@italiccorr }
+\tl_replace_once:Nnn \sw@slant { \fix@penalty } { \xeCJK@fix@penalty }
+\cs_new_protected_nopar:Npn \xeCJK@italiccorr
{
\int_compare:nNnTF \XeTeXinterchartokenstate > \c_zero
{
@@ -2472,18 +2811,18 @@
\__xeCJK_after_end_preamble:n
{
\int_compare:nNnF
- { \c_three + ( \seq_count:N \g__xeCJK_class_seq ) } = \xe@alloc@intercharclass
+ { \c_three + \seq_count:N \g__xeCJK_new_class_seq } = \xe@alloc@intercharclass
{
\int_step_inline:nnnn \c_four \c_one \xe@alloc@intercharclass
{
- \seq_if_in:NnF \g__xeCJK_class_seq {#1}
+ \seq_if_in:NnF \g__xeCJK_new_class_seq {#1}
{ \__xeCJK_set_others_toks:n {#1} }
}
}
}
\cs_new_protected_nopar:Npn \__xeCJK_set_others_toks:n #1
{
- \int_set:Nn \c__xeCJK_Others_class_int {#1}
+ \int_set:cn { \__xeCJK_class_csname:n { Others } } {#1}
\seq_map_inline:Nn \g__xeCJK_CJK_class_seq
{
\xeCJK_copy_inter_class_toks:nnnn {##1} { Others } {##1} { NormalSpace }
@@ -2506,7 +2845,6 @@
}
}
}
-\cs_new_eq:NN \c__xeCJK_Others_class_int \l__xeCJK_tmpa_int
\__xeCJK_after_preamble:n
{
\tl_map_inline:nn
@@ -2514,18 +2852,16 @@
\textellipsis \textemdash \textperiodcentered \textcentereddot
\textquoteleft \textquoteright \textquotedblleft \textquotedblright
}
- {
- \xeCJK_cs_add:Nnn #1
- { \__xeCJK_group_begin: \makexeCJKinactive } { \__xeCJK_group_end: }
- }
- \xeCJK_cs_add:Nnn \tipaencoding { \makexeCJKinactive } { }
+ { \cs_gset_nopar:Npx #1 { { \makexeCJKinactive \exp_not:o {#1} } } }
+ \tl_put_left:Nn \tipaencoding { \makexeCJKinactive }
\cs_new_eq:NN \__xeCJK_aux_r:n \r
\cs_set_nopar:Npn \r #1 { { \makexeCJKinactive \__xeCJK_aux_r:n {#1} } }
\xeCJK_if_package_loaded:nT { pifont }
- { \xeCJK_cs_add:Nnn \Pifont { \makexeCJKinactive } { } }
+ {
+ \RenewDocumentCommand \Pifont { m }
+ { \makexeCJKinactive \usefont { U } {#1} { m } { n } }
+ }
}
-\cs_new_eq:NN \__xeCJK_group_begin: \group_begin:
-\cs_new_eq:NN \__xeCJK_group_end: \group_end:
\__xeCJK_after_end_preamble:n
{
\xeCJK_if_package_loaded:nT { hyperref }
@@ -2534,8 +2870,6 @@
{
\__xeCJK_gobble_CJKfamily:
\xeCJK_cs_clear:N \makexeCJKinactive
- \xeCJK_cs_clear:N \__xeCJK_group_begin:
- \xeCJK_cs_clear:N \__xeCJK_group_end:
}
}
}
@@ -2546,6 +2880,7 @@
{ \exp_after:wN \tex_let:D \cs:w cprotect \cs_end: \icprotect }
}
\tl_set:cn { ver@CJK.sty } { 9999/99/99 }
+\tl_set_eq:cc { ver@CJKulem.sty } { ver@CJK.sty }
\tl_set_eq:cc { ver@CJKpunct.sty } { ver@CJK.sty }
\cs_if_exist:NF \CJK@ifundefined
{ \cs_set_eq:NN \CJK@ifundefined \cs_if_free:NTF }
@@ -2560,44 +2895,22 @@
}
\XeTeXdefaultencoding "UTF-8"
}
-\cs_new_protected_nopar:Npn \xeCJK_hook_for_ulem:
+\cs_if_eq:NNTF \ifCTEX@fntef \tex_iftrue:D
+ { \RequirePackage { xeCJKfntef } }
{
- \bool_if:NF \l__xeCJK_ulem_hook_used_bool
+ \__xeCJK_at_end_preamble:n
{
- \bool_set_true:N \l__xeCJK_ulem_hook_used_bool
- \xeCJK_cs_clear:N \__xeCJK_CJK_FullLeft_glue:
- \cs_set_protected_nopar:Npn \__xeCJK_FullLeft_ulem_hook: { { \CJKglue } }
- \xeCJK_swap_cs:NN \CJKsymbol \__xeCJK_ulem_CJKsymbol:N
- \xeCJK_swap_cs:NN \CJKpunctsymbol \__xeCJK_ulem_CJKpunctsymbol:N
- }
- }
-\bool_new:N \l__xeCJK_ulem_hook_used_bool
-\__xeCJK_after_preamble:n
- {
- \xeCJK_if_package_loaded:nT { ulem }
- {
- \xeCJK_cs_gclear:N \__xeCJK_FullLeft_ulem_hook:
- \xeCJK_pre_inter_class_toks:nnn { Boundary } { FullLeft }
- { \__xeCJK_FullLeft_ulem_hook: }
- \cs_if_exist:NTF \XeTeX@CJKfntef@hook
+ \xeCJK_if_package_loaded:nF { xeCJKfntef }
{
- \xeCJK_cs_gclear:N \CJKf@global
- \AtBeginEnvironment
- { CJKfilltwosides } { \cs_set_eq:NN \CJKglue \tex_hfil:D }
- \cs_set_protected_nopar:Npn \XeTeX@CJKfntef@hook
- { \xeCJK_select_font: \makexeCJKinactive }
+ \xeCJK_if_package_loaded:nTF { CJKfntef }
+ { \RequirePackage { xeCJKfntef } }
+ {
+ \xeCJK_if_package_loaded:nT { ulem }
+ { \RequirePackage { xeCJKfntef } }
+ }
}
- { \RequirePackage { CJKulem } }
- \addto@hook \UL@hook { \xeCJK_hook_for_ulem: }
}
}
-\cs_new_protected_nopar:Npn \__xeCJK_ulem_CJKsymbol:N #1
- {
- { \__xeCJK_ulem_CJKsymbol:N {#1} }
- { \xeCJK_make_node:n { CJK } } \xeCJK_ignore_spaces:w
- }
-\cs_new_protected_nopar:Npn \__xeCJK_ulem_CJKpunctsymbol:N #1
- { { \__xeCJK_ulem_CJKpunctsymbol:N {#1} } \tex_ignorespaces:D }
\bool_if:NT \g__xeCJK_number_bool
{
\tl_set:Nn \CJK@UnicodeEnc { UTF8 }
@@ -2622,6 +2935,7 @@
%% xeCJK.sty,
%% xeCJK.cfg,
%% xeCJK.ins,
+%% xeCJKfntef.sty,
%% xeCJK-example-autofake.tex,
%% xeCJK-example-fallback.tex,
%% xeCJK-example-subCJKblock.tex,
diff --git a/Master/texmf-dist/tex/xelatex/xecjk/xeCJKfntef.sty b/Master/texmf-dist/tex/xelatex/xecjk/xeCJKfntef.sty
new file mode 100644
index 00000000000..6d3e152a498
--- /dev/null
+++ b/Master/texmf-dist/tex/xelatex/xecjk/xeCJKfntef.sty
@@ -0,0 +1,339 @@
+%%
+%% This is file `xeCJKfntef.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% xeCJK.dtx (with options: `fntef')
+%%
+%% $Id: xeCJK.dtx 382 2012-12-13 04:58:22Z sobenlee $
+%% $URL: https://ctex-kit.googlecode.com/svn/trunk/xeCJK/xeCJK.dtx $
+%% -----------------------------------------------------------------
+%% Author:
+%% Wenchang Sun <sunwch@nankai.edu.cn>
+%% Current Maintainers:
+%% Leo Liu <leoliu.pku@gmail.com>
+%% Qing Lee <sobenlee@gmail.com>
+%%
+%% Copyright (C) 2007--2012 Wenchang Sun
+%%
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%%
+%% This work has the LPPL maintenance status "maintained".
+%% The Current Maintainer of this work are Leo Liu and Qing Lee.
+%% -----------------------------------------------------------------
+%%
+\NeedsTeXFormat{LaTeX2e}
+\RequirePackage{expl3}
+\GetIdInfo$Id: xeCJK.dtx 382 2012-12-13 04:58:22Z sobenlee $
+ {xeCJK patch file for ulem/CJKfntef}
+\ProvidesExplPackage
+ {xeCJKfntef}
+ {\ExplFileDate}{3.1.1}{\ExplFileDescription}
+\PassOptionsToPackage { normalem } { ulem }
+\DeclareOption* { \PassOptionsToPackage { \CurrentOption } { ulem } }
+\ProcessOptions \scan_stop:
+\@ifpackageloaded { xeCJK }
+ { }
+ { \RequirePackage { xeCJK } }
+\RequirePackage { ulem }
+\RequirePackage { CJKfntef }
+\addto@hook \UL@hook { \xeCJK_hook_for_ulem: }
+\cs_new_protected_nopar:Npn \xeCJK_hook_for_ulem:
+ {
+ \bool_if:NF \l__xeCJK_ulem_hook_used_bool
+ {
+ \bool_set_true:N \l__xeCJK_ulem_hook_used_bool
+ \xeCJKsetup { CheckFullRight = false }
+ \bool_if:NTF \l__xeCJK_ulem_skip_punct_bool
+ { \cs_set_eq:NN \__xeCJK_ulem_leader_type: \UL@leadtype }
+ {
+ \xeCJK_cs_clear:N \__xeCJK_ulem_skip_punct_begin:
+ \xeCJK_cs_clear:N \__xeCJK_ulem_skip_punct_end:
+ }
+ \__xeCJK_ulem_initial:
+ \xeCJK_glue_to_skip:nN
+ {
+ \cs_set_eq:NN \ \tex_space:D
+ \cs_set_eq:NN \penalty \tex_penalty:D
+ \cs_set_eq:NN \hskip \skip_horizontal:N
+ \CJKglue
+ } \l__xeCJK_ccglue_skip
+ \xeCJK_glue_to_skip:nN
+ {
+ \cs_set_eq:NN \ \tex_space:D
+ \cs_set_eq:NN \penalty \tex_penalty:D
+ \cs_set_eq:NN \hskip \skip_horizontal:N
+ \CJKecglue
+ } \l__xeCJK_ecglue_skip
+ \cs_set_protected_nopar:Npn \CJKglue
+ { \__xeCJK_ulem_glue:n \l__xeCJK_ccglue_skip }
+ \cs_set_protected_nopar:Npn \CJKecglue
+ { \__xeCJK_ulem_glue:n \l__xeCJK_ecglue_skip }
+ }
+ }
+\bool_new:N \l__xeCJK_ulem_hook_used_bool
+\cs_set_eq:NN \CJK@UL \CJK@@UL
+\tl_replace_once:Nnn \CJK@UL { \ULon }
+ { \bool_set_true:N \l__xeCJK_ulem_skip_punct_bool \ULon }
+\tl_replace_once:Nnn \CJK@@UL { \ULon }
+ { \bool_set_false:N \l__xeCJK_ulem_skip_punct_bool \ULon }
+\bool_new:N \l__xeCJK_ulem_skip_punct_bool
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_skip_punct_begin:
+ { \xeCJK_cs_clear:N \UL@leadtype }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_skip_punct_end:
+ { \cs_set_eq:NN \UL@leadtype \__xeCJK_ulem_leader_type: }
+\xeCJK_cs_clear:N \__xeCJK_ulem_leader_type:
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_initial:
+ {
+ \cs_set_eq:NN \__xeCJK_punct_hskip:n \__xeCJK_ulem_hskip:n
+ \cs_set_eq:NN
+ \__xeCJK_Default_and_FullLeft_glue:N \__xeCJK_ulem_Default_and_FullLeft_glue:N
+ \cs_set_eq:NN
+ \__xeCJK_Default_and_FullRight_glue:N \__xeCJK_ulem_Default_and_FullRight_glue:N
+ \cs_set_eq:NN
+ \__xeCJK_CJK_and_FullLeft_glue:N \__xeCJK_ulem_CJK_and_FullLeft_glue:N
+ \cs_set_eq:NN
+ \__xeCJK_CJK_and_FullRight_glue:N \__xeCJK_ulem_CJK_and_FullRight_glue:N
+ \cs_set_eq:NN
+ \__xeCJK_Boundary_and_FullLeft_glue:N \__xeCJK_ulem_Boundary_and_FullLeft_glue:N
+ \cs_set_eq:NN \xeCJK_FullLeft_and_Default: \__xeCJK_ulem_FullLeft_and_Default:
+ \cs_set_eq:NN \xeCJK_FullLeft_and_CJK: \__xeCJK_ulem_FullLeft_and_CJK:
+ \cs_set_eq:NN \xeCJK_FullRight_and_Default: \__xeCJK_ulem_FullRight_and_Default:
+ \cs_set_eq:NN \xeCJK_FullRight_and_CJK: \__xeCJK_ulem_FullRight_and_CJK:
+ \cs_set_eq:NN \xeCJK_CJK_and_CJK:N \__xeCJK_ulem_CJK_and_CJK:N
+ \seq_map_inline:Nn \g__xeCJK_CJK_sub_class_seq
+ {
+ \seq_map_inline:Nn \g__xeCJK_CJK_sub_class_seq
+ {
+ \str_if_eq:nnTF {##1} {####1}
+ {
+ \xeCJK_inter_class_toks:nnn { CJK } { CJK/##1 }
+ { \__xeCJK_ulem_between_CJK_blocks:nnN { CJK } {##1} }
+ \xeCJK_inter_class_toks:nnn { CJK/##1 } { CJK/##1 }
+ { \__xeCJK_ulem_between_CJK_blocks:nnN { CJK } {##1} }
+ }
+ {
+ \xeCJK_inter_class_toks:nnn { CJK/##1 } { CJK/####1 }
+ { \__xeCJK_ulem_between_CJK_blocks:nnN {##1} {####1} }
+ }
+ }
+ }
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_CJK_and_CJK:N
+ {
+ \xeCJK_class_group_end:
+ \UL@stop \__xeCJK_ulem_ccglue: \UL@start
+ \__xeCJK_ulem_class_group_begin:
+ \CJKsymbol
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_class_group_begin:
+ {
+ \xeCJK_class_group_begin:
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \xeCJK_select_font:
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_between_CJK_blocks:nnN #1#2
+ {
+ \xeCJK_class_group_end:
+ \UL@stop \__xeCJK_ulem_ccglue: \UL@start
+ \xeCJK_class_group_begin:
+ \xeCJK_clear_Boundary_and_CJK_toks:
+ \__xeCJK_switch_font:nn {#1} {#2}
+ \CJKsymbol
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_Default_and_FullLeft_glue:N #1
+ {
+ \UL@stop
+ \__xeCJK_ulem_skip_punct_begin:
+ \__xeCJK_punct_glue:NN \c__xeCJK_left_tl {#1}
+ \UL@start
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_Boundary_and_FullLeft_glue:N #1
+ {
+ \UL@stop
+ \__xeCJK_ulem_skip_punct_begin:
+ \int_compare:nNnF \etex_lastnodetype:D = \c_one
+ { \__xeCJK_punct_glue:NN \c__xeCJK_left_tl {#1} }
+ \UL@start
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_CJK_and_FullLeft_glue:N #1
+ {
+ \xeCJK_class_group_end:
+ \UL@stop
+ \__xeCJK_ulem_skip_punct_begin:
+ \__xeCJK_ulem_ccglue:
+ \__xeCJK_punct_glue:NN \c__xeCJK_left_tl {#1}
+ \UL@start
+ \__xeCJK_ulem_class_group_begin:
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_Default_and_FullRight_glue:N #1
+ {
+ \UL@stop
+ \__xeCJK_ulem_skip_punct_begin:
+ \__xeCJK_punct_if_long:NTF {#1}
+ { \__xeCJK_ulem_ccglue: }
+ {
+ \__xeCJK_punct_if_middle:NT {#1}
+ {
+ \xeCJK_no_break:
+ \__xeCJK_punct_glue:NN \c__xeCJK_right_tl {#1}
+ }
+ \xeCJK_no_break:
+ }
+ \UL@start
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_CJK_and_FullRight_glue:N #1
+ {
+ \xeCJK_class_group_end:
+ \__xeCJK_ulem_Default_and_FullRight_glue:N {#1}
+ \__xeCJK_ulem_class_group_begin:
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_FullLeft_and_Default:
+ {
+ \__xeCJK_punct_if_middle:NTF \g__xeCJK_last_punct_tl
+ {
+ \xeCJK_get_punct_bounds:NN \c__xeCJK_left_tl \g__xeCJK_last_punct_tl
+ \__xeCJK_punct_rule:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \xeCJK_class_group_end: \UL@stop \xeCJK_no_break:
+ \__xeCJK_punct_glue:NN \c__xeCJK_left_tl \g__xeCJK_last_punct_tl
+ }
+ { \xeCJK_class_group_end: \UL@stop }
+ \__xeCJK_ulem_skip_punct_end:
+ \xeCJK_no_break:
+ \UL@start
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_FullLeft_and_CJK:
+ {
+ \__xeCJK_ulem_FullLeft_and_Default:
+ \__xeCJK_ulem_class_group_begin:
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_FullRight_and_Default:
+ {
+ \__xeCJK_punct_rule:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \xeCJK_class_group_end:
+ \UL@stop
+ \__xeCJK_punct_glue:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \__xeCJK_ulem_skip_punct_end:
+ \UL@start
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_FullRight_and_CJK:
+ {
+ \__xeCJK_punct_rule:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \xeCJK_class_group_end:
+ \UL@stop
+ \__xeCJK_punct_glue:NN \c__xeCJK_right_tl \g__xeCJK_last_punct_tl
+ \__xeCJK_ulem_ccglue:
+ \__xeCJK_ulem_skip_punct_end:
+ \UL@start
+ \__xeCJK_ulem_class_group_begin:
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_glue:n #1
+ {
+ \cs_if_eq:NNTF \ \LA@space
+ { \skip_horizontal:n {#1} }
+ { \UL@stop \__xeCJK_ulem_hskip:n {#1} \UL@start }
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_ccglue:
+ { \skip_set_eq:NN \UL@skip \l__xeCJK_ccglue_skip \UL@leaders }
+\cs_new_protected_nopar:Npn \__xeCJK_ulem_hskip:n #1
+ {
+ \int_compare:nNnTF \tex_lastkern:D = \c_three
+ { \skip_horizontal:n {#1} }
+ { \skip_set:Nn \UL@skip {#1} \UL@leaders }
+ }
+\RenewDocumentCommand \CJKunderdot { m }
+ {
+ \bool_if:NT \l__xeCJK_ulem_hook_used_bool { \UL@stop }
+ \CJK@preUnderdot
+ \__xeCJK_make_under_symbol:n { \CJK@underdotSkip }
+ \cs_gset_eq:NN \__xeCJK_save_under_dot_CJKsymbol:N \CJKsymbol
+ \cs_set_eq:NN \CJKsymbol \__xeCJK_under_CJKsymbol:N
+ \bool_if:NT \l__xeCJK_ulem_hook_used_bool { \UL@start }
+ #1
+ \bool_if:NT \l__xeCJK_ulem_hook_used_bool { \UL@stop }
+ \cs_set_eq:NN \CJKsymbol \__xeCJK_save_under_dot_CJKsymbol:N
+ \CJK@postUnderdot
+ \bool_if:NT \l__xeCJK_ulem_hook_used_bool { \UL@start }
+ \tex_ignorespaces:D
+ }
+\box_new:N \g__xeCJK_under_symbol_box
+\RenewDocumentCommand \CJKunderanysymbol { m m m }
+ {
+ \group_begin:
+ \hbox_set:Nn \CJK@underdotBox {#2}
+ \__xeCJK_make_under_symbol:n {#1}
+ \cs_gset_eq:NN \__xeCJK_save_under_dot_CJKsymbol:N \CJKsymbol
+ \cs_set_eq:NN \CJKsymbol \__xeCJK_under_CJKsymbol:N
+ #3
+ \group_end:
+ \tex_ignorespaces:D
+ }
+\cs_new_protected:Npn \__xeCJK_make_under_symbol:n #1
+ {
+ \hbox_set:Nn \l__xeCJK_tmp_box { ^^^^4e00 }
+ \vbox_gset_to_ht:Nnn \g__xeCJK_under_symbol_box \c_zero_dim
+ {
+ \skip_vertical:n {#1}
+ \hbox_to_zero:n
+ {
+ \tex_kern:D - \box_wd:N \l__xeCJK_tmp_box
+ \tex_hss:D \box_use:N \CJK@underdotBox \tex_hss:D
+ }
+ \tex_vss:D
+ }
+ }
+\cs_new_protected_nopar:Npn \__xeCJK_under_CJKsymbol:N #1
+ {
+ \__xeCJK_save_under_dot_CJKsymbol:N {#1}
+ \hbox_overlap_left:n { \box_use:N \g__xeCJK_under_symbol_box }
+ { \xeCJK_make_node:n { CJK } }
+ \xeCJK_ignore_spaces:w
+ }
+\RenewDocumentEnvironment { CJKfilltwosides } { m }
+ {
+ \dim_set:Nn \l__xeCJK_fill_width_dim {#1}
+ \cs_set_eq:NN \CJKglue \tex_hfil:D
+ \cs_set_eq:NN \\ \__xeCJK_fill_newline:
+ \mode_if_vertical:T { \tex_indent:D }
+ \tex_vbox:D \c_group_begin_token
+ \tex_hbox:D to \l__xeCJK_fill_width_dim \c_group_begin_token
+ \tex_ignorespaces:D
+ }
+ {
+ \tex_unskip:D
+ \c_group_end_token
+ \c_group_end_token
+ }
+\dim_new:N \l__xeCJK_fill_width_dim
+\cs_new_protected_nopar:Npn \__xeCJK_fill_newline:
+ {
+ \tex_unskip:D
+ \c_group_end_token
+ \tex_hbox:D to \l__xeCJK_fill_width_dim \c_group_begin_token
+ \tex_ignorespaces:D
+ }
+%%
+%% This package consists of the file xeCJK.dtx
+%% and the derived files xeCJK.pdf,
+%% xeCJK.sty,
+%% xeCJK.cfg,
+%% xeCJK.ins,
+%% xeCJKfntef.sty,
+%% xeCJK-example-autofake.tex,
+%% xeCJK-example-fallback.tex,
+%% xeCJK-example-subCJKblock.tex,
+%% xeCJK-example-CJKecglue.tex,
+%% xeCJK-example-checksingle.tex,
+%% xeCJK-example-CJKfntef.tex,
+%% xeCJK-example-punctstyle.tex,
+%% xeCJK-example-verbatim.tex, and
+%% README.txt.
+%%
+%% End of file `xeCJKfntef.sty'.