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
128
|
%% 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:
%% 2015/08/21 5.4.0 minor typo fix
%% 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}
[2015/08/21 v5.4 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
|
