xeCJK 宏包

Transcription

1 xecjk ctex.org 2014/12/26 v XƎTEX CJK CJK xecjkfntef xecjk CJK CJK xecjk xecjk xecjkfntef xecjk-listings xunicode-addon xecjk.cfg xecjk XƎLATEX CJK 1. CJK 2. CJK (a z, A Z) 3. CCT 4. xecjk XƎTEX XƎTEX [2009/06/29] xecjk LATEX3 l3kernel l3packages xecjk fontspec xecjk xecjk ctex-kit 1 2 ctex-kit rev leoliu.pku@gmail.com 2 sobenlee@gmail.com 1

2 2 LATEX xecjk \usepackage{xecjk} xecjk CJK xecjk \documentclass{article} \usepackage{xecjk} \setcjkmainfont{simsun} \begin{document} \LaTeX \end{document} SimSun UTF-8 XƎLATEX xecjk CJK ctex xecjk ctex xecjk \xecjksetup 3.1 \setcjkmainfont xecjk 3.2 example xecjk key = var \xecjksetup xecjk fontspec xecjk xecjk fontspec \xecjksetup \xecjksetup { key 1 = val 1, key 2 = val 2,...} key 1, key 2 val 1, val 2 \usepackage[punctstyle=kaiming]{xecjk} \usepackage{xecjk}... \xecjksetup{punctstyle=kaiming} CJK xecjk LocalConfig New: LocalConfig = { true false name } xecjk- name.cfg name true xecjk.cfg false xecjk CJK xecjk- name.cfg TDS TEX Live xecjk- name.cfg texlive/texmf-local/tex/xelatex/xecjk mktexlsr TEX 2

3 xecjk LocalConfig xecjk \xecjksetup xecjkactive CJKspace CJKmath CJKglue CJKecglue xcjkecglue CheckSingle Updated: PlainEquation New: NewLineCS NewLineCS+ NewLineCS- xecjkactive = true false / / XƎTEX CJKspace = true false xecjk CJK CJKmath = true false CJK CJK url URL \path CJKglue = {\hskip 0pt plus 0.08\baselineskip} CJK glue xecjk glue CJKecglue = { glue } CJK CJK glue glue xecjk CJK xecjk xcjkecglue = { true false glue } xecjk CJK CJKecglue CJK CheckSingle = true false CJK CJK PlainEquation = true false $$...$$ CheckSingle \[...\] NewLineCS = { \par \[ } CheckSingle xecjk New: EnvCS EnvCS+ EnvCS- New: EnvCS = { \begin \end } LATEX CheckSingle xecjk InlineEnv InlineEnv+ InlineEnv- Updated: InlineEnv = { env 1, env 2, env 3,...} CheckSingle xecjk CJK LATEX \begin{...} \end{...} LATEX CheckSingle 3

4 AutoFallBack AutoFakeBold AutoFakeSlant EmboldenFactor SlantFactor AutoFallBack = true false 3.2 AutoFakeBold = { true false } AutoFakeSlant = { true false } EmboldenFactor = { 4 } SlantFactor = { } PunctStyle Updated: PunctStyle = { quanjiao banjiao kaiming hangmobanjiao CCT plain... } xecjk quanjiao 1.5 banjiao kaiming hangmobanjiao CCT CCT plain \xecjkdeclarepunctstyle KaiMingPunct KaiMingPunct+ KaiMingPunct- LongPunct LongPunct+ LongPunct- MiddlePunct MiddlePunct+ MiddlePunct- PunctWidth PunctBoundWidth New: KaiMingPunct = { } kaiming KaiMingPunct + - LongPunct = { } MiddlePunct = { } CJK xecjk PunctWidth = { length } xecjk length em pt plain CJK \xecjksetwidth PunctBoundWidth = { length } / AllowBreakBetweenPuncts AllowBreakBetweenPuncts = true false xecjk CJK CJK 4

5 RubberPunctSkip New: CheckFullRight Verb New: NoBreakCS NoBreakCS+ NoBreakCS- New: Updated: LoadFandol New: RubberPunctSkip = true false / false / CheckFullRight = true false NoBreakCS = { \footnote \footnotemark \nobreak } xecjk CheckFullRight 3.7 \xecjknobreak Verb = true false env env+ true \verb verbatim env verbatim env \verb env+ \verb \verbatim@font 3.7 \xecjkverbaddon false false LoadFandol = true false CJK Fandol Fandol 3.2 \setcjkmainfont AutoFakeBold AutoFakeSlant Mapping New: \setcjksansfont \setcjkmonofont \setcjkfamilyfont \setcjkmainfont [ font features ] { font name } CJK \rmfamily \textrm fontspec font features font name fontspec xecjk AutoFakeBold AutoFakeSlant AutoFakeBold = { true false } AutoFakeSlant = { true false } Mapping = { fullwidth-stop full-stop han-trad han-simp... } xecjk TECKit Mapping fullwidth-stop full-stop han-trad han-simp TECKit \setcjksansfont [ font features ] { font name } CJK \sffamily \textsf \setcjkmonofont [ font features ] { font name } CJK \ttfamily \texttt \setcjkfamilyfont { family } [ font features ] { font name } CJK family 5

6 \CJKfamily Updated: \CJKfamily { family } \CJKfamily + { family } \CJKfamily - { family } CJK family \CJKfamily CJK \CJKfamily+ \CJKfamily- CJK \CJKfamily+ \CJKfamily- CJK \newcjkfontfamily \newcjkfontfamily [ family ] \ font-switch [ font features ] { font name } CJK family \ font-switch CJK family family font-switch \newcjkfontfamily \setcjkfamilyfont \CJKfamily \newcjkfontfamily[song]\songti{simsun} \setcjkfamilyfont{song}{simsun} \newcommand*{\songti}{\cjkfamily{song}} \CJKfontspec \CJKfontspec [ font features ] { font name } CJK \defaultcjkfontfeatures \defaultcjkfontfeatures { font features } CJK \defaultcjkfontfeatures{scale= } CJK xecjk \defaultcjkfontfeatures{script=cjk} \addcjkfontfeatures Updated: \addcjkfontfeatures { font features } \addcjkfontfeatures * { font features } \addcjkfontfeatures [ block 1, block 2,... ] { font features } \addcjkfontfeatures * [ block 1, block 2,... ] { font features } CJK CJK \addcjkfontfeatures{scale=1.1} CJK 1.1 \CJKrmdefault \textrm \rmfamily CJK rm \rmdefault \CJKsfdefault \textsf \sffamily CJK sf \sfdefault \CJKttdefault \texttt \ttfamily CJK tt \ttdefault \CJKfamilydefault Updated: \textnormal \normalfont CJK \familydefault \CJKrmdefault xecjk \CJKfamilydefault \renewcommand\familydefault{\sfdefault} CJK 6

7 \setcjkmathfont \setcjkmathfont [ font features ] { font name } CJK CJKmath \setcjkmathfont CJK \CJKfamilydefault CJK \setcjkfallbackfamilyfont \setcjkfallbackfamilyfont { family } [ font features ] { font name } CJK family \setcjkmainfont{simsun} \setcjkfallbackfamilyfont{\cjkrmdefault}{simsun-extb} SimSun-ExtB SimSun FallBack FallBack = {[ font features ]{ font name }} xecjk font features FallBack \setcjkmainfont[fallback=simsun-extb]{simsun} FallBack \setcjkmainfont[fallback,autofakebold,scale=.97]{simsun-extb} \setcjkfallbackfamilyfont{\cjkrmdefault}[autofakebold,scale=.97]{simsun-extb} \setcjkfallbackfamilyfont Updated: \setcjkfallbackfamilyfont { family } [ common font features ] { {[ font features 1 ] { font name 1 }}, {[ font features 2 ] { font name 2 }},... } \setcjkfallbackfamilyfont \setcjkmainfont[autofakebold,autofakeslant]{kaiti_gb2312} \setcjkfallbackfamilyfont{\cjkrmdefault}[autofakeslant] { [BoldFont=SimHei]{SimSun}, [AutoFakeBold] {SimSun-ExtB} } SimSun KaiTi_GB2312 SimSun-ExtB SimSun \CJKfamilydefault XƎTEX fontspec XƎTEX XƎTEX fontconfig fc-list Windows Linux Console fc-list > fontlist.txt fontlist.txt fc-list Windows Times New Roman:style=cursiva,kurzíva,kursiv,Πλάγια,Italic, Kursivoitu,Italique,Dőlt,Corsivo,Cursief,kursywa,Itálico,Курсив, İtalik,Poševno,nghiêng,Etzana Times New Roman:style=Negreta cursiva,tučné kurzíva,fed kursiv, Fett Kursiv,Έντονα Πλάγια,Bold Italic,Negrita Cursiva, Lihavoitu Kursivoi,Gras Italique,Félkövér dőlt,grassetto Corsivo, Vet Cursief,Halvfet Kursiv,Pogrubiona kursywa,negrito Itálico, 7

8 Полужирный Курсив,Tučná kurzíva,fet Kursiv,Kalın İtalik, Krepko poševno,nghiêng đậm,lodi etzana Times New Roman:style=Negreta,tučné,fed,Fett,Έντονα,Bold,Negrita, Lihavoitu,Gras,Félkövér,Grassetto,Vet,Halvfet,Pogrubiona,Negrito, Полужирный,Fet,Kalın,Krepko,đậm,Lodia Times New Roman:style=Normal,obyčejné,Standard,Κανονικά,Regular, Normaali,Normál,Normale,Standaard,Normalny,Обычный,Normálne,Navadno, thường,arrunta,simsun:style=regular,simhei:style=normal,obyčejné,standard,κανονικά,regular,normaali, Normál,Normale,Standaard,Normalny,Обычный,Normálne,Navadno,Arrunta fontspec xecjk \setmainfont{times New Roman} \setcjkmainfont{simsun} % \setcjkmainfont{ } fc-list fc-list -f "%{family}\n" :lang=zh > zhfont.txt zhfont.txt 3 Windows Arial Unicode MS FangSong, KaiTi, Microsoft YaHei, MingLiU, NSimSun, PMingLiU, SimHei, SimSun, :lang=zh zh ja ko fontspec xecjk Windows \setcjkmainfont{simsun.ttc} fontspec xecjk 3.3 CJK CJK CJK xecjk CJK CJK CJK \xecjkdeclaresubcjkblock \xecjkdeclaresubcjkblock { block } { block range } \xecjkdeclaresubcjkblock * { block } { block range } block range CJK Unicode Unicode { ` -> `, "3400 -> "4DBF, "5000 -> "7000, `, `, "3500 } block range Unicode CJK 3 Windows 8

9 \xecjkdeclaresubcjkblock{spua}{ "E400 -> "E4DA, "E500 -> "E5E8, "E600 -> "E6CE } \xecjkdeclaresubcjkblock{ext-b}{ " > "2A6DF } SPUA Ext-B 3.2 CJK font features SPUA Ext-B 3.2 FallBack \setcjkmainfont[spua=sunmanpua,ext-b=simsun-extb]{simsun} SimSun SPUA SunmanPUA Ext-B SimSun-ExtB \xecjkdeclaresubcjkblock CJK CJK block \CJKfamilydefault block CJK block CJK CJK block block =* CJK \xecjkcancelsubcjkblock \xecjkrestoresubcjkblock \xecjkcancelsubcjkblock { block 1, block 2,... } \xecjkcancelsubcjkblock { block 1, block 2,... } CJK \xecjkrestoresubcjkblock { block 1, block 2,... } \xecjkrestoresubcjkblock * { block 1, block 2,... } CJK 3.4 CJK \xecjkdeclarecharclass \xecjkdeclarecharclass { class } { class range } \xecjkdeclarecharclass * { class } { class range } class range 3.3 block range class 5.4 xecjk Unicode CJK \xecjkresetcharclass xecjk \xecjkresetpunctclass \normalspacedchars \normalspacedchars { char list } char list / \ - (U+002D) (U+2013) 3.5 xecjk xecjk xecjk plain \xecjksetwidth Updated: \xecjksetwidth { } { length } \xecjksetwidth * { } { length } \xecjksetwidth{ }{0.7em} 0.7 em / 9

10 \xecjksetkern \xecjksetkern { } { } { length } xecjk CJK \xecjksetkern{ }{ }{0.3em} 0.3 em \xecjkdeclarepunctstyle Updated: \xecjkdeclarepunctstyle { style } { options } \xecjkeditpunctstyle \xecjkeditpunctstyle { style } { options } Updated: boolean false length \maxdimen real nan enabled-global-setting boolean \xecjksetup PunctWidth PunctBoundWidth \xecjksetwidth \xecjksetkern true fixed-punct-width length \maxdimen fixed-punct-ratio real 1.0 mixed-punct-width length \xecjksetup KaiMingPunct fixed-punct-width mixed-punct-width real fixed-punct-ratio middle-punct-width length \xecjksetup MiddlePunct fixed-punct-width middle-punct-width real fixed-punct-ratio xecjk / / fixed-margin-width length / \maxdimen fixed-margin-ratio real / 1.0 mixed-margin-width length / fixed-margin-width mixed-margin-ratio real / fixed-margin-ratio middle-margin-width length fixed-margin-width middle-margin-ratio real fixed-margin-ratio bound-punct-width length / \maxdimen bound-punct-ratio real / nan bound-margin-width length / / \maxdimen bound-margin-ratio real / / 0 enabled-hanging boolean false add-min-bound-to-margin boolean false optimize-margin boolean / true fixed-punct-width / false 10

11 margin-minimum length / 0 pt enabled-kerning boolean false true min-bound-to-kerning boolean false kerning-total-width length xecjk \maxdimen kerning-total-ratio real 0.75 same-align-margin length \maxdimen same-align-ratio real nan different-align-margin length \maxdimen different-align-ratio real nan kerning-margin-width length \maxdimen kerning-margin-ratio real 1.0 optimize-kerning boolean min-bound-to-kerning true false kerning-margin-minimum length 0 pt xecjk quanjiao \xecjkdeclarepunctstyle { mine } { fixed-punct-ratio = nan, fixed-margin-width = 0 pt, mixed-margin-width = \maxdimen, mixed-margin-ratio = 0.5, middle-margin-width = \maxdimen, middle-margin-ratio = 0.5, add-min-bound-to-margin = true, bound-punct-width = 0 em, enabled-hanging = true, min-bound-to-kerning = true, kerning-margin-minimum = 0.1 em } mine \xecjksetup{punctstyle=mine} / 0.1 em \xecjkeditpunctstyle { hangmobanjiao } { enabled-global-setting = false } \xecjksetkern hangmobanjiao 3.6 xecjkfntef xecjk xecjkfntef.... CJKfntef XƎLATEX xecjkfntef ulem ulem 11

12 \CJKunderline \CJKunderdblline \CJKunderwave \CJKsout \CJKxout Updated: \CJKunderline [*] [-] [ ] { } /// //// /// //// /// //// /// //// 1 \CJKunderline{ }\\ 2 \CJKunderdblline{ }\\ 3 \CJKunderwave{ }\\ 4 \CJKsout{ }\\ 5 \CJKxout{ } 1 \CJKunderline-{ }\CJKunderline-{ }\CJKunderline-{ }% 2 \CJKunderwave-{ }\CJKunderwave-{ }\\ 3 \CJKunderline*[thickness=1pt, hidden=true]{ } \CJKunderdot Updated: \CJKunderdot [ ] { } \CJKunderline{ \CJKunderdot{ } }\\ 2 \CJKunderdot{ \CJKunderline{ } } xecjkfntef \xecjksetup skip New: \xecjksetup { underline/skip = true false } \xecjksetup { underline = { skip = true false,... } } false * subtract hidden format true - true \xecjksetup { underline/format = \color{red} } \xecjksetup { underwave = { format = \color{red},... } } symbol \CJKunderwave \CJKunderdot \CJKunderwave 1 % \usepackage{fix-cm} 2 \xecjksetup{% 3 underwave/symbol= 4 \fontsize{0.5em}{0pt}% 5 \fontencoding{u}\fontfamily{lasy}\selectfont 6 \char 58\relax} 7 \footnotesize 8 \CJKunderwave{ } thickness \CJKunderline \CJKunderdblline \CJKsout \ULthickness depth 0.2em boxdepth \CJKunderdot \CJKunderdot 0pt 12

13 sep gap \CJKunderdot \CJKunderline \CJKunderdblline \CJKunderwave \CJKunderdblline 1.1pt height \CJKsout 0.35em \CJKsout 1 \CJKsout*[thickness=2.5ex, format=\color{yellow}]{ } xecjkfntef \CJKunderanyline \CJKunderanysymbol \CJKunderanyline Updated: \CJKunderanyline [*] [-] [ ] { } { } { } xecjkfntef \xecjkfntefbox skip hidden subtract sep boxdepth sep boxdepth \xecjksetup ulem 1 \CJKunderanyline*{0.5ex}{\color{yellow}\rule{2pt}{2.5ex}}{ } \CJKunderanysymbol Updated: \CJKunderanysymbol [ ] { } { } { } xecjkfntef \xecjkfntefbox sep boxdepth \CJKunderdot 1 \CJKunderanysymbol[sep=0.1em]{0.2em}{\tiny$\triangle$} 2 { \CJKunderline{ }} \xecjkfntefon Updated: \xecjkfntefon [*] [-] [ ] ulem \ULon * - skip hidden subtract ulem \uline \xecjksetup ulem 1 \xecjksetup{ulem/skip=true} 2 \uline{ } xecjkfntef CJKfilltwosides CJKfilltwosides* CJKfilltwosides Updated: \begin{cjkfilltwosides} [ ] { } \\ \end{cjkfilltwosides} t c b c CJKfilltwosides* CJKfilltwosides 13

14 1 \begin{cjkfilltwosides}{.8\linewidth} 2 \\ 3 4 \end{cjkfilltwosides} 1 \begin{cjkfilltwosides*}{0pt} 2 \\ 3 4 \end{cjkfilltwosides*} 3.7 \xecjkverbaddon \xecjkoffverbaddon Updated: CJK CJK CJK \xecjkverbaddon xecjk CJK fancyvrb formatcom \xecjkverbaddon \xecjkoffverbaddon \xecjkverbaddon listings \xecjkverbaddon listings \xecjknobreak New: \xecjknobreak\footnote{ } \xecjknobreak CheckFullRight \xecjkshipouthook New: xecjk verbatim lstlisting TEX output routine \xecjkshipouthook xecjk eso-pic atbegshi \AtBeginShipout \xecjkshipouthook 4 XƎTEX unicode-letters.tex CJK \catcode 11! Undefined control sequence. xecjk CJK \CJKfamily \CJKsymbol \CJKglue xecjk CJK xecjk CJK xecjk CJKnumb zhnumber xecjk XƎTEX listings Unicode listings escapechar 3.x xecjk LATEX3 LATEX3 \outer \outer xecjk CJK \outer! Forbidden control sequence found while scanning use of \use_i:nn cprotect \cprotect \outer\long\def\cprotect{\icprotect} \icprotect \cprotect cprotect xecjk \let\cprotect\icprotect 14

15 \cprotect \cprotect \outer \relax xecjk XƎTEX \XeTeXinterchartoks polyglossia xesearch xecjk 5 xecjk 1 *package 5.1 xecjk XƎTEX 3 \msg_new:nnn { xecjk } { Require-XeTeX } 4 { 5 The~xeCJK~package~requires~XeTeX~to~function.\\\\ 6 You~must~change~your~typesetting~engine~to~"xelatex" \\ 7 instead~of~plain~"latex"~or~"pdflatex"~or~"lualatex".\\ 8 Loading~xeCJK~will~abort! 9 } 10 \xetex_if_engine:f { \msg_critical:nn { xecjk } { Require-XeTeX } } expl3 11 \msg_new:nnn { xecjk } { l3-too-old } 12 { 13 Support~package~`#1'~too~old. \\\\ 14 Please~update~an~up~to~date~version~of~the~bundles\\\\ 15 `l3kernel'~and~`l3packages'\\\\ 16 using~your~tex~package~manager~or~from~ctan.\\ 17 \str_if_eq:nnt {#1} { expl3 } { Loading~xeCJK~will~abort! } 18 } 19 \@ifpackagelater { expl3 } { 2014/07/20 } { } 20 { \msg_critical:nnn { xecjk } { l3-too-old } { expl3 } } ecjk_if_package_loaded_p:n ecjk_if_package_loaded:ntf 21 \prg_new_conditional:npnn \xecjk_if_package_loaded:n #1 { p, T, F, TF } 22 { 23 \tl_if_exist:ctf { ver@ #1. \c xecjk_package_ext_tl } 24 { \prg_return_true: } { \prg_return_false: } 25 } 26 \tl_const:nx \c xecjk_package_ext_tl { \@pkgextension } (End definition for \xecjk_if_package_loaded:ntf.) CJK 27 \msg_new:nnn { xecjk } { incompatible-package } 28 { 29 The~`#1'~package~and~xeCJK~are~incompatible.\\\\ 30 Please~do~not~use~it. 31 } 32 \msg_new:nnn { xecjk } { after-package } 33 { 34 The~`#1'~package~and~xeCJK~are~incompatible.\\\\ 35 Please~load~it~after~xeCJK. 36 } 37 \clist_map_inline:nn { CJKfntef, CJKnumb } 38 { 39 \xecjk_if_package_loaded:nt {#1} 40 { \msg_error:nnn { xecjk } { after-package } {#1} } 41 } 42 \clist_map_inline:nn { CJKulem, CJKvert, CJKpunct, CJKutf8, CJK } 43 { 44 \xecjk_if_package_loaded:ntf {#1} 45 { \msg_error:nnn { xecjk } { incompatible-package } {#1} } 46 { \tl_const:cn { ver@ #1. \c xecjk_package_ext_tl } { 9999/99/99 } } 47 } 15

16 xtemplate \KeyValue Bug 48 \RequirePackage { xtemplate } 49 \@ifpackagelater { xtemplate } { 2012/11/10 } { } 50 { \msg_error:nnn { xecjk } { l3-too-old } { xtemplate } } 51 \RequirePackage { xparse, l3keys2e } \tl_new:n \l xecjk_tmp_tl 53 \int_new:n \l xecjk_tmp_int 54 \box_new:n \l xecjk_tmp_box 55 \dim_new:n \l xecjk_tmp_dim 56 \bool_new:n \l xecjk_tmp_bool 57 \skip_new:n \l xecjk_tmp_skip 58 \clist_new:n \l xecjk_tmp_clist \ xecjk_msg_new:nn \ xecjk_error:n \ xecjk_error:nx \ xecjk_warning:nx \ xecjk_info:nxx 59 \cs_new_protected_nopar:npn \ xecjk_msg_new:nn { \msg_new:nnn { xecjk } } 60 \cs_new_protected_nopar:npn \ xecjk_msg_new:nnn { \msg_new:nnnn { xecjk } } 61 \cs_new_protected_nopar:npn \ xecjk_error:n { \msg_error:nn { xecjk } } 62 \cs_new_protected_nopar:npn \ xecjk_error:nx { \msg_error:nnx { xecjk } } 63 \cs_new_protected_nopar:npn \ xecjk_warning:n { \msg_warning:nn { xecjk } } 64 \cs_new_protected_nopar:npn \ xecjk_warning:nx { \msg_warning:nnx { xecjk } } 65 \cs_new_protected_nopar:npn \ xecjk_warning:nxx { \msg_warning:nnxx { xecjk } } 66 \cs_new_protected_nopar:npn \ xecjk_warning:nxxx { \msg_warning:nnxxx { xecjk } } 67 \cs_new_protected_nopar:npn \ xecjk_info:nxx { \msg_info:nnxx { xecjk } } \xecjk_allow_break: (End definition for \ xecjk_msg_new:nn and others.) \xecjk_no_break: 68 \cs_new_protected_nopar:npn \xecjk_allow_break: { \tex_penalty:d \c_zero } 69 \cs_new_protected_nopar:npn \xecjk_no_break: { \tex_penalty:d \c_ten_thousand } (End definition for \xecjk_allow_break: and \xecjk_no_break:.) \ xecjk_at_end_preamble:n \ xecjk_after_preamble:n \ xecjk_after_end_preamble:n \document 70 \tl_new:n \g xecjk_at_end_preamble_hook_tl 71 \tl_new:n \g xecjk_after_preamble_hook_tl 72 \tl_new:n \g xecjk_after_end_preamble_hook_tl 73 \cs_new_protected:npn \ xecjk_at_end_preamble:n #1 74 { \tl_gput_right:nn \g xecjk_at_end_preamble_hook_tl {#1} } 75 \cs_new_protected:npn \ xecjk_after_preamble:n #1 76 { \tl_gput_right:nn \g xecjk_after_preamble_hook_tl {#1} } 77 \cs_new_protected:npn \ xecjk_after_end_preamble:n #1 78 { \tl_gput_right:nn \g xecjk_after_end_preamble_hook_tl {#1} } 79 \xecjk_if_package_loaded:ntf { etoolbox } 80 { 81 \AtEndPreamble { \g xecjk_at_end_preamble_hook_tl } 82 \AfterPreamble { \g xecjk_after_preamble_hook_tl } 83 \AfterEndPreamble { \g xecjk_after_end_preamble_hook_tl } 84 } 85 { 86 \AtBeginDocument { \g xecjk_after_preamble_hook_tl } 87 \cs_new_protected_nopar:npn \ xecjk_document_left_hook: 88 { \group_end: \g xecjk_at_end_preamble_hook_tl \group_begin: } 89 \cs_new_protected_nopar:npn \ xecjk_document_right_hook: 90 { \scan_stop: \g xecjk_after_end_preamble_hook_tl \tex_ignorespaces:d } 91 \cs_gset_nopar:npx \document 92 { 93 \ xecjk_document_left_hook: 94 \exp_not:o { \document } 95 \ xecjk_document_right_hook: 96 } 97 } (End definition for \ xecjk_at_end_preamble:n, \ xecjk_after_preamble:n, and \ xecjk_after_end_preamble:n.) 16

17 \xecjkshipouthook \shipout \AtBeginDvi atbegshi \AtBeginShipout \shipout 98 \ xecjk_after_preamble:n 99 { \tl_put_right:nn \@begindvi { \xecjk@first@begindvi } } 100 \cs_new_protected_nopar:npn \xecjk@first@begindvi 101 { 102 \xecjkshipouthook 103 \cs_if_exist:ntf \@begindvi 104 { \tl_gput_right:nn } 105 { \tl_const:nn } 106 \@begindvi { \xecjkshipouthook } 107 } 108 \NewDocumentCommand \xecjkshipouthook { } 109 { 110 \bool_if:nf \l xecjk_shipout_hook_bool 111 { 112 \bool_set_true:n \l xecjk_shipout_hook_bool 113 \tl_use:n \l xecjk_shipout_hook_tl 114 } 115 } (End definition for \xecjkshipouthook. This function is documented on page 14.) \xecjk_add_to_shipout:n \shipout 116 \cs_new_protected:npn \xecjk_add_to_shipout:n 117 { \tl_put_right:nn \l xecjk_shipout_hook_tl } 118 \tl_new:n \l xecjk_shipout_hook_tl 119 \bool_new:n \l xecjk_shipout_hook_bool (End definition for \xecjk_add_to_shipout:n.) \xecjk_reverse:nnn #1 #2 #3 #1 #2 #3 #2 120 \cs_new_nopar:npn \xecjk_reverse:nnn #1#2#3 121 { \str_if_eq_x:nntf {#1} {#2} {#3} {#2} } (End definition for \xecjk_reverse:nnn.) \xecjk_tl_remove_outer_braces:n \xecjk_tl_remove_outer_braces:n #1 122 \cs_new_protected_nopar:npn \xecjk_tl_remove_outer_braces:n #1 123 { \tl_set:nx #1 { \exp_args:nv \xecjk_tl_remove_outer_braces:n #1 } } 124 \cs_new:npn \xecjk_tl_remove_outer_braces:n #1 125 { 126 \exp_last_unbraced:nf 127 \ xecjk_tl_remove_outer_braces:w { \tl_trim_spaces:n {#1} } \s stop 128 } 129 \cs_new:npn \ xecjk_tl_remove_outer_braces:w #1 \s stop 130 { 131 \bool_if:ntf { \tl_if_single_p:n {#1} &&! ( \tl_if_head_is_n_type_p:n {#1} ) } 132 { \xecjk_tl_remove_outer_braces:n {#1} } 133 { \tl_trim_spaces:n {#1} } 134 } (End definition for \xecjk_tl_remove_outer_braces:n and \xecjk_tl_remove_outer_braces:n.) \xecjk_cs_clear:n \xecjk_cs_gclear:n 135 \cs_new_protected:npn \xecjk_cs_clear:n #1 136 { \cs_set_eq:nn #1 \prg_do_nothing: } 137 \cs_new_protected:npn \xecjk_cs_gclear:n #1 138 { \cs_gset_eq:nn #1 \prg_do_nothing: } (End definition for \xecjk_cs_clear:n and \xecjk_cs_gclear:n.) 17

18 \xecjk_swap_cs:nn #1 #2 139 \cs_new_protected:npn \xecjk_swap_cs:nn #1#2 140 { 141 \cs_set_eq:nn \ xecjk_swap_cs_aux:w #1 142 \cs_set_eq:nn #1 #2 143 \cs_set_eq:nn #2 \ xecjk_swap_cs_aux:w 144 \cs_undefine:n \ xecjk_swap_cs_aux:w 145 } (End definition for \xecjk_swap_cs:nn.) \xecjk_font_gset_to_current:c #1 146 \cs_new_protected_nopar:npn \xecjk_font_gset_to_current:c #1 147 { 148 \exp_after:wn \cs_gset_eq:nn 149 \cs:w #1 \exp_after:wn \cs_end: \tex_the:d \tex_font:d 150 } (End definition for \xecjk_font_gset_to_current:c.) \xecjk_glyph_if_exist_p:n \xecjk_glyph_if_exist:ntf #1 fontspec \scan_stop: 151 \prg_new_conditional:npnn \xecjk_glyph_if_exist:n #1 { p, T, F, TF } 152 { 153 \etex_iffontchar:d \tex_font:d `#1 \exp_stop_f: 154 \prg_return_true: \else: \prg_return_false: \fi: 155 } (End definition for \xecjk_glyph_if_exist:ntf.) \c_xecjk_space_skip_tl glue 156 \tl_const:nn \c_xecjk_space_skip_tl 157 { 158 \int_compare:nnntf \g xecjk_spacefactor_int = \c_one_thousand 159 { 160 \skip_if_eq:nntf \tex_spaceskip:d \c_zero_skip 161 { 162 \tex_fontdimen:d \c_two \tex_font:d 163 plus \tex_fontdimen:d \c_three \tex_font:d 164 minus \tex_fontdimen:d \c_four \tex_font:d 165 } 166 { \tex_spaceskip:d } 167 } 168 { 169 \skip_if_eq:nntf \tex_spaceskip:d \c_zero_skip 170 { 171 \int_compare:nnntf \g xecjk_spacefactor_int < { 2000 } 172 { \ xecjk_space_skip_scale:nnn { \tex_fontdimen:d \c_two \tex_font:d } } 173 { 174 \skip_if_eq:nntf \tex_xspaceskip:d \c_zero_skip 175 { 176 \ xecjk_space_skip_scale:nnn 177 { 178 \tex_fontdimen:d \c_two \tex_font:d \tex_fontdimen:d \c_seven \tex_font:d 180 } 181 } 182 { \tex_xspaceskip:d \use_none:nn } 183 } 184 { \tex_fontdimen:d \c_three \tex_font:d } 185 { \tex_fontdimen:d \c_four \tex_font:d } 186 } 187 { 188 \int_compare:nnntf \g xecjk_spacefactor_int < { 2000 } 189 { \ xecjk_space_skip_scale:nnn { \tex_spaceskip:d } } 190 { 191 \skip_if_eq:nntf \tex_xspaceskip:d \c_zero_skip 192 { 18

19 193 \ xecjk_space_skip_scale:nnn 194 { \tex_spaceskip:d + \tex_fontdimen:d \c_seven \tex_font:d } 195 } 196 { \tex_xspaceskip:d \use_none:nn } 197 } 198 { \etex_gluestretch:d \tex_spaceskip:d } 199 { \etex_glueshrink:d \tex_spaceskip:d } 200 } 201 } 202 } 203 \cs_new_nopar:npn \ xecjk_space_skip_scale:nnn #1#2#3 204 { 205 \dim_eval:n {#1} 206 plus \fp_eval:n { \g xecjk_spacefactor_int / 1000 } #2 207 minus 208 \int_div_truncate:nn 209 { 1000 * \tex_number:d #3 } { \g xecjk_spacefactor_int } sp 210 } 211 \int_new:n \g xecjk_spacefactor_int 212 \int_gset_eq:nn \g xecjk_spacefactor_int \c_one_thousand (End definition for \c_xecjk_space_skip_tl.) \xecjk_glue_to_skip:nn glue glue 213 \cs_new_protected_nopar:npn \xecjk_glue_to_skip:nn #1#2 214 { 215 \group_begin: 216 \hbox_set:nw \l xecjk_tmp_box #1 \scan_stop: 217 \int_compare:nnntf \etex_lastnodetype:d = \c_eleven 218 { 219 \exp_after:wn \hbox_set_end: \exp_after:wn \group_end: \exp_after:wn 220 \skip_set:nn \exp_after:wn #2 \exp_after:wn 221 { \skip_use:n \tex_lastskip:d } 222 } 223 { 224 \hbox_set_end: \exp_after:wn \group_end: \exp_after:wn 225 \skip_set:nn \exp_after:wn #2 \exp_after:wn 226 { \dim_use:n \box_wd:n \l xecjk_tmp_box } 227 } 228 } (End definition for \xecjk_glue_to_skip:nn.) \xecjk_if_blank_x_p:n \xecjk_if_blank_x:ntf 229 \prg_new_conditional:npnn \xecjk_if_blank_x:n #1 { p, T, F, TF } 230 { 231 \if_case:w \pdftex_strcmp:d { } {#1} \exp_stop_f: 232 \prg_return_true: 233 \else: 234 \if_case:w \pdftex_strcmp:d { ~ } {#1} \exp_stop_f: 235 \prg_return_true: \else: \prg_return_false: \fi: 236 \fi: 237 } (End definition for \xecjk_if_blank_x:ntf.) \xecjk_int_until_do:nn \ xecjk_int_until_do:wn \int_until_do:nnnn 238 \cs_new_protected:npn \xecjk_int_until_do:nn #1#2 239 { \ xecjk_int_until_do:wn \use_none:n { \reverse_if:n \if_int_compare:w #1#2 } } 240 \cs_new_protected:npn \ xecjk_int_until_do:wn \use_none:n #1 241 { #1 \exp_after:wn \ xecjk_int_until_do:wn \fi: \use_none:n {#1} } 242 \int_new:n \l xecjk_begin_int 243 \int_new:n \l xecjk_end_int (End definition for \xecjk_int_until_do:nn and \ xecjk_int_until_do:wn.) 19

20 \xecjk_peek_catcode_ignore_spaces:ntf \l xecjk_peek_ignore_spaces_bool 244 \cs_new_protected:npn \xecjk_peek_catcode_ignore_spaces:ntf #1#2#3 245 { 246 \cs_set_eq:nn \l peek_search_token #1 \scan_stop: 247 \tl_set:nn \ xecjk_peek_catcode_true:w { \group_align_safe_end: #2 } 248 \tl_set:nn \ xecjk_peek_catcode_false:w { \group_align_safe_end: #3 } 249 \bool_set_false:n \l xecjk_peek_ignore_spaces_bool 250 \group_align_safe_begin: 251 \peek_after:nw \ xecjk_peek_catcode_ignore_spaces_branches:w 252 } 253 \cs_new_protected_nopar:npn \ xecjk_peek_catcode_ignore_spaces_branches:w 254 { 255 \if_meaning:w \l_peek_token \c_space_token 256 \bool_set_true:n \l xecjk_peek_ignore_spaces_bool 257 \exp_after:wn \peek_after:nw 258 \exp_after:wn \ xecjk_peek_catcode_ignore_spaces_branches:w 259 \tex_romannumeral:d \else: 261 \if_catcode:w 262 \exp_not:n \l_peek_token \exp_not:n \l peek_search_token 263 \exp_after:wn \exp_after:wn 264 \exp_after:wn \ xecjk_peek_catcode_true:w 265 \else: 266 \exp_after:wn \exp_after:wn 267 \exp_after:wn \ xecjk_peek_catcode_false:w 268 \fi: 269 \fi: 270 } 271 \tl_new:n \ xecjk_peek_catcode_true:w 272 \tl_new:n \ xecjk_peek_catcode_false:w 273 \bool_new:n \l xecjk_peek_ignore_spaces_bool (End definition for \xecjk_peek_catcode_ignore_spaces:ntf.) \xecjk_peek_after_ignore_spaces:nw \@ifnextchar \futurenonspacelet 274 \cs_new_protected:npn \xecjk_peek_after_ignore_spaces:nw #1 275 { 276 \tl_set:nn \ xecjk_peek_after_do:w { \group_align_safe_end: #1 } 277 \group_align_safe_begin: 278 \peek_after:nw \ xecjk_peek_ignore_spaces_branches:w 279 } 280 \cs_new_protected_nopar:npn \ xecjk_peek_ignore_spaces_branches:w 281 { 282 \if_meaning:w \l_peek_token \c_space_token 283 \exp_after:wn \peek_after:nw 284 \exp_after:wn \ xecjk_peek_ignore_spaces_branches:w 285 \tex_romannumeral:d \else: 287 \exp_after:wn \ xecjk_peek_after_do:w 288 \fi: 289 } (End definition for \xecjk_peek_after_ignore_spaces:nw.) \xecjk_token_value_class:n #1 XƎTEX #1 \catcode \cs_new_nopar:npn \xecjk_token_value_class:n #1 291 { \XeTeXcharclass \xecjk_token_value_charcode:n #1 } (End definition for \xecjk_token_value_class:n.) \xecjk_token_value_charcode:n #1 charcode 0x10000 XƎTEX \meaning 4 mathcode XƎTEX \meaning BMP UTF

21 292 \cs_new_nopar:npn \xecjk_token_value_charcode:n #1 293 { \exp_after:wn \ xecjk_token_value_charcode:w \token_to_meaning:n #1 \q_stop } 294 \fp_compare:nnntf { \int_use:n \xetex_xetexversion:d \XeTeXrevision } > { } 295 { 296 \cs_new_nopar:npn \ xecjk_token_value_charcode:w #1 ~ #2 ~ #3#4 \q_stop 297 { 298 \int_eval:n 299 { 300 \tl_if_empty:ntf {#4} 301 { `#3 } 302 { ( `#3 - "D800 ) * "400 + ( `#4 - "DC00 ) + "10000 } 303 } 304 } 305 \cs_new_eq:nn \xecjk_xetex_mathcode:w \Umathcode 306 } 307 { 308 \cs_new_nopar:npn \ xecjk_token_value_charcode:w #1 ~ #2 ~ #3#4 \q_stop 309 { \int_eval:n { \tl_if_empty:ntf {#4} { `#3 } { "20000 } } } 310 \cs_new_eq:nn \xecjk_xetex_mathcode:w \XeTeXmathcode 311 } (End definition for \xecjk_token_value_charcode:n.) \xecjk_if_cjk_class_p:n \xecjk_if_cjk_class:ntf #1 CJK 312 \prg_new_conditional:npnn \xecjk_if_cjk_class:n #1 { p, T, F, TF } 313 { 314 \if_cs_exist:w \ xecjk_cjk_class_tl:n { \xecjk_token_value_class:n #1 } \cs_end: 315 \prg_return_true: \else: \prg_return_false: \fi: 316 } 317 \cs_new_nopar:npn \ xecjk_cjk_class_tl:n #1 318 { c xecjk_cjk_class_ \int_eval:n {#1} _tl } 319 \cs_generate_variant:nn \ xecjk_cjk_class_tl:n { c } (End definition for \xecjk_if_cjk_class:ntf.) \xecjk_if_same_class_p:nn \xecjk_if_same_class:nntf 320 \prg_new_conditional:npnn \xecjk_if_same_class:nn #1#2 { p, T, F, TF } 321 { 322 \if_int_compare:w 323 \xecjk_token_value_class:n #1 = \xecjk_token_value_class:n #2 \exp_stop_f: 324 \prg_return_true: \else: \prg_return_false: \fi: 325 } (End definition for \xecjk_if_same_class:nntf.) 5.3 xecjkactive XƎTEX 326 \keys_define:nn { xecjk / options } 327 { 328 xecjkactive.choice:, 329 xecjkactive / true.code:n = { \makexecjkactive }, 330 xecjkactive / false.code:n = { \makexecjkinactive }, 331 xecjkactive.default:n = { true } 332 } (End definition for xecjkactive. This function is documented on page 3.) \makexecjkactive \makexecjkinactive 333 \NewDocumentCommand \makexecjkactive { } { \XeTeXinterchartokenstate = \c_one } 334 \NewDocumentCommand \makexecjkinactive { } { \XeTeXinterchartokenstate = \c_zero } (End definition for \makexecjkactive and \makexecjkinactive.) BOM 335 \char_set_catcode_ignore:n { "FEFF } 21

22 5.4 \g xecjk_class_seq \g xecjk_new_class_seq xecjk 336 \seq_new:n \g xecjk_class_seq 337 \seq_new:n \g xecjk_new_class_seq (End definition for \g xecjk_class_seq and \g xecjk_new_class_seq.) \xecjk_new_class:n #1 338 \cs_new_protected_nopar:npn \xecjk_new_class:n #1 339 { 340 \int_if_exist:ctf { \ xecjk_class_csname:n {#1} } 341 { \ xecjk_error:nx { class-already-defined } {#1} } 342 { 343 \exp_args:nc \newxetexintercharclass { \ xecjk_class_csname:n {#1} } 344 \clist_new:c { g xecjk_#1_range_clist } 345 \seq_gput_right:nn \g xecjk_class_seq {#1} 346 \seq_gput_right:nv \g xecjk_new_class_seq { \ xecjk_class_csname:n {#1} } 347 } 348 } (End definition for \xecjk_new_class:n.) \xecjk_save_class:nn XƎTEX #1 #2 349 \cs_new_protected_nopar:npn \xecjk_save_class:nn #1#2 350 { 351 \int_if_exist:ctf { \ xecjk_class_csname:n {#1} } 352 { \ xecjk_error:nx { class-already-defined } {#1} } 353 { 354 \int_const:cn { \ xecjk_class_csname:n {#1} } {#2} 355 \clist_new:c { g xecjk_#1_range_clist } 356 \seq_gput_right:nn \g xecjk_class_seq {#1} 357 } 358 } (End definition for \xecjk_save_class:nn.) \ xecjk_class_csname:n 359 \cs_new_nopar:npn \ xecjk_class_csname:n #1 { c xecjk_#1_class_int } 360 \cs_new_eq:cn { \ xecjk_class_csname:n { Others } } \l xecjk_tmp_int 361 \ xecjk_msg_new:nn { class-already-defined } 362 { 363 XeTeX~character~class~`#1'~has~been~already~defined.\\\\ 364 Please~take~another~name. \\ 365 } (End definition for \ xecjk_class_csname:n.) xecjk Default CJK FullLeft FullRight Boundary XƎTEX xecjk HalfLeft HalfRight NormalSpace IVS (Ideographic Variation Selectors) 6 XƎTEX Default abc123 CJK CJK FullLeft FullRight HalfLeft ( [ { HalfRight,.? ) ] } NormalSpace / Boundary IVS HangulJamo ᄻᆟᇫ

23 Default CJK FullLeft FullRight Boundary XƎTEX 366 \xecjk_save_class:nn { Default } { \c_zero } 367 \xecjk_save_class:nn { CJK } { \c_one } 368 \xecjk_save_class:nn { FullLeft } { \c_two } 369 \xecjk_save_class:nn { FullRight } { \c_three } 370 \xecjk_save_class:nn { Boundary } { \c_two_hundred_fifty_five } (End definition for Default and others.) HalfLeft HalfRight NormalSpace IVS HangulJamo / 371 \xecjk_new_class:n { HalfLeft } 372 \xecjk_new_class:n { HalfRight } 373 \xecjk_new_class:n { NormalSpace } 374 \xecjk_new_class:n { IVS } 375 \xecjk_new_class:n { HangulJamo } (End definition for HalfLeft and others.) \c xecjk_halfleft_chars_clist \c xecjk_halfright_chars_clist \c xecjk_normalspace_chars_clist / 376 \clist_const:nn \c xecjk_halfleft_chars_clist 377 { "28, "5B, "60, "7B, "2329 } 378 \clist_const:nn \c xecjk_halfright_chars_clist 379 { "21, "22, "25, "27, "29, "2C, "2E, "3A, "3B, "3F, "5D, "7D, "232A } 380 \clist_const:nn \c xecjk_normalspace_chars_clist { "2D, "2F, "5C, "2013 } (End definition for \c xecjk_halfleft_chars_clist, \c xecjk_halfright_chars_clist, and \c xecjk_normalspace_- chars_clist.) XƎTEX unicode-char-prep.pl Unicode 8 \c xecjk_op_chars_clist Open Punctuation (OP) U+2018 U+201C U+3008 U+300A U+300C U+300E U+3010 U+3014 U+3016 U+3018 U+301A U+301D U+FE17 U+FE35 ( U+FE37 { U+FE39 U+FE3B U+FE3D U+FE3F U+FE41 U+FE43 U+FE47 [ U+FE59 ( U+FE5B { U+FE5D U+FF08 ( U+FF3B [ U+FF5B { U+FF5F U+FF \clist_const:nn \c xecjk_op_chars_clist 382 { 383 "2018, "201C, 384 "3008, "300A, "300C, "300E, "3010, "3014, "3016, "3018, "301A, "301D, 385 "FE17, "FE35, "FE37, "FE39, "FE3B, "FE3D, "FE3F, "FE41, "FE43, "FE47, 386 "FE59, "FE5B, "FE5D, "FF08, "FF3B, "FF5B, "FF5F, "FF } (End definition for \c xecjk_op_chars_clist.) \c xecjk_pr_chars_clist Prefix Numeric (PR) U+FE69 $ U+FF04 $ U+FFE1 U+FFE5 U+FFE6 388 \clist_const:nn \c xecjk_pr_chars_clist 389 { "FE69, "FF04, "FFE1, "FFE5, "FFE6 } (End definition for \c xecjk_pr_chars_clist.) \c xecjk_fullleft_chars_clist 390 \clist_const:nx \c xecjk_fullleft_chars_clist 391 { 392 \c xecjk_op_chars_clist, 393 \c xecjk_pr_chars_clist 394 } (End definition for \c xecjk_fullleft_chars_clist.)

24 \c xecjk_cl_chars_clist Close Punctuation (CL) U+00B7 U+2019 U+201D U+2014 U+2015 U+2025 U+2026 U+2027 U+2500 U+3001 U+3002 U+3009 U+300B U+300D U+300F U+3011 U+3015 U+3017 U+3019 U+301B U+301E U+301F U+FE11 U+FE12 U+FE18 U+FE36 ) U+FE38 } U+FE3A U+FE3C U+FE3E U+FE40 U+FE42 U+FE44 U+FE48 ] U+FE50, U+FE52. U+FE5A ) U+FE5C } U+FE5E U+FF09 ) U+FF0C, U+FF0E. U+FF3D ] U+FF5D } U+FF60 U+FF61 U+FF63 U+FF \clist_const:nn \c xecjk_cl_chars_clist 396 { 397 "00B7, "2019, "201D, "2014, "2015, "2025, "2026, "2027, "2500, 398 "3001, "3002, "3009, "300B, "300D, "300F, "3011, "3015, "3017, "3019, 399 "301B, "301E, "301F, "FE11, "FE12, "FE18, "FE36, "FE38, "FE3A, "FE3C, 400 "FE3E, "FE40, "FE42, "FE44, "FE48, "FE50, "FE52, "FE5A, "FE5C, "FE5E, 401 "FF09, "FF0C, "FF0E, "FF3D, "FF5D, "FF60, "FF61, "FF63, "FF } (End definition for \c xecjk_cl_chars_clist.) \c xecjk_ns_chars_clist Nonstarter (NS) U+30FB U+FE54 ; U+FE55 : U+FF1A : U+FF1B ; U+FF65 Hyphens (cl-03) U+301C U+30A0 Iteration marks (cl-09) U+3005 々 U+303B 〻 U+309D ゝ U+309E ゞ U+30FD ヽ U+30FE ヾ W3C 9 cl-03 cl \clist_const:nn \c xecjk_hyphens_chars_clist { "301C, "30A0 } 404 \clist_const:nn \c xecjk_iteration_marks_chars_clist 405 { "3005, "303B, "309D, "309E, "30FD, "30FE } 406 \clist_const:nn \c xecjk_ns_chars_clist 407 { "30FB, "FE54, "FE55, "FF1A, "FF1B, "FF65 } (End definition for \c xecjk_ns_chars_clist.) \c xecjk_ex_chars_clist Exclamation/Interrogation (EX) U+FE15! U+FE16? U+FE56? U+FE57! U+FF01! U+FF1F? 408 \clist_const:nn \c xecjk_ex_chars_clist 409 { "FE15, "FE16, "FE56, "FE57, "FF01, "FF1F } (End definition for \c xecjk_ex_chars_clist.) \c xecjk_is_chars_clist Infix Numeric Separator (IS) U+FE10, U+FE13 : U+FE14 ; 410 \clist_const:nn \c xecjk_is_chars_clist { "FE10, "FE13, "FE14 } (End definition for \c xecjk_is_chars_clist.) \c xecjk_cj_chars_clist Conditional Japanese Starter (CJ) 10 CJK U+3041 ぁ U+3043 ぃ U+3045 ぅ U+3047 ぇ U+3049 ぉ U+3063 っ U+3083 ゃ U+3085 ゅ U+3087 ょ U+308E ゎ U+3095 ゕ U+3096 ゖ U+30A1 ァ U+30A3 ィ U+30A5 ゥ U+30A7 ェ U+30A9 ォ U+30C3 ッ U+30E3 ャ U+30E5 ュ U+30E7 ョ U+30EE ヮ U+30F5 ヵ U+30F6 ヶ U+30FC ー U+31F0 ㇰ U+31F1 ㇱ U+31F2 ㇲ U+31F3 ㇳ U+31F4 ㇴ U+31F5 ㇵ U+31F6 ㇶ U+31F7 ㇷ U+31F8 ㇸ U+31F9 ㇹ U+31FA ㇺ U+31FB ㇻ U+31FC ㇼ U+31FD ㇽ U+31FE ㇾ U+31FF ㇿ U+FF67 ァ U+FF68 ィ U+FF69 ゥ U+FF6A ェ U+FF6B ォ U+FF6C ャ U+FF6D ュ U+FF6E ョ U+FF6F ッ U+FF70 ー 411 \clist_const:nn \c xecjk_cj_chars_clist 412 {

25 413 "3041, "3043, "3045, "3047, "3049, "3063, "3083, "3085, "3087, "308E, 414 "3095, "3096, "30A1, "30A3, "30A5, "30A7, "30A9, "30C3, "30E3, "30E5, 415 "30E7, "30EE, "30F5, "30F6, "30FC, "31F0, "31F1, "31F2, "31F3, "31F4, 416 "31F5, "31F6, "31F7, "31F8, "31F9, "31FA, "31FB, "31FC, "31FD, "31FE, 417 "31FF, "FF67, "FF68, "FF69, "FF6A, "FF6B, "FF6C, "FF6D, "FF6E, "FF6F, 418 "FF } (End definition for \c xecjk_cj_chars_clist.) \c xecjk_po_chars_clist Postfix Numeric (PO) U+FE6A % U+FF05 % U+FFE0 420 \clist_const:nn \c xecjk_po_chars_clist { "FE6A, "FF05, "FFE0 } (End definition for \c xecjk_po_chars_clist.) \c xecjk_fullright_chars_clist 421 \clist_const:nx \c xecjk_fullright_chars_clist 422 { 423 \c xecjk_cl_chars_clist, 424 \c xecjk_ns_chars_clist, 425 \c xecjk_ex_chars_clist, 426 \c xecjk_is_chars_clist, 427 \c xecjk_po_chars_clist 428 } \c xecjk_cjk_chars_clist (End definition for \c xecjk_fullright_chars_clist.) CJK 429 \clist_const:nn \c xecjk_cjk_chars_clist 430 { CJK Radicals Supplement 431 "2E80 -> "2EFF, Kangxi Radicals 432 "2F00 -> "2FDF, Ideographic Description Characters 433 "2FF0 -> "2FFF, CJK Symbols and Punctuation 434 "3000 -> "303F, Hiragana 435 "3040 -> "309F, Katakana 436 "30A0 -> "30FF, Bopomofo 437 "3100 -> "312F, Hangul Compatibility Jamo 438 "3130 -> "318F, Kanbun 439 "3190 -> "319F, Bopomofo Extended 440 "31A0 -> "31BF, 25

26 CJK Strokes 441 "31C0 -> "31EF, Katakana Phonetic Extensions 442 "31F0 -> "31FF, Enclosed CJK Letters and Months 443 "3200 -> "32FF, CJK Compatibility 444 "3300 -> "33FF, CJK Unified Ideographs Extension-A A 445 "3400 -> "4DBF, Yijing Hexagrams Symbols 446 "4DC0 -> "4DFF, CJK Unified Ideographs 447 "4E00 -> "9FFF, Yi Syllables 448 "A000 -> "A48F, Yi Radicals 449 "A490 -> "A4CF, Hangul Syllables 450 "AC00 -> "D7AF, CJK Compatibility Ideographs 451 "F900 -> "FAFF, Vertical Forms 452 "FE10 -> "FE1F, CJK Compatibility Forms 453 "FE30 -> "FE4F, Halfwidth and Fullwidth Forms 454 "FF00 -> "FFEF, Kana Supplement 455 "1B000 -> "1B0FF, Enclosed Ideographic Supplement 456 "1F200 -> "1F2FF, CJK Unified Ideographs Extension-B B 457 " > "2A6DF, CJK Unified Ideographs Extension-C C 458 "2A700 -> "2B73F, CJK Unified Ideographs Extension-D D 459 "2B740 -> "2B81F, 26

27 CJK Compatibility Ideographs Supplement 460 "2F800 -> "2FA1F 461 } \c xecjk_ivs_chars_clist (End definition for \c xecjk_cjk_chars_clist.) 462 \clist_const:nn \c xecjk_ivs_chars_clist 463 { 464 "3099 -> "309A, Variation Selectors 465 "FE00 -> "FE0F, Variation Selectors Supplement 466 "E0100 -> "E01EF 467 } \c xecjk_hanguljamo_chars_clist (End definition for \c xecjk_ivs_chars_clist.) 468 \clist_const:nn \c xecjk_hanguljamo_chars_clist 469 { Hangul Jamo 470 "1100 -> "11FF, Hangul Jamo Extended-A A 471 "A960 -> "A97F, Hangul Jamo Extended-B B 472 "D7B0 -> "D7FF 473 } (End definition for \c xecjk_hanguljamo_chars_clist.) 5.5 \g xecjk_base_class_seq g xecjk_non_cjk_class_seq \g xecjk_cjk_class_seq 474 \seq_new:n \g xecjk_base_class_seq 475 \seq_gset_eq:nn \g xecjk_base_class_seq \g xecjk_class_seq 476 \seq_new:n \g xecjk_non_cjk_class_seq 477 \seq_gset_from_clist:nn \g xecjk_non_cjk_class_seq 478 { Default, HalfLeft, HalfRight, NormalSpace, Boundary } 479 \seq_new:n \g xecjk_cjk_class_seq 480 \cs_new_protected_nopar:npn \ xecjk_save_cjk_class:n #1 481 { 482 \seq_gput_right:nn \g xecjk_cjk_class_seq {#1} 483 \tl_const:cn { \ xecjk_cjk_class_tl:c { \ xecjk_class_csname:n {#1} } } {#1} 484 } 485 \clist_map_function:nn 486 { CJK, FullLeft, FullRight, IVS, HangulJamo } \ xecjk_save_cjk_class:n (End definition for \g xecjk_base_class_seq, \g xecjk_non_cjk_class_seq, and \g xecjk_cjk_class_seq.) \xecjk_class_num:n #1 487 \cs_new_nopar:npn \xecjk_class_num:n #1 { \use:c { \ xecjk_class_csname:n {#1} } } (End definition for \xecjk_class_num:n.) 27

28 \xecjkdeclarecharclass 488 \NewDocumentCommand \xecjkdeclarecharclass { s > { \TrimSpaces } m m } 489 { 490 \xecjk_declare_char_class:nx {#2} {#3} 491 \IfBooleanT {#1} { \xecjkresetpunctclass } 492 } (End definition for \xecjkdeclarecharclass. This function is documented on page 9.) ecjk_declare_char_class:nn \ xecjk_set_char_class_aux:nnw #1 #2 Unicode "1100 -> "11FF 493 \cs_new_protected_nopar:npn \xecjk_declare_char_class:nn #1#2 494 { 495 \clist_set:nn \l xecjk_tmp_clist {#2} 496 \clist_gconcat:ccn 497 { g xecjk_#1_range_clist } { g xecjk_#1_range_clist } \l xecjk_tmp_clist 498 \clist_map_inline:nn \l xecjk_tmp_clist 499 { 500 \str_if_eq:nnf {##1} { -> } 501 { 502 \ xecjk_set_char_class_aux:nnw \xecjk_set_char_class:nnn {##1} 503 { \xecjk_class_num:n {#1} } 504 } 505 } 506 \xecjk_set_char_class:nnn { "3099 } { "309A } { \xecjk_class_num:n { IVS } } 507 } 508 \NewDocumentCommand \ xecjk_set_char_class_aux:nnw 509 { m > { \SplitArgument { 1 } { -> } } m } { #1 #2 } 510 \cs_generate_variant:nn \clist_gconcat:nnn { cc } 511 \cs_generate_variant:nn \xecjk_declare_char_class:nn { nx, nv } (End definition for \xecjk_declare_char_class:nn and \ xecjk_set_char_class_aux:nnw.) \ xecjk_check_num_range:nnnn 512 \cs_new_protected_nopar:npn \ xecjk_check_num_range:nnnn #1#2#3#4 513 { 514 \bool_if:ntf { \xecjk_if_blank_x_p:n {#1} \xecjk_if_blank_x_p:n {#2} } 515 { 516 \int_set:nn #3 { \xecjk_if_blank_x:ntf {#1} {#2} {#1} } 517 \int_set_eq:nn #3 #4 518 } 519 { 520 \int_set:nn #3 { \int_min:nn {#1} { \IfNoValueTF {#2} {#1} {#2} } } 521 \int_set:nn #4 { \int_max:nn {#1} { \IfNoValueTF {#2} {#1} {#2} } } 522 } 523 } (End definition for \ xecjk_check_num_range:nnnn.) 524 \int_set:nn \l xecjk_begin_int { "AC00 } 525 \int_set:nn \l xecjk_end_int { "D7A3 } 526 \xecjk_int_until_do:nn { \l xecjk_begin_int > \l xecjk_end_int } 527 { 528 \char_set_catcode_letter:n { \l xecjk_begin_int } 529 \int_incr:n \l xecjk_begin_int 530 } \xecjk_set_char_class:nnn #1 #2 Unicode #3 531 \cs_new_protected_nopar:npn \xecjk_set_char_class:nnn #1#2#3 532 { 533 \ xecjk_check_num_range:nnnn {#1} {#2} \l xecjk_begin_int \l xecjk_end_int 534 \int_set:nn \l xecjk_tmp_int {#3} 535 \xecjk_int_until_do:nn { \l xecjk_begin_int > \l xecjk_end_int } 536 { 537 \XeTeXcharclass \l xecjk_begin_int = \l xecjk_tmp_int 538 \int_incr:n \l xecjk_begin_int 539 } 540 } 28

29 (End definition for \xecjk_set_char_class:nnn.) \ xecjk_set_char_class_eq:nn #1 #2 #1 541 \cs_new_protected_nopar:npn \ xecjk_set_char_class_eq:nn #1#2 542 { 543 \int_set:nn \l xecjk_tmp_int { \xecjk_class_num:n {#2} } 544 \clist_map_inline:cn { c xecjk_#1_chars_clist } 545 { \XeTeXcharclass ##1 = \l xecjk_tmp_int } 546 } (End definition for \ xecjk_set_char_class_eq:nn.) \normalspacedchars 547 \NewDocumentCommand \normalspacedchars { m } 548 { 549 \tl_map_inline:nn {#1} 550 { \XeTeXcharclass `##1 = \xecjk_class_num:n { NormalSpace } } 551 } (End definition for \normalspacedchars. This function is documented on page 9.) \xecjkresetpunctclass 552 \NewDocumentCommand \xecjkresetpunctclass { } 553 { 554 \xecjk_declare_char_class:nv { HalfLeft } \c xecjk_halfleft_chars_clist 555 \xecjk_declare_char_class:nv { HalfRight } \c xecjk_halfright_chars_clist 556 \xecjk_declare_char_class:nv { FullLeft } \c xecjk_fullleft_chars_clist 557 \xecjk_declare_char_class:nv { FullRight } \c xecjk_fullright_chars_clist 558 } (End definition for \xecjkresetpunctclass. This function is documented on page 9.) \xecjkresetcharclass xecjk 559 \NewDocumentCommand \xecjkresetcharclass { } 560 { 561 \xecjk_declare_char_class:nv { CJK } \c xecjk_cjk_chars_clist 562 \xecjk_declare_char_class:nv { NormalSpace } \c xecjk_normalspace_chars_clist 563 \xecjk_declare_char_class:nv { IVS } \c xecjk_ivs_chars_clist 564 \xecjk_declare_char_class:nv { HangulJamo } \c xecjk_hanguljamo_chars_clist 565 \xecjkresetpunctclass 566 } (End definition for \xecjkresetcharclass. This function is documented on page 9.) 567 \xecjkresetcharclass xecjk_inter_class_toks:nnn 568 \cs_new_protected_nopar:npn \xecjk_inter_class_toks:nnn #1#2#3 569 { \XeTeXinterchartoks \xecjk_class_num:n {#1} ~ \xecjk_class_num:n {#2} = {#3} } 570 \cs_generate_variant:nn \xecjk_inter_class_toks:nnn { nnc, nnx } (End definition for \xecjk_inter_class_toks:nnn.) \xecjk_get_inter_class_toks:nn 571 \cs_new_nopar:npn \xecjk_get_inter_class_toks:nn #1#2 572 { \tex_the:d \XeTeXinterchartoks \xecjk_class_num:n {#1} ~ \xecjk_class_num:n {#2} } (End definition for \xecjk_get_inter_class_toks:nn.) \xecjk_clear_inter_class_toks:nn 573 \cs_new_protected_nopar:npn \xecjk_clear_inter_class_toks:nn #1#2 574 { \xecjk_inter_class_toks:nnn {#1} {#2} { \prg_do_nothing: } } (End definition for \xecjk_clear_inter_class_toks:nn.) 29

30 \xecjk_pre_inter_class_toks:nnn 575 \cs_new_protected_nopar:npn \xecjk_pre_inter_class_toks:nnn #1#2#3 576 { 577 \xecjk_inter_class_toks:nnx {#1} {#2} 578 { \exp_not:n {#3} \xecjk_get_inter_class_toks:nn {#1} {#2} } 579 } 580 \cs_generate_variant:nn \xecjk_pre_inter_class_toks:nnn { nnx } (End definition for \xecjk_pre_inter_class_toks:nnn.) \xecjk_app_inter_class_toks:nnn 581 \cs_new_protected_nopar:npn \xecjk_app_inter_class_toks:nnn #1#2#3 582 { 583 \xecjk_inter_class_toks:nnx {#1} {#2} 584 { \xecjk_get_inter_class_toks:nn {#1} {#2} \exp_not:n {#3} } 585 } 586 \cs_generate_variant:nn \xecjk_app_inter_class_toks:nnn { nnc, nnx } (End definition for \xecjk_app_inter_class_toks:nnn.) \xecjk_copy_inter_class_toks:nnnn #3 #4 #1 #2 587 \cs_new_protected_nopar:npn \xecjk_copy_inter_class_toks:nnnn #1#2#3#4 588 { 589 \tl_set:nx \l xecjk_tmp_tl { \xecjk_get_inter_class_toks:nn {#3} {#4} } 590 \tl_if_empty:nf \l xecjk_tmp_tl 591 { \xecjk_inter_class_toks:nnx {#1} {#2} { \exp_not:v \l xecjk_tmp_tl } } 592 } (End definition for \xecjk_copy_inter_class_toks:nnnn.) \xecjk_replace_inter_class_toks:nnnn #1 #2 #3 #4 593 \cs_new_protected_nopar:npn \xecjk_replace_inter_class_toks:nnnn #1#2#3#4 594 { 595 \tl_set:nx \l xecjk_tmp_tl { \xecjk_get_inter_class_toks:nn {#1} {#2} } 596 \tl_if_empty:nf \l xecjk_tmp_tl 597 { 598 \tl_replace_all:nnn \l xecjk_tmp_tl {#3} {#4} 599 \xecjk_inter_class_toks:nnx {#1} {#2} { \exp_not:v \l xecjk_tmp_tl } 600 } 601 } (End definition for \xecjk_replace_inter_class_toks:nnnn.) \xecjk_clear_boundary_and_cjk_toks: CJK 602 \cs_new_protected_nopar:npn \xecjk_clear_boundary_and_cjk_toks: 603 { \seq_map_function:nn \g xecjk_cjk_class_seq \ xecjk_clear_boundary_and_cjk_toks:n } 604 \cs_new_protected_nopar:npn \ xecjk_clear_boundary_and_cjk_toks:n #1 605 { \xecjk_clear_inter_class_toks:nn { Boundary } {#1} } (End definition for \xecjk_clear_boundary_and_cjk_toks:.) 5.6 Default CJK FullL FullR HalfL HalfR Normal Bound IVS Default CJK FullLeft FullRight HalfLeft HalfRight NormalSpace Boundary IVS 30

31 \xecjk_class_group_begin: \xecjk_class_group_end: 606 \cs_new_protected_nopar:npn \xecjk_class_group_begin: 607 { 608 \c_group_begin_token 609 \bool_set_true:n \l xecjk_cjk_group_bool 610 \int_gset_eq:nn \g xecjk_spacefactor_int \c_one_thousand 611 } 612 \bool_new:n \l xecjk_cjk_group_bool 613 \cs_new_eq:nn \xecjk_class_group_end: \c_group_end_token (End definition for \xecjk_class_group_begin: and \xecjk_class_group_end:.) IVS CJK CJK IVS 614 \AtEndOfPackage 615 { 616 \seq_map_inline:nn \g xecjk_class_seq 617 { 618 \str_if_eq:nntf {#1} { IVS } 619 { \xecjk_copy_inter_class_toks:nnnn { IVS } {#1} { CJK } { CJK } } 620 { 621 \xecjk_copy_inter_class_toks:nnnn { IVS } {#1} { CJK } {#1} 622 \str_if_eq:nnf {#1} { CJK } 623 { \xecjk_copy_inter_class_toks:nnnn {#1} { IVS } {#1} { CJK } } 624 } 625 } 626 } HangulJamo CJK HangulJamo 627 \AtEndOfPackage 628 { 629 \seq_map_inline:nn \g xecjk_class_seq 630 { 631 \str_if_eq:nnf {#1} { HangulJamo } 632 { 633 \xecjk_copy_inter_class_toks:nnnn { HangulJamo } {#1} { CJK } {#1} 634 \xecjk_copy_inter_class_toks:nnnn {#1} { HangulJamo } {#1} { CJK } 635 } 636 } 637 } 638 \clist_map_inline:nn { Default, HalfLeft, HalfRight, NormalSpace } 639 { 640 \xecjk_inter_class_toks:nnn {#1} { CJK } 641 { 642 \xecjk_class_group_begin: 643 \xecjk_select_font: 644 \xecjk_clear_inter_class_toks:nn {#1} { CJK } 645 \xecjk_clear_boundary_and_cjk_toks: 646 \CJKsymbol 647 } 648 \xecjk_inter_class_toks:nnn { CJK } {#1} { \xecjk_class_group_end: } 649 } 650 \clist_map_inline:nn { Default, HalfLeft } 651 { 652 \xecjk_inter_class_toks:nnn { Boundary } {#1} { \xecjk_boundary_and_default: } 653 \xecjk_app_inter_class_toks:nnn { CJK } {#1} { \CJKecglue } 654 } ecjk_boundary_and_default: 655 \cs_new_protected_nopar:npn \xecjk_boundary_and_default: 656 { \xecjk_check_for_ecglue: } 657 \cs_new_protected_nopar:npn \ xecjk_check_for_xecglue: 658 { 659 \bool_if:ntf 660 { 661 \int_compare_p:nnn \etex_lastnodetype:d = \c_eleven && 662 \skip_if_eq_p:nn \tex_lastskip:d \c_xecjk_space_skip_tl 663 } 664 { 31