% This is the file CJK.enc of the CJK package
%   for using Asian logographs (Chinese/Japanese/Korean) with LaTeX2e
%
% created by Werner Lemberg <wl@gnu.org>
%
% Version 4.8.5 (16-Oct-2021)

% Copyright (C) 1994-2021  Werner Lemberg <wl@gnu.org>
%
% This program is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2 of the License, or
% (at your option) any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program in doc/COPYING; if not, write to the Free
% Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
% MA 02110-1301 USA

\def\fileversion{4.8.5}
\def\filedate{2021/10/16}
\ProvidesFile{CJK.enc}[\filedate\space\fileversion]


% we first define a macro to load an encoding file xxx.enc if
%     \CJK@xxxEncoding is still undefined. \CJK@xxxEncoding will only be
%     executed if it is not the actual encoding.

\edef\CJK@actualEncoding{}

\def\CJK@loadEncoding#1{
  \expandafter\ifx\csname CJK@#1Encoding\endcsname \relax
    \CJK@input{#1.enc}
  \fi

  \edef\CJK@temp{#1}
  \ifx\CJK@temp \CJK@actualEncoding
  \else
    \csname CJK@#1Encoding\endcsname
    \CJK@global\edef\CJK@actualEncoding{#1}
  \fi}

% this loads the appropriate xxx.chr file if \CJK@xxxChr is still undefined.
%     \CJK@xxxChr will only be executed if it is not the actual character
%     macro set.

\edef\CJK@actualChr{}

\def\CJK@loadChr#1{
  \expandafter\ifx\csname CJK@#1Chr\endcsname \relax
    \CJK@input{#1.chr}
  \fi

  \edef\CJK@temp{#1}
  \ifx\CJK@temp \CJK@actualChr
  \else
    \csname CJK@#1Chr\endcsname
    \CJK@global\edef\CJK@actualChr{#1}
  \fi}

% this loads the appropriate xxx.bdg file if \CJK@xxxBinding is still
%     undefined. \CJK@xxxBinding will only be executed if it is not the
%     actual binding.
%
% if the flag \ifCJK@nobind@ is set we do nothing.

\newif\ifCJK@nobind@

\edef\CJK@actualBinding{}

\def\CJK@loadBinding#1{
  \ifCJK@nobind@
  \else
    \expandafter\ifx\csname CJK@#1Binding\endcsname \relax
      \CJK@input{#1.bdg}
    \fi

    \edef\CJK@temp{#1}
    \ifx\CJK@temp \CJK@actualBinding
    \else
      \csname CJK@#1Binding\endcsname
      \CJK@global\edef\CJK@actualBinding{#1}
    \fi
  \fi}


% define macros for individual characters (i.e. the first byte); each active
%     character selects the appropriate subfont. The assignments actually
%     happen in the encoding specific .enc files.

\def\CJK@namegdef#1{
  \@tempcnta `#1
  \edef\CJK@temp{\the\@tempcnta}
  \expandafter\CJK@global\expandafter\def\csname CJK@\CJK@temp\endcsname}


% some encodings can't be reliably processed if \MakeUppercase is active.
%     The following macro disables it. It is used in the encoding specific
%     .enc files.

\ifx\CJKpreproc \relax
  \def\CJK@disableMakeUppercase{
    \CJK@global\let\CJKuppercase \MakeUppercase
    \CJK@global\let\MakeUppercase \relax

    \PackageWarningNoLine{CJK}{
      `\CJK@actualEncoding' encoding used in non-preprocessed mode.\MessageBreak
      \protect\MakeUppercase\space disabled}
    \CJK@global\let\CJK@disableMakeUppercase \relax}
\else
  \let\CJK@disableMakeUppercase \relax
\fi


% single shifts (EUC-TW, EUC-JP), three-byte, and four-byte UTF8 values
%     can't be used in preprocessed mode

\def\CJK@shiftError{
  \PackageError{CJK}{
    Single shifts in `\CJK@actualEncoding' encoding
    can't be used in preprocessed mode
  }
  {Maybe you've forgotten to change the encoding?}}
\def\CJK@unicodeError{
  \PackageError{CJK}{
    Three-Byte UTF8 values can't be used in preprocessed mode
  }
  {Maybe you've forgotten to change the encoding?}}
\def\CJK@unicodexError{
  \PackageError{CJK}{
    Four-Byte UTF8 values can't be used in preprocessed mode
  }
  {Maybe you've forgotten to change the encoding?}}


% the following macro is used to map the CJK (font) encoding to the
%     corresponding NFSS font encodings. It also registers the encoding;
%     we define an empty macro for the font name in \DeclareFontSubstitution
%     since LaTeX2e tests without a subplane appended.

\def\CJK@mapToNFSS#1#2#3#4#5{
  \expandafter\edef\csname CJK@#1@nfssenc\endcsname{#2}
  \DeclareFontEncoding{#2}{}{}
  \DeclareFontSubstitution{#2}{#3}{#4}{#5}
  \expandafter\def\csname #2/#3/#4/#5\endcsname{}}


% an ugly environment which redefines the characters `\', `{', and `}' to
%     `/', `(', and `)' respectively since some CJK encodings need these
%     characters as second bytes.
%
% to include \CJK@global we define the low level environment macros
%     directly.

\def\CJK@makeEnvironment#1{
  \@ifundefined{#1text}{
    \CJK@global\@namedef{#1text}{
      \catcode`\\=12
      \catcode`\{=12
      \catcode`\}=12
      \def\/{/}
      \def\({(}
      \def\){)}
      \catcode`\/=0
      \catcode`\(=1
      \catcode`\)=2}
    \CJK@global\@namedef{end#1text}{}}{}}


% here an overview of all encodings/font encodings:
%
% Chinese:      Bg5     C00
%               Bg5pmC  C01
%
%               HK      C05
%
%               Bg5+    C09
%
%               GB      C10
%               GBpmC   C11
%
%               GBK     C19
%
%               GBt     C20
%               GBtpmC  C21
%
%               CNS1-7  C31-37
%
% Japanese:     JIS     C40
%               JISpmC  C41
%               JISdnp  C42
%               JISwn   C43
%
%               JIS2    C50
%               JIS2dnp C52
%
%               SJIS    ->  kana        C49
%               SJISdnp ->  kana        C49
%
% Korean:       KS      ->  hanja       C60
%                       ->  hangul      C61
%               KSpmC   C62
%               KSHL    ->  hangulHL    C63
%                       ->  symbolHL    C64
%                       ->  hanjaHL     C65
%
% Unicode:      UTF8    C70
%
% CEF:          CEFX    C80
%               CEFY    C81


% here are the punctuation tables. We suppress spaces additionally in this
%     group.

\begingroup
  \catcode`\ 9\relax

  \CJK@prePunct  {Bg5}{A1}{5D, 5F, 61, 63, 65, 67, 69, 6B, 6D, 6F, 71, 73,
                           75, 77, 79, 7B, 7D, A1, A3,
                           A5, A7, A9, AB,
                           AD, B1, CC, CD}
  \CJK@postPunct {Bg5}{A1}{41, 42, 43, 44, 45, 46, 47, 48,
                           49, 4A, 4B, 4C, 4D, 4E, 4F, 50, 51,
                           52, 53, 54, 57,
                           5E, 60, 62, 64, 66, 68, 6A, 6C, 6E, 70, 72, 74,
                           76, 78, 7A, 7C, 7E, A2, A4,
                           A6, A8, AA, AC}
  \CJK@prePunct  {Bg5}{A2}{43, 44, 45, 46, 47, 49,
                           4C, 4E}
  \CJK@postPunct {Bg5}{A2}{48, 4A, 4B, 4D,
                           4F, 50, 51, 52, 53, 54, 55, 56, 57, 58}

  \CJK@prePunct   {GB}{A1}{AE, B0, B2, B4, B6, B8, BA, BC, BE,
                           E7, E8, E9, EA, EC, ED}
  \CJK@postPunct  {GB}{A1}{A2, A3, A4, A9, AD,
                           AF, B1, B3, B5, B7, B9, BB, BD, BF,
                           C3, E3, E4, E5, E6, EB}
  \CJK@prePunct   {GB}{A3}{A3, A4, A8, C0, DB, FB}
  \CJK@postPunct  {GB}{A3}{A1, A5, A9, AC, AE, BA, BB, BF, DD, FD}

  \CJK@prePunct  {JIS}{A1}{C6, C8, CA, CC, CE, D0, D2, D4, D6, D8, DA,
                           EF, F0, F1, F2, F4, F7, F8}
  \CJK@postPunct {JIS}{A1}{A2, A3, A4, A5, A6, A7, A8, A9, AA, AB, AC,
                           B3, B4, B5, B6, B9, BA, BC,
                           C4, C7, C9, CB, CD, CF, D1, D3, D5, D7, D9, DB,
                           EB, EC, ED, EE, F3}
  \CJK@prePunct  {JIS}{A2}{A9}
% \CJK@postPunct {JIS}{A2}{}
% \CJK@prePunct  {JIS}{A4}{}
  \CJK@postPunct {JIS}{A4}{A1, A3, A5, A7, A9,
                           C3, E3, E5, E7, EE}
% \CJK@prePunct  {JIS}{A5}{}
  \CJK@postPunct {JIS}{A5}{A1, A3, A5, A7, A9,
                           C3, E3, E5, E7, EE,
                           F5, F6}

  \CJK@prePunct {SJIS}{81}{65, 67, 69, 6B, 6D, 6F, 71, 73, 75, 77, 79,
                           8F, 90, 91, 92, 94, 97, 98,
                           A7}
  \CJK@postPunct{SJIS}{81}{41, 42, 43, 44, 45, 46, 47, 48, 49, 4A, 4B,
                           52, 53, 54, 55, 58, 59, 5B,
                           63, 66, 68, 6A, 6C, 6E, 70, 72, 74, 76, 78, 7A,
                           8B, 8C, 8D, 8E, 93}
% \CJK@prePunct {SJIS}{82}{}
  \CJK@postPunct{SJIS}{82}{9F, A1, A3, A5, A7,
                           C1, E1, E3, E5, EC}
% \CJK@prePunct {SJIS}{83}{}
  \CJK@postPunct{SJIS}{83}{40, 42, 44, 46, 48,
                           62, 83, 85, 87, 8E,
                           95, 96}

  % half-width katakana
  \CJK@prePunct    {C49}{}{A2}
  \CJK@postPunct   {C49}{}{A1, A3, A4, A5, A7, A8, A9, AA, AB, AC, AD, AE, AF,
                           B0, DE, DF}

  \CJK@prePunct   {KS}{A1}{AE, B0, B2, B4, B6, B8, BA, BC,
                           CB, CC, CD, D7, EC}
  \CJK@postPunct  {KS}{A1}{A2, A3, A4, A5, A6,
                           AF, B1, B3, B5, B7, B9, BB, BD,
                           C6, C7, C8, C9, ED}
  \CJK@prePunct   {KS}{A3}{A3, A4, A8, C0, DB, DC, FB}
  \CJK@postPunct  {KS}{A3}{A1, A5, A9, AC, AE, BA, BB, BF, DD, FD}

  \xdef\CJK@uniPunct{30, fe, ff}        % values must be lowercase for UTF 8

  \CJK@prePunct {UTF8}{30}{08, 0A, 0C, 0E, 10, 12, 14, 16, 18, 1A, 1D, 1F, 36}
  \CJK@postPunct{UTF8}{30}{01, 02, 05, 06,
                           09, 0B, 0D, 0F, 11, 15, 17, 19, 1B, 1E,
                           41, 43, 45, 47, 49, 63, 83, 85, 87, 8E,
                           9B, 9C, 9D, 9E,
                           A1, A3, A5, A7, A9, C3, E3, E5, E7, EE, F5, F6,
                           FB, FC, FD, FE}
  \CJK@prePunct {UTF8}{fe}{59, 5B, 5D, 5F, 60, 69, 6B}
  \CJK@postPunct{UTF8}{fe}{50, 51, 52, 54, 55, 56, 57, 5A, 5C, 5E, 6A}
  \CJK@prePunct {UTF8}{ff}{03, 04, 08, 20, 3B, 5B, E0, E1, E5, E6}
  \CJK@postPunct{UTF8}{ff}{01, 05, 09, 0C, 0E, 1A, 1B, 1F, 3D, 5D,
                           61, 63, 64, 65, 67, 68, 69, 6A, 6B, 6C, 6D, 6E, 6F,
                           70, 9E, 9F}

  \CJK@prePunct {CNS1}{A1}{BE, C2, C6, CA, CE, D2, D6, DA, DE, E0, E2,
                           E4, E6, E8, EA,
                           EC, F0}
  \CJK@postPunct{CNS1}{A1}{A2, A3, A4, A5, A6, A7, A8, A9,
                           AA, AC, AD, AE, AF, B0, B1, B2,
                           B3, B4, B5,
                           BF, C3, C7, CB, CF, D3, D7, DB, DF, E1, E3,
                           E5, E7, E9, EB}
  \CJK@prePunct {CNS1}{A2}{AD, AE, E3, E4, E5, E6, E7, E9,
                           EC, EE}
  \CJK@postPunct{CNS1}{A2}{E8, EA, EB, ED,
                           EF, F0, F1, F2, F3, F4, F5, F6, F7, F8}

  \CJK@prePunct  {GBK}{A1}{AE, B0, B2, B4, B6, B8, BA, BC, BE,
                           E7, E8, E9, EA, EC, ED}
  \CJK@postPunct {GBK}{A1}{A2, A3, A4, A9, AD,
                           AF, B1, B3, B5, B7, B9, BB, BD, BF,
                           C3, E3, E4, E5, E6, EB}
  \CJK@prePunct  {GBK}{A3}{A3, A4, A8, C0, DB, FB}
  \CJK@postPunct {GBK}{A3}{A1, A5, A9, AC, AE, BA, BB, BF, DD, FD}
% \CJK@prePunct  {GBK}{A4}{}
  \CJK@postPunct {GBK}{A4}{A1, A3, A5, A7, A9, C3, E3, E5, E7, EE}
% \CJK@prePunct  {GBK}{A5}{}
  \CJK@postPunct {GBK}{A5}{A1, A3, A5, A7, A9, C3, E3, E5, E7, EE, F5, F6}
  \CJK@prePunct  {GBK}{A8}{93, 94}
  \CJK@postPunct {GBK}{A8}{95}
  \CJK@prePunct  {GBK}{A9}{76, 78, 7A, 7C, 7D, 86, 88}
  \CJK@postPunct {GBK}{A9}{60, 61, 62, 63, 64, 65, 66, 67, 6F,
                           70, 71, 72, 73, 74, 75, 77, 79, 7B, 87}
\endgroup


% dummy encoding for MULE.

\def\CJK@@enc{\CJK@loadBinding{standard}}

\edef\CJK@@fontenc{}


% traditional Chinese characters
%
% character set: Big 5
% encoding: Big 5
% font encoding: CJK

\CJK@mapToNFSS{Bg5}{C00}{song}{m}{n}
\CJKencfamily{Bg5}{song}
\CJKfontenc{Bg5}{}
\@namedef{CJK@Bg5@hook}{}

\@namedef{CJK@Bg5@enc}{
  \CJK@makeEnvironment{Bg5}

  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "040%    don't forget `0' before the number,
  \CJK@global\chardef\CJK@max "0FE%      otherwise german.sty will not work.

  \CJK@loadEncoding{Bg5}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"040}}}

% support for Hong Kong
%
% character set: Big 5 + HKSCS-2004 (or HKSCS-2001)
% encoding: Big 5
% font encoding: CJK

\CJK@mapToNFSS{HK}{C05}{song}{m}{n}
\CJKencfamily{HK}{song}
\CJKfontenc{HK}{}
\@namedef{CJK@HK@hook}{}

\def\CJK@HK@enc{
  \CJK@makeEnvironment{HK}

  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "040%    don't forget `0' before the number,
  \CJK@global\chardef\CJK@max "0FE%      otherwise german.sty will not work.

  \CJK@loadEncoding{HK}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"040}}}

% Chinese characters (extension of Big 5)
%
% character set: Big 5+
% encoding: extended
% font encoding: CJK

\CJK@mapToNFSS{Bg5+}{C09}{song}{m}{n}
\CJKencfamily{Bg5+}{song}
\CJKfontenc{Bg5+}{}
\@namedef{CJK@Bg5+@hook}{}

\@namedef{CJK@Bg5+@enc}{
  \CJK@makeEnvironment{Bg5+}

  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "040
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{extended}

  \CJK@global\edef\CJK@punctEnc{Bg5}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"040}}}


% Chinese characters
%
% character set: GB 2312-80
% encoding: EUC
% font encoding: CJK

\CJK@mapToNFSS{GB}{C10}{song}{m}{n}
\CJKencfamily{GB}{song}
\CJKfontenc{GB}{}
\def\CJK@GB@hook{}

\def\CJK@GB@enc{
  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{standard}

  \CJK@global\edef\CJK@punctEnc{GB}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}

% traditional Chinese characters
%
% character set: GB/T 12345-90
% encoding: EUC
% font encoding: CJK

\CJK@mapToNFSS{GBt}{C20}{song}{m}{n}
\CJKencfamily{GBt}{song}
\CJKfontenc{GBt}{}
\def\CJK@GBt@hook{}

\let\CJK@GBt@enc \CJK@GB@enc

% Chinese characters (extension of GB 2312)
%
% character set: GBK
% encoding: extended
% font encoding: CJK

\CJK@mapToNFSS{GBK}{C19}{song}{m}{n}
\CJKencfamily{GBK}{song}
\CJKfontenc{GBK}{}
\def\CJK@GBK@hook{}

\def\CJK@GBK@enc{
  \CJK@makeEnvironment{GBK}

  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "040
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{extended}

  \CJK@global\edef\CJK@punctEnc{GBK}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}


% Japanese characters
%
% character set JIS X 0208:1997
% encoding: EUC
% font encoding: CJK

\CJK@mapToNFSS{JIS}{C40}{song}{m}{n}
\CJKencfamily{JIS}{song}
\CJKfontenc{JIS}{}
\def\CJK@JIS@hook{}

\def\CJK@JIS@enc{
  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{standard}

  \CJK@global\edef\CJK@punctEnc{JIS}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}

% Japanese characters
%
% character set: JIS X 0208:1997
% encoding: EUC
% font encoding: DNP

\CJK@mapToNFSS{JISdnp}{C42}{song}{m}{n}
\CJKencfamily[dnp]{JIS}{song}

\def\CJK@JISdnp@enc{
  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{JISdnp}

  \CJK@global\edef\CJK@punctEnc{JIS}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}

% Japanese characters
%
% character set: JIS X 0208:1997
% encoding: EUC
% font encoding: DNP (watanabe)

\CJK@mapToNFSS{JISwn}{C43}{song}{m}{n}
\CJKencfamily[wn]{JIS}{song}

\let\CJK@JISwn@enc \CJK@JISdnp@enc

% Japanese supplemental JIS characters
%
% character set: JIS X 0212-1990
% encoding: EUC
% font encoding: CJK

\CJK@mapToNFSS{JIS2}{C50}{song}{m}{n}
\CJKencfamily{JIS2}{song}
\CJKfontenc{JIS2}{}
\@namedef{CJK@JIS2@hook}{}

\@namedef{CJK@JIS2@enc}{
  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{standard}

  \CJK@global\edef\CJK@punctEnc{}

  \CJK@global\def\CJK@spaceChar{\CJKchar[JIS]{"0A1}{"0A1}}}

% Japanese supplemental JIS characters
%
% character set: JIS X 0212-1990
% encoding: EUC
% font encoding: DNP

\CJK@mapToNFSS{JIS2dnp}{C52}{song}{m}{n}
\CJKencfamily[dnp]{JIS2}{song}

\@namedef{CJK@JIS2dnp@enc}{
  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{JISdnp}

  \CJK@global\edef\CJK@punctEnc{}

  \CJK@global\def\CJK@spaceChar{\CJKchar[JIS]{"0A1}{"0A1}}}

% Japanese characters
%
% character sets: JIS X 0208:1997
%                 half-width katakana (JIS X 0201-1997)
% encoding: SJIS
% font encoding: CJK
%
% Technical note: \CJK@altenc is used for SJIS, \CJK@altEnc for KS.

\CJK@mapToNFSS{kana}{C49}{song}{m}{n}%  used internally only
\CJKencfamily{SJIS}{song}
\CJKfontenc{SJIS}{}
\def\CJK@SJIS@hook{}

% the relative order of JIS and SJIS encoded characters are identical
%     except one byte characters.

\def\CJK@@@SJIS@hook{
  \CJK@global\edef\CJK@enc{\CJK@JIS@nfssenc}
  \CJK@global\edef\CJK@altenc{\CJK@kana@nfssenc}}

\def\CJK@SJIS@enc{
  \CJK@makeEnvironment{SJIS}

  \CJK@loadBinding{SJIS}

  \CJK@global\chardef\CJK@min "040
  \CJK@global\chardef\CJK@max "0FC

  \CJK@loadEncoding{SJIS}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"081}{"040}}}

% Japanese characters
%
% character sets: JIS X 0208:1997
%                 half-width katakana (JIS X 0201-1997)
% encoding: SJIS
% font encoding: DNP

\CJKencfamily[dnp]{SJIS}{song}

% the relative order of JIS and SJIS encoded characters are identical
%     except one byte characters.

\def\CJK@@@SJISdnp@hook{
  \CJK@global\edef\CJK@enc{\CJK@JISdnp@nfssenc}
  \CJK@global\edef\CJK@altenc{\CJK@kana@nfssenc}}

\def\CJK@SJISdnp@enc{
  \CJK@makeEnvironment{SJIS}

  \CJK@loadBinding{SJIS}

  \CJK@global\chardef\CJK@min "040
  \CJK@global\chardef\CJK@max "0FC

  \CJK@loadEncoding{SJISdnp}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"081}{"040}}}


% Korean characters
%
% character set: KS X 1001:1992 (=KS C 5601-1992)
% encoding: EUC
% font encoding: CJK
%
% the increased \tolerance compensates the lack of \CJKglue for Hangul
%     syllables.

% the following commands choose between C60xxx.fd (for hanja) and C61xxx.fd
%     (for hangul) for the character range 0xB0A1 - 0xC8FE.

\newif\ifCJK@hanja@
\CJK@hanja@false

\DeclareRobustCommand{\CJKhanja}{
  \CJK@global\CJK@hanja@true
  \edef\CJK@temp{KS}
  \ifx\CJK@temp \CJK@@@enc
    \edef\CJK@temp{\csname CJK@\CJK@@@enc @fontenc\endcsname}
    \CJK@global\edef\CJK@altEnc{
      \csname CJK@hanja\CJK@temp @nfssenc\endcsname}
  \fi}
\DeclareRobustCommand{\CJKhangul}{
  \CJK@global\CJK@hanja@false
  \edef\CJK@temp{KS}
  \ifx\CJK@temp \CJK@@@enc
    \edef\CJK@temp{\csname CJK@\CJK@@@enc @fontenc\endcsname}
    \CJK@global\edef\CJK@altEnc{
      \csname CJK@hangul\CJK@temp @nfssenc\endcsname}
  \fi}

\CJK@mapToNFSS{hanja}{C60}{mj}{m}{n}%   used internally only
\CJK@mapToNFSS{hangul}{C61}{mj}{m}{n}%  used internally only
\CJKencfamily{KS}{mj}
\CJKfontenc{KS}{}
\def\CJK@KS@hook{}

\def\CJK@@@KS@hook{
  \CJK@global\edef\CJK@enc{\CJK@hanja@nfssenc}
  \ifCJK@hanja@
    \CJK@global\edef\CJK@altEnc{\CJK@hanja@nfssenc}
  \else
    \CJK@global\edef\CJK@altEnc{\CJK@hangul@nfssenc}
  \fi}

\def\CJK@KS@enc{
  \CJK@global\def\mj{\protect\CJK@mj}%              % from hLaTeX
  \gdef\CJK@mj{\CJKencfamily{KS}{mj}}
  \CJK@global\def\gt{\protect\CJK@gt}
  \gdef\CJK@gt{\CJKencfamily{KS}{gt}}
  \CJK@global\def\gs{\protect\CJK@gs}
  \gdef\CJK@gs{\CJKencfamily{KS}{gs}}
  \CJK@global\def\gr{\protect\CJK@gr}
  \gdef\CJK@gr{\CJKencfamily{KS}{gr}}
  \CJK@global\def\dr{\protect\CJK@dr}
  \gdef\CJK@dr{\CJKencfamily{KS}{dr}}

  \CJK@global\def\hgt{\protect\CJK@hgt}%            % from hjTeX
  \gdef\CJK@hgt{\CJKencfamily{KS}{hgt}}
  \CJK@global\def\hmj{\protect\CJK@hmj}
  \gdef\CJK@hmj{\CJKencfamily{KS}{hmj}}
  \CJK@global\def\hol{\protect\CJK@hol}
  \gdef\CJK@hol{\CJKencfamily{KS}{hol}}
  \CJK@global\def\hpg{\protect\CJK@hpg}
  \gdef\CJK@hpg{\CJKencfamily{KS}{hpg}}

  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{KS}

  \CJK@global\edef\CJK@punctEnc{KS}
  \CJK@global\tolerance \CJKtolerance

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}


% Korean characters
%
% character set: KS X 1001:1992 (=KS C 5601-1992)
% encoding: EUC
% font encoding: HLaTeX (version >= 0.97)

\CJK@mapToNFSS{hangulHL}{C63}{mj}{m}{n}%    used internally only
\CJK@mapToNFSS{symbolHL}{C64}{mj}{m}{n}%    used internally only
\CJK@mapToNFSS{hanjaHL}{C65}{mj}{m}{n}%     used internally only
\CJKencfamily[HL]{KS}{mj}

\def\CJK@@@KSHL@hook{
  \CJK@global\edef\CJK@enc{\CJK@hanjaHL@nfssenc}
  \CJK@global\edef\CJK@altEnc{\CJK@hangulHL@nfssenc}
  \CJK@global\edef\CJK@symbEnc{\CJK@symbolHL@nfssenc}}

\def\CJK@KSHL@enc{
  \CJK@global\def\bm{\protect\CJK@bm}
  \gdef\CJK@bm{\CJKencfamily[HL]{KS}{bm}}
  \CJK@global\def\dn{\protect\CJK@dn}
  \gdef\CJK@dn{\CJKencfamily[HL]{KS}{dn}}
  \CJK@global\def\gr{\protect\CJK@gr}
  \gdef\CJK@gr{\CJKencfamily[HL]{KS}{gr}}
  \CJK@global\def\gs{\protect\CJK@gs}
  \gdef\CJK@gs{\CJKencfamily[HL]{KS}{gs}}
  \CJK@global\def\gt{\protect\CJK@gt}
  \gdef\CJK@gt{\CJKencfamily[HL]{KS}{gt}}
  \CJK@global\def\jgt{\protect\CJK@jgt}
  \gdef\CJK@jgt{\CJKencfamily[HL]{KS}{jgt}}
  \CJK@global\def\jmj{\protect\CJK@jmj}
  \gdef\CJK@jmj{\CJKencfamily[HL]{KS}{jmj}}
  \CJK@global\def\jnv{\protect\CJK@jnv}
  \gdef\CJK@jnv{\CJKencfamily[HL]{KS}{jnv}}
  \CJK@global\def\jsr{\protect\CJK@jsr}
  \gdef\CJK@jsr{\CJKencfamily[HL]{KS}{jsr}}
  \CJK@global\def\mj{\protect\CJK@mj}
  \gdef\CJK@mj{\CJKencfamily[HL]{KS}{mj}}
  \CJK@global\def\ol{\protect\CJK@ol}
  \gdef\CJK@ol{\CJKencfamily[HL]{KS}{mj}}
  \CJK@global\def\pg{\protect\CJK@pg}
  \gdef\CJK@pg{\CJKencfamily[HL]{KS}{pg}}
  \CJK@global\def\pga{\protect\CJK@pga}
  \gdef\CJK@pga{\CJKencfamily[HL]{KS}{pga}}
  \CJK@global\def\ph{\protect\CJK@ph}
  \gdef\CJK@ph{\CJKencfamily[HL]{KS}{ph}}
  \CJK@global\def\pn{\protect\CJK@pn}
  \gdef\CJK@pn{\CJKencfamily[HL]{KS}{pn}}
  \CJK@global\def\sh{\protect\CJK@sh}
  \gdef\CJK@sh{\CJKencfamily[HL]{KS}{sh}}
  \CJK@global\def\sm{\protect\CJK@sm}
  \gdef\CJK@sm{\CJKencfamily[HL]{KS}{mj}}
  \CJK@global\def\tz{\protect\CJK@tz}
  \gdef\CJK@tz{\CJKencfamily[HL]{KS}{tz}}
  \CJK@global\def\vd{\protect\CJK@vd}
  \gdef\CJK@vd{\CJKencfamily[HL]{KS}{vd}}
  \CJK@global\def\yt{\protect\CJK@yt}
  \gdef\CJK@yt{\CJKencfamily[HL]{KS}{yt}}

  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{KSHL}

  \CJK@global\edef\CJK@punctEnc{KS}
  \CJK@global\tolerance \CJKtolerance

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}


% Unicode
%
% character set: Unicode
% encoding: UTF 8
% font encoding: CJK

\CJK@mapToNFSS{UTF8}{C70}{song}{m}{n}
\CJKencfamily{UTF8}{song}
\CJKfontenc{UTF8}{}
\@namedef{CJK@UTF8@hook}{}

\@namedef{CJK@UTF8@enc}{
  \CJK@loadBinding{UTF8}

  \CJK@global\chardef\CJK@min "080
  \CJK@global\chardef\CJK@max "0BF

  \CJK@loadEncoding{UTF8}

  \CJK@global\def\CJK@spaceChar{\Unicode{"030}{"000}}}


% Chinese characters in CNS encoding.
%
% character set: CNS 11643-1992
% encoding: EUC
% font encoding: CJK

% please note that internally character codes with the 8th bit set are
%     used, whereas Wittern's CEF use the seven bit form.

% plane 1.

\CJK@mapToNFSS{CNS1}{C31}{song}{m}{n}
\CJKencfamily{CNS1}{song}
\CJKfontenc{CNS1}{}
\@namedef{CJK@CNS1@enc}{}

\@namedef{CJK@CNS1@enc}{
  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{standard}

  \CJK@global\edef\CJK@punctEnc{CNS1}

  \CJK@global\def\CJK@spaceChar{\CJKchar[CNS1]{"0A1}{"0A1}}}

% plane 2-7.

\CJK@mapToNFSS{CNS2}{C32}{song}{m}{n}
\CJKencfamily{CNS2}{song}
\CJKfontenc{CNS2}{}
\@namedef{CJK@CNS2@hook}{}
\CJK@mapToNFSS{CNS3}{C33}{song}{m}{n}
\CJKencfamily{CNS3}{song}
\CJKfontenc{CNS3}{}
\@namedef{CJK@CNS3@hook}{}
\CJK@mapToNFSS{CNS4}{C34}{song}{m}{n}
\CJKencfamily{CNS4}{song}
\CJKfontenc{CNS4}{}
\@namedef{CJK@CNS4@hook}{}
\CJK@mapToNFSS{CNS5}{C35}{song}{m}{n}
\CJKencfamily{CNS5}{song}
\CJKfontenc{CNS5}{}
\@namedef{CJK@CNS5@hook}{}
\CJK@mapToNFSS{CNS6}{C36}{song}{m}{n}
\CJKencfamily{CNS6}{song}
\CJKfontenc{CNS6}{}
\@namedef{CJK@CNS6@hook}{}
\CJK@mapToNFSS{CNS7}{C37}{song}{m}{n}
\CJKencfamily{CNS7}{song}
\CJKfontenc{CNS7}{}
\@namedef{CJK@CNS7@hook}{}

\expandafter\expandafter\expandafter\let
 \expandafter\csname CJK@CNS2@enc\expandafter\endcsname
 \csname CJK@JIS2@enc\endcsname
\expandafter\expandafter\expandafter\let
 \expandafter\csname CJK@CNS3@enc\expandafter\endcsname
 \csname CJK@CNS2@enc\endcsname
\expandafter\expandafter\expandafter\let
 \expandafter\csname CJK@CNS4@enc\expandafter\endcsname
 \csname CJK@CNS2@enc\endcsname
\expandafter\expandafter\expandafter\let
 \expandafter\csname CJK@CNS5@enc\expandafter\endcsname
 \csname CJK@CNS2@enc\endcsname
\expandafter\expandafter\expandafter\let
 \expandafter\csname CJK@CNS6@enc\expandafter\endcsname
 \csname CJK@CNS2@enc\endcsname
\expandafter\expandafter\expandafter\let
 \expandafter\csname CJK@CNS7@enc\expandafter\endcsname
 \csname CJK@CNS2@enc\endcsname


% special CEF encodings

\CJK@mapToNFSS{CEFX}{C80}{song}{m}{n}
\CJKencfamily{CEFX}{song}
\CJKfontenc{CEFX}{}
\def\CJK@CEFX@hook{}
\CJK@mapToNFSS{CEFY}{C81}{song}{m}{n}
\CJKencfamily{CEFY}{song}
\CJKfontenc{CEFY}{}
\def\CJK@CEFY@hook{}

\expandafter\let\expandafter\CJK@CEFX@enc \csname CJK@CNS2@enc\endcsname
\expandafter\let\expandafter\CJK@CEFY@enc \csname CJK@CNS2@enc\endcsname


% traditional Chinese characters
%
% character set: Big 5
% encoding: Big 5
% font encoding: pmC

\CJK@mapToNFSS{Bg5pmC}{C01}{song}{m}{n}
\CJKencfamily[pmC]{Bg5}{song}

\@namedef{CJK@Bg5pmC@enc}{
  \CJK@global\def\pmCsmall{\protect\CJK@pmCsmall}
  \gdef\CJK@pmCsmall{
    \CJK@loadEncoding{pmCsmall}}
  \CJK@global\def\pmCbig{\protect\CJK@pmCbig}
  \gdef\CJK@pmCbig{
    \PackageError{CJK}{
      No big font for pmC Big 5 encoding available}{}}

  \CJK@makeEnvironment{Bg5}

  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "040
  \CJK@global\chardef\CJK@max "0FE

  \CJK@global\edef\CJK@punctEnc{Bg5}

  \pmCsmall

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"040}}}

% simplified Chinese characters
%
% character set: GB 2312-80
% encoding: EUC
% font encoding: pmC

\CJK@mapToNFSS{GBpmC}{C11}{song}{m}{n}
\CJKencfamily[pmC]{GB}{song}

\def\CJK@GBpmC@enc{
  \CJK@pmC{GB}}

% traditional Chinese characters
%
% character set: GB/T 12345-90
% encoding: EUC
% font encoding: pmC

\CJK@mapToNFSS{GBtpmC}{C21}{song}{m}{n}
\CJKencfamily[pmC]{GBt}{song}

\let\CJK@GBtpmC@enc \CJK@GBpmC@enc

% Japanese characters
%
% character set: JIS X 0208:1997
% encoding: EUC
% font encoding: pmC

\CJK@mapToNFSS{JISpmC}{C41}{song}{m}{n}
\CJKencfamily[pmC]{JIS}{song}

\def\CJK@JISpmC@enc{
  \CJK@pmC{JIS}}

% Korean characters
%
% character set: KS X 1001:1992 (=KS C 5601-1992)
% encoding: EUC
% font encoding: pmC

\CJK@mapToNFSS{KSpmC}{C62}{song}{m}{n}
\CJKencfamily[pmC]{KS}{song}

\def\CJK@KSpmC@enc{
  \CJK@pmC{KS}}

\def\CJK@pmC#1{
  \CJK@global\def\pmCsmall{\protect\CJK@pmCsmall}
  \gdef\CJK@pmCsmall{
    \CJK@loadEncoding{pmCsmall}}
  \CJK@global\def\pmCbig{\protect\CJK@pmCbig}
  \gdef\CJK@pmCbig{
    \CJK@loadEncoding{pmCbig}}

  \CJK@loadBinding{standard}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@global\edef\CJK@punctEnc{#1}

  \pmCsmall

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}


% EUC-JP
%
% character sets: half-width katakana (JIS X 0201-1997)
%                 JIS X 0208:1997
%                 JIS X 0212-1992
% encoding: EUC-JP
% font encoding: CJK
%
% Technical note: JIS X 0212 is directly accessed via
%                 \CJKchar[JIS2]{...}{...}

\CJKencfamily{EUC-JP}{song}
\CJKfontenc{EUC-JP}{}
\@namedef{CJK@EUC-JP@hook}{}

\@namedef{CJK@@@EUC-JP@hook}{
  \CJK@global\edef\CJK@enc{\CJK@JIS@nfssenc}
  \CJK@global\edef\CJK@altenc{\CJK@kana@nfssenc}}

\@namedef{CJK@EUC-JP@enc}{
  \CJK@loadBinding{EUC-JP}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{EUC-JP}

  \CJK@global\edef\CJK@punctEnc{JIS}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}


% EUC-JP
%
% character sets: half-width katakana (JIS X 0201-1997)
%                 JIS X 0208:1997
%                 JIS X 0212-1992
% encoding: EUC-JP
% font encoding: dnp
%
% Technical note: JIS X 0212 is directly accessed via
%                 \CJKchar[JIS2dnp]{...}{...}

\CJKencfamily[dnp]{EUC-JP}{song}

\@namedef{CJK@@@EUC-JPdnp@hook}{
  \CJK@global\edef\CJK@enc{\CJK@JISdnp@nfssenc}
  \CJK@global\edef\CJK@altenc{\CJK@kana@nfssenc}}

\@namedef{CJK@EUC-JPdnp@enc}{
  \CJK@loadBinding{EUC-JP}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{EUC-JPdnp}

  \CJK@global\edef\CJK@punctEnc{JIS}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}


% EUC-TW
%
% character sets: CNS 11643-1992 planes 1-7
% encoding: EUC-TW
% font encoding: CJK
%
% Technical note: CNS 11643-1992 planes 2-7 are directly accessed via
%                 \CJKchar[CNSx]{...}{...}

\CJKencfamily{EUC-TW}{song}
\CJKfontenc{EUC-TW}{}
\@namedef{CJK@EUC-TW@hook}{}

\@namedef{CJK@@@EUC-TW@hook}{
  \CJK@global\edef\CJK@enc{\csname CJK@CNS1@nfssenc\endcsname}}

\@namedef{CJK@EUC-TW@enc}{
  \CJK@loadBinding{EUC-TW}

  \CJK@global\chardef\CJK@min "0A1
  \CJK@global\chardef\CJK@max "0FE

  \CJK@loadEncoding{EUC-TW}

  \CJK@global\edef\CJK@punctEnc{CNS1}

  \CJK@global\def\CJK@spaceChar{\CJKchar{"0A1}{"0A1}}}

\endinput