summaryrefslogtreecommitdiff
path: root/language/korean/kotex-plain/kotexutf.tex
blob: 0e9d8076e313512b36d8b9ddfe10183ea5243866 (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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
%% File `kotexutf.tex`
%%
%%   2010.01.04  v1.1
%%
%% Copyright (C) 2010-2013 Dohyun Kim <nomos at ktug org>
%%
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3c
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%  http://www.latex-project.org/lppl.txt
%% and version 1.3c or later is part of all distributions of LaTeX
%% version 2006/05/20 or later.
%%
%% finemath on has been plainTeX default
%%
\def\finemath{}

\expandafter\edef\csname AT(@):catcode\endcsname{\noexpand\catcode`@\the\catcode`@}

\unless\ifdefined\makeatletter \def\makeatletter{\catcode`\@=11 }\fi
\unless\ifdefined\makeatother \def\makeatother{\catcode`\@=12 }\fi

\makeatletter

\unless\ifdefined\@tempcnta \newcount\@tempcnta\fi
\unless\ifdefined\@tempcntb \newcount\@tempcntb\fi
\unless\ifdefined\@empty \let\@empty\empty\fi
\unless\ifdefined\@sptoken
  \begingroup
  \def\:{\global\let\@sptoken= }\:  % this makes \@sptoken a space token
  \endgroup
\fi

\unless\ifdefined\ProvidesFile
  \def\ProvidesFile#1{\wlog{#1}\@ProvidesFile}
  \def\@ProvidesFile{\futurelet\dhucs@next\@@ProvidesFile}
  \def\@@ProvidesFile{%
    \ifx\dhucs@next\@sptoken\expandafter\@@@ProvidesFile
    \else\ifx\dhucs@next[\expandafter\expandafter\expandafter\ProvidesFile@
    \fi\fi}
  \def\@@@ProvidesFile{\afterassignment\@ProvidesFile\let\dhucs@next= }
  \def\ProvidesFile@[#1]{\wlog{#1}}
\fi

\unless\ifdefined\IeC \protected\def\IeC#1{#1}\fi
\unless\ifdefined\textperiodcentered \protected\def\textperiodcentered{$\cdot$}\fi
\unless\ifdefined\textquoteleft \protected\def\textquoteleft{`}\fi
\unless\ifdefined\textquoteright \protected\def\textquoteright{'}\fi
\unless\ifdefined\textquotedblleft \protected\def\textquotedblleft{``}\fi
\unless\ifdefined\textquotedblright \protected\def\textquotedblright{''}\fi

\unless\ifdefined\saved@space@catcode \xdef\saved@space@catcode{\the\catcode`\ }\fi
\unless\ifdefined\PackageError \def\PackageError#1#2#3{\errmessage{#2}}\fi
\unless\ifdefined\@inpenc@test \let\@inpenc@test\relax \fi
\unless\ifdefined\@begindocumenthook \let\@begindocumenthook\relax \fi
\unless\ifdefined\@onlypreamble \def\@onlypreamble#1{}\fi
\unless\ifdefined\cdp@list \let\cdp@list\relax \fi

\unless\ifdefined\protect \let\protect\relax \fi

\unless\ifdefined\normalfont \def\normalfont{\rm\hfontname{nanummjm}}\fi
\unless\ifdefined\bfseries \def\bfseries{\bf\hfontname{nanummjb}}\fi

% make first octet of a utf8 char active
\count@"C2
\loop\catcode\count@\active
  \ifnum\count@<"F4
  \advance\count@\@ne\repeat

\input utf8.def

\input kotexutf-core

\def\unihangulchar@@@{%
  \getthish@ngulcl@ss
  \dobeforeh@ngulch@r
  \leavevmode %%% moved from inside group
  \begingroup
    \geth@ngulpl@ne@ndch@r
    \font\font@name\h@font@name\h@ngulpl@ne\space\h@font@size
    \font@name
    \dhucs@check@if@char@exists
    \dhucs@emph\h@ngulch@r
    \h@ngulch@r
  \endgroup
  \do@fterh@ngulch@r
}

\input lucenc.dfu

% \다 = \nobreak 다
\def\nobreak@hangul@da{\nobreak 다}
\def\^^eb#1#2{%
  \ifx#1^^8b%
    \ifx#2^^a4% avoid orphan \다
      \expandafter\expandafter\expandafter\nobreak@hangul@da
    \else
      \errmessage{Undefined Control Sequence}%
    \fi
  \else
    \errmessage{Undefined Control Sequence}%
  \fi}


% hangul font definition
% ex: \hfont{nanumgtm}{at 12pt}
%     \hfontname{nanumgtm}
%     \hfontsize{at 12pt}
\protected\def\hfontname#1{\def\h@font@name{#1}}
\protected\def\hfontsize#1{\def\h@font@size{#1}}
\protected\def\hfont#1#2{\hfontname{#1}\hfontsize{#2}}

\csname AT(@):catcode\endcsname

\hfont{nanummjm}{}

\endinput

%% changes for ko.TeX 2.0, by Karnes.