CJK

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

1 files changed, 186 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/CJK/standard.chr b/Master/texmf-dist/tex/latex/CJK/standard.chr
new file mode 100644
index 00000000000..5315ee28763
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/CJK/standard.chr
@@ -0,0 +1,186 @@
+% This is the file standard.chr of the CJK package
+%   for using Asian logographs (Chinese/Japanese/Korean) with LaTeX2e
+%
+% created by Werner Lemberg <wl@gnu.org>
+%
+% Version 4.6.0 (11-Aug-2005)
+
+\def\fileversion{4.6.0}
+\def\filedate{2005/08/11}
+\ProvidesFile{standard.chr}[\filedate\space\fileversion]
+
+
+% define macros for handling standard CJK fonts and characters.
+
+\gdef\CJK@standardChr{
+  \CJK@global\def\CJK@char##1##2##3{
+    {\ifnum ##3 < \CJK@min
+       \CJK@err
+     \else
+       \ifnum ##3 > \CJK@max
+         \CJK@err
+       \else
+         \CJK@testLastCJK
+         \ifCJK@
+           \CJKglue
+         \fi
+         \CJK@testLastKern
+         \ifCJK@
+           \CJK@nobreakglue
+         \fi
+
+         \@tempcnta ##3\relax
+         \advance\@tempcnta ##2\relax
+         \edef\CJK@plane{##1}
+         \usefont{\CJK@enc}{\CJK@family}{\CJK@series}{\CJK@shape}
+         \edef\reserved@a{
+           \curr@fontshape/\CJK@plane/\the\@tempcnta/\CJK@direction}
+         \expandafter\ifx\csname\reserved@a\endcsname \relax
+           \CJKsymbol{\@tempcnta}
+         \else
+           \csname\reserved@a\endcsname
+         \fi
+
+         \CJK@CJK
+       \fi
+     \fi}}
+
+% the same, but the plane crosses the font file boundary.
+
+  \CJK@global\def\CJK@charx##1##2##3##4{
+    {\ifnum ##4 < \CJK@min
+       \CJK@err
+     \else
+       \ifnum ##4 > \CJK@max
+         \CJK@err
+       \else
+         \CJK@testLastCJK
+         \ifCJK@
+           \CJKglue
+         \fi
+         \CJK@testLastKern
+         \ifCJK@
+           \CJK@nobreakglue
+         \fi
+
+         \@tempcnta ##4\relax
+         \@tempcntb 256\relax
+         \advance\@tempcnta ##3\relax
+         \advance\@tempcntb -##3\relax
+         \chardef\@temp \@tempcntb
+         \ifnum ##4 < \@temp
+           \edef\CJK@plane{##1}
+         \else
+           \advance\@tempcnta -256\relax
+           \edef\CJK@plane{##2}
+         \fi
+         \usefont{\CJK@enc}{\CJK@family}{\CJK@series}{\CJK@shape}
+         \edef\reserved@a{
+           \curr@fontshape/\CJK@plane/\the\@tempcnta/\CJK@direction}
+         \expandafter\ifx\csname\reserved@a\endcsname \relax
+           \CJKsymbol{\@tempcnta}
+         \else
+           \csname\reserved@a\endcsname
+         \fi
+
+         \CJK@CJK
+       \fi
+     \fi}}
+
+% for punctuation.
+
+  \CJK@global\def\CJK@punctchar##1##2##3##4{
+    {\ifnum ##4 < \CJK@min
+       \CJK@err
+     \else
+       \ifnum ##4 > \CJK@max
+         \CJK@err
+       \else
+         \CJK@numbToHex{\CJK@gtemp}{##4}
+         \CJK@testLastCJK
+         \ifCJK@
+           \CJK@testPostPunct{\CJK@punctEnc}{##1}{\CJK@gtemp}
+           \ifCJK@
+             \CJK@nobreakglue
+           \else
+             \CJKglue
+           \fi
+         \fi
+         \CJK@testLastKern
+         \ifCJK@
+           \CJK@nobreakglue
+         \fi
+
+         \@tempcnta ##4\relax
+         \advance\@tempcnta ##3\relax
+         \edef\CJK@plane{##2}
+         \usefont{\CJK@enc}{\CJK@family}{\CJK@series}{\CJK@shape}
+         \edef\reserved@a{
+           \curr@fontshape/\CJK@plane/\the\@tempcnta/\CJK@direction}
+         \expandafter\ifx\csname\reserved@a\endcsname \relax
+           \CJKpunctsymbol{\@tempcnta}
+         \else
+           \csname\reserved@a\endcsname
+         \fi
+
+         \CJK@testPrePunct{\CJK@punctEnc}{##1}{\CJK@gtemp}
+         \ifCJK@
+           \CJK@kern
+         \else
+           \CJK@CJK
+         \fi
+       \fi
+     \fi}}
+
+  \CJK@global\def\CJK@punctcharx##1##2##3##4##5{
+    {\ifnum ##5 < \CJK@min
+       \CJK@err
+     \else
+       \ifnum ##5 > \CJK@max
+         \CJK@err
+       \else
+         \CJK@numbToHex{\CJK@gtemp}{##5}
+         \CJK@testLastCJK
+         \ifCJK@
+           \CJK@testPostPunct{\CJK@punctEnc}{##1}{\CJK@gtemp}
+           \ifCJK@
+             \CJK@nobreakglue
+           \else
+             \CJKglue
+           \fi
+         \fi
+         \CJK@testLastKern
+         \ifCJK@
+           \CJK@nobreakglue
+         \fi
+
+         \@tempcnta ##5\relax
+         \@tempcntb 256\relax
+         \advance\@tempcnta ##4\relax
+         \advance\@tempcntb -##4\relax
+         \chardef\@temp \@tempcntb
+         \ifnum ##5 < \@temp
+           \edef\CJK@plane{##2}
+         \else
+           \advance\@tempcnta -256\relax
+           \edef\CJK@plane{##3}
+         \fi
+         \usefont{\CJK@enc}{\CJK@family}{\CJK@series}{\CJK@shape}
+         \edef\reserved@a{
+           \curr@fontshape/\CJK@plane/\the\@tempcnta/\CJK@direction}
+         \expandafter\ifx\csname\reserved@a\endcsname \relax
+           \CJKpunctsymbol{\@tempcnta}
+         \else
+           \csname\reserved@a\endcsname
+         \fi
+
+         \CJK@testPrePunct{\CJK@punctEnc}{##1}{\CJK@gtemp}
+         \ifCJK@
+           \CJK@kern
+         \else
+           \CJK@CJK
+         \fi
+       \fi
+     \fi}}}
+
+\endinput