summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/xelatex/xecjk/xeCJK.chr
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/xelatex/xecjk/xeCJK.chr')
-rw-r--r--Master/texmf-dist/tex/xelatex/xecjk/xeCJK.chr310
1 files changed, 0 insertions, 310 deletions
diff --git a/Master/texmf-dist/tex/xelatex/xecjk/xeCJK.chr b/Master/texmf-dist/tex/xelatex/xecjk/xeCJK.chr
deleted file mode 100644
index 865627ca7d2..00000000000
--- a/Master/texmf-dist/tex/xelatex/xecjk/xeCJK.chr
+++ /dev/null
@@ -1,310 +0,0 @@
-% -*- coding: utf-8 -*-
-% This is a modified version of CJKpunct.sty for using with the package xeCJK.
-%
-% Wenchang Sun (sunwch@hotmail.com)
-%
-%
-%\edef\xeCJKcatcodeat{\the\catcode`\@}% save catcode of @
-%\edef\xeCJKendlinechar{\the\endlinechar}% save endlinechar
-%\catcode`\@=11\relax
-%\endlinechar \m@ne
-
-\def\fileversion{2.0.24}
-\def\filedate{2008/06/20}
-\ProvidesFile{zh-cn.chr}[\filedate\space\fileversion]
-
-%\def\xeCJKglue{\hskip 0.1em plus 0.05em minus 0.05em $aa$}
-
-% Output CJK fonts
-%
-\DeclareRobustCommand{\xeCJK@char}[1]{
- {\XeTeXinterchartokenstate=0
- \CJKsymbol{#1}
- \xeCJK@CJKkern}
- \xeCJK@ignorespaces}
-
-% for punctuation.
-\DeclareRobustCommand{\xeCJK@prepunctchar}[1]{
- {\xeCJK@punctrule
- \ifcsname @xeCJK@preglue#1\endcsname
- \ifnum\lastkern>1\relax
- \unkern
- \unkern
- \xeCJK@unskip
- \csname @xeCJK@kern\@xeCJK@lastpunct#1\endcsname
- \nobreak
- \else
- \xeCJK@ULspecials
- \csname @xeCJK@preglue#1\endcsname
- \fi
-
- \global\edef\@xeCJK@lastpunct{#1}
- \csname @xeCJK@prerule#1\endcsname
-
- \XeTeXinterchartokenstate=0
- \CJKpunctsymbol{#1}
-
- \csname @xeCJK@postrule#1\endcsname
- \nobreak
- \else
- \xeCJK@char{#1}
- \fi
- \xeCJK@prepunctkern}
- \ignorespaces}
-
-\DeclareRobustCommand{\xeCJK@postpunctchar}[1]{
- {\xeCJK@punctrule
- \ifcsname @xeCJK@postglue#1\endcsname
- \ifnum\lastkern>1\relax
- \unkern
- \unkern
- \xeCJK@unskip
- \csname @xeCJK@kern\@xeCJK@lastpunct#1\endcsname
- \nobreak
- \else
- \xeCJK@ULspecials
- \ifcsname @xeCJK@punctbreak#1\endcsname
- \CJKglue % breakable
- \else
- \nobreak
- \fi
- \fi
-
- \global\edef\@xeCJK@lastpunct{#1}
- \csname @xeCJK@prerule#1\endcsname
-
- \XeTeXinterchartokenstate=0
- \CJKpunctsymbol{#1}
-
- \csname @xeCJK@postrule#1\endcsname
- \csname @xeCJK@postglue#1\endcsname
- \else
- \xeCJK@char{#1}
- \fi
- \xeCJK@postpunctkern}
- \xeCJK@ignorespaces}
-
-\let\xeCJK@unskip\unskip
-\def\xeCJK@UL@unskip{
- \hskip\csname xeCJK@punctglue@\@xeCJK@lastpunct\endcsname\relax}
-
-\def\@xeCJK@kern#1#2 #3\relax{
- \ifdim #3em=\z@
- \global\expandafter\let\csname @xeCJK@kern#1#2\endcsname\relax
- \else
- \expandafter\gdef\csname @xeCJK@kern#1#2\endcsname{
- \kern #3em}
- \fi}
-\let\UTFkern\@xeCJK@kern
-
-\def\xeCJK@punct#1 #2 #3 #4 #5 #6 #7\relax{
- \ifnum #2=1\relax
- \XeTeXcharclass `#1 3\relax
- \else
- \XeTeXcharclass `#1 2\relax
- \fi
- % glue and nobreak flag before a punct char
- \@xeCJK@before@punct{#1}{}#2 #4\relax
- % glue and nobreak flag after a punct char
- \@xeCJK@after@punct{#1}{}#5 #7\relax
- % zero-height rule added before a punct char
- \ifdim #3\p@ = \z@
- \global\expandafter\let\csname
- @xeCJK@prerule#1\endcsname=\relax
- \else
- \global\expandafter\def\csname @xeCJK@prerule#1\endcsname{
- \vrule width #3em depth \z@ height \z@}
- \fi
-
- % zero-height rule added after a punct char
- \ifdim #6\p@ = \z@
- \global\expandafter\let\csname
- @xeCJK@postrule#1\endcsname=\relax
- \else
- \global\expandafter\def\csname
- @xeCJK@postrule#1\endcsname{
- \vrule width #6em depth \z@ height \z@}
- \fi}
-\let\UTFpunct\xeCJK@punct
-
-\def\@xeCJK@before@punct#1#2#3 #4,#5,#6,#7\relax{
- \ifnum #3#4=\z@
- \global\expandafter\def\csname @xeCJK@preglue#1\endcsname{
- \ifnum\lastkern<2\relax
- \nobreak
- \fi}
- \else
- \if #31\relax
- \global\expandafter\def\csname @xeCJK@preglue#1\endcsname{
- \nobreak}
- \else
- \global\expandafter\def\csname @xeCJK@preglue#1\endcsname{
- \ifnum\lastkern<2\relax
- \nobreak
- \fi
- \hskip #5em plus #6em minus #7em\relax}
- \fi
- \fi}
-
-\def\@xeCJK@after@punct#1#2#3 #4,#5,#6,#7\relax{
- \ifnum #3#4=\z@
- \global\expandafter\let\csname @xeCJK@postglue#1\endcsname=\relax
- \else
- % Note: we insert the glue here otherwise it might be lost
- % if the next char is not a Chinese char.
- %
- % We also insert a penalty to prevent line break, a negative penalty
- % might be added by the next Chinese char to allow line break between
- % them.
- \if #41\relax
- \global\expandafter\def\csname @xeCJK@postglue#1\endcsname{
- \hskip #5em plus #6em minus #7em}
- \else
- \global\expandafter\def\csname @xeCJK@postglue#1\endcsname{
- \nobreak}
- \fi
- \global\expandafter\def\csname xeCJK@punctglue@#1\endcsname{
- -#5em}
- \fi}
-
-\IfFileExists{cjkdefkern.cfg}
- {\input{cjkdefkern.cfg}\xeCJK@defkern}
- {\typeout{Warning: config file cjkdefkern.cfg not found.}}
-
-\def\xeCJK@Currenttblbase{}
-\def\xeCJK@punctrule{
- \xeCJK@gettblbase
- \ifx\xeCJK@tblbase\xeCJK@Currenttblbase
- \else
- \ifcsname xeCJK@\xeCJK@tblbase\endcsname
- \else
- \IfFileExists{\xeCJK@tblbase.tbl}
- {\edef\xeCJK@temp{\xeCJK@tblbase.tbl}}
- {\edef\xeCJK@temp{\xeCJK@language\xeCJK@pstyle def.tbl}
- \global\expandafter\def\csname xeCJK@\xeCJK@tblbase\endcsname{
- \csname xeCJK@\xeCJK@language\xeCJK@pstyle def\endcsname}
- \typeout{Warning: \xeCJK@tblbase.tbl not found, using
- \xeCJK@temp\space instead.}}
-
- \bgroup
- \catcode`\\=0 \catcode`\%= 14 \catcode`\^^Z=10
- \catcode`\^^I=10 \catcode`\ =10 \catcode`\^^M=5
- \catcode`\@=11
- \catcode`.=12 \catcode`,=12 \catcode`-=12 \catcode`+=12
- \catcode`0=12 \catcode`1=12 \catcode`2=12 \catcode`3=12
- \catcode`4=12 \catcode`5=12 \catcode`6=12 \catcode`7=12
- \catcode`8=12 \catcode`9=12
- \catcode`\{=1 \catcode`\}=2
- \@tempcnta="40
- \loop
- \advance\@tempcnta 1\relax
- \catcode\@tempcnta=11\relax
- \ifnum\the\@tempcnta<"5A\repeat
-
- \@tempcnta="60
- \loop
- \advance\@tempcnta 1\relax
- \catcode\@tempcnta=11\relax
- \ifnum\the\@tempcnta<"7A\repeat
-
- \IfFileExists{\xeCJK@temp}
- {\input{\xeCJK@temp}}
- {\typeout{Warning: File \xeCJK@temp\space not found.}}
- \egroup
-
- \fi
- \csname xeCJK@\xeCJK@tblbase\endcsname
- \global\let\xeCJK@Currenttblbase\xeCJK@tblbase
- \fi}
-
-\def\xeCJK@gettblbase{
- \ifcsname tblbase\xeCJK@pstyle @\xeCJK@family/\f@series/\f@shape\endcsname
- \edef\xeCJK@tblbase{\csname
- tblbase\xeCJK@pstyle @\xeCJK@family/\f@series/\f@shape\endcsname}
- \else
- {\csname xeCJK@font@\xeCJK@family\endcsname
- \get@external@font
- \global\let\xeCJK@tempx\external@font}
- \expandafter\xeCJK@@gettblbase\xeCJK@tempx\relax
- \global\expandafter\edef\csname
- tblbase\xeCJK@pstyle @\xeCJK@family/\f@series/\f@shape\endcsname{\xeCJK@tblbase}
- \fi}
-
-\def\xeCJK@@gettblbase"#1/#2"#3\relax{
- \edef\xeCJK@temp{\xeCJK@language\xeCJK@pstyle\zap@space #1 \@empty}
- \edef\xeCJK@temp{\lowercase{\def\noexpand\xeCJK@tblbase{\xeCJK@temp}}}
- \xeCJK@temp
- \def\temp{}
- \expandafter\xeCJK@stringtoascii\xeCJK@tblbase[]
- \edef\xeCJK@tblbase{\temp}}
-
-\def\xeCJK@stringtoascii#1{
- \ifnum\number`#1>127\relax
- \edef\temp{\temp\number`#1}
- \else
- \edef\temp{\temp\string#1}
- \fi
- \@ifnextchar[{\xeCJK@gobbletwo}{\xeCJK@stringtoascii}}
-
-\def\xeCJK@gobbletwo[]{}
-
-\def\punctstyle#1{
- \ifcsname xeCJK@ps@#1\endcsname
- \edef\xeCJK@pstyle{\csname xeCJK@ps@#1\endcsname}
- \else
- \typeout{Warning: Punctstyle #1\space is not defined.}
- \fi}
-
-\def\xeCJK@ps@kaiming{k}
-\def\xeCJK@ps@banjiao{b}
-\def\xeCJK@ps@quanjiao{q}
-\def\xeCJK@ps@CCT{c}
-\punctstyle{CCT}
-
-\let\@afterindentfalse\relax
-
-\def\CJKparindent{\@tempdima \f@size pt\relax
- \multiply\@tempdima by 2\relax
- \edef\temp{\the\@tempdima}
- \parindent\temp}
-\let\zhcnparindent\CJKparindent
-
-\def\xeCJKplainchr{
- \def\xeCJK@char##1{
- {\XeTeXinterchartokenstate=0
- \CJKsymbol{##1}
- \xeCJK@CJKkern}
- \xeCJK@ignorespaces}
- %
- % for punctuation.
- \def\xeCJK@prepunctchar##1{
- {\ifodd\lastkern
- \CJKglue
- \else
- \ifnum\lastkern=2\relax
- \CJK@nobreakglue
- \fi
- \fi
- \XeTeXinterchartokenstate=0
- \CJKpunctsymbol{##1}
- \xeCJK@prepunctkern}
- \ignorespaces}
- %
- %
- \def\xeCJK@postpunctchar##1{
- \CJK@nobreakglue
- {\XeTeXinterchartokenstate=0
- \CJKpunctsymbol{##1}
- \xeCJK@postpunctkern}
- \xeCJK@ignorespaces}}
-
-%\endlinechar=\xeCJKendlinechar
-
-
-\def\UTFpunctbreak#1{
- \expandafter\gdef\csname @xeCJK@punctbreak#1\endcsname{}}
-
-\def\xeCJK@gobbleone#1{}
-
-%\catcode`\@=\xeCJKcatcodeat
-