summaryrefslogtreecommitdiff
path: root/language/korean/cjk-ko/cjkutf8-nanummjhanja.sty
blob: 68b763eea510f74554d82b17408c7627ab974269 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
% cjkutf8-nanummjhanja.sty
%
% Copyright (c) 2016-2021 Dohyun Kim <nomos at ktug 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

\ProvidesPackage{cjkutf8-nanummjhanja}
  [2021/07/26 v2.2 UHC hanja for Nanum Myeongjo]

\def\CJKKO@mjdefault{nanummj}
\def\CJKKO@mjhanjafamily{\def\CJK@family{uhcmj}}

% redefine CJK@numbToHex
\let\CJKKO@orig@numbToHex\CJK@numbToHex
\def\CJK@numbToHex#1#2{%
  \CJKKO@orig@numbToHex{#1}{#2}%
  \ifx\CJK@family\CJKKO@mjdefault
    \expandafter\CJKKO@checkhanjaplane#1\fi}

\def\CJKKO@checkhanjaplane#1#2{%
  \begingroup
  \count@\ifx#1A10\else
         \ifx#1B11\else
         \ifx#1C12\else
         \ifx#1D13\else
         \ifx#1E14\else
         \ifx#1F15\else
         #1\fi\fi\fi\fi\fi\fi
  \@tempcnta\ifx#2A10\else
            \ifx#2B11\else
            \ifx#2C12\else
            \ifx#2D13\else
            \ifx#2E14\else
            \ifx#2F15\else
            #2\fi\fi\fi\fi\fi\fi
  \multiply\count@\sixt@@n \advance\count@\@tempcnta
  \ifnum\count@>"4D \ifnum\count@<"A0 \aftergroup\CJKKO@mjhanjafamily \else
  \ifnum\count@>"F8 \ifnum\count@<"FB \aftergroup\CJKKO@mjhanjafamily
  \fi\fi\fi\fi
  \endgroup }

\endinput