summaryrefslogtreecommitdiff
path: root/language/korean/kotex-oblivoir/memhangul-ucs/hfontsel.sty
diff options
context:
space:
mode:
Diffstat (limited to 'language/korean/kotex-oblivoir/memhangul-ucs/hfontsel.sty')
-rw-r--r--language/korean/kotex-oblivoir/memhangul-ucs/hfontsel.sty88
1 files changed, 88 insertions, 0 deletions
diff --git a/language/korean/kotex-oblivoir/memhangul-ucs/hfontsel.sty b/language/korean/kotex-oblivoir/memhangul-ucs/hfontsel.sty
new file mode 100644
index 0000000000..93ecf2ca97
--- /dev/null
+++ b/language/korean/kotex-oblivoir/memhangul-ucs/hfontsel.sty
@@ -0,0 +1,88 @@
+%% File `hfontsel.sty`
+%%
+%% Copyright (c) 2006-2013 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.
+%%
+%% 사용법은 다음과 같음
+%% * 전체 정의
+%% \SelectHfonts{utbt,utgt,uttz}{utbt,utgt,utgt}
+%% * 한자 부분을 한글 부분과 같게. 주의.
+%% 은타자는 한자가 없으므로 타자체로 은타자를 설정한 경우
+%% 이 방식을 쓰면 ttfamily에서 오류.
+%% \SelectHfonts{utbt,utgt,utgt}{*}
+%% * 몇 개만 바꿀 때. 별표 부분은 모두 기본폰트(은글꼴)로 설정됨.
+%% \SelectHfonts{utbt,*,*}{*,*,utgt}
+%%
+%% 2007/06/03
+%% \SelectHfonts 명령에 의해 생성되는 \hfontfamilynameprefix (2letters)를
+%% [hfontspec] 옵션에 의하여 \usehangulfontspec의 인자로 사용한다. oblivoir
+%% 에서는 이 방법을 쓰지 않음.
+%% 2007/05/25
+%% dhucs 4.0 compatible
+%% \hfontfamilynameprefix는 사용되지 않을 것이나, 하위호환성을 위해 유지함.
+%% 2006/12/15
+%% bug fix. thanks to Dohyun Kim.
+%% 2006/09/06
+%% unfonts-type1을 쓸 때 \hfontfamilynameprefix가 {ut}로 되돌려지던 문제점 수정.
+%% non-default 상태에서는 hanja/roman의 설정에 영향을 받는다.
+%%
+\ProvidesPackage{hfontsel}[2013/09/27]
+
+\newif\if@pshfont\@pshfonttrue
+\DeclareOption{ps}{\@pshfonttrue}
+\DeclareOption{unttf}{\@pshfontfalse}
+\newif\if@hfontspec\@hfontspecfalse
+\DeclareOption{hfontspec}{\@hfontspectrue}
+\ProcessOptions
+
+\newif\if@defaulthfnt\@defaulthfnttrue
+\if@pshfont
+\def\defaulthfntprefix{ut}
+\else
+\def\defaulthfntprefix{un}
+\fi
+
+\def\FirstTwoOfFour#1#2#3#4{#1#2}
+\newcommand*\SelectHfonts[2]{%
+ \def\reserved@a{#2}\def\reserved@b{*}%
+ \ifx\reserved@a\reserved@b
+ \hangul@fontmap#1\@nil\hanja@fontmap#1\@nil
+ \else
+ \hangul@fontmap#1\@nil\hanja@fontmap#2\@nil
+ \fi
+ \if@hfontspec
+ \expandafter\usehangulfontspec\expandafter{\hfontfamilynameprefix}
+ \fi
+}
+\def\hangul@fontmap#1,#2,#3\@nil{%
+ \ifx*#1\def\h@ng@ls@rif{\defaulthfntprefix bt}\else\def\h@ng@ls@rif{#1}\fi
+ \ifx*#2\def\h@ng@ls@ns{\defaulthfntprefix gt}\else\def\h@ng@ls@ns{#2}\fi
+ \ifx*#3\def\h@ng@lt@z@{\defaulthfntprefix tz}\else\def\h@ng@lt@z@{#3}\fi
+ \SetHangulFonts{\h@ng@ls@rif}{\h@ng@ls@ns}{\h@ng@lt@z@}%
+}
+\def\hanja@fontmap#1,#2,#3\@nil{%
+ \ifx*#1\def\h@nj@s@rif{\defaulthfntprefix bt}\else\def\h@nj@s@rif{#1}\@defaulthfntfalse\fi
+ \ifx*#2\def\h@nj@s@ns{\defaulthfntprefix gt}\else\def\h@nj@s@ns{#2}\fi
+ \ifx*#3\def\h@nj@t@z@{\defaulthfntprefix gt}\else\def\h@nj@t@z@{#3}\fi
+ \SetHanjaFonts{\h@nj@s@rif}{\h@nj@s@ns}{\h@nj@t@z@}%
+%%%% 2006/09/06, 2007/05/25 downward compatibility
+ \if@defaulthfnt\def\hfontfamilynameprefix{ut}\else
+ \def\hfontfamilynameprefix{\expandafter\FirstTwoOfFour\h@nj@s@rif}\fi
+}
+
+%%% hangul font spec
+\if@hfontspec
+\usehangulfontspec{\defaulthfntprefix}
+\fi
+
+%%% default setting
+%\SelectHfonts{\defaulthfntprefix bt,\defaulthfntprefix gt,\defaulthfntprefix tz}{*}
+
+\endinput