summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-05-21 23:55:59 +0000
committerKarl Berry <karl@freefriends.org>2012-05-21 23:55:59 +0000
commit902beccca919c220f5d4a9f8edcca098aa7d07fa (patch)
treee3f52a36586bb087abd22f88bc9200bd80c1fb98 /Master/texmf-dist
parent11329d298783368bb1e2bb185886ac21f4f2dcf8 (diff)
new l3 package zhnumber (21may12)
git-svn-id: svn://tug.org/texlive/trunk@26554 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r--Master/texmf-dist/doc/latex/zhnumber/README72
-rw-r--r--Master/texmf-dist/doc/latex/zhnumber/zhnumber.pdfbin0 -> 159005 bytes
-rw-r--r--Master/texmf-dist/source/latex/zhnumber/zhnumber.dtx963
-rw-r--r--Master/texmf-dist/source/latex/zhnumber/zhnumber.ins75
-rw-r--r--Master/texmf-dist/tex/latex/zhnumber/config/zhnumber-gbk.cfg70
-rw-r--r--Master/texmf-dist/tex/latex/zhnumber/config/zhnumber-utf8.cfg70
-rw-r--r--Master/texmf-dist/tex/latex/zhnumber/zhnumber.sty444
7 files changed, 1694 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/zhnumber/README b/Master/texmf-dist/doc/latex/zhnumber/README
new file mode 100644
index 00000000000..cdca2bfd0b6
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/zhnumber/README
@@ -0,0 +1,72 @@
+Introduction
+------------
+The zhnumber package provides commands to typeset Chinese representations of
+numbers. The main difference between this package and 'CJKnumb' is that commands
+provided by this package is expandable in the proper way. So, it seems that
+zhnumber is a good alternative to CJKnumb package.
+
+It may be distributed and/or modified under the conditions of the
+LaTeX Project Public License (LPPL), either version 1.3c 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 is Qing Lee.
+
+This work consists of the file zhnumber.dtx,
+ and the derived files zhnumber.pdf,
+ zhnumber.sty,
+ zhnumber-utf8.cfg,
+ zhnumber-gbk.cfg,
+ zhnumber.ins and
+ README.txt (this file).
+
+Basic Usage
+-----------
+The package provides the following macros:
+
+ \zhnumber{number}
+ Convert `number' to a full Chinese representation.
+
+ \zhnum{counter}
+ Similar to \arabic{counter}, but representation of 'counter' as Chinese numerals.
+
+ \zhdigits{number}
+ \zhdigits*{number}
+ Handle `number' as a string of digits and convert each of them into the
+ corresponding Chinese digit. The starred version uses the Chinese circle glyph
+ for digit zero; the unstarred version uses the traditional glyph.
+
+You can read the package manual (in Chinese) for more detailed explanations.
+
+Author
+------
+Qing Lee
+Email: sobenlee@gmail.com
+
+If you are interested in the process of development you may observe
+
+ http://code.google.com/p/ctex-kit/
+
+Installation
+------------
+The package is supplied in dtx format and as a pre-extracted zip file,
+zhnumber.tds.zip. The later is most convenient for most users: simply
+unzip this in your local texmf directory and run texhash to update the
+database of file locations. If you want to unpack the dtx yourself, please
+ensure that the "iconv" program is installed and working properly, then
+running "xetex -shell-escape zhnumber.dtx" will extract the package whereas
+"xelatex -shell-escape zhnumber.dtx" will extract it and also typeset the
+documentation.
+
+The package requires LaTeX3 support as provided in the l3kernel and l3packages
+bundles. Both 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).
+
+To compile the documentation without error, you will need the xeCJK package
+and some specific Chinese Simplified fonts (TrueType or OpenType).
diff --git a/Master/texmf-dist/doc/latex/zhnumber/zhnumber.pdf b/Master/texmf-dist/doc/latex/zhnumber/zhnumber.pdf
new file mode 100644
index 00000000000..8f2a436475a
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/zhnumber/zhnumber.pdf
Binary files differ
diff --git a/Master/texmf-dist/source/latex/zhnumber/zhnumber.dtx b/Master/texmf-dist/source/latex/zhnumber/zhnumber.dtx
new file mode 100644
index 00000000000..7615b9cd405
--- /dev/null
+++ b/Master/texmf-dist/source/latex/zhnumber/zhnumber.dtx
@@ -0,0 +1,963 @@
+% \iffalse meta-comment
+% !TEX program = XeLaTeX
+%<*internal>
+\iffalse
+%</internal>
+%<*readme>
+Introduction
+------------
+The zhnumber package provides commands to typeset Chinese representations of
+numbers. The main difference between this package and 'CJKnumb' is that commands
+provided by this package is expandable in the proper way. So, it seems that
+zhnumber is a good alternative to CJKnumb package.
+
+It may be distributed and/or modified under the conditions of the
+LaTeX Project Public License (LPPL), either version 1.3c 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 is Qing Lee.
+
+This work consists of the file zhnumber.dtx,
+ and the derived files zhnumber.pdf,
+ zhnumber.sty,
+ zhnumber-utf8.cfg,
+ zhnumber-gbk.cfg,
+ zhnumber.ins and
+ README.txt (this file).
+
+Basic Usage
+-----------
+The package provides the following macros:
+
+ \zhnumber{number}
+ Convert `number' to a full Chinese representation.
+
+ \zhnum{counter}
+ Similar to \arabic{counter}, but representation of 'counter' as Chinese numerals.
+
+ \zhdigits{number}
+ \zhdigits*{number}
+ Handle `number' as a string of digits and convert each of them into the
+ corresponding Chinese digit. The starred version uses the Chinese circle glyph
+ for digit zero; the unstarred version uses the traditional glyph.
+
+You can read the package manual (in Chinese) for more detailed explanations.
+
+Author
+------
+Qing Lee
+Email: sobenlee@gmail.com
+
+If you are interested in the process of development you may observe
+
+ http://code.google.com/p/ctex-kit/
+
+Installation
+------------
+The package is supplied in dtx format and as a pre-extracted zip file,
+zhnumber.tds.zip. The later is most convenient for most users: simply
+unzip this in your local texmf directory and run texhash to update the
+database of file locations. If you want to unpack the dtx yourself, please
+ensure that the "iconv" program is installed and working properly, then
+running "xetex -shell-escape zhnumber.dtx" will extract the package whereas
+"xelatex -shell-escape zhnumber.dtx" will extract it and also typeset the
+documentation.
+
+The package requires LaTeX3 support as provided in the l3kernel and l3packages
+bundles. Both 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).
+
+To compile the documentation without error, you will need the xeCJK package
+and some specific Chinese Simplified fonts (TrueType or OpenType).
+%</readme>
+%<*internal>
+\fi
+\ifnum\strcmp{\fmtname}{plain}=0 \else
+ \expandafter\begingroup
+\fi
+%</internal>
+%<*batchfile>
+\input docstrip.tex
+\keepsilent
+\askforoverwritefalse
+\preamble
+
+ Copyright (C) 2012 by Qing Lee <sobenlee@gmail.com>
+--------------------------------------------------------------------------
+ This work 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 is Qing Lee.
+
+\endpreamble
+\postamble
+
+ This package consists of the file zhnumber.dtx,
+ and the derived files zhnumber.pdf,
+ zhnumber.sty,
+ zhnumber-utf8.cfg,
+ zhnumber-gbk.cfg,
+ zhnumber.ins and
+ README.txt.
+\endpostamble
+\ifnum\shellescape=1 \else
+ \errmessage{
+ Shell escape is disabled. Please use ^^J^^J
+ xe(la)tex -shell-escape \jobname.ins(dtx)^^J}
+ \expandafter\endbatchfile
+\fi
+\usedir{tex/latex/zhnumber}
+\generate{\file{\jobname.sty}{\from{\jobname.dtx}{package}}}
+\usedir{tex/latex/zhnumber/config}
+\generate{
+ \file{\jobname-utf8.cfg}{\from{\jobname.dtx}{config-utf8}}
+ \file{\jobname-gbk.cfg}{\from{\jobname.dtx}{config-gbk}}}
+\immediate\write18{iconv -f utf-8 -t gbk \jobname-gbk.cfg > \jobname-gbk.temp}
+\immediate\write18{mv -f \jobname-gbk.temp \jobname-gbk.cfg}
+%</batchfile>
+%<batchfile>\endbatchfile
+%<*internal>
+\usedir{source/latex/zhnumber}
+\generate{\file{\jobname.ins}{\from{\jobname.dtx}{batchfile}}}
+\nopreamble\nopostamble
+\usedir{doc/latex/zhnumber}
+\generate{\file{README.txt}{\from{\jobname.dtx}{readme}}}
+\ifnum\strcmp{\fmtname}{plain}=0
+ \expandafter\endbatchfile
+\else
+ \expandafter\endgroup
+\fi
+%</internal>
+%
+%<*driver|package>
+\NeedsTeXFormat{LaTeX2e}
+%<driver>\ProvidesFile{zhnumber.dtx}
+\RequirePackage{expl3}
+%</driver|package>
+%<config-gbk|config-utf8>\ExplSyntaxOff
+%<package>\ProvidesExplPackage {zhnumber}
+%<config-gbk>\ProvidesExplFile {zhnumber-gbk.cfg}
+%<config-utf8>\ProvidesExplFile {zhnumber-utf8.cfg}
+%<package|config-gbk|config-utf8> {2012/05/21} {1.4}
+%<package> {package for typesetting numbers with Chinese glyphs}
+%<config-gbk> {Chinese numerals with GBK encoding}
+%<config-utf8> {Chinese numerals with UTF8 encoding}
+%
+%<*driver>
+\documentclass{l3doc}
+\usepackage{xeCJK}
+\usepackage{zhnumber}
+\usepackage{fvrb-ex}
+\usepackage{metalogo}
+\hypersetup{pdfstartview=FitH}
+\setlist{nosep}
+\linespread{1.1}
+\addtolength{\voffset}{-5\baselineskip}
+\addtolength\textheight{8\baselineskip}
+\setmainfont{TeX Gyre Pagella}
+\setmonofont{Inconsolata}
+\setCJKmainfont[BoldFont=Adobe Heiti Std,ItalicFont=Adobe Kaiti Std]{Adobe Song Std}
+\setCJKmonofont{Adobe Kaiti Std}
+\xeCJKsetup{PunctStyle=kaiming}
+\def\MacroFont{\small\normalfont\ttfamily}
+\makeatletter
+\let\orig@meta\meta
+\def\meta#1{\orig@meta{\normalfont\itshape#1}}
+\def\TF{true\orvar{}false}
+\def\TTF{\defaultvar{true}\orvar{}false}
+\def\TFF{true\orvar\defaultvar{false}}
+\def\orvar{\char`\|}
+\let\defaultvar\textbf
+\def\argbrace#1{\char`\{#1\char`\}}
+\@addtoreset{CodelineNo}{section}
+\makeatother
+\begin{document}
+ \DocInput{\jobname.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \GetFileInfo{\jobname.sty}
+%
+% \title{\bfseries\pkg{zhnumber} 宏包}
+% \author{李清\\ \path{sobenlee@gmail.com}}
+% \date{\filedate\qquad\fileversion}
+% \maketitle
+%
+% \begin{documentation}
+%
+% \section{简介}
+% \pkg{zhnumber} 宏包用于将阿拉伯数字按照中文格式输出。相比于 \pkg{CJKnumb},它提供
+% 的三个格式转换命令 |\zhnumber|,|\zhdigits| 和 |\zhnum| 都是可以适当展开的,可以
+% 正常使用于 |PDF| 书签和交叉引用。
+%
+% \pkg{zhnumber} 支持 |GBK| 和 |UTF8| 编码,依赖 \LaTeX~3 项目的 \pkg{expl3},
+% \pkg{xparse} 和 \pkg{l3keys2e} 宏包。
+%
+% 目前 |\zhnumber| 能正确处理的最大整数是 $10^{48}-1$,|\zhditits| 不受这个大小的限制。
+%
+% \section{使用方法}
+%
+% \begin{function}{encoding}
+% \begin{syntax}
+% encoding = \meta{GBK\orvar{}UTF8}
+% \end{syntax}
+% 用于指定编码的宏包选项,可以在调用宏包的时候设定,也可以用 |\zhnumsetup| 在导言区内设定。
+% 对于 \XeLaTeX 和 \LuaLaTeX ,不用指定编码,宏包将自动使用 |UTF8| 编码。只有 \LaTeX
+% 和 pdf\LaTeX 需要指定编码,如果没有指定,默认将使用 |GBK|,并且此时 \pkg{zhnumber}
+% 宏包应该在 \pkg{CJK} 或 \pkg{CJKutf8} 宏包之后载入。
+% \end{function}
+%
+% \begin{function}{\zhnumber}
+% \begin{syntax}
+% \cs{zhnumber} \marg{number}
+% \end{syntax}
+% 以中文格式输出数字。这里的数字可以是整数、小数和分数。例如\\[1ex]
+% \begin{SideBySideExample}[frame=single,numbers=left,xrightmargin=.6\linewidth,gobble=5]
+% \zhnumber{2012020120}\\
+% \zhnumber{2 012 020 120}\\
+% \zhnumber{2,012,020,120}\\
+% \zhnumber{2012.020120}\\
+% \zhnumber{2012.}\\
+% \zhnumber{.2012}\\
+% \zhnumber{20120/20120}\\
+% \zhnumber{/2012}\\
+% \zhnumber{2012/}\\
+% \zhnumber{201;2020/120}
+% \end{SideBySideExample}
+% \end{function}
+%
+% \begin{function}{\zhdigits}
+% \begin{syntax}
+% \cs{zhdigits} \marg{number}
+% \end{syntax}
+% 将阿拉伯数字转换为中文数字串。缺省状态下,|\zhdigits| 将 0 映射为〇,如果需要
+% 将其映射为零,可以使用 |\zhdigits*|。例如\\[1ex]
+% \begin{SideBySideExample}[frame=single,numbers=left,xrightmargin=.6\linewidth,gobble=5]
+% \zhdigits{2012020120}\\
+% \zhdigits*{2012020120}
+% \end{SideBySideExample}
+% \end{function}
+%
+% \begin{function}{\zhnum}
+% \begin{syntax}
+% \cs{zhnum} \marg{counter}
+% \end{syntax}
+% 与 |\roman| 等类似,用于将 \LaTeX 计数器的值转换为中文数字。例如\\[1ex]
+% \begin{SideBySideExample}[frame=single,numbers=left,xrightmargin=.6\linewidth,gobble=5]
+% \zhnum{section}
+% \end{SideBySideExample}
+% \end{function}
+%
+% \begin{function}{\zhnumsetup}
+% \begin{syntax}
+% \cs{zhnumsetup} \argbrace{\meta{key1}=\meta{var1}, \meta{key2}=\meta{var2}, ...}
+% \end{syntax}
+% 用于在导言区或文档中,设置中文数字的输出格式。目前可以设置的 \meta{key} 如下介绍。
+% \end{function}
+%
+% \begin{function}{style}
+% \begin{syntax}
+% style = \argbrace{\meta{Simplified}\orvar\meta{Traditional}\orvar\meta{Normal}\orvar\meta{Financial}\orvar\meta{Ancient}}
+% \end{syntax}
+% 意义分别为
+% \begin{itemize}[font=\ttfamily,labelsep=1em]
+% \item[Simplified] 以简体中文输出数字;
+% \item[Traditional] 以繁体中文输出数字;
+% \item[Normal] 以小写形式输出中文数字;
+% \item[Financial] 以大写形式输出中文数字;
+% \item[Ancient] 以廿输出 20,以卅输出 30,以卌输出 40,以皕输出 200。
+% \end{itemize}
+% 可以设置 |style| 为其中一个,也可以是前三个与后两个的适当组合,默认是简体小写。例如\\[1ex]
+% \begin{SideBySideExample}[frame=single,numbers=left,xrightmargin=.4\linewidth,gobble=5]
+% \zhnumsetup{style={Traditional,Financial}}
+% \zhnumber{62012.3}\\
+% \zhnumsetup{style=Ancient}
+% \zhnumber{21}
+% \end{SideBySideExample}
+% \end{function}
+%
+% \begin{function}{null}
+% \begin{syntax}
+% null = \meta{\TFF}
+% \end{syntax}
+% 缺省状态下,除了 |\zhdigits| 外,其它的格式转换命令,将 0 映射成零,如果需要将 0 映射
+% 成〇,可以使用这个选项。
+% \end{function}
+%
+% \smallskip
+%
+% \pkg{zhnumber} 提供下列选项来控制阿拉伯数字的中文映射。
+% \begin{verbatim}[frame=single]
+% - -0 0 1 2 3 4 5 6 7 8 9 10 20 30 40 200 dot and parts
+% E2 E3 E4 E8 E12 E16 E20 E24 E28 E32 E36 E40 E44
+% \end{verbatim}
+% 其中 |-| 设置负,|-0| 设置〇,|dot| 设置小数的点,|and| 和 |parts| 分别设置分数
+% 的“又”和“分之”,而 |E|$n$ 设置 $10^n$。例如
+% \begin{verbatim}[frame=single]
+% \zhnumsetup{2={两}}
+% \end{verbatim}
+% 可以将 2 映射成两。需要说明的是,\pkg{zhnumber} 将优先使用这里的设置,所以将会影响
+% 到 |style| 选项。如果要恢复 |style| 的功能,可以使用 |reset| 选项。
+%
+% \begin{function}{reset}
+% \begin{syntax}
+% reset
+% \end{syntax}
+% 用于恢复 \pkg{zhnumber} 对阿拉伯数字的初始化映射。\pkg{zhnumber} 的中文数字初始化
+% 设置见源代码(第 \ref{sec:zhnum-map} 节)。
+% \end{function}
+%
+% \begin{function}{\zhnumber,\zhdigits,\zhnum}
+% \begin{syntax}
+% \cs{zhnumber} \oarg{options} \marg{number}
+% \cs{zhdigits} \oarg{options} \marg{number}
+% \cs{zhnum} \oarg{options} \marg{counter}
+% \end{syntax}
+% 如果只改变当前数字的中文输出格式,可以使用带选项的格式转换命令,其中 \meta{options}
+% 与 |\zhnumsetup| 的参数相同,如上所介绍。这些带了选项的命令是不可展开的,在某些场合使
+% 用时要小心。
+% \end{function}
+%
+% \end{documentation}
+%
+%
+% \begin{implementation}
+%
+% \section{\pkg{zhnumber} 宏包代码实现}
+%
+% \begin{macrocode}
+%<*package>
+% \end{macrocode}
+%
+% \begin{macrocode}
+\msg_new:nnn { zhnumber } { l3-too-old }
+ {
+ Support~package~'expl3'~too~old. \\\\
+ Please~update~an~up~to~date~version~of~the~bundles\\\\
+ 'l3kernel'~and~'l3packages'\\\\
+ using~your~TeX~package~manager~or~from~CTAN.
+ }
+\@ifpackagelater { expl3 } { 2012/02/19 } { }
+ { \msg_error:nn { zhnumber } { l3-too-old } }
+% \end{macrocode}
+%
+% \begin{macrocode}
+\RequirePackage{xparse}
+\RequirePackage{l3keys2e}
+% \end{macrocode}
+%
+% \begin{macro}{\zhnumber}
+% 用于将输入的数字按照中文格式输出。
+% \begin{macrocode}
+\DeclareExpandableDocumentCommand \zhnumber { o m }
+ { \zhnum_number_aux:nNn {#1} \zhnum_number:n {#2} }
+\cs_new_nopar:Nn \zhnum_number:n { \zhnum_number:w #1 . \q_nil . \q_stop }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_number_aux:nNn}
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_number_aux:nNn
+ {
+ \IfNoValueTF {#1} { #2 {#3} }
+ { \group_begin: \zhnumsetup {#1} #2 {#3} \group_end: }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_number:w}
+% 先判断输入的是小数还是分数。
+% \begin{macrocode}
+\cs_new_nopar:Npn \zhnum_number:w #1.#2.#3 \q_stop
+ {
+ \quark_if_nil:nTF {#2}
+ { \zhnum_integer_or_fraction:w #1 / \q_nil / \q_stop }
+ { \zhnum_decimal:nn {#1} {#2} }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_integer_or_fraction:w}
+% 判断是否输入的是分数。
+% \begin{macrocode}
+\cs_new_nopar:Npn \zhnum_integer_or_fraction:w #1/#2/#3 \q_stop
+ {
+ \quark_if_nil:nTF {#2}
+ { \zhnum_integer:f {#1} }
+ { \zhnum_fraction:w #2 \q_mark #1 ; \q_nil ; \q_stop }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_fraction:w}
+% 对分数进行预处理。
+% \begin{macrocode}
+\cs_new_nopar:Npn \zhnum_fraction:w #1 \q_mark #2;#3;#4 \q_stop
+ {
+ \quark_if_nil:nTF {#3}
+ {
+ \zhnum_blank_to_zero:f {#1} \c_zhnum_over_tl
+ \zhnum_blank_to_zero:f {#2}
+ }
+ {
+ \tl_if_blank:fF {#2} { \zhnumber {#2} \c_zhnum_and_tl }
+ \zhnum_blank_to_zero:f {#1} \c_zhnum_over_tl
+ \zhnum_blank_to_zero:f {#3}
+ }
+ }
+\cs_generate_variant:Nn \tl_if_blank:nF { f }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_decimal:nn}
+% 对小数进行预处理。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_decimal:nn
+ {
+ \zhnum_blank_to_zero:f {#1} \c_zhnum_dot_tl
+ \tl_if_blank:fTF {#2} { \zhnum_digit_map:n \c_zero } { \zhdigits * {#2} }
+ }
+\cs_generate_variant:Nn \tl_if_blank:nTF { f }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_blank_to_zero:n}
+% 输出小数的整数位。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_blank_to_zero:n
+ { \tl_if_blank:nTF {#1} { \zhnum_digit_map:n \c_zero } { \zhnumber {#1} } }
+\cs_generate_variant:Nn \zhnum_blank_to_zero:n { f }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\zhnum}
+% 用于将 \LaTeX 计数器按中文格式输出。
+% \begin{macrocode}
+\DeclareExpandableDocumentCommand \zhnum { o m }
+ { \zhnum_number_aux:nNn {#1} \zhnum_counter:n {#2} }
+\cs_new_nopar:Nn \zhnum_counter:n
+ {
+ \exp_args:Nc \token_if_int_register:NTF { c@#1 }
+ { \zhnum_integer:v { c@#1 } }
+ { \@nocounterr {#1} }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_integer:n}
+% 对整数的处理。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_integer:n
+ { \zhnum_integer_aux:f { \zhnum_erase_separator:n {#1} } }
+\cs_new_nopar:Nn \zhnum_integer_aux:n
+ {
+ \int_compare:nNnT { \int_get_sign:n {#1} \c_one } < \c_zero
+ { \zhnum_digit_map:n \c_minus_one }
+ \zhnum_parse_number:f { \zhnum_trim_zeros:f { \int_get_digits:n {#1} } }
+ }
+\cs_generate_variant:Nn \zhnum_integer:n { f , v }
+\cs_generate_variant:Nn \zhnum_integer_aux:n { f }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_erase_separator:n,\zhnum_trim_zeros:n}
+% 去掉分隔符和多余的 $0$。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_erase_separator:n
+ { \cs_to_str:c { \tl_map_function:nN {#1} \zhnum_erase_separator_aux:N } }
+\cs_new_nopar:Nn \zhnum_erase_separator_aux:N
+ { \str_if_eq:xxF {#1} \c_zhnum_separator_tl {#1} }
+\cs_new_nopar:Nn \zhnum_trim_zeros:n
+ {
+ \tl_if_empty:nTF {#1} \c_zero
+ {
+ \int_compare:nNnTF { \tl_head:n {#1} } = \c_zero
+ { \zhnum_trim_zeros:o { \use_none:n #1 } } {#1}
+ }
+ }
+\cs_generate_variant:Nn \zhnum_trim_zeros:n { f , o }
+\cs_generate_variant:Nn \cs_to_str:N { c }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]
+% {\zhnum_parse_number:n,\zhnum_parse_number:nn,\zhnum_parse_number:nnn}
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_parse_number:n
+ { \zhnum_parse_number:nf {#1} { \tl_length:n {#1} } }
+\cs_new_nopar:Nn \zhnum_parse_number:nn
+ {
+ \int_compare:nNnTF {#2} < \c_five
+ {
+ \int_compare:nNnTF {#1} = \c_zero
+ { \zhnum_digit_map:n \c_zero }
+ { \zhnum_process_number:NNn \c_true_bool \c_true_bool {#1} }
+ }
+ {
+ \int_compare:nNnTF { \int_mod:nn {#2} \c_four } = \c_zero
+ {
+ \zhnum_split_number:nNNnfn {#1} \c_true_bool \c_true_bool { \c_zero }
+ { \int_div_truncate:nn { #2 - \c_one } \c_four }
+ { \c_zero }
+ }
+ {
+ \zhnum_parse_number:nnf {#1} {#2}
+ {
+ \use:c
+ {
+ zhnum_use_
+ \int_to_roman:n { \int_mod:nn {#2} \c_four }
+ _delimit_by_q_stop:w
+ }
+ #1 \q_stop
+ }
+ }
+ }
+ }
+\cs_new_nopar:Nn \zhnum_parse_number:nnn
+ {
+ \zhnum_process_number:NNn \c_true_bool \c_true_bool {#3}
+ \zhnum_scale_map:n { \int_div_truncate:nn { #2 - \c_one } \c_four }
+ \int_compare:nNnTF { \int_mod:nn {#3} \c_ten } = \c_zero
+ { \zhnum_split_number:nNNffn {#1} \c_false_bool \c_true_bool }
+ { \zhnum_split_number:nNNffn {#1} \c_true_bool \c_false_bool }
+ { \int_mod:nn {#2} \c_four }
+ { \int_eval:n { \int_div_truncate:nn { #2 - \c_one } \c_four - \c_one } }
+ { \c_zero }
+ }
+\cs_generate_variant:Nn \zhnum_parse_number:n { f }
+\cs_generate_variant:Nn \zhnum_parse_number:nn { nf }
+\cs_generate_variant:Nn \zhnum_parse_number:nnn { nnf }
+\cs_new_nopar:Npn \zhnum_use_i_delimit_by_q_stop:w #1#2 \q_stop {#1}
+\cs_new_nopar:Npn \zhnum_use_ii_delimit_by_q_stop:w #1#2#3 \q_stop {#1#2}
+\cs_new_nopar:Npn \zhnum_use_iii_delimit_by_q_stop:w #1#2#3#4 \q_stop {#1#2#3}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_split_number:nNNnnn}
+% 将输入的整数由低位到高位,以四位为一段进行处理。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_split_number:nNNnnn
+ {
+ \exp_args:Nf \zhnum_split_number_aux:nnnnnnn
+ { \zhnum_number_item:nn {#1} { \c_one + #4 + #6 * \c_four } }
+ {#1} {#2} {#3} {#4} {#5} {#6}
+ }
+\cs_new_nopar:Nn \zhnum_split_number_aux:nnnnnnn
+ {
+ \int_compare:nNnTF {#1} = \c_zero { \use_i_ii:nnn }
+ {
+ \bool_if:NF #3 { \zhnum_digit_map:n \c_zero }
+ \zhnum_process_number:NNn {#3} {#4} {#1}
+ \zhnum_scale_map:n { #6 - #7 }
+ \int_compare:nNnTF { \int_mod:nn {#1} \c_ten } = \c_zero
+ { \use_i_ii:nnn } { \zhnum_use_i_iii:nnn }
+ }
+ { \int_compare:nNnF { #6 - #7 } = \c_zero }
+ { {
+ \zhnum_split_number:nNNnnf
+ {#2} \c_false_bool \c_true_bool {#5} {#6} { \int_eval:n { #7 + \c_one } }
+ } }
+ { {
+ \zhnum_split_number:nNNnnf
+ {#2} \c_true_bool \c_false_bool {#5} {#6} { \int_eval:n { #7 + \c_one } }
+ } }
+ }
+\cs_new_nopar:Nn \zhnum_use_i_iii:nnn {#1#3}
+\cs_generate_variant:Nn \zhnum_split_number:nNNnnn { nNNnf , nNNff , nNNnnf }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_number_item:nn,\zhnum_number_item_aux:nN}
+% 截取整数的其中四位数。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_number_item:nn
+ {
+ \zhnum_number_item_aux:nN {#2} #1
+ \q_recursion_tail
+ \prg_break_point:n { }
+ }
+\cs_new_nopar:Nn \zhnum_number_item_aux:nN
+ {
+ \quark_if_recursion_tail_break:n {#2}
+ \int_compare:nNnTF {#1} = \c_one
+ { \zhnum_recursion_break:NNNNw #2 }
+ { \zhnum_number_item_aux:fN { \int_eval:n { #1 - \c_one } } }
+ }
+\cs_generate_variant:Nn \zhnum_number_item_aux:nN { f }
+\cs_new_nopar:Npn \zhnum_recursion_break:NNNNw #1#2#3#4#5 \prg_break_point:n #6 {#1#2#3#4}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_process_number:NNn,\zhnum_process_number:NNNNNN}
+% 对四位数字按情况进行处理。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_process_number:NNn
+ {
+ \zhnum_process_number:ffffNN
+ { \int_mod:nn {#3} \c_ten }
+ { \int_mod:nn { \int_div_truncate:nn {#3} \c_ten } \c_ten }
+ { \int_mod:nn { \int_div_truncate:nn {#3} \c_one_hundred } \c_ten }
+ { \int_div_truncate:nn {#3} \c_one_thousand }
+ {#1} {#2}
+ }
+\cs_new_nopar:Nn \zhnum_process_number:NNNNNN
+ {
+ \int_compare:nNnTF {#4} = \c_zero
+ { \bool_if:NF #6 { \zhnum_digit_map:n \c_zero } }
+ { \zhnum_digit_map:n {#4} \zhnum_digit_map:n \c_one_thousand }
+ \int_compare:nNnTF {#3} = \c_zero
+ { \int_compare:nNnT { #4 * (#2#1) } > \c_zero { \zhnum_digit_map:n \c_zero } }
+ {
+ \bool_if:nTF
+ { \l_zhnum_ancient_bool && \int_compare_p:nNn {#3} = \c_two }
+ { \zhnum_digit_map:n { #3 * \c_one_hundred } }
+ { \zhnum_digit_map:n {#3} \zhnum_digit_map:n \c_one_hundred }
+ }
+ \int_compare:nNnTF {#2} = \c_zero
+ { \int_compare:nNnT { #3 * #1 } > \c_zero { \zhnum_digit_map:n \c_zero } }
+ {
+ \bool_if:nF
+ {
+ \int_compare_p:nNn {#2} = \c_one &&
+ \int_compare_p:nNn {#4#3} = \c_zero && #6 && #5
+ }
+ {
+ \bool_if:nTF
+ {
+ \l_zhnum_ancient_bool &&
+ ( \int_compare_p:nNn {#2} = \c_two ||
+ \int_compare_p:nNn {#2} = \c_three ||
+ \int_compare_p:nNn {#2} = \c_four )
+ }
+ {
+ \zhnum_digit_map:n { #2 * \c_ten }
+ \use_none:nn
+ }
+ { \zhnum_digit_map:n {#2} }
+ }
+ \zhnum_digit_map:n \c_ten
+ }
+ \int_compare:nNnF {#1} = \c_zero { \zhnum_digit_map:n {#1} }
+ }
+\cs_generate_variant:Nn \zhnum_process_number:NNn { NNf }
+\cs_generate_variant:Nn \zhnum_process_number:NNNNNN { ffff }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\zhdigits}
+% 将输入的数字输出为中文数字串输出。
+% \begin{macrocode}
+\DeclareExpandableDocumentCommand \zhdigits { s o m }
+ {
+ \IfBooleanTF {#1}
+ { \zhnum_digits_aux:nnN {#2} {#3} \zhnum_digits_zero_aux:N }
+ { \zhnum_digits_aux:nnN {#2} {#3} \zhnum_digits_null_aux:N }
+ }
+\cs_new_nopar:Nn \zhnum_digits_aux:nnN
+ {
+ \IfNoValueTF {#1} { \tl_map_function:fN {#2} #3 }
+ { \group_begin: \zhnumsetup {#1} \tl_map_function:fN {#2} #3 \group_end: }
+ }
+\cs_generate_variant:Nn \tl_map_function:nN { f }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]
+% {\zhnum_digits_null_aux:N,\zhnum_digits_zero_aux:N,\zhnum_digits_aux:nn}
+% 将输入的数字输出为中文数字串输出。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_digits_null_aux:N { \zhnum_digits_aux:nn \c_zhnum_null_int {#1} }
+\cs_new_nopar:Nn \zhnum_digits_zero_aux:N { \zhnum_digits_aux:nn \c_zero {#1} }
+\cs_new_nopar:Nn \zhnum_digits_aux:nn
+ {
+ \str_if_eq:xxF {#2} \c_zhnum_separator_tl
+ {
+ \str_if_eq:xxTF {#2} . \c_zhnum_dot_tl
+ {
+ \zhnum_digit_map:n
+ {
+ \str_if_eq:xxTF {#2} - \c_minus_one
+ {
+ \bool_if:nTF
+ {
+ \int_compare_p:nNn {#2} = \c_zero &&
+ \int_compare_p:nNn {#1} = \c_zhnum_null_int
+ }
+ { \c_zhnum_null_int } {#2}
+ }
+ }
+ }
+ }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\c_zhnum_null_int}
+% 设置“〇”对应的阿拉伯数字。
+% \begin{macrocode}
+\int_const:Nn \c_zhnum_null_int { -10 }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_digit_map:n}
+% 阿拉伯数字与中文数字的映射。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_digit_map:n
+ {
+ \prg_case_int:nnn {#1}
+ {
+ { \c_minus_one } { \c_zhnum_minus_tl }
+ { \c_zero } { \c_zhnum_zero_tl }
+ { \c_one } { \c_zhnum_one_tl }
+ { \c_two } { \c_zhnum_two_tl }
+ { \c_three } { \c_zhnum_three_tl }
+ { \c_four } { \c_zhnum_four_tl }
+ { \c_five } { \c_zhnum_five_tl }
+ { \c_six } { \c_zhnum_six_tl }
+ { \c_seven } { \c_zhnum_seven_tl }
+ { \c_eight } { \c_zhnum_eight_tl }
+ { \c_nine } { \c_zhnum_nine_tl }
+ { \c_ten } { \c_zhnum_ten_tl }
+ { \c_one_hundred } { \c_zhnum_hundred_tl }
+ { \c_one_thousand } { \c_zhnum_thousand_tl }
+ { \c_zhnum_null_int } { \c_zhnum_null_tl }
+ { 20 } { \c_zhnum_twenty_tl }
+ { 30 } { \c_zhnum_thirty_tl }
+ { 40 } { \c_zhnum_forty_tl }
+ { 200 } { \c_zhnum_two_hundred_tl }
+ }
+ { \prg_do_nothing: }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}[internal]{\zhnum_scale_map:n}
+% 大数系统的映射。
+% \begin{macrocode}
+\cs_new_nopar:Nn \zhnum_scale_map:n
+ {
+ \prg_case_int:nnn {#1}
+ {
+ { \c_zero } { \c_zhnum_scale_zero_tl }
+ { \c_one } { \c_zhnum_scale_one_tl }
+ { \c_two } { \c_zhnum_scale_two_tl }
+ { \c_three } { \c_zhnum_scale_three_tl }
+ { \c_four } { \c_zhnum_scale_four_tl }
+ { \c_five } { \c_zhnum_scale_five_tl }
+ { \c_six } { \c_zhnum_scale_six_tl }
+ { \c_seven } { \c_zhnum_scale_seven_tl }
+ { \c_eight } { \c_zhnum_scale_eight_tl }
+ { \c_nine } { \c_zhnum_scale_nine_tl }
+ { \c_ten } { \c_zhnum_scale_ten_tl }
+ { \c_eleven } { \c_zhnum_scale_eleven_tl }
+ }
+ { \zhnum_scale_map_hook:n {#1} }
+ }
+\cs_new_nopar:Nn \zhnum_scale_map_hook:n
+ { \zhnum_scale_map:n { \int_mod:nn {#1} \c_eleven } }
+% \end{macrocode}
+% \end{macro}
+
+% 根据需要设置中文阿拉伯数字。
+% \begin{macrocode}
+\keys_define:nn { zhnum / options }
+ {
+ - .tl_set:N = \c_zhnum_minus_tl ,
+ -0 .tl_set:N = \c_zhnum_null_tl ,
+ 0 .tl_set:N = \c_zhnum_zero_tl ,
+ 1 .tl_set:N = \c_zhnum_one_tl ,
+ 2 .tl_set:N = \c_zhnum_two_tl ,
+ 3 .tl_set:N = \c_zhnum_three_tl ,
+ 4 .tl_set:N = \c_zhnum_four_tl ,
+ 5 .tl_set:N = \c_zhnum_five_tl ,
+ 6 .tl_set:N = \c_zhnum_six_tl ,
+ 7 .tl_set:N = \c_zhnum_seven_tl ,
+ 8 .tl_set:N = \c_zhnum_eight_tl ,
+ 9 .tl_set:N = \c_zhnum_nine_tl ,
+ 10 .tl_set:N = \c_zhnum_ten_tl ,
+ 20 .tl_set:N = \c_zhnum_twenty_tl ,
+ 30 .tl_set:N = \c_zhnum_thirty_tl ,
+ 40 .tl_set:N = \c_zhnum_forty_tl ,
+ 200 .tl_set:N = \c_zhnum_two_hundred_tl ,
+ E2 .tl_set:N = \c_zhnum_hundred_tl ,
+ E3 .tl_set:N = \c_zhnum_thousand_tl ,
+ E4 .tl_set:N = \c_zhnum_scale_one_tl ,
+ E8 .tl_set:N = \c_zhnum_scale_two_tl ,
+ E12 .tl_set:N = \c_zhnum_scale_three_tl ,
+ E16 .tl_set:N = \c_zhnum_scale_four_tl ,
+ E20 .tl_set:N = \c_zhnum_scale_five_tl ,
+ E24 .tl_set:N = \c_zhnum_scale_six_tl ,
+ E28 .tl_set:N = \c_zhnum_scale_seven_tl ,
+ E32 .tl_set:N = \c_zhnum_scale_eight_tl ,
+ E36 .tl_set:N = \c_zhnum_scale_nine_tl ,
+ E40 .tl_set:N = \c_zhnum_scale_ten_tl ,
+ E44 .tl_set:N = \c_zhnum_scale_eleven_tl ,
+ }
+% \end{macrocode}
+%
+% \begin{macro}[internal]{\zhnum_load_cfg:}
+% 根据选定编码载入配置文件。
+% \begin{macrocode}
+\cs_new:Nn \zhnum_load_cfg:
+ {
+ \cs_if_exist:NT \CJK@makeActive
+ {
+ \int_compare:nNnTF { \char_value_catcode:n {"080} } = \active
+ { \bool_set_false:N \l_zhnum_set_CJK_active_bool }
+ { \bool_set_true:N \l_zhnum_set_CJK_active_bool \CJK@makeActive }
+ }
+ \file_input:n { zhnumber - \bool_if:NTF \g_zhnum_gbk_bool { gbk } { utf8 } .cfg }
+ \bool_if:nT { \cs_if_exist_p:N \CJK@makeInactive && \l_zhnum_set_CJK_active_bool }
+ { \CJK@makeInactive }
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{encoding,style,null,reset}
+% 宏包设置选项。
+% \begin{macrocode}
+\keys_define:nn { zhnum / options }
+ {
+ encoding .choice: ,
+ encoding / UTF8 .code:n = { \bool_gset_false:N \g_zhnum_gbk_bool \zhnum_load_cfg: } ,
+ encoding / GBK .code:n = { \bool_gset_true:N \g_zhnum_gbk_bool \zhnum_load_cfg: } ,
+ encoding .default:n = { GBK } ,
+ style .multichoice: ,
+ style / Normal .code:n =
+ {
+ \bool_set_false:N \l_zhnum_ancient_bool
+ \bool_set_true:N \l_zhnum_normal_bool
+ } ,
+ style / Financial .code:n =
+ {
+ \bool_set_false:N \l_zhnum_ancient_bool
+ \bool_set_false:N \l_zhnum_normal_bool
+ } ,
+ style / Ancient .code:n =
+ {
+ \bool_set_true:N \l_zhnum_ancient_bool
+ \bool_set_true:N \l_zhnum_normal_bool
+ } ,
+ style / Simplified .code:n = { \bool_set_true:N \l_zhnum_simp_bool } ,
+ style / Traditional .code:n = { \bool_set_false:N \l_zhnum_simp_bool } ,
+ style .default:n = { Normal , Simplified } ,
+ null .bool_set:N = \l_zhnum_null_bool ,
+ reset .code:n = \zhnum_load_cfg: ,
+ dot .tl_set:N = \c_zhnum_dot_tl ,
+ and .tl_set:N = \c_zhnum_and_tl ,
+ parts .tl_set:N = \c_zhnum_over_tl ,
+ separator .tl_set:N = \c_zhnum_separator_tl ,
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\zhnumsetup}
+% 在文档中设置 \pkg{zhnumber} 的接口。
+% \begin{macrocode}
+\NewDocumentCommand \zhnumsetup { m }
+ {
+ \keys_set:nn { zhnum / options } {#1}
+ \tex_ignorespaces:D
+ }
+% \end{macrocode}
+% \end{macro}
+%
+% 初始化设置和执行宏包选项。
+% \begin{macrocode}
+\keys_set:nn { zhnum / options } { style , null = false , separator = {,} }
+\ProcessKeysOptions { zhnum / options }
+% \end{macrocode}
+%
+% 如果没有选定编码,则根据引擎自动设置编码。
+% \begin{macrocode}
+\ExplSyntaxOn
+\bool_if_exist:NF \g_zhnum_gbk_bool
+ {
+ \exp_args:Nnx \keys_set:nn { zhnum / options }
+ {
+ encoding =
+ {
+ \bool_if:nTF { \xetex_if_engine_p: || \luatex_if_engine_p: }
+ { UTF8 } { GBK }
+ }
+ }
+ }
+\ExplSyntaxOff
+% \end{macrocode}
+%
+% \begin{macrocode}
+%</package>
+% \end{macrocode}
+%
+% \section{中文数字设置}
+% \label{sec:zhnum-map}
+%
+% \begin{macrocode}
+%<*config-gbk|config-utf8>
+% \end{macrocode}
+%
+% \begin{macrocode}
+\tl_set:Nn \c_zhnum_minus_tl { \bool_if:NTF \l_zhnum_simp_bool { 负 } { 負 } }
+\tl_set:Nn \c_zhnum_zero_tl { \bool_if:nTF \l_zhnum_null_bool \c_zhnum_null_tl { 零 } }
+\tl_set:Nn \c_zhnum_null_tl { \bool_if:NTF \l_zhnum_normal_bool { 〇 } { 零 } }
+\tl_set:Nn \c_zhnum_one_tl { \bool_if:NTF \l_zhnum_normal_bool { 一 } { 壹 } }
+\tl_set:Nn \c_zhnum_two_tl { \bool_if:NTF \l_zhnum_normal_bool { 二 } { \bool_if:NTF \l_zhnum_simp_bool { 贰 } { 貳 } } }
+\tl_set:Nn \c_zhnum_three_tl { \bool_if:NTF \l_zhnum_normal_bool { 三 } { \bool_if:NTF \l_zhnum_simp_bool { 叁 } { 叄 } } }
+\tl_set:Nn \c_zhnum_four_tl { \bool_if:NTF \l_zhnum_normal_bool { 四 } { 肆 } }
+\tl_set:Nn \c_zhnum_five_tl { \bool_if:NTF \l_zhnum_normal_bool { 五 } { 伍 } }
+\tl_set:Nn \c_zhnum_six_tl { \bool_if:NTF \l_zhnum_normal_bool { 六 } { \bool_if:NTF \l_zhnum_simp_bool { 陆 } { 陸 } } }
+\tl_set:Nn \c_zhnum_seven_tl { \bool_if:NTF \l_zhnum_normal_bool { 七 } { 柒 } }
+\tl_set:Nn \c_zhnum_eight_tl { \bool_if:NTF \l_zhnum_normal_bool { 八 } { 捌 } }
+\tl_set:Nn \c_zhnum_nine_tl { \bool_if:NTF \l_zhnum_normal_bool { 九 } { 玖 } }
+\tl_set:Nn \c_zhnum_ten_tl { \bool_if:NTF \l_zhnum_normal_bool { 十 } { 拾 } }
+\tl_set:Nn \c_zhnum_hundred_tl { \bool_if:NTF \l_zhnum_normal_bool { 百 } { 佰 } }
+\tl_set:Nn \c_zhnum_thousand_tl { \bool_if:NTF \l_zhnum_normal_bool { 千 } { 仟 } }
+\tl_set:Nn \c_zhnum_twenty_tl { 廿 }
+\tl_set:Nn \c_zhnum_thirty_tl { 卅 }
+\tl_set:Nn \c_zhnum_forty_tl { 卌 }
+\tl_set:Nn \c_zhnum_two_hundred_tl { 皕 }
+\tl_set:Nn \c_zhnum_dot_tl { \bool_if:NTF \l_zhnum_simp_bool { 点 } { 點 } }
+\tl_set:Nn \c_zhnum_and_tl { 又 }
+\tl_set:Nn \c_zhnum_over_tl { 分之 }
+\tl_set:Nn \c_zhnum_scale_zero_tl { }
+\tl_set:Nn \c_zhnum_scale_one_tl { \bool_if:NTF \l_zhnum_simp_bool { 万 } { 萬 } }
+\tl_set:Nn \c_zhnum_scale_two_tl { \bool_if:NTF \l_zhnum_simp_bool { 亿 } { 億 } }
+\tl_set:Nn \c_zhnum_scale_three_tl { 兆 }
+\tl_set:Nn \c_zhnum_scale_four_tl { 京 }
+\tl_set:Nn \c_zhnum_scale_five_tl { 垓 }
+\tl_set:Nn \c_zhnum_scale_six_tl { 秭 }
+\tl_set:Nn \c_zhnum_scale_seven_tl { 穰 }
+\tl_set:Nn \c_zhnum_scale_eight_tl { \bool_if:NTF \l_zhnum_simp_bool { 沟 } { 溝 } }
+\tl_set:Nn \c_zhnum_scale_nine_tl { \bool_if:NTF \l_zhnum_simp_bool { 涧 } { 澗 } }
+\tl_set:Nn \c_zhnum_scale_ten_tl { 正 }
+\tl_set:Nn \c_zhnum_scale_eleven_tl { \bool_if:NTF \l_zhnum_simp_bool { 载 } { 載 } }
+% \end{macrocode}
+%
+% \begin{macrocode}
+\ExplSyntaxOff
+% \end{macrocode}
+%
+% \begin{macrocode}
+%</config-gbk|config-utf8>
+% \end{macrocode}
+%
+% \end{implementation}
+%
+% \Finale
+%
+\endinput
diff --git a/Master/texmf-dist/source/latex/zhnumber/zhnumber.ins b/Master/texmf-dist/source/latex/zhnumber/zhnumber.ins
new file mode 100644
index 00000000000..f7cf9f41296
--- /dev/null
+++ b/Master/texmf-dist/source/latex/zhnumber/zhnumber.ins
@@ -0,0 +1,75 @@
+%%
+%% This is file `zhnumber.ins',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% zhnumber.dtx (with options: `batchfile')
+%%
+%% Copyright (C) 2012 by Qing Lee <sobenlee@gmail.com>
+%% --------------------------------------------------------------------------
+%% This work 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 is Qing Lee.
+%%
+\input docstrip.tex
+\keepsilent
+\askforoverwritefalse
+\preamble
+
+ Copyright (C) 2012 by Qing Lee <sobenlee@gmail.com>
+--------------------------------------------------------------------------
+ This work 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 is Qing Lee.
+
+\endpreamble
+\postamble
+
+ This package consists of the file zhnumber.dtx,
+ and the derived files zhnumber.pdf,
+ zhnumber.sty,
+ zhnumber-utf8.cfg,
+ zhnumber-gbk.cfg,
+ zhnumber.ins and
+ README.txt.
+\endpostamble
+\ifnum\shellescape=1 \else
+ \errmessage{
+ Shell escape is disabled. Please use ^^J^^J
+ xe(la)tex -shell-escape \jobname.ins(dtx)^^J}
+ \expandafter\endbatchfile
+\fi
+\usedir{tex/latex/zhnumber}
+\generate{\file{\jobname.sty}{\from{\jobname.dtx}{package}}}
+\usedir{tex/latex/zhnumber/config}
+\generate{
+ \file{\jobname-utf8.cfg}{\from{\jobname.dtx}{config-utf8}}
+ \file{\jobname-gbk.cfg}{\from{\jobname.dtx}{config-gbk}}}
+\immediate\write18{iconv -f utf-8 -t gbk \jobname-gbk.cfg > \jobname-gbk.temp}
+\immediate\write18{mv -f \jobname-gbk.temp \jobname-gbk.cfg}
+\endbatchfile
+%%
+%% This package consists of the file zhnumber.dtx,
+%% and the derived files zhnumber.pdf,
+%% zhnumber.sty,
+%% zhnumber-utf8.cfg,
+%% zhnumber-gbk.cfg,
+%% zhnumber.ins and
+%% README.txt.
+%%
+%% End of file `zhnumber.ins'.
diff --git a/Master/texmf-dist/tex/latex/zhnumber/config/zhnumber-gbk.cfg b/Master/texmf-dist/tex/latex/zhnumber/config/zhnumber-gbk.cfg
new file mode 100644
index 00000000000..ef92991cae4
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/zhnumber/config/zhnumber-gbk.cfg
@@ -0,0 +1,70 @@
+%%
+%% This is file `zhnumber-gbk.cfg',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% zhnumber.dtx (with options: `config-gbk')
+%%
+%% Copyright (C) 2012 by Qing Lee <sobenlee@gmail.com>
+%% --------------------------------------------------------------------------
+%% This work 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 is Qing Lee.
+%%
+\ExplSyntaxOff
+\ProvidesExplFile {zhnumber-gbk.cfg}
+ {2012/05/21} {1.4}
+ {Chinese numerals with GBK encoding}
+\tl_set:Nn \c_zhnum_minus_tl { \bool_if:NTF \l_zhnum_simp_bool { } { ؓ } }
+\tl_set:Nn \c_zhnum_zero_tl { \bool_if:nTF \l_zhnum_null_bool \c_zhnum_null_tl { } }
+\tl_set:Nn \c_zhnum_null_tl { \bool_if:NTF \l_zhnum_normal_bool { } { } }
+\tl_set:Nn \c_zhnum_one_tl { \bool_if:NTF \l_zhnum_normal_bool { һ } { Ҽ } }
+\tl_set:Nn \c_zhnum_two_tl { \bool_if:NTF \l_zhnum_normal_bool { } { \bool_if:NTF \l_zhnum_simp_bool { } { E } } }
+\tl_set:Nn \c_zhnum_three_tl { \bool_if:NTF \l_zhnum_normal_bool { } { \bool_if:NTF \l_zhnum_simp_bool { } { } } }
+\tl_set:Nn \c_zhnum_four_tl { \bool_if:NTF \l_zhnum_normal_bool { } { } }
+\tl_set:Nn \c_zhnum_five_tl { \bool_if:NTF \l_zhnum_normal_bool { } { } }
+\tl_set:Nn \c_zhnum_six_tl { \bool_if:NTF \l_zhnum_normal_bool { } { \bool_if:NTF \l_zhnum_simp_bool { ½ } { } } }
+\tl_set:Nn \c_zhnum_seven_tl { \bool_if:NTF \l_zhnum_normal_bool { } { } }
+\tl_set:Nn \c_zhnum_eight_tl { \bool_if:NTF \l_zhnum_normal_bool { } { } }
+\tl_set:Nn \c_zhnum_nine_tl { \bool_if:NTF \l_zhnum_normal_bool { } { } }
+\tl_set:Nn \c_zhnum_ten_tl { \bool_if:NTF \l_zhnum_normal_bool { ʮ } { ʰ } }
+\tl_set:Nn \c_zhnum_hundred_tl { \bool_if:NTF \l_zhnum_normal_bool { } { } }
+\tl_set:Nn \c_zhnum_thousand_tl { \bool_if:NTF \l_zhnum_normal_bool { ǧ } { Ǫ } }
+\tl_set:Nn \c_zhnum_twenty_tl { إ }
+\tl_set:Nn \c_zhnum_thirty_tl { ئ }
+\tl_set:Nn \c_zhnum_forty_tl { c }
+\tl_set:Nn \c_zhnum_two_hundred_tl { z }
+\tl_set:Nn \c_zhnum_dot_tl { \bool_if:NTF \l_zhnum_simp_bool { } { c } }
+\tl_set:Nn \c_zhnum_and_tl { }
+\tl_set:Nn \c_zhnum_over_tl { ֮ }
+\tl_set:Nn \c_zhnum_scale_zero_tl { }
+\tl_set:Nn \c_zhnum_scale_one_tl { \bool_if:NTF \l_zhnum_simp_bool { } { f } }
+\tl_set:Nn \c_zhnum_scale_two_tl { \bool_if:NTF \l_zhnum_simp_bool { } { | } }
+\tl_set:Nn \c_zhnum_scale_three_tl { }
+\tl_set:Nn \c_zhnum_scale_four_tl { }
+\tl_set:Nn \c_zhnum_scale_five_tl { }
+\tl_set:Nn \c_zhnum_scale_six_tl { }
+\tl_set:Nn \c_zhnum_scale_seven_tl { }
+\tl_set:Nn \c_zhnum_scale_eight_tl { \bool_if:NTF \l_zhnum_simp_bool { } { } }
+\tl_set:Nn \c_zhnum_scale_nine_tl { \bool_if:NTF \l_zhnum_simp_bool { } { } }
+\tl_set:Nn \c_zhnum_scale_ten_tl { }
+\tl_set:Nn \c_zhnum_scale_eleven_tl { \bool_if:NTF \l_zhnum_simp_bool { } { d } }
+\ExplSyntaxOff
+%%
+%% This package consists of the file zhnumber.dtx,
+%% and the derived files zhnumber.pdf,
+%% zhnumber.sty,
+%% zhnumber-utf8.cfg,
+%% zhnumber-gbk.cfg,
+%% zhnumber.ins and
+%% README.txt.
+%%
+%% End of file `zhnumber-gbk.cfg'.
diff --git a/Master/texmf-dist/tex/latex/zhnumber/config/zhnumber-utf8.cfg b/Master/texmf-dist/tex/latex/zhnumber/config/zhnumber-utf8.cfg
new file mode 100644
index 00000000000..acba3e53cda
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/zhnumber/config/zhnumber-utf8.cfg
@@ -0,0 +1,70 @@
+%%
+%% This is file `zhnumber-utf8.cfg',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% zhnumber.dtx (with options: `config-utf8')
+%%
+%% Copyright (C) 2012 by Qing Lee <sobenlee@gmail.com>
+%% --------------------------------------------------------------------------
+%% This work 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 is Qing Lee.
+%%
+\ExplSyntaxOff
+\ProvidesExplFile {zhnumber-utf8.cfg}
+ {2012/05/21} {1.4}
+ {Chinese numerals with UTF8 encoding}
+\tl_set:Nn \c_zhnum_minus_tl { \bool_if:NTF \l_zhnum_simp_bool { 负 } { 負 } }
+\tl_set:Nn \c_zhnum_zero_tl { \bool_if:nTF \l_zhnum_null_bool \c_zhnum_null_tl { 零 } }
+\tl_set:Nn \c_zhnum_null_tl { \bool_if:NTF \l_zhnum_normal_bool { 〇 } { 零 } }
+\tl_set:Nn \c_zhnum_one_tl { \bool_if:NTF \l_zhnum_normal_bool { 一 } { 壹 } }
+\tl_set:Nn \c_zhnum_two_tl { \bool_if:NTF \l_zhnum_normal_bool { 二 } { \bool_if:NTF \l_zhnum_simp_bool { 贰 } { 貳 } } }
+\tl_set:Nn \c_zhnum_three_tl { \bool_if:NTF \l_zhnum_normal_bool { 三 } { \bool_if:NTF \l_zhnum_simp_bool { 叁 } { 叄 } } }
+\tl_set:Nn \c_zhnum_four_tl { \bool_if:NTF \l_zhnum_normal_bool { 四 } { 肆 } }
+\tl_set:Nn \c_zhnum_five_tl { \bool_if:NTF \l_zhnum_normal_bool { 五 } { 伍 } }
+\tl_set:Nn \c_zhnum_six_tl { \bool_if:NTF \l_zhnum_normal_bool { 六 } { \bool_if:NTF \l_zhnum_simp_bool { 陆 } { 陸 } } }
+\tl_set:Nn \c_zhnum_seven_tl { \bool_if:NTF \l_zhnum_normal_bool { 七 } { 柒 } }
+\tl_set:Nn \c_zhnum_eight_tl { \bool_if:NTF \l_zhnum_normal_bool { 八 } { 捌 } }
+\tl_set:Nn \c_zhnum_nine_tl { \bool_if:NTF \l_zhnum_normal_bool { 九 } { 玖 } }
+\tl_set:Nn \c_zhnum_ten_tl { \bool_if:NTF \l_zhnum_normal_bool { 十 } { 拾 } }
+\tl_set:Nn \c_zhnum_hundred_tl { \bool_if:NTF \l_zhnum_normal_bool { 百 } { 佰 } }
+\tl_set:Nn \c_zhnum_thousand_tl { \bool_if:NTF \l_zhnum_normal_bool { 千 } { 仟 } }
+\tl_set:Nn \c_zhnum_twenty_tl { 廿 }
+\tl_set:Nn \c_zhnum_thirty_tl { 卅 }
+\tl_set:Nn \c_zhnum_forty_tl { 卌 }
+\tl_set:Nn \c_zhnum_two_hundred_tl { 皕 }
+\tl_set:Nn \c_zhnum_dot_tl { \bool_if:NTF \l_zhnum_simp_bool { 点 } { 點 } }
+\tl_set:Nn \c_zhnum_and_tl { 又 }
+\tl_set:Nn \c_zhnum_over_tl { 分之 }
+\tl_set:Nn \c_zhnum_scale_zero_tl { }
+\tl_set:Nn \c_zhnum_scale_one_tl { \bool_if:NTF \l_zhnum_simp_bool { 万 } { 萬 } }
+\tl_set:Nn \c_zhnum_scale_two_tl { \bool_if:NTF \l_zhnum_simp_bool { 亿 } { 億 } }
+\tl_set:Nn \c_zhnum_scale_three_tl { 兆 }
+\tl_set:Nn \c_zhnum_scale_four_tl { 京 }
+\tl_set:Nn \c_zhnum_scale_five_tl { 垓 }
+\tl_set:Nn \c_zhnum_scale_six_tl { 秭 }
+\tl_set:Nn \c_zhnum_scale_seven_tl { 穰 }
+\tl_set:Nn \c_zhnum_scale_eight_tl { \bool_if:NTF \l_zhnum_simp_bool { 沟 } { 溝 } }
+\tl_set:Nn \c_zhnum_scale_nine_tl { \bool_if:NTF \l_zhnum_simp_bool { 涧 } { 澗 } }
+\tl_set:Nn \c_zhnum_scale_ten_tl { 正 }
+\tl_set:Nn \c_zhnum_scale_eleven_tl { \bool_if:NTF \l_zhnum_simp_bool { 载 } { 載 } }
+\ExplSyntaxOff
+%%
+%% This package consists of the file zhnumber.dtx,
+%% and the derived files zhnumber.pdf,
+%% zhnumber.sty,
+%% zhnumber-utf8.cfg,
+%% zhnumber-gbk.cfg,
+%% zhnumber.ins and
+%% README.txt.
+%%
+%% End of file `zhnumber-utf8.cfg'.
diff --git a/Master/texmf-dist/tex/latex/zhnumber/zhnumber.sty b/Master/texmf-dist/tex/latex/zhnumber/zhnumber.sty
new file mode 100644
index 00000000000..387b52eb429
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/zhnumber/zhnumber.sty
@@ -0,0 +1,444 @@
+%%
+%% This is file `zhnumber.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% zhnumber.dtx (with options: `package')
+%%
+%% Copyright (C) 2012 by Qing Lee <sobenlee@gmail.com>
+%% --------------------------------------------------------------------------
+%% This work 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 is Qing Lee.
+%%
+\NeedsTeXFormat{LaTeX2e}
+\RequirePackage{expl3}
+\ProvidesExplPackage {zhnumber}
+ {2012/05/21} {1.4}
+ {package for typesetting numbers with Chinese glyphs}
+\msg_new:nnn { zhnumber } { l3-too-old }
+ {
+ Support~package~'expl3'~too~old. \\\\
+ Please~update~an~up~to~date~version~of~the~bundles\\\\
+ 'l3kernel'~and~'l3packages'\\\\
+ using~your~TeX~package~manager~or~from~CTAN.
+ }
+\@ifpackagelater { expl3 } { 2012/02/19 } { }
+ { \msg_error:nn { zhnumber } { l3-too-old } }
+\RequirePackage{xparse}
+\RequirePackage{l3keys2e}
+\DeclareExpandableDocumentCommand \zhnumber { o m }
+ { \zhnum_number_aux:nNn {#1} \zhnum_number:n {#2} }
+\cs_new_nopar:Nn \zhnum_number:n { \zhnum_number:w #1 . \q_nil . \q_stop }
+\cs_new_nopar:Nn \zhnum_number_aux:nNn
+ {
+ \IfNoValueTF {#1} { #2 {#3} }
+ { \group_begin: \zhnumsetup {#1} #2 {#3} \group_end: }
+ }
+\cs_new_nopar:Npn \zhnum_number:w #1.#2.#3 \q_stop
+ {
+ \quark_if_nil:nTF {#2}
+ { \zhnum_integer_or_fraction:w #1 / \q_nil / \q_stop }
+ { \zhnum_decimal:nn {#1} {#2} }
+ }
+\cs_new_nopar:Npn \zhnum_integer_or_fraction:w #1/#2/#3 \q_stop
+ {
+ \quark_if_nil:nTF {#2}
+ { \zhnum_integer:f {#1} }
+ { \zhnum_fraction:w #2 \q_mark #1 ; \q_nil ; \q_stop }
+ }
+\cs_new_nopar:Npn \zhnum_fraction:w #1 \q_mark #2;#3;#4 \q_stop
+ {
+ \quark_if_nil:nTF {#3}
+ {
+ \zhnum_blank_to_zero:f {#1} \c_zhnum_over_tl
+ \zhnum_blank_to_zero:f {#2}
+ }
+ {
+ \tl_if_blank:fF {#2} { \zhnumber {#2} \c_zhnum_and_tl }
+ \zhnum_blank_to_zero:f {#1} \c_zhnum_over_tl
+ \zhnum_blank_to_zero:f {#3}
+ }
+ }
+\cs_generate_variant:Nn \tl_if_blank:nF { f }
+\cs_new_nopar:Nn \zhnum_decimal:nn
+ {
+ \zhnum_blank_to_zero:f {#1} \c_zhnum_dot_tl
+ \tl_if_blank:fTF {#2} { \zhnum_digit_map:n \c_zero } { \zhdigits * {#2} }
+ }
+\cs_generate_variant:Nn \tl_if_blank:nTF { f }
+\cs_new_nopar:Nn \zhnum_blank_to_zero:n
+ { \tl_if_blank:nTF {#1} { \zhnum_digit_map:n \c_zero } { \zhnumber {#1} } }
+\cs_generate_variant:Nn \zhnum_blank_to_zero:n { f }
+\DeclareExpandableDocumentCommand \zhnum { o m }
+ { \zhnum_number_aux:nNn {#1} \zhnum_counter:n {#2} }
+\cs_new_nopar:Nn \zhnum_counter:n
+ {
+ \exp_args:Nc \token_if_int_register:NTF { c@#1 }
+ { \zhnum_integer:v { c@#1 } }
+ { \@nocounterr {#1} }
+ }
+\cs_new_nopar:Nn \zhnum_integer:n
+ { \zhnum_integer_aux:f { \zhnum_erase_separator:n {#1} } }
+\cs_new_nopar:Nn \zhnum_integer_aux:n
+ {
+ \int_compare:nNnT { \int_get_sign:n {#1} \c_one } < \c_zero
+ { \zhnum_digit_map:n \c_minus_one }
+ \zhnum_parse_number:f { \zhnum_trim_zeros:f { \int_get_digits:n {#1} } }
+ }
+\cs_generate_variant:Nn \zhnum_integer:n { f , v }
+\cs_generate_variant:Nn \zhnum_integer_aux:n { f }
+\cs_new_nopar:Nn \zhnum_erase_separator:n
+ { \cs_to_str:c { \tl_map_function:nN {#1} \zhnum_erase_separator_aux:N } }
+\cs_new_nopar:Nn \zhnum_erase_separator_aux:N
+ { \str_if_eq:xxF {#1} \c_zhnum_separator_tl {#1} }
+\cs_new_nopar:Nn \zhnum_trim_zeros:n
+ {
+ \tl_if_empty:nTF {#1} \c_zero
+ {
+ \int_compare:nNnTF { \tl_head:n {#1} } = \c_zero
+ { \zhnum_trim_zeros:o { \use_none:n #1 } } {#1}
+ }
+ }
+\cs_generate_variant:Nn \zhnum_trim_zeros:n { f , o }
+\cs_generate_variant:Nn \cs_to_str:N { c }
+\cs_new_nopar:Nn \zhnum_parse_number:n
+ { \zhnum_parse_number:nf {#1} { \tl_length:n {#1} } }
+\cs_new_nopar:Nn \zhnum_parse_number:nn
+ {
+ \int_compare:nNnTF {#2} < \c_five
+ {
+ \int_compare:nNnTF {#1} = \c_zero
+ { \zhnum_digit_map:n \c_zero }
+ { \zhnum_process_number:NNn \c_true_bool \c_true_bool {#1} }
+ }
+ {
+ \int_compare:nNnTF { \int_mod:nn {#2} \c_four } = \c_zero
+ {
+ \zhnum_split_number:nNNnfn {#1} \c_true_bool \c_true_bool { \c_zero }
+ { \int_div_truncate:nn { #2 - \c_one } \c_four }
+ { \c_zero }
+ }
+ {
+ \zhnum_parse_number:nnf {#1} {#2}
+ {
+ \use:c
+ {
+ zhnum_use_
+ \int_to_roman:n { \int_mod:nn {#2} \c_four }
+ _delimit_by_q_stop:w
+ }
+ #1 \q_stop
+ }
+ }
+ }
+ }
+\cs_new_nopar:Nn \zhnum_parse_number:nnn
+ {
+ \zhnum_process_number:NNn \c_true_bool \c_true_bool {#3}
+ \zhnum_scale_map:n { \int_div_truncate:nn { #2 - \c_one } \c_four }
+ \int_compare:nNnTF { \int_mod:nn {#3} \c_ten } = \c_zero
+ { \zhnum_split_number:nNNffn {#1} \c_false_bool \c_true_bool }
+ { \zhnum_split_number:nNNffn {#1} \c_true_bool \c_false_bool }
+ { \int_mod:nn {#2} \c_four }
+ { \int_eval:n { \int_div_truncate:nn { #2 - \c_one } \c_four - \c_one } }
+ { \c_zero }
+ }
+\cs_generate_variant:Nn \zhnum_parse_number:n { f }
+\cs_generate_variant:Nn \zhnum_parse_number:nn { nf }
+\cs_generate_variant:Nn \zhnum_parse_number:nnn { nnf }
+\cs_new_nopar:Npn \zhnum_use_i_delimit_by_q_stop:w #1#2 \q_stop {#1}
+\cs_new_nopar:Npn \zhnum_use_ii_delimit_by_q_stop:w #1#2#3 \q_stop {#1#2}
+\cs_new_nopar:Npn \zhnum_use_iii_delimit_by_q_stop:w #1#2#3#4 \q_stop {#1#2#3}
+\cs_new_nopar:Nn \zhnum_split_number:nNNnnn
+ {
+ \exp_args:Nf \zhnum_split_number_aux:nnnnnnn
+ { \zhnum_number_item:nn {#1} { \c_one + #4 + #6 * \c_four } }
+ {#1} {#2} {#3} {#4} {#5} {#6}
+ }
+\cs_new_nopar:Nn \zhnum_split_number_aux:nnnnnnn
+ {
+ \int_compare:nNnTF {#1} = \c_zero { \use_i_ii:nnn }
+ {
+ \bool_if:NF #3 { \zhnum_digit_map:n \c_zero }
+ \zhnum_process_number:NNn {#3} {#4} {#1}
+ \zhnum_scale_map:n { #6 - #7 }
+ \int_compare:nNnTF { \int_mod:nn {#1} \c_ten } = \c_zero
+ { \use_i_ii:nnn } { \zhnum_use_i_iii:nnn }
+ }
+ { \int_compare:nNnF { #6 - #7 } = \c_zero }
+ { {
+ \zhnum_split_number:nNNnnf
+ {#2} \c_false_bool \c_true_bool {#5} {#6} { \int_eval:n { #7 + \c_one } }
+ } }
+ { {
+ \zhnum_split_number:nNNnnf
+ {#2} \c_true_bool \c_false_bool {#5} {#6} { \int_eval:n { #7 + \c_one } }
+ } }
+ }
+\cs_new_nopar:Nn \zhnum_use_i_iii:nnn {#1#3}
+\cs_generate_variant:Nn \zhnum_split_number:nNNnnn { nNNnf , nNNff , nNNnnf }
+\cs_new_nopar:Nn \zhnum_number_item:nn
+ {
+ \zhnum_number_item_aux:nN {#2} #1
+ \q_recursion_tail
+ \prg_break_point:n { }
+ }
+\cs_new_nopar:Nn \zhnum_number_item_aux:nN
+ {
+ \quark_if_recursion_tail_break:n {#2}
+ \int_compare:nNnTF {#1} = \c_one
+ { \zhnum_recursion_break:NNNNw #2 }
+ { \zhnum_number_item_aux:fN { \int_eval:n { #1 - \c_one } } }
+ }
+\cs_generate_variant:Nn \zhnum_number_item_aux:nN { f }
+\cs_new_nopar:Npn \zhnum_recursion_break:NNNNw #1#2#3#4#5 \prg_break_point:n #6 {#1#2#3#4}
+\cs_new_nopar:Nn \zhnum_process_number:NNn
+ {
+ \zhnum_process_number:ffffNN
+ { \int_mod:nn {#3} \c_ten }
+ { \int_mod:nn { \int_div_truncate:nn {#3} \c_ten } \c_ten }
+ { \int_mod:nn { \int_div_truncate:nn {#3} \c_one_hundred } \c_ten }
+ { \int_div_truncate:nn {#3} \c_one_thousand }
+ {#1} {#2}
+ }
+\cs_new_nopar:Nn \zhnum_process_number:NNNNNN
+ {
+ \int_compare:nNnTF {#4} = \c_zero
+ { \bool_if:NF #6 { \zhnum_digit_map:n \c_zero } }
+ { \zhnum_digit_map:n {#4} \zhnum_digit_map:n \c_one_thousand }
+ \int_compare:nNnTF {#3} = \c_zero
+ { \int_compare:nNnT { #4 * (#2#1) } > \c_zero { \zhnum_digit_map:n \c_zero } }
+ {
+ \bool_if:nTF
+ { \l_zhnum_ancient_bool && \int_compare_p:nNn {#3} = \c_two }
+ { \zhnum_digit_map:n { #3 * \c_one_hundred } }
+ { \zhnum_digit_map:n {#3} \zhnum_digit_map:n \c_one_hundred }
+ }
+ \int_compare:nNnTF {#2} = \c_zero
+ { \int_compare:nNnT { #3 * #1 } > \c_zero { \zhnum_digit_map:n \c_zero } }
+ {
+ \bool_if:nF
+ {
+ \int_compare_p:nNn {#2} = \c_one &&
+ \int_compare_p:nNn {#4#3} = \c_zero && #6 && #5
+ }
+ {
+ \bool_if:nTF
+ {
+ \l_zhnum_ancient_bool &&
+ ( \int_compare_p:nNn {#2} = \c_two ||
+ \int_compare_p:nNn {#2} = \c_three ||
+ \int_compare_p:nNn {#2} = \c_four )
+ }
+ {
+ \zhnum_digit_map:n { #2 * \c_ten }
+ \use_none:nn
+ }
+ { \zhnum_digit_map:n {#2} }
+ }
+ \zhnum_digit_map:n \c_ten
+ }
+ \int_compare:nNnF {#1} = \c_zero { \zhnum_digit_map:n {#1} }
+ }
+\cs_generate_variant:Nn \zhnum_process_number:NNn { NNf }
+\cs_generate_variant:Nn \zhnum_process_number:NNNNNN { ffff }
+\DeclareExpandableDocumentCommand \zhdigits { s o m }
+ {
+ \IfBooleanTF {#1}
+ { \zhnum_digits_aux:nnN {#2} {#3} \zhnum_digits_zero_aux:N }
+ { \zhnum_digits_aux:nnN {#2} {#3} \zhnum_digits_null_aux:N }
+ }
+\cs_new_nopar:Nn \zhnum_digits_aux:nnN
+ {
+ \IfNoValueTF {#1} { \tl_map_function:fN {#2} #3 }
+ { \group_begin: \zhnumsetup {#1} \tl_map_function:fN {#2} #3 \group_end: }
+ }
+\cs_generate_variant:Nn \tl_map_function:nN { f }
+\cs_new_nopar:Nn \zhnum_digits_null_aux:N { \zhnum_digits_aux:nn \c_zhnum_null_int {#1} }
+\cs_new_nopar:Nn \zhnum_digits_zero_aux:N { \zhnum_digits_aux:nn \c_zero {#1} }
+\cs_new_nopar:Nn \zhnum_digits_aux:nn
+ {
+ \str_if_eq:xxF {#2} \c_zhnum_separator_tl
+ {
+ \str_if_eq:xxTF {#2} . \c_zhnum_dot_tl
+ {
+ \zhnum_digit_map:n
+ {
+ \str_if_eq:xxTF {#2} - \c_minus_one
+ {
+ \bool_if:nTF
+ {
+ \int_compare_p:nNn {#2} = \c_zero &&
+ \int_compare_p:nNn {#1} = \c_zhnum_null_int
+ }
+ { \c_zhnum_null_int } {#2}
+ }
+ }
+ }
+ }
+ }
+\int_const:Nn \c_zhnum_null_int { -10 }
+\cs_new_nopar:Nn \zhnum_digit_map:n
+ {
+ \prg_case_int:nnn {#1}
+ {
+ { \c_minus_one } { \c_zhnum_minus_tl }
+ { \c_zero } { \c_zhnum_zero_tl }
+ { \c_one } { \c_zhnum_one_tl }
+ { \c_two } { \c_zhnum_two_tl }
+ { \c_three } { \c_zhnum_three_tl }
+ { \c_four } { \c_zhnum_four_tl }
+ { \c_five } { \c_zhnum_five_tl }
+ { \c_six } { \c_zhnum_six_tl }
+ { \c_seven } { \c_zhnum_seven_tl }
+ { \c_eight } { \c_zhnum_eight_tl }
+ { \c_nine } { \c_zhnum_nine_tl }
+ { \c_ten } { \c_zhnum_ten_tl }
+ { \c_one_hundred } { \c_zhnum_hundred_tl }
+ { \c_one_thousand } { \c_zhnum_thousand_tl }
+ { \c_zhnum_null_int } { \c_zhnum_null_tl }
+ { 20 } { \c_zhnum_twenty_tl }
+ { 30 } { \c_zhnum_thirty_tl }
+ { 40 } { \c_zhnum_forty_tl }
+ { 200 } { \c_zhnum_two_hundred_tl }
+ }
+ { \prg_do_nothing: }
+ }
+\cs_new_nopar:Nn \zhnum_scale_map:n
+ {
+ \prg_case_int:nnn {#1}
+ {
+ { \c_zero } { \c_zhnum_scale_zero_tl }
+ { \c_one } { \c_zhnum_scale_one_tl }
+ { \c_two } { \c_zhnum_scale_two_tl }
+ { \c_three } { \c_zhnum_scale_three_tl }
+ { \c_four } { \c_zhnum_scale_four_tl }
+ { \c_five } { \c_zhnum_scale_five_tl }
+ { \c_six } { \c_zhnum_scale_six_tl }
+ { \c_seven } { \c_zhnum_scale_seven_tl }
+ { \c_eight } { \c_zhnum_scale_eight_tl }
+ { \c_nine } { \c_zhnum_scale_nine_tl }
+ { \c_ten } { \c_zhnum_scale_ten_tl }
+ { \c_eleven } { \c_zhnum_scale_eleven_tl }
+ }
+ { \zhnum_scale_map_hook:n {#1} }
+ }
+\cs_new_nopar:Nn \zhnum_scale_map_hook:n
+ { \zhnum_scale_map:n { \int_mod:nn {#1} \c_eleven } }
+
+\keys_define:nn { zhnum / options }
+ {
+ - .tl_set:N = \c_zhnum_minus_tl ,
+ -0 .tl_set:N = \c_zhnum_null_tl ,
+ 0 .tl_set:N = \c_zhnum_zero_tl ,
+ 1 .tl_set:N = \c_zhnum_one_tl ,
+ 2 .tl_set:N = \c_zhnum_two_tl ,
+ 3 .tl_set:N = \c_zhnum_three_tl ,
+ 4 .tl_set:N = \c_zhnum_four_tl ,
+ 5 .tl_set:N = \c_zhnum_five_tl ,
+ 6 .tl_set:N = \c_zhnum_six_tl ,
+ 7 .tl_set:N = \c_zhnum_seven_tl ,
+ 8 .tl_set:N = \c_zhnum_eight_tl ,
+ 9 .tl_set:N = \c_zhnum_nine_tl ,
+ 10 .tl_set:N = \c_zhnum_ten_tl ,
+ 20 .tl_set:N = \c_zhnum_twenty_tl ,
+ 30 .tl_set:N = \c_zhnum_thirty_tl ,
+ 40 .tl_set:N = \c_zhnum_forty_tl ,
+ 200 .tl_set:N = \c_zhnum_two_hundred_tl ,
+ E2 .tl_set:N = \c_zhnum_hundred_tl ,
+ E3 .tl_set:N = \c_zhnum_thousand_tl ,
+ E4 .tl_set:N = \c_zhnum_scale_one_tl ,
+ E8 .tl_set:N = \c_zhnum_scale_two_tl ,
+ E12 .tl_set:N = \c_zhnum_scale_three_tl ,
+ E16 .tl_set:N = \c_zhnum_scale_four_tl ,
+ E20 .tl_set:N = \c_zhnum_scale_five_tl ,
+ E24 .tl_set:N = \c_zhnum_scale_six_tl ,
+ E28 .tl_set:N = \c_zhnum_scale_seven_tl ,
+ E32 .tl_set:N = \c_zhnum_scale_eight_tl ,
+ E36 .tl_set:N = \c_zhnum_scale_nine_tl ,
+ E40 .tl_set:N = \c_zhnum_scale_ten_tl ,
+ E44 .tl_set:N = \c_zhnum_scale_eleven_tl ,
+ }
+\cs_new:Nn \zhnum_load_cfg:
+ {
+ \cs_if_exist:NT \CJK@makeActive
+ {
+ \int_compare:nNnTF { \char_value_catcode:n {"080} } = \active
+ { \bool_set_false:N \l_zhnum_set_CJK_active_bool }
+ { \bool_set_true:N \l_zhnum_set_CJK_active_bool \CJK@makeActive }
+ }
+ \file_input:n { zhnumber - \bool_if:NTF \g_zhnum_gbk_bool { gbk } { utf8 } .cfg }
+ \bool_if:nT { \cs_if_exist_p:N \CJK@makeInactive && \l_zhnum_set_CJK_active_bool }
+ { \CJK@makeInactive }
+ }
+\keys_define:nn { zhnum / options }
+ {
+ encoding .choice: ,
+ encoding / UTF8 .code:n = { \bool_gset_false:N \g_zhnum_gbk_bool \zhnum_load_cfg: } ,
+ encoding / GBK .code:n = { \bool_gset_true:N \g_zhnum_gbk_bool \zhnum_load_cfg: } ,
+ encoding .default:n = { GBK } ,
+ style .multichoice: ,
+ style / Normal .code:n =
+ {
+ \bool_set_false:N \l_zhnum_ancient_bool
+ \bool_set_true:N \l_zhnum_normal_bool
+ } ,
+ style / Financial .code:n =
+ {
+ \bool_set_false:N \l_zhnum_ancient_bool
+ \bool_set_false:N \l_zhnum_normal_bool
+ } ,
+ style / Ancient .code:n =
+ {
+ \bool_set_true:N \l_zhnum_ancient_bool
+ \bool_set_true:N \l_zhnum_normal_bool
+ } ,
+ style / Simplified .code:n = { \bool_set_true:N \l_zhnum_simp_bool } ,
+ style / Traditional .code:n = { \bool_set_false:N \l_zhnum_simp_bool } ,
+ style .default:n = { Normal , Simplified } ,
+ null .bool_set:N = \l_zhnum_null_bool ,
+ reset .code:n = \zhnum_load_cfg: ,
+ dot .tl_set:N = \c_zhnum_dot_tl ,
+ and .tl_set:N = \c_zhnum_and_tl ,
+ parts .tl_set:N = \c_zhnum_over_tl ,
+ separator .tl_set:N = \c_zhnum_separator_tl ,
+ }
+\NewDocumentCommand \zhnumsetup { m }
+ {
+ \keys_set:nn { zhnum / options } {#1}
+ \tex_ignorespaces:D
+ }
+\keys_set:nn { zhnum / options } { style , null = false , separator = {,} }
+\ProcessKeysOptions { zhnum / options }
+\ExplSyntaxOn
+\bool_if_exist:NF \g_zhnum_gbk_bool
+ {
+ \exp_args:Nnx \keys_set:nn { zhnum / options }
+ {
+ encoding =
+ {
+ \bool_if:nTF { \xetex_if_engine_p: || \luatex_if_engine_p: }
+ { UTF8 } { GBK }
+ }
+ }
+ }
+\ExplSyntaxOff
+%%
+%% This package consists of the file zhnumber.dtx,
+%% and the derived files zhnumber.pdf,
+%% zhnumber.sty,
+%% zhnumber-utf8.cfg,
+%% zhnumber-gbk.cfg,
+%% zhnumber.ins and
+%% README.txt.
+%%
+%% End of file `zhnumber.sty'.