summaryrefslogtreecommitdiff
path: root/language/korean/kotex-utf/dhucs.sty
blob: dc247f7c249bfd815b52f5bbeca89f4606a99bec (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
121
122
123
124
125
126
127
%% File `dhucs.sty`
%%
%% (C) Copyright 2007-2013 Dohyun Kim  <nomos at ktug org>
%%                         Kangsoo Kim <karnes 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.
%%
%% --------------------------------------------------------
%%
%% changelog:
%% 2009/03/05  5.0.0   wrapper for various engines
%% 2008/08/28  4.1.4   work around error under using babel package
%% 2008/05/26  4.1.3   fallback of hangul font family is now serif font
%% 2008/03/15  4.1.2   redefine hyphendemerits only under finemath
%% 2008/01/30  4.1.1   fix a bug of heading mark
%% 2008/01/29  4.1.0   write raw chars in aux, toc, idx ...
%% 2007/12/28  4.0.14  compatible with footmisc.sty (reported by 서상현)
%% 2007/12/01  4.0.13  spacefactor=1000 between hangul and `)'
%% 2007/10/30  4.0.12  fix on \dhucs@next == \ifx
%% 2007/10/29  4.0.11  nobreak after \nobreak in \cjksymbolskip
%% 2007/10/25  4.0.10  simplify code related to \dhucs@next
%% 2007/10/07  4.0.9   bug fix related to \dhucs@next == \fi
%% 2007/07/18  4.0.8   part of ko.TeX
%%                     PUA is now hangul class 2 (= hanja)
%% 2007/06/30  4.0.7   skip instead of kern after cjksymbol
%% 2007/06/26  4.0.6   option strictcharcheck introduced
%% 2007/06/26  4.0.5   redefine U+2018, U+2019, U+201C, U+201D
%% 2007/06/25  4.0.4   fix bugs introduced by previous minor upgrade
%% 2007/06/22  4.0.3   lowering multiple punctuations
%% 2007/06/16  4.0.2   support ulem.sty
%% 2007/06/14  4.0.1   \hu was too normal a CS. use \dhucs@hu intead.
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{dhucs}
  [2012/11/08 v5.3.2  typesetting UTF-8 Korean documents]

\ifx가가\else
  \DeclareOption*{\PassOptionsToPackage\CurrentOption{kotexutf}}
  \ProcessOptions\relax
  \RequirePackage{kotexutf}
  \expandafter\endinput
\fi

\newif\if@nonfrench
\newif\if@hangul
\newif\if@nojosa
\newif\if@hanja
\newif\if@dhucsfinemath

\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname directlua\endcsname\relax\else
  \DeclareOption{hangul}{\@hangultrue
    \PassOptionsToPackage\CurrentOption{luatexko}}
  \DeclareOption{hanja}{\@hangultrue\@hanjatrue
    \PassOptionsToPackage\CurrentOption{luatexko}}
  \DeclareOption{nounfonts}{\PassOptionsToPackage\CurrentOption{luatexko}}
  \DeclareOption{nonfrench}{\@nonfrenchtrue}
  \DeclareOption{finemath}{\@dhucsfinemathtrue}
  \DeclareOption*{\OptionNotUsed}
  \ProcessOptions\relax
  \RequirePackage{luatexko}
  \let\jong\relax
  \let\jung\relax
  \let\rieul\relax
  \let\setInterHangulSkip\@gobble
  \def\disablehangulfontspec{\finemathattr\z@}
  \def\disablehangullinebreak{\finemathattr-"7FFFFFFF\relax}
  \let\dhucs@hu\z@
\fi

\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname XeTeXrevision\endcsname\relax\else
  \DeclareOption{hangul}{\@hangultrue
    \PassOptionsToPackage\CurrentOption{xetexko}}
  \DeclareOption{hanja}{\@hangultrue\@hanjatrue
    \PassOptionsToPackage\CurrentOption{xetexko}}
  \DeclareOption{nounfonts}{\PassOptionsToPackage\CurrentOption{xetexko}}
  \DeclareOption{nonfrench}{\@nonfrenchtrue}
  \DeclareOption{finemath}{\@dhucsfinemathtrue}
  \DeclareOption*{\OptionNotUsed}
  \ProcessOptions\relax
  \RequirePackage{xetexko}
  \def\setInterHangulSkip#1{\def\xetexkointerhchar{#1}}
  \let\disablehangulfontspec\disablehangulspacing
  \let\disablehangullinebreak\disablehangulspacingandlinebreak
  \let\dhucs@hu\xetexkohu
\fi

\def\다{\nobreak 다}
\def\unihangulchar#1{\char#1 }
\let\DeclareUnicodeCharacter\@gobbletwo
%\DeclareFontEncoding{LUC}{}{}
%\DeclareFontSubstitution{LUC}{utbt}{m}{n}
\def\SetHangulFonts#1#2#3{}
\def\SetHanjaFonts#1#2#3{}
\def\SetSerifFonts#1#2{}
\def\SetSansFonts#1#2{}
\def\SetAdhocFonts#1#2{}
\let\usehangulfontspec\@gobble
\let\declarenobreakspacefactor\nobreak
\let\declarehanjaspacefactor\empty
\let\cjksymbolunskip\empty
\let\postcjksymskip\empty
\let\postcjksymbol\empty
\let\postcjksymnobreak\nobreak
\let\cjksymbolskip\empty
\if@hangul
  \let\olddotemph\dotemph % save ...
  \newdimen\dhucs@emph@raise
  \unless\ifdefined\pdfstringdefPreHook\let\pdfstringdefPreHook\empty\fi
  \let\dotemph\olddotemph % restore ...
  \def\circemph#1{\begingroup\def\dotemphchar{^^^^02da}\dotemph{#1}\endgroup}
  \def\useremph#1{\begingroup
    \let\dotemphchar\useremphchar
    \let\dotemphraise\useremphraisedim
    \dotemph{#1}\endgroup}
\fi
\let\ungremph\empty
\let\regremph\empty

\endinput