diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x')
9 files changed, 2490 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/luatexko-xobfont.sty b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/luatexko-xobfont.sty new file mode 100644 index 00000000000..6fe0a4e97c1 --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/luatexko-xobfont.sty @@ -0,0 +1,608 @@ +%% luatexko-xobfont.sty +%% +%% Copyright (c) 2012-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. +%% +%% oblivoir style font commands for luatex +%% part of oblivoir package +%% +%% Version 0.1: oldhangul option is not implemented +%% 0.1.1: bug fix (2012/07/28) +%% 0.1.2: [unfonts], [nounfonts] (2012/10/29) +%% +\ProvidesPackage{luatexko-xobfont}[2012/07/12] + +%% options: latinquote,oldhangul,gremph,itemph,nowinname,manualfontspec +\newif\if@latinquote\@latinquotefalse +\DeclareOption{latinquote}{\@latinquotetrue} +\newif\if@oldhangul\@oldhangulfalse +\DeclareOption{oldhangul}{\@oldhangultrue} +\newif\if@gremph\@gremphtrue +\DeclareOption{gremph}{\@gremphtrue} +\DeclareOption{itemph}{\@gremphfalse} +\newif\if@nowin\@nowinfalse +\DeclareOption{nowinname}{\@nowintrue} +\newif\if@manualfontspec\@manualfontspecfalse +\DeclareOption{manualfontspec}{\@manualfontspectrue} +\newif\if@unfonts\@unfontstrue +\DeclareOption{unfonts}{\@unfontstrue} +\DeclareOption{nounfonts}{\@unfontsfalse} +\newif\if@nanumfonts\@nanumfontsfalse +\DeclareOption{nanum}{\@nanumfontstrue} +\ProcessOptions + +%%% +\if@manualfontspec \endinput \fi + +%%% fixed options +\if@oldhangul + \edef\LKOV@oldhangulscript{Script=Hangul} + \edef\LKOV@oldhangullanguage{Language=Korean} + \edef\LKOV@oldhangulfeatures{RawFeature=+ccmp;+ljmo;+vjmo;+tjmo} +\else + \edef\LKOV@oldhangulscript{} + \edef\LKOV@oldhangullanguage{} + \edef\LKOV@oldhangulfeatures{} +\fi + +%%% note: FakeBold is disabled under LuaTeX +\if@gremph + \edef\LKOV@italicfeatures{} +\else + \edef\LKOV@italicfeatures{slant=0.17} +\fi + +\def\LKOV@externallocation{} + +\newcommand*\setmonoscale[1]{% + \edef\LKOV@monoscale{#1} +} +\setmonoscale{1} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%% main +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%% top level command +\def\setkormainfont{% + \@ifstar {\setk@rm@inf@nt}{% + \@ifnextchar[{\m@inf@ntbracket}{% + \@ifnextchar(\m@inf@ntparen\m@inf@ntnoparen}% + } +} + +\def\m@inf@ntbracket[#1]#2{% + \@ifnextchar[{\m@inf@ntbrackettrail[#1]{#2}}{\m@inf@ntbracketnotrail[#1]{#2}} +} + +%%% \setkormainfont[foo]{bar} +\def\m@inf@ntbracketnotrail[#1]#2{% + \setmainhangulfont[#1]{#2} +} + +%%% \setkormainfont[foo1]{bar1}[foo2]{bar2} +\def\m@inf@ntbrackettrail[#1]#2[#3]#4{% + \setmainhangulfont[#1]{#2} + \setmainhanjafont[#3]{#4} +} + +%%% \setkormainfont{foo} +\def\m@inf@ntnoparen#1{\setmainhangulfont{#1}} + +\def\m@inf@ntparen(#1){% + \@ifnextchar({\m@inf@ntdoubleparen(#1)}{\m@inf@ntsingleparen(#1)} +} + +\def\m@inf@ntsingleparen(#1)#2{% + \@ifnextchar({\m@inf@ntsingleparentrail(#1){#2}}{\m@inf@ntsingleparennotrail(#1){#2}} +} + +\def\m@inf@ntsingleparentrail(#1)#2(#3){% + \@ifnextchar({\m@inf@ntsingleparentraildouble(#1){#2}(#3)}{\m@inf@ntsingleparentrailsingle(#1){#2}(#3)} +} + +\def\m@inf@ntdoubleparen(#1)(#2)#3{% + \@ifnextchar({\m@inf@ntdoubleparentrail(#1)(#2){#3}}{\m@inf@ntdoubleparennotrail(#1)(#2){#3}} +} + +\def\m@inf@ntdoubleparentrail(#1)(#2)#3(#4){% + \@ifnextchar({\m@inf@ntdoubleparentraildouble(#1)(#2){#3}(#4)}{\m@inf@ntdoubleparentrailsingle(#1)(#2){#3}(#4)} +} + +%%% \setkormainfont(foo){bar} +\def\m@inf@ntsingleparennotrail(#1)#2{% + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#2} +} + +%%% \setkormainfont(foo1){bar1}(foo2){bar2} +\def\m@inf@ntsingleparentrailsingle(#1)#2(#3)#4{% + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#2} + \setmainhanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#4,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#4} +} + +%%% \setkormainfont(foo1){bar1}(foo2)(foo3){bar2} +\def\m@inf@ntsingleparentraildouble(#1)#2(#3)(#4)#5{% + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#2} + \if#4* \def\LKOV@temp{#5}\else \def\LKOV@temp{#4}\fi + \setmainhanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#5} +} + +%%% \setkormainfont(foo1)(foo2){bar} +\def\m@inf@ntdoubleparennotrail(#1)(#2)#3{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#3} +} + +%%% \setkormainfont(foo1)(foo2){bar1}(foo3){bar2} +\def\m@inf@ntdoubleparentrailsingle(#1)(#2)#3(#4)#5{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#3} + \setmainhanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#5,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#5} +} + +%%% \setkormainfont(foo1)(foo2){bar1}(foo3)(foo4){bar2} +\def\m@inf@ntdoubleparentraildouble(#1)(#2)#3(#4)(#5)#6{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#3} + \if#5* \def\LKOV@temp{#6}\else\def\LKOV@temp{#5}\fi + \setmainhanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#5} +} + +%%%%%%%%%%%%%%%%%%%%%% main: ExternalLocation %%%%%%%%%%%%%%%%%%%% +%%% top level command +\def\setk@rst@rm@inf@nt*{% + \@ifnextchar[{\st@rm@inf@ntbracket*}{% + \@ifnextchar({\st@rm@inf@ntparen*}{\st@rm@inf@ntnoparen*}}% +} + +\def\st@rm@inf@ntbracket*[#1]#2{% + \@ifnextchar[{\st@rm@inf@ntbrackettrail*[#1]{#2}}{\st@rm@inf@ntbracketnotrail*[#1]{#2}} +} + +%%% \setkormainfont*{bar} +\def\setk@rm@inf@nt#1{% + \setmainhangulfont[ExternalLocation]{#1} +} + +%%% \setkormainfont*[foo]{bar} +\def\st@rm@inf@ntbracketnotrail*[#1]#2{% + \setmainhangulfont[#1,ExternalLocation]{#2} +} + +%%% \setkormainfont*[foo1]{bar1}[foo2]{bar2} +\def\st@rm@inf@ntbrackettrail*[#1]#2[#3]#4{% + \setmainhangulfont[#1,ExternalLocation]{#2} + \setmainhanjafont[#3,ExternalLocation]{#4} +} + +%%% \setk@rst@rm@inf@nt*{foo} +\def\st@rm@inf@ntnoparen*#1{\setmainhangulfont[ExternalLocation]{#1}} + +\def\st@rm@inf@ntparen*(#1){% + \@ifnextchar({\st@rm@inf@ntdoubleparen*(#1)}{\st@rm@inf@ntsingleparen*(#1)} +} + +\def\st@rm@inf@ntsingleparen*(#1)#2{% + \@ifnextchar({\st@rm@inf@ntsingleparentrail*(#1){#2}}{\st@rm@inf@ntsingleparennotrail*(#1){#2}} +} + +\def\st@rm@inf@ntsingleparentrail*(#1)#2(#3){% + \@ifnextchar({\st@rm@inf@ntsingleparentraildouble*(#1){#2}(#3)}{\st@rm@inf@ntsingleparentrailsingle*(#1){#2}(#3)} +} + +\def\st@rm@inf@ntdoubleparen*(#1)(#2)#3{% + \@ifnextchar({\st@rm@inf@ntdoubleparentrail*(#1)(#2){#3}}{\st@rm@inf@ntdoubleparennotrail*(#1)(#2){#3}} +} + +\def\st@rm@inf@ntdoubleparentrail*(#1)(#2)#3(#4){% + \@ifnextchar({\st@rm@inf@ntdoubleparentraildouble*(#1)(#2){#3}(#4)}{\st@rm@inf@ntdoubleparentrailsingle*(#1)(#2){#3}(#4)} +} + +%%% \setk@rst@rm@inf@nt*(foo){bar} +\def\st@rm@inf@ntsingleparennotrail*(#1)#2{% + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#2} +} + +%%% \setk@rst@rm@inf@nt*(foo1){bar1}(foo2){bar2} +\def\st@rm@inf@ntsingleparentrailsingle*(#1)#2(#3)#4{% + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#2} + \setmainhanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#4,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#4} +} + +%%% \setk@rst@rm@inf@nt*(foo1){bar1}(foo2)(foo3){bar2} +\def\st@rm@inf@ntsingleparentraildouble*(#1)#2(#3)(#4)#5{% + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#2} + \if#4* \def\LKOV@temp{#5}\else \def\LKOV@temp{#4}\fi + \setmainhanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#5} +} + +%%% \setk@rst@rm@inf@nt*(foo1)(foo2){bar} +\def\st@rm@inf@ntdoubleparennotrail(#1)(#2)#3{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#3} +} + +%%% \setk@rst@rm@inf@nt*(foo1)(foo2){bar1}(foo3){bar2} +\def\st@rm@inf@ntdoubleparentrailsingle(#1)(#2)#3(#4)#5{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#3} + \setmainhanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#5,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#5} +} + +%%% \setk@rst@rm@inf@nt*(foo1)(foo2){bar1}(foo3)(foo4){bar2} +\def\st@rm@inf@ntdoubleparentraildouble*(#1)(#2)#3(#4)(#5)#6{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmainhangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#3} + \if#5* \def\LKOV@temp{#6}\else\def\LKOV@temp{#5}\fi + \setmainhanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#5} +} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%% sans +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%% top level command +\def\setkorsansfont{% + \@ifstar {\setk@rs@nsf@nt}{% + \@ifnextchar[{\s@nsf@ntbracket}{% + \@ifnextchar(\s@nsf@ntparen\s@nsf@ntnoparen}% + } +} + +\def\s@nsf@ntbracket[#1]#2{% + \@ifnextchar[{\s@nsf@ntbrackettrail[#1]{#2}}{\s@nsf@ntbracketnotrail[#1]{#2}} +} + +%%% \setkorsansfont[foo]{bar} +\def\s@nsf@ntbracketnotrail[#1]#2{% + \setsanshangulfont[#1]{#2} +} + +%%% \setkorsansfont[foo1]{bar1}[foo2]{bar2} +\def\s@nsf@ntbrackettrail[#1]#2[#3]#4{% + \setsanshangulfont[#1]{#2} + \setsanshanjafont[#3]{#4} +} + +%%% \setkorsansfont{foo} +\def\s@nsf@ntnoparen#1{\setsanshangulfont{#1}} + +\def\s@nsf@ntparen(#1){% + \@ifnextchar({\s@nsf@ntdoubleparen(#1)}{\s@nsf@ntsingleparen(#1)} +} + +\def\s@nsf@ntsingleparen(#1)#2{% + \@ifnextchar({\s@nsf@ntsingleparentrail(#1){#2}}{\s@nsf@ntsingleparennotrail(#1){#2}} +} + +\def\s@nsf@ntsingleparentrail(#1)#2(#3){% + \@ifnextchar({\s@nsf@ntsingleparentraildouble(#1){#2}(#3)}{\s@nsf@ntsingleparentrailsingle(#1){#2}(#3)} +} + +\def\s@nsf@ntdoubleparen(#1)(#2)#3{% + \@ifnextchar({\s@nsf@ntdoubleparentrail(#1)(#2){#3}}{\s@nsf@ntdoubleparennotrail(#1)(#2){#3}} +} + +\def\s@nsf@ntdoubleparentrail(#1)(#2)#3(#4){% + \@ifnextchar({\s@nsf@ntdoubleparentraildouble(#1)(#2){#3}(#4)}{\s@nsf@ntdoubleparentrailsingle(#1)(#2){#3}(#4)} +} + +%%% \setkorsansfont(foo){bar} +\def\s@nsf@ntsingleparennotrail(#1)#2{% + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#2} +} + +%%% \setkorsansfont(foo1){bar1}(foo2){bar2} +\def\s@nsf@ntsingleparentrailsingle(#1)#2(#3)#4{% + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#2} + \setsanshanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#4,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#4} +} + +%%% \setkorsansfont(foo1){bar1}(foo2)(foo3){bar2} +\def\s@nsf@ntsingleparentraildouble(#1)#2(#3)(#4)#5{% + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#2} + \if#4* \def\LKOV@temp{#5}\else \def\LKOV@temp{#4}\fi + \setsanshanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#5} +} + +%%% \setkorsansfont(foo1)(foo2){bar} +\def\s@nsf@ntdoubleparennotrail(#1)(#2)#3{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#3} +} + +%%% \setkorsansfont(foo1)(foo2){bar1}(foo3){bar2} +\def\s@nsf@ntdoubleparentrailsingle(#1)(#2)#3(#4)#5{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#3} + \setsanshanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#5,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#5} +} + +%%% \setkorsansfont(foo1)(foo2){bar1}(foo3)(foo4){bar2} +\def\s@nsf@ntdoubleparentraildouble(#1)(#2)#3(#4)(#5)#6{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#3} + \if#5* \def\LKOV@temp{#6}\else\def\LKOV@temp{#5}\fi + \setsanshanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}}]{#5} +} + +%%%%%%%%%%%%%%%%%%%%%% sans: ExternalLocation %%%%%%%%%%%%%%%%%%%% +%%% top level command +\def\setk@rst@rs@nsf@nt*{% + \@ifnextchar[{\st@rs@nsf@ntbracket*}{% + \@ifnextchar({\st@rs@nsf@ntparen*}{\st@rs@nsf@ntnoparen*}}% +} + +\def\st@rs@nsf@ntbracket*[#1]#2{% + \@ifnextchar[{\st@rs@nsf@ntbrackettrail*[#1]{#2}}{\st@rs@nsf@ntbracketnotrail*[#1]{#2}} +} + +%%% \setkorsansfont*{bar} +\def\setk@rs@nsf@nt#1{% + \setsanshangulfont[ExternalLocation]{#1} +} + +%%% \setkorsansfont*[foo]{bar} +\def\st@rs@nsf@ntbracketnotrail*[#1]#2{% + \setsanshangulfont[#1,ExternalLocation]{#2} +} + +%%% \setkorsansfont*[foo1]{bar1}[foo2]{bar2} +\def\st@rs@nsf@ntbrackettrail*[#1]#2[#3]#4{% + \setsanshangulfont[#1,ExternalLocation]{#2} + \setsanshanjafont[#3,ExternalLocation]{#4} +} + +%%% \setk@rst@rs@nsf@nt*{foo} +\def\st@rs@nsf@ntnoparen*#1{\setsanshangulfont[ExternalLocation]{#1}} + +\def\st@rs@nsf@ntparen*(#1){% + \@ifnextchar({\st@rs@nsf@ntdoubleparen*(#1)}{\st@rs@nsf@ntsingleparen*(#1)} +} + +\def\st@rs@nsf@ntsingleparen*(#1)#2{% + \@ifnextchar({\st@rs@nsf@ntsingleparentrail*(#1){#2}}{\st@rs@nsf@ntsingleparennotrail*(#1){#2}} +} + +\def\st@rs@nsf@ntsingleparentrail*(#1)#2(#3){% + \@ifnextchar({\st@rs@nsf@ntsingleparentraildouble*(#1){#2}(#3)}{\st@rs@nsf@ntsingleparentrailsingle*(#1){#2}(#3)} +} + +\def\st@rs@nsf@ntdoubleparen*(#1)(#2)#3{% + \@ifnextchar({\st@rs@nsf@ntdoubleparentrail*(#1)(#2){#3}}{\st@rs@nsf@ntdoubleparennotrail*(#1)(#2){#3}} +} + +\def\st@rs@nsf@ntdoubleparentrail*(#1)(#2)#3(#4){% + \@ifnextchar({\st@rs@nsf@ntdoubleparentraildouble*(#1)(#2){#3}(#4)}{\st@rs@nsf@ntdoubleparentrailsingle*(#1)(#2){#3}(#4)} +} + +%%% \setk@rst@rs@nsf@nt*(foo){bar} +\def\st@rs@nsf@ntsingleparennotrail*(#1)#2{% + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#2} +} + +%%% \setk@rst@rs@nsf@nt*(foo1){bar1}(foo2){bar2} +\def\st@rs@nsf@ntsingleparentrailsingle*(#1)#2(#3)#4{% + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#2} + \setsanshanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#4,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#4} +} + +%%% \setk@rst@rs@nsf@nt*(foo1){bar1}(foo2)(foo3){bar2} +\def\st@rs@nsf@ntsingleparentraildouble*(#1)#2(#3)(#4)#5{% + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#2} + \if#4* \def\LKOV@temp{#5}\else \def\LKOV@temp{#4}\fi + \setsanshanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#5} +} + +%%% \setk@rst@rs@nsf@nt*(foo1)(foo2){bar} +\def\st@rs@nsf@ntdoubleparennotrail(#1)(#2)#3{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#3} +} + +%%% \setk@rst@rs@nsf@nt*(foo1)(foo2){bar1}(foo3){bar2} +\def\st@rs@nsf@ntdoubleparentrailsingle(#1)(#2)#3(#4)#5{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#3} + \setsanshanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#5,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#5} +} + +%%% \setk@rst@rs@nsf@nt*(foo1)(foo2){bar1}(foo3)(foo4){bar2} +\def\st@rs@nsf@ntdoubleparentraildouble*(#1)(#2)#3(#4)(#5)#6{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setsanshangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#3} + \if#5* \def\LKOV@temp{#6}\else\def\LKOV@temp{#5}\fi + \setsanshanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation]{#5} +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%% mono +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%% top level command +\def\setkormonofont{% + \@ifstar {\setk@rm@n@f@nt}{% + \@ifnextchar[{\m@n@f@ntbracket}{% + \@ifnextchar(\m@n@f@ntparen\m@n@f@ntnoparen}% + } +} + +\def\m@n@f@ntbracket[#1]#2{% + \@ifnextchar[{\m@n@f@ntbrackettrail[#1]{#2}}{\m@n@f@ntbracketnotrail[#1]{#2}} +} + +%%% \setkormonofont[foo]{bar} +\def\m@n@f@ntbracketnotrail[#1]#2{% + \setmonohangulfont[#1,Scale=\LKOV@monoscale]{#2} +} + +%%% \setkormonofont[foo1]{bar1}[foo2]{bar2} +\def\m@n@f@ntbrackettrail[#1]#2[#3]#4{% + \setmonohangulfont[#1,Scale=\LKOV@monoscale]{#2} + \setmonohanjafont[#3,Scale=\LKOV@monoscale]{#4} +} + +%%% \setkormonofont{foo} +\def\m@n@f@ntnoparen#1{\setmonohangulfont{#1}} + +\def\m@n@f@ntparen(#1){% + \@ifnextchar({\m@n@f@ntdoubleparen(#1)}{\m@n@f@ntsingleparen(#1)} +} + +\def\m@n@f@ntsingleparen(#1)#2{% + \@ifnextchar({\m@n@f@ntsingleparentrail(#1){#2}}{\m@n@f@ntsingleparennotrail(#1){#2}} +} + +\def\m@n@f@ntsingleparentrail(#1)#2(#3){% + \@ifnextchar({\m@n@f@ntsingleparentraildouble(#1){#2}(#3)}{\m@n@f@ntsingleparentrailsingle(#1){#2}(#3)} +} + +\def\m@n@f@ntdoubleparen(#1)(#2)#3{% + \@ifnextchar({\m@n@f@ntdoubleparentrail(#1)(#2){#3}}{\m@n@f@ntdoubleparennotrail(#1)(#2){#3}} +} + +\def\m@n@f@ntdoubleparentrail(#1)(#2)#3(#4){% + \@ifnextchar({\m@n@f@ntdoubleparentraildouble(#1)(#2){#3}(#4)}{\m@n@f@ntdoubleparentrailsingle(#1)(#2){#3}(#4)} +} + +%%% \setkormonofont(foo){bar} +\def\m@n@f@ntsingleparennotrail(#1)#2{% + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#2} +} + +%%% \setkormonofont(foo1){bar1}(foo2){bar2} +\def\m@n@f@ntsingleparentrailsingle(#1)#2(#3)#4{% + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#2} + \setmonohanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#4,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#4} +} + +%%% \setkormonofont(foo1){bar1}(foo2)(foo3){bar2} +\def\m@n@f@ntsingleparentraildouble(#1)#2(#3)(#4)#5{% + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#2} + \if#4* \def\LKOV@temp{#5}\else \def\LKOV@temp{#4}\fi + \setmonohanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#5} +} + +%%% \setkormonofont(foo1)(foo2){bar} +\def\m@n@f@ntdoubleparennotrail(#1)(#2)#3{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#3} +} + +%%% \setkormonofont(foo1)(foo2){bar1}(foo3){bar2} +\def\m@n@f@ntdoubleparentrailsingle(#1)(#2)#3(#4)#5{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#3} + \setmonohanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#5,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#5} +} + +%%% \setkormonofont(foo1)(foo2){bar1}(foo3)(foo4){bar2} +\def\m@n@f@ntdoubleparentraildouble(#1)(#2)#3(#4)(#5)#6{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#3} + \if#5* \def\LKOV@temp{#6}\else\def\LKOV@temp{#5}\fi + \setmonohanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},Scale=\LKOV@monoscale]{#5} +} + +%%%%%%%%%%%%%%%%%%%%%% mono: ExternalLocation %%%%%%%%%%%%%%%%%%%% +%%% top level command +\def\setk@rst@rm@n@f@nt*{% + \@ifnextchar[{\st@rm@n@f@ntbracket*}{% + \@ifnextchar({\st@rm@n@f@ntparen*}{\st@rm@n@f@ntnoparen*}}% +} + +\def\st@rm@n@f@ntbracket*[#1]#2{% + \@ifnextchar[{\st@rm@n@f@ntbrackettrail*[#1]{#2}}{\st@rm@n@f@ntbracketnotrail*[#1]{#2}} +} + +%%% \setkormonofont*{bar} +\def\setk@rm@n@f@nt#1{% + \setmonohangulfont[ExternalLocation]{#1} +} + + +%%% \setkormonofont*[foo]{bar} +\def\st@rm@n@f@ntbracketnotrail*[#1]#2{% + \setmonohangulfont[#1,ExternalLocation,Scale=\LKOV@monoscale]{#2} +} + +%%% \setkormonofont*[foo1]{bar1}[foo2]{bar2} +\def\st@rm@n@f@ntbrackettrail*[#1]#2[#3]#4{% + \setmonohangulfont[#1,ExternalLocation,Scale=\LKOV@monoscale]{#2} + \setmonohanjafont[#3,ExternalLocation,Scale=\LKOV@monoscale]{#4} +} + +%%% \setk@rst@rm@n@f@nt*{foo} +\def\st@rm@n@f@ntnoparen*#1{\setmonohangulfont[ExternalLocation]{#1}} + +\def\st@rm@n@f@ntparen*(#1){% + \@ifnextchar({\st@rm@n@f@ntdoubleparen*(#1)}{\st@rm@n@f@ntsingleparen*(#1)} +} + +\def\st@rm@n@f@ntsingleparen*(#1)#2{% + \@ifnextchar({\st@rm@n@f@ntsingleparentrail*(#1){#2}}{\st@rm@n@f@ntsingleparennotrail*(#1){#2}} +} + +\def\st@rm@n@f@ntsingleparentrail*(#1)#2(#3){% + \@ifnextchar({\st@rm@n@f@ntsingleparentraildouble*(#1){#2}(#3)}{\st@rm@n@f@ntsingleparentrailsingle*(#1){#2}(#3)} +} + +\def\st@rm@n@f@ntdoubleparen*(#1)(#2)#3{% + \@ifnextchar({\st@rm@n@f@ntdoubleparentrail*(#1)(#2){#3}}{\st@rm@n@f@ntdoubleparennotrail*(#1)(#2){#3}} +} + +\def\st@rm@n@f@ntdoubleparentrail*(#1)(#2)#3(#4){% + \@ifnextchar({\st@rm@n@f@ntdoubleparentraildouble*(#1)(#2){#3}(#4)}{\st@rm@n@f@ntdoubleparentrailsingle*(#1)(#2){#3}(#4)} +} + +%%% \setk@rst@rm@n@f@nt*(foo){bar} +\def\st@rm@n@f@ntsingleparennotrail*(#1)#2{% + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#2} +} + +%%% \setk@rst@rm@n@f@nt*(foo1){bar1}(foo2){bar2} +\def\st@rm@n@f@ntsingleparentrailsingle*(#1)#2(#3)#4{% + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#2} + \setmonohanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#4,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#4} +} + +%%% \setk@rst@rm@n@f@nt*(foo1){bar1}(foo2)(foo3){bar2} +\def\st@rm@n@f@ntsingleparentraildouble*(#1)#2(#3)(#4)#5{% + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#2,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#2} + \if#4* \def\LKOV@temp{#5}\else \def\LKOV@temp{#4}\fi + \setmonohanjafont[BoldFont=#3,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#5} +} + +%%% \setk@rst@rm@n@f@nt*(foo1)(foo2){bar} +\def\st@rm@n@f@ntdoubleparennotrail(#1)(#2)#3{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#3} +} + +%%% \setk@rst@rm@n@f@nt*(foo1)(foo2){bar1}(foo3){bar2} +\def\st@rm@n@f@ntdoubleparentrailsingle(#1)(#2)#3(#4)#5{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#3} + \setmonohanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=#5,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#5} +} + +%%% \setk@rst@rm@n@f@nt*(foo1)(foo2){bar1}(foo3)(foo4){bar2} +\def\st@rm@n@f@ntdoubleparentraildouble*(#1)(#2)#3(#4)(#5)#6{% + \if#2* \def\LKOV@temp{#3}\else\def\LKOV@temp{#2}\fi + \setmonohangulfont[BoldFont=#1,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#3} + \if#5* \def\LKOV@temp{#6}\else\def\LKOV@temp{#5}\fi + \setmonohanjafont[BoldFont=#4,BoldFeatures={RawFeature={embolden=2}},ItalicFont=\LKOV@temp,ItalicFeatures={RawFeature={\LKOV@italicfeatures}},ExternalLocation,Scale=\LKOV@monoscale]{#5} +} + +\if@nanumfonts +\setmainhangulfont{NanumMyeongjo} +\setsanshangulfont{NanumGothic} +\setmonohangulfont{NanumGothic} +\fi + +\endinput diff --git a/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/memhangul-x.sty b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/memhangul-x.sty new file mode 100644 index 00000000000..b9b928acb2e --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/memhangul-x.sty @@ -0,0 +1,370 @@ +%% File `memhangul-x.sty` +%% +%% (C) Copyright 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. +%% +%%% file `memhangul-x.sty` +%% part of oblivoir v2 +%% +\NeedsTeXFormat{LaTeX2e} +\def\filedate{2013/10/22} +\def\fileversion{11.7.16} +\ProvidesPackage{memhangul-x}[\filedate Hangul Typography for (x)oblivoir] +\typeout{Hangul Typography for (x)oblivoir} + +%% Options : + +\providecommand\DisabledOption[1]{% + \typeout{[#1] option to this class has been disabled!}} + +%%%% DisabledOptions +\newif\if@interwordHWP\@interwordHWPfalse +\DeclareOption{interwordHWP}{\DisabledOption{interwordHWP}} +\newif\if@interworddefault\@interworddefaultfalse +%\DeclareOption{interworddefault}{\DisabledOption{interworddefault}} +\DeclareOption{interworddefault}{\@interworddefaulttrue} +%\newif\if@finemath\@finemathfalse +\DeclareOption{finemath}{\DisabledOption{finemath}} +%\newif\if@nojosa\@nojosafalse +\DeclareOption{nojosa}{\DisabledOption{nojosa}} +%\newif\if@dvips{\@dvipsfalse} +\DeclareOption{dvips}{\DisabledOption{dvips}} +\DeclareOption{strictcharcheck}{\DisabledOption{strictcharcheck}} + +%%%% active options +\newif\if@hsspace\@hsspacetrue +\DeclareOption{nosetspace}{\@hsspacefalse} + +\newcommand\nosetspace{% + \@hsspacefalse +} + +%\RequirePackage{ifluatex} +%\RequirePackage{ifxetex} + +\newif\if@hsspacenoquote\@hsspacenoquotetrue +\DeclareOption{quotespacing}{\@hsspacenoquotefalse} +\newif\if@nonfrench\@nonfrenchfalse +\DeclareOption{nonfrench}{\@nonfrenchtrue} +\newif\if@hanja\@hanjafalse +\DeclareOption{hanja}{\@hanjatrue} +\newif\if@mathdisp\@mathdispfalse +\DeclareOption{adjustmath}{\@mathdisptrue} + +\newif\if@arabicfrontmatter{\@arabicfrontmatterfalse} +\DeclareOption{arabicfront}{\@arabicfrontmattertrue} +\newif\if@defaulthangulpagestyle{\@defaulthangulpagestylefalse} +\DeclareOption{hangulpagestyle}{\@defaulthangulpagestyletrue} +\newif\if@pdfbookmark{\@pdfbookmarkfalse} +\DeclareOption{pdfbookmark}{\@pdfbookmarktrue} + +\ifxetex +%%% xetexko options +\DeclareOption{gremph}{\PassOptionsToPackage{\CurrentOption}{xetexko-var}} +\DeclareOption{itemph}{\PassOptionsToPackage{\CurrentOption}{xetexko-var}} +%%% new option +\DeclareOption{latinquote}{\PassOptionsToPackage{\CurrentOption}{xetexko-var}} +\DeclareOption{oldhangul}{\PassOptionsToPackage{\CurrentOption}{xetexko-var}} +\DeclareOption{manualfontspec}{\PassOptionsToPackage{\CurrentOption}{xetexko-var}} +\DeclareOption{nowinname}{\PassOptionsToPackage{\CurrentOption}{xetexko-var}} +\DeclareOption{unfonts}{\PassOptionsToPackage{\CurrentOption}{xetexko-var}} +\DeclareOption{nounfonts}{\PassOptionsToPackage{\CurrentOption}{xetexko-var}} +\else\ifluatex +%%% luatexko options +\DeclareOption{gremph}{\PassOptionsToPackage{\CurrentOption}{luatexko-xobfont}} +\DeclareOption{itemph}{\PassOptionsToPackage{\CurrentOption}{luatexko-xobfont}} +%%% new option +\DeclareOption{latinquote}{\PassOptionsToPackage{\CurrentOption}{luatexko-xobfont}} +\DeclareOption{oldhangul}{\PassOptionsToPackage{\CurrentOption}{luatexko-xobfont}} +\DeclareOption{manualfontspec}{\PassOptionsToPackage{\CurrentOption}{luatexko-xobfont}} +\DeclareOption{nowinname}{\PassOptionsToPackage{\CurrentOption}{luatexko-xobfont}} +\DeclareOption{unfonts}{\PassOptionsToPackage{\CurrentOption}{luatexko-xobfont}} +\DeclareOption{nounfonts}{\PassOptionsToPackage{\CurrentOption}{luatexko-xobfont}} +\else +%%% pdftex options +\DeclareOption{gremph}{\DisabledOption{gremph}} +\DeclareOption{itemph}{\DisabledOption{itemph}} +\DeclareOption{latinquote}{\DisabledOption{latinquote}} +\DeclareOption{oldhangul}{\DisabledOption{oldhangul}} +\DeclareOption{manualfontspec}{\DisabledOption{manualfontspec}} +\DeclareOption{nowinname}{\DisabledOption{nowinname}} +\DeclareOption{unfonts}{\DisabledOption{unfonts}} +\DeclareOption{nounfonts}{\DisabledOption{nounfonts}} +\fi\fi + +%%% figtabcapt +\newif\if@figtabcapt@\@figtabcapt@false +\DeclareOption{figtabcapt}{\@figtabcapt@true} + +\newif\ifKOTEXCJK\KOTEXCJKtrue +\DeclareOption{cjk}{\KOTEXCJKtrue} +\DeclareOption{dhucs}{\KOTEXCJKfalse} +\DeclareOption{uset1font}{\PassOptionsToPackage{usecjkt1font}{cjkutf8-ko}} +\DeclareOption{usedotemph}{\PassOptionsToPackage{\CurrentOption}{cjkutf8-ko}} + +\ProcessOptions + +\ifluatex + \RequirePackage{luatexko} + \RequirePackage{luatexko-xobfont} +\else\ifxetex + \RequirePackage{xetexko-var} + \else + \ifKOTEXCJK + \RequirePackage{cjkutf8-ko} +% \else +% \RequirePackage{dhucs} + \fi +\fi\fi + +\ifKOTEXCJK\else + \RequirePackage{xob-dotemph} +\fi + +%% define memh@hu +\newdimen\memh@hu\memh@hu=0.059375em + +\newif\if@inthekoreancontext\@inthekoreancontexttrue + +%% memoir [ms] option +\ifmsdoc +\newcommand*\MSNormalSize{ + \let\large\normalsize + \let\Large\normalsize + \let\LARGE\normalsize + \let\huge\normalsize + \let\Huge\normalsize + \let\HUGE\normalsize + \let\small\normalsize + \let\scriptsize\normalsize + \let\footnotesize\normalsize + \let\tiny\normalsize + } +\AtBeginDocument{ + \renewcommand{\msdoublespacing}{% + \renewcommand{\baselinestretch}{1.75}\large\normalsize} + \renewcommand{\mssinglespacing}{% + \renewcommand{\baselinestretch}{1.1}\large\normalsize} + \renewcommand{\familydefault}{cmtt} + \renewcommand{\rmdefault}{cmtt} + \renewcommand{\sfdefault}{cmtt} + \renewcommand{\bfdefault}{m} + \renewcommand{\itdefault}{n} + \renewcommand{\sldefault}{n} + \renewcommand{\scdefault}{n} + \renewcommand{\baselinestretch}{1.75} + \@twocolumnfalse + \onecolumn + \sloppy + \@twosidefalse + \raggedbottom + \pagestyle{plain} +} +\fi + +\if@pdfbookmark + \@ifpackageloaded{hyperref}{% hyperref is already loaded + \typeout{hyperref is already loaded!}% + \RequirePackage{memhfixc}}% + {% + \RequirePackage{hyperref} + \RequirePackage{memhfixc}} +\fi + +%%% interword +\if@interworddefault + \RequirePackage{memucs-interword-x} +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% 한글 관련 이름 설정 (not from hangul.sty) + +\if@hanja +\def\today{\number\year 年~\number\month 月~\number\day 日} +\def\enclname{同封物} +\def\ccname{寫本} +\def\headtoname{受信人} +\def\seename{\을~參照} +\def\alsoname{\을~參照} +\def\contentsname{目~次} +\def\listfigurename{圖~目次} +\def\listtablename{表~目次} +\def\refname{參考~文獻} +\def\indexname{索~引} +\def\tablename{表} +\def\figurename{圖} +\def\abstractname{要~約} +\def\bibname{參考~圖書} +\def\appendixname{附錄} +\def\subappendixname{附錄} +\def\appendixtocname{附~錄} +\def\appendixpagename{附~錄} +\def\partname{篇} +\def\chaptername{章} +\def\sectionname{節} +\def\colorlayer{色相레이어} +\def\glossaryname{語彙} +\def\figurerefname{圖} +\def\tablerefname{表} +\def\pagename{面} +\def\pagerefname{面} +\def\partrefname{篇} +\def\chapterrefname{章} +\def\sectionrefname{\S} +\else +\def\today{\number\year 년~\number\month 월~\number\day 일} +\def\enclname{동봉물} +\def\ccname{사본} +\def\headtoname{받는이} +\def\seename{\을~참조} +\def\alsoname{\을~함께~참조} +\def\contentsname{차~례} +\def\listfigurename{그림~차례} +\def\listtablename{표~차례} +\def\refname{참고~문헌} +\def\indexname{찾아보기} +\def\tablename{표} +\def\figurename{그림} +\def\abstractname{요~약} +\def\bibname{참고~문헌} +\def\appendixname{부록} +\def\subappendixname{부록} +\def\appendixtocname{부~록} +\def\appendixpagename{부~록} +\def\partname{편} +\def\chaptername{장} +\def\sectionname{절} +\def\colorlayer{환등판~색상} +\def\glossaryname{용어집} +\def\figurerefname{그림} +\def\tablerefname{표} +\def\pagename{페이지} +\def\pagerefname{페이지} +\def\partrefname{편} +\def\chapterrefname{장} +\def\sectionrefname{\S} +\fi + +%% \marginparswitchtrue/false +\providecommand{\marginparswitchtrue}{\@mparswitchtrue} +\providecommand{\marginparswitchfalse}{\@mparswitchfalse} +\providecommand{\reversemargintrue}{\@reversemargintrue} +\providecommand{\reversemarginfalse}{\@reversemarginfalse} + +%% select textwidth with chars +\def\testh@ng@lch@r@cters{가갸거겨고교구규그기} +\newlength\t@nch@ars +\newcommand*\setxxxlength[2]{% + \setbox0\hbox{\testh@ng@lch@r@cters}\setlength\t@nch@ars{\wd0}% + \@ifundefined{#1length}{\expandafter\newlength\csname #1length\endcsname}{}% + \expandafter\setlength\csname #1length\endcsname{#2\t@nch@ars}% + \expandafter\divide\csname #1length\endcsname by 10% +} + +%%% kscntformat +%%% HLaTeX의 \kscntformat 명령을 흉내냄 +%%% \kscntformat{section}{제}{절} 형식으로 쓴다. +\newsavebox{\tmp@XXbox} +\newdimen\tmp@XXdim +\def\kscntformat#1#2#3{% + \sbox{\tmp@XXbox}{#2\expandafter\number\csname c@#1\endcsname#3}% + \setlength\tmp@XXdim{\wd\tmp@XXbox}\advance\tmp@XXdim by1em% + \expandafter\def\csname the#1\endcsname{#2\expandafter\number\csname c@#1\endcsname#3}% + \expandafter\renewcommand\csname cft#1numwidth\endcsname{\tmp@XXdim}% + \expandafter\renewcommand\csname cft#1presnum\endcsname{}% + \expandafter\renewcommand\csname cft#1aftersnum\endcsname{}% +} + +\AtBeginDocument{% +\ifnokorean\else +\ifkosection +\kscntformat{section}{제\ob@onethirdspace }{\ob@onethirdspace 절} +\renewcommand\thesubsection{\arabic{section}.\arabic{subsection}} +\fi\fi +} + +\RequirePackage{memhangul-common} + +\ifx\memucsinterwordhook\undefined +\def\memucsinterwordhook{} +\fi + +\ifx\memucsinterwordchapterskiphook\undefined +\def\memucsinterwordchapterskiphook{} +\fi + +\if@nonfrench\else + \frenchspacing +\fi + +%%% hsetspace for memucs +\if@hsspace + \RequirePackage[hangul,adjustverbatim,adjustfootnotesep]{memucs-setspace} + \if@hsspacenoquote\else\adjustquotespacing\fi +\else + \RequirePackage{memucs-setspace} + \linespread{1.333} +\fi +%\SetHangulspace{1.333}{1.1} + +%%% fix first pdf page layout error : XeTeX +%%% based on v1.61803398 +%%% these codes are to be deleted later. (2009/09/25) +\renewcommand*{\fixpdflayout}{% + \pdfpageheight=\the\stockheight + \pdfpagewidth=\the\stockwidth + \ifxetex + \AtBeginDvi{\special{pdf: pagesize width \the\stockwidth\ height \the\stockheight}}% + \else + \ifdim\pdfvorigin=0pt\pdfvorigin=1in\fi + \ifdim\pdfhorigin=0pt\pdfhorigin=1in\fi + \fi} + +%%% 호환을 위하여 dhucs 명령 몇 개를 무력화함. +\ifx\SetAdhocFonts\undefined + \def\SetAdhocFonts#1#2{} +\fi +\ifx\regremph\undefined + \let\regremph\relax + \let\ungremph\relax +\fi + +\endinput + +% CHANGE LOG +% 2013/10/22 : introduce memhangul-common.sty +% 2013/10/16 : \kscntformat and [kosection] bug fix. +% 2013/09/27 : \cntrdotss +% 2013/09/15 : \leavevmode at \explpunc, \expldash +% 2013/09/01 : [cjk], [dhucs] option introduced +% 2012/12/02 : drop shipout hacking codes +% 2012/11/29 : \pdfstringdefDisableCommands +% 2012/11/22 : [figtabcapt] opton introduced +% 2012/11/01 : avoid error in \cnm, \ccnm etc. +% 2012/07/12 : introduce luatexko-xobfont +% 2011/09/15 : changes according to xoblivoir +% 2010/09/16 : cntrdot, adjustmath +% 2009/05/11 : protect bnm commands +% 2009/04/02 : redefine memoir-shipout for pdflualatex and other... +% 2009/02/11. memoir v1.6180339e compatibility mend 1. +% titleref, hangul page style. +%%% +% 오전 6:35 2008-09-18 : rename xkospace.sty to xkospace-var.sty +% to avoid confusion +% 오후 2:16 2008-09-18 : latinquote 옵션 +% 오전 4:32 2008-09-30 : hangul item titles +% 코드 정리. +% 오전 8:24 2008-10-07 : revive interword hook +% 오후 5:25 2008-10-07 : revive gremph/itemph +% 오전 1:21 2008-10-13 : xetexko v0.1 반영 +% 오후 2:37 2008-10-23 : bnmcmds, oblivoirdblquote +% 오후 17:59 2008-12-03 : nowinname 옵션 추가 +% 오전 2:17 2009-09-26 : try to fix the first pdf page layout error on XeTeX (moved from fapapersize) +% diff --git a/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/memucs-interword-x.sty b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/memucs-interword-x.sty new file mode 100644 index 00000000000..e033b74ce2f --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/memucs-interword-x.sty @@ -0,0 +1,188 @@ +%% memucs-interword-x.sty +%% +%% Copyright (c) 2007-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. +%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{memucs-interword-x}[2009/04/02] +\RequirePackage{ifluatex} +\RequirePackage{ifxetex} + +\def\memucsinterwordskip{} +\def\memucsinterwordchapterskip{} +\def\memucshangulskips{} + +\newif\if@nonfrench\@nonfrenchfalse +\DeclareOption{nonfrench}{% + \@nonfrenchtrue} +\DeclareOption{HWP}{% + \def\memucsinterwordskip{\HWPinterwordskip}} +\DeclareOption{default}{% + \@nonfrenchtrue\def\memucsinterwordskip{\DEFAULTskips}%\interHchar{0pt} + } +\DeclareOption{wider}{} +% \def\memucshangulskips{\widerhangul}} +\DeclareOption{narrower}{} +% \def\memucshangulskips{\narrowerhangul}} +%\DeclareOption*{% +% \def\memucsinterwordskip{\DEFAULTskips}% +%} + +%\newlength\dimen@skip +%\setlength\dimen@skip{.1pt} + +%% finemath active. +%\ifluatex\else\ifxetex\else +% \if@dhucsfinemath\else\@dhucsfinemathtrue\fi +%\fi\fi + +%%% inter hchar +\newcommand*\interHchar[1]{% + \ifluatex + \@luatex@setinterhangulskip{#1}% + \else\ifxetex + \@xetex@setinterhangulskip{#1}% + \else + \@setinterhangulskip{#1}% + \fi\fi +} + +\newcommand*\DefaultInterHchar{% + \interHchar{-.04}% +} + +\newcommand*\@luatex@setinterhangulskip[1]{% +\directlua{ + fmconfig.hangul_hangul = #1 % ѱ ڰ +}} + +\newcommand*\@xetex@setinterhangulskip[1]{% + \def\xetexkointerhchar{#1em}% +} + +\newcommand*\@setinterhangulskip[1]{% + \setInterHangulSkip{#1em}% +} + +\newcommand*\interhword[4][\@empty]{% + \ifx#1\@empty\setinterwordskip{#2}{#3}{#4}\else + \setinterwordskip[#1]{#2}{#3}{#4}\fi +} + +%%%\def\narrowerhangul{% +%%% \def\memucshangulskips{% +%%% \interHchar{-.5pt}% +%%% }% +%%%} +%%%\def\widerhangul{% +%%% \def\memucshangulskips{% +%%% \interHchar{1pt}% +%%% }% +%%%} + +\newdimen\BASE@FONTsize +\BASE@FONTsize=\f@size\p@ + +\def\HWPinterwordskip{% + \def\memucshangulskips{% + \DefaultInterHchar + }% + \def\memucsinterwordskip{% + \spaceskip = .475\BASE@FONTsize plus .25\BASE@FONTsize minus .1331\BASE@FONTsize + \if@nonfrench + \xspaceskip = .6\BASE@FONTsize plus .2\BASE@FONTsize minus .1\BASE@FONTsize + \fi + }% + \def\memucsinterwordchapterskip{% + \spaceskip = .5\BASE@FONTsize plus .1\BASE@FONTsize minus .05\BASE@FONTsize + \if@nonfrench + \xspaceskip = .65\BASE@FONTsize plus .2\BASE@FONTsize minus .1\BASE@FONTsize + \fi + }% +} + +\def\setinterwordskip{\@ifnextchar[\setinterwordskip@\setinterwordskip@@} +\def\setinterwordskip@[#1]#2#3#4{% + \def\memucsinterwordskip{% + \spaceskip = #2\BASE@FONTsize plus #3\BASE@FONTsize minus #4\BASE@FONTsize + \if@nonfrench + \xspaceskip = #1\BASE@FONTsize plus #3\BASE@FONTsize minus #4\BASE@FONTsize + \fi + }% +} + +\def\setinterwordskip@@#1#2#3{% + \def\memucsinterwordskip{% + \spaceskip = #1\BASE@FONTsize plus #2\BASE@FONTsize minus #3\BASE@FONTsize + \if@nonfrench + \xspaceskip = .6\BASE@FONTsize plus #2\BASE@FONTsize minus #3\BASE@FONTsize + \fi + }% +} + +\def\DEFAULTskips{% + \DefaultInterHchar + \def\memucsinterwordskip{% + \spaceskip = .413\BASE@FONTsize plus .1\BASE@FONTsize minus .1\BASE@FONTsize + \if@nonfrench + \xspaceskip = .55\BASE@FONTsize plus .11\BASE@FONTsize minus .1\BASE@FONTsize + \fi + }% + \def\memucsinterwordchapterskip{% + \spaceskip = .46\BASE@FONTsize plus .11\BASE@FONTsize minus .1\BASE@FONTsize + \if@nonfrench + \xspaceskip = .575\BASE@FONTsize plus .1\BASE@FONTsize minus .1\BASE@FONTsize + \fi + }% +} + +\ProcessOptions\relax + +\def\verbatim@font{\m@mverbfont\spaceskip\z@ + \hyphenchar\font\m@ne + \let\do\do@noligs + \verbatim@nolig@list} + +\def\narrowerinterhword{% + \spaceskip=.331\BASE@FONTsize plus .111\BASE@FONTsize minus .1\BASE@FONTsize + \if@nonfrench + \xspaceskip=.466\BASE@FONTsize plus .05\BASE@FONTsize minus .05\BASE@FONTsize + \fi +} + +\def\memucsinterwordhook{\memucsinterwordskip\memucshangulskips}% +\def\memucsinterwordchapterskiphook{\memucsinterwordchapterskip\memucshangulskips}% +\def\memucsfninterwordhook{\narrowerinterhword}% + +% engtext env +\@ifundefined{engtext}% + {% + \newenvironment{engtext}% + {\begingroup\spaceskip=\fontdimen2\font plus\fontdimen3\font minus\fontdimen4\font}% + {\endgroup}% + }{} + +% engtxt +\newskip\ORIG@spaceskip +\def\engtxt{\ORIG@spaceskip=\spaceskip + \spaceskip=\fontdimen2\font plus\fontdimen3\font minus\fontdimen4\font} +\def\endengtxt{\spaceskip=\ORIG@spaceskip} + +\endinput + +%% CHANGE LOG +% 2009/04/02. small alterations. +% 2005/01/07. code clearance +% 2005/02/08. reset interwordchapterskip values +% 2005/05/17. engtext env. added. +% 2005/07/30. replace em by \BASE@FONTsize +% 2005/08/05. nonfrench option introduced. +% 2005/11/17. \interhword bug fixed. +% 2007/06/03. dhucs 4.0 hfontspec applied diff --git a/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xetexko-var.sty b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xetexko-var.sty new file mode 100644 index 00000000000..2aaf1e8b97d --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xetexko-var.sty @@ -0,0 +1,67 @@ +%% xetexko-var.sty +%% +%% Copyright (c) 2007-2013 Kangsoo Kim <karnes at ktug org> +%% Copyright (c) 2013 Kihwang Lee <leekh 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. +%% +%% A variant of xetexko.sty +%% +%% Updated for xetexko v2.1 +%% 2013.08.26 +%% +\ProvidesPackage{xetexko-var} + [2013/08/26 v0.12 Korean Typesetting under XeTeX] + +%%% common options for xob-font +\DeclareOption{gremph}{\PassOptionsToPackage{\CurrentOption}{xetexko-xobfont}} +\DeclareOption{itemph}{\PassOptionsToPackage{\CurrentOption}{xetexko-xobfont}} +\DeclareOption{oldhangul}{\PassOptionsToPackage{\CurrentOption}{xetexko-xobfont}} +\DeclareOption{latinquote}{\PassOptionsToPackage{\CurrentOption}{xetexko-xobfont}} +\DeclareOption{nowinname}{\PassOptionsToPackage{\CurrentOption}{xetexko-xobfont}} +%%% for kolabels +\newif\if@hangul +\newif\if@hanja +\DeclareOption{hangul}{\@hangultrue} +\DeclareOption{hanja}{\@hangultrue\@hanjatrue} +%%% for xob-fonts +\newif\if@extfontspec\@extfontspecfalse +\DeclareOption{manualfontspec}{\@extfontspectrue} + +%%% unfonts +\DeclareOption{unfonts}{\PassOptionsToPackage{\CurrentOption}{xetexko-xobfont}} +\DeclareOption{nounfonts}{\PassOptionsToPackage{\CurrentOption}{xetexko-xobfont}} +\ProcessOptions\relax + +%%% xetexko sub-styles +\RequirePackage{xetexko-space} +\RequirePackage{xetexko-josa} +\RequirePackage{xetexko-vertical} + +%%% xoblivoir sub-styles +\RequirePackage{xob-dotemph} +\RequirePackage{xob-hyper} + +\if@extfontspec + \PackageWarning{xetexko-var}{Load xetexko-xobfont and configure Korean Fonts manually!}{} + \RequirePackage{xetexko-font} +\else + \RequirePackage{xetexko-xobfont} +\fi + +\RequirePackage{kolabels-utf} +\if@hangul\AtBeginDocument{\RequirePackage{konames-utf}}\fi + +\endinput + +%%% 2013-09-27, nounfonts. +%%% 오후 3:22 2008-11-16 +%%% 오후 17:59 2008-12-03 : nowinname 옵션 추가 +%%% 2009-03-25, xetexko.sty +%%% 오전 2:22 2009-09-26, xetexko-vertical.sty diff --git a/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xetexko-xobfont.sty b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xetexko-xobfont.sty new file mode 100644 index 00000000000..2259087ca37 --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xetexko-xobfont.sty @@ -0,0 +1,1059 @@ +%% xetexko-xobfont.sty +%% +%% Copyright (c) 2007-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. +%% +%% a variant of xetexko-font.sty +% +\ifdefined\ProvidesPackage + \ProvidesPackage{xetexko-xobfont}[2009/10/29 v0.76 Korean font definition in conjunction with xetexko-space, a variant] +\fi + +\@ifpackageloaded{xetexko-space}{}{% + \PackageError{xetexko-xob}{xetexko-space must be loaded before}{}% +} + +\newif\if@latinquote\@latinquotefalse +\DeclareOption{latinquote}{\@latinquotetrue} +\newif\if@oldhangul\@oldhangulfalse +\DeclareOption{oldhangul}{\@oldhangultrue} +\newif\if@gremph\@gremphtrue +\DeclareOption{gremph}{\@gremphtrue} +\DeclareOption{itemph}{\@gremphfalse} +\newif\if@nowin\@nowinfalse +\DeclareOption{nowinname}{\@nowintrue} + +\newif\if@unfonts\@unfontsfalse +\DeclareOption{unfonts}{\@unfontstrue} +\DeclareOption{nounfonts}{\@unfontsfalse} +\newif\if@nanumfonts\@nanumfontsfalse +\DeclareOption{nanum}{\@nanumfontstrue} + +\ProcessOptions + +\RequirePackage{xetexko-font} + +\if@oldhangul + \def\XKOV@oldhangulscript{Script=Hangul} + \def\XKOV@oldhangullanguage{Language=Korean} + \def\XKOV@oldhangulfeatures{RawFeature=+ccmp;+ljmo;+vjmo;+tjmo} +\else + \def\XKOV@oldhangulscript{} + \def\XKOV@oldhangullanguage{} + \def\XKOV@oldhangulfeatures{} +\fi + +\if@gremph + \def\XKOV@italicfeatures{} + \def\XKOV@bolditalicfeatures{RawFeature={embolden=2}} + \def\XKOV@boldfeatures{RawFeature={embolden=2}} +\else + \def\XKOV@italicfeatures{RawFeature={slant=0.17}} + \def\XKOV@bolditalicfeatures{RawFeature={embolden=2;slant=0.17}} + \def\XKOV@boldfeatures{RawFeature={embolden=2}} +\fi + +\newcommand\setmonoscale[1]{% + \def\XKOV@monoscale{#1}% +} +\setmonoscale{1.05} + +%%% 괄호 재설정 +%\if@latinquote +% \XeTeXcharclass "2018 = 4 % ‘ +% \XeTeXcharclass "201C = 4 % “ +% \XeTeXcharclass "2019 = 5 % ’ +% \XeTeXcharclass "201D = 5 % ” +%\else +% \XeTeXcharclass "2018 = 2 % ‘ +% \XeTeXcharclass "201C = 2 % “ +% \XeTeXcharclass "2019 = 3 % ’ +% \XeTeXcharclass "201D = 3 % ” +%\fi + +%%% 한글 기호 문자 일부. xkospace에 정의되지 않은 것. +%%% 추후 삭제할 수 있는 코드. +%%% ※… = class 1 (한자) +%\XeTeXcharclass "007D = 7 %… class 7 ("AC00) +%%\count255 = "203B +%%\loop \XeTeXcharclass\count255 = 1 +%% \ifnum\count255 < "24EA +%% \advance\count255 1 \repeat +%%\count255 = "3200 +%%\loop \XeTeXcharclass\count255 = 1 +%% \ifnum\count255 < "33DE +%% \advance\count255 1 \repeat +%%\count255 = "25A0 +%%\loop \XeTeXcharclass\count255 = 1 +%% \ifnum\count255 < "266E +%% \advance\count255 1 \repeat + +\XeTeXcharclass "223C = 1 % ∼ + +%% 한글폰트 지정하기 : +\@ifpackageloaded{xltxtra}{}{\RequirePackage{xltxtra}} + \def\CallKorFont#1{% + \expandafter\newfontfamily\csname kor#1font\endcsname[\XKOV@externallocation,% + BoldFont=\csname XKOV@kor#1@bold\endcsname,% + ItalicFont=\csname XKOV@kor#1@italic\endcsname,% + ItalicFeatures={\XKOV@italicfeatures},% + BoldItalicFont=\csname XKOV@kor#1@bolditalic\endcsname,% + BoldItalicFeatures={\XKOV@italicfeatures},% +% Script=Hangul,% +% Language=Korean,% +% RawFeature=+ccmp;+ljmo;+vjmo;+tjmo + \XKOV@oldhangulscript,\XKOV@oldhangullanguage,% + \XKOV@oldhangulfeatures + ]% + {\csname XKOV@kor#1@regular\endcsname}% + } +%%%%%%%%% mono 폰트는 특별하게 취급한다. + \def\CallKorFontmono{% + \newfontfamily\kormonofont[\XKOV@externallocation,% + BoldFont=\XKOV@kormono@bold,% + BoldFeatures={\XKOV@boldfeatures},% + ItalicFont=\XKOV@kormono@italic,% + ItalicFeatures={\XKOV@italicfeatures},% + BoldItalicFont=\XKOV@kormono@bolditalic,% + BoldItalicFeatures={\XKOV@bolditalicfeatures},% + Scale=\XKOV@monoscale]% + {\XKOV@kormono@regular} + } +% \newfontfamily\korvertfont[ExternalLocation, +% BoldFont=UnBatang, +% BoldFeatures={RawFeature={embolden=2}}, +% ItalicFont=UnBatang, +% ItalicFeatures={RawFeature={slant=0.17}}, +% BoldItalicFont=UnBatang, +% BoldItalicFeatures={RawFeature={embolden=2;slant=0.17}}, +% Script=Hangul, +% Language=Korean, +% Vertical=RotatedGlyphs] +% {UnBatang} + \def\CallHnjFont#1{% + \expandafter\newfontfamily\csname hnj#1font\endcsname[\XKOV@externallocation,% + BoldFont=\csname XKOV@hnj#1@bold\endcsname,% + ItalicFont=\csname XKOV@hnj#1@italic\endcsname,% + ItalicFeatures={\XKOV@italicfeatures},% + BoldItalicFont=\csname XKOV@hnj#1@bolditalic\endcsname,% + BoldItalicFeatures={\XKOV@italicfeatures},% +% Script=Hangul,% +% Language=Korean,% +% RawFeature=+ccmp;+ljmo;+vjmo;+tjmo + \XKOV@oldhangulscript,\XKOV@oldhangullanguage,% + \XKOV@oldhangulfeatures + ]% + {\csname XKOV@hnj#1@regular\endcsname}% + } + \def\CallHnjFontmono{% + \newfontfamily\hnjmonofont[\XKOV@externallocation,% + BoldFont=\XKOV@hnjmono@bold,% + BoldFeatures={\XKOV@boldfeatures},% + ItalicFont=\XKOV@hnjmono@italic,% + ItalicFeatures={\XKOV@italicfeatures},% + BoldItalicFont=\XKOV@hnjmono@bolditalic,% + BoldItalicFeatures={\XKOV@bolditalicfeatures},% + Scale=\XKOV@monoscale + ]% + {\XKOV@hnjmono@regular} + } + \def\CallHnjDefault{% + \let\hnjmainfont\kormainfont + \let\hnjsansfont\korsansfont + \let\hnjmonofont\korsansfont + } + +%%% 사용자 명령 +%%% from here, Karnes writes: + +\RequirePackage{twoopt} +\newif\if@korfnt@external\@korfnt@externaltrue +\newif\if@XKOV@extendcommand\@XKOV@extendcommandfalse + +\let\XKOV@XP\expandafter + +%%%%%%%%%%%%%%%%%%%%%% main +%%% 아무래도 잊어버릴 듯해서... +%%% 다음 네 가지는 xetexko-font의 방식 +%%% \setkormainfont{FontName} +%%% \setkormainfont[Options]{FontName} +%%% \setkormainfont{FontName}[Hanja_Opt]{FontName} +%%% \setkormainfont[Options]{FontName}[Hanja_Opt]{FontName} +%%% xoblivoir 방식은 +%%% \setkormainfont*{FontName} +%%% \setkormainfont(Bold)(Italic){FontName} +%%% \setkormainfont*(Bold)(Italic){FontName} +%%% \setkormainfont(Bold)(Italic){FontName}(Bold)(Italic){FontName} +%%% \setkormainfont*(Bold)(Italic){FontName}(Bold)(Italic){FontName} +%%% (Bold)(Italic)은 optional. +%%% +\def\setkormainfont{% + \@ifnextchar[\setkormainATYPE{% + \@ifnextchar(\setkormainBTYPE{% + \@ifnextchar*\setkormainCTYPE\setkormainDTYPE}}% +} + +\def\setkormainATYPE[#1]#2{% + \gdef\@ATYPEopt@ne{#1}% + \gdef\@ATYPEarg@ne{#2}% + \@ifnextchar[\setkormainATYPEA\setkormainATYPEB +} + +\def\setkormainATYPEA[#1]#2{% + \XKOV@XP\setmainhangulfont\XKOV@XP[\@ATYPEopt@ne]{\@ATYPEarg@ne}% + \setmainhanjafont[#1]{#2}% +} + +\def\setkormainATYPEB{% + \XKOV@XP\setmainhangulfont\XKOV@XP[\@ATYPEopt@ne]{\@ATYPEarg@ne}% +} + +\def\setkormainDTYPE#1{% + \gdef\@ATYPEarg@ne{#1}% + \@ifnextchar[\setkormainDTYPEA\setkormainDTYPEB +} + +\def\setkormainDTYPEA[#1]#2{% + \setmainhangulfont{\@AgTYPEarg@ne}% + \setmainhanjafont[#1]{#2}% +} + +\def\setkormainDTYPEB{% + \setmainhangulfont{\@ATYPEarg@ne}% +} + +\def\setkormainBTYPE(#1){% + \long\gdef\@BTYPEopt@ne{#1}% + \@ifnextchar(\setkormainBTYPEA\setkormainBTYPEB +} + +\def\setkormainBTYPEA(#1)#2{% + \long\gdef\@BTYPEopttw@{#1}% + \long\gdef\@BTYPEarg@ne{#2}% + \@ifnextchar(\setkormainBTYPEC\setkormainBTYPED +} + +\def\setkormainBTYPEB#1{% + \gdef\@BTYPEarg@ne{#1}% + \@ifnextchar(\setkormainBTYPEBA\setkormainBTYPEBB +} + +\def\setkormainBTYPEBB{% + \s@tk@rm@inf@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% +} + +\def\setkormainBTYPEBA({% + \@ifnextchar)\setkormainBTYPEBNO\setkormainBTYPEBYES +} + +\def\setkormainBTYPEBNO)#1{% + \s@tk@rm@inf@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% + []{#1}% +} + +\def\setkormainBTYPEBYES#1){% + \gdef\@BTYPEoptthr@@{#1}% + \@ifnextchar(\setkormainBTYPEBE\setkormainBTYPEBF +} + +\def\setkormainBTYPEBE(#1)#2{% + \gdef\@BTYPEoptf@ur{#1}% + \s@tk@rm@inf@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@][\@BTYPEoptf@ur]{#2}% +} + +\def\setkormainBTYPEBF#1{% + \s@tk@rm@inf@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@]{#1}% +} + +\def\setkormainBTYPEC({% + \@ifnextchar)\setkormainBTYPECNO\setkormainBTYPECYES +} + +\def\setkormainBTYPED{% + \s@tk@rm@inf@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% +} + +\def\setkormainBTYPECNO)#1{% + \s@tk@rm@inf@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% + []{#1}% +} + +\def\setkormainBTYPECYES#1){% + \gdef\@BTYPEoptthr@@{#1}% + \@ifnextchar(\setkormainBTYPEE\setkormainBTYPEF +} + +\def\setkormainBTYPEE(#1)#2{% + \gdef\@BTYPEoptf@ur{#1}% + \s@tk@rm@inf@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@][\@BTYPEoptf@ur]{#2}% +} + +\def\setkormainBTYPEF#1{% + \s@tk@rm@inf@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@]{#1}% +} + +\def\setkormainCTYPE*{ + \@ifnextchar(\setkormainCTYPEALPHA\setkormainCTYPEBETA +} + +\def\setkormainCTYPEBETA#1{% + \s@tk@rm@inf@nt*{#1}% +} + +\def\setkormainCTYPEALPHA(#1){% + \gdef\@CTYPEopt@ne{#1}% + \@ifnextchar(\setkormainCTYPEA\setkormainCTYPEB +} + +\def\setkormainCTYPEA(#1)#2{% + \gdef\@CTYPEopttw@{#1}% + \gdef\@CTYPEarg@ne{#2}% + \@ifnextchar(\setkormainCTYPEC\setkormainCTYPED +} + +\def\setkormainCTYPEB#1{% + \gdef\@CTYPEarg@ne{#1}% + \@ifnextchar(\setkormainCTYPEBA\setkormainCTYPEBB +} + +\def\setkormainCTYPEBB{% + \s@tk@rm@inf@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% +} + +\def\setkormainCTYPEBA({% + \@ifnextchar)\setkormainCTYPEBNO\setkormainCTYPEBYES +} + +\def\setkormainCTYPEBNO)#1{% + \s@tk@rm@inf@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% + []{#1}% +} + +\def\setkormainCTYPEBYES#1){% + \gdef\@CTYPEoptthr@@{#1}% + \@ifnextchar(\setkormainCTYPEBE\setkormainCTYPEBF +} + +\def\setkormainCTYPEBE(#1)#2{% + \gdef\@CTYPEoptf@ur{#1}% + \s@tk@rm@inf@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@][\@CTYPEoptf@ur]{#2}% +} + +\def\setkormainCTYPEBF#1{% + \s@tk@rm@inf@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@]{#1}% +} + +\def\setkormainCTYPEC({% + \@ifnextchar)\setkormainCTYPECNO\setkormainCTYPECYES +} + +\def\setkormainCTYPED{% + \s@tk@rm@inf@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% +} + +\def\setkormainCTYPECNO)#1{% + \s@tk@rm@inf@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% + []{#1}% +} + +\def\setkormainCTYPECYES#1){% + \gdef\@CTYPEoptthr@@{#1}% + \@ifnextchar(\setkormainCTYPEE\setkormainCTYPEF +} + +\def\setkormainCTYPEE(#1)#2{% + \gdef\@CTYPEoptf@ur{#1}% + \s@tk@rm@inf@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@][\@CTYPEoptf@ur]{#2}% +} + +\def\setkormainCTYPEF#1{% + \s@tk@rm@inf@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@]{#1}% +} + +%%%%%%%%%%%%%%%%%%%%%%%% + +\def\setkorsansfont{% + \@ifnextchar[\setkorsansATYPE{% + \@ifnextchar(\setkorsansBTYPE{% + \@ifnextchar*\setkorsansCTYPE\setkorsansDTYPE}}% +} + +\def\setkorsansATYPE[#1]#2{% + \gdef\@ATYPEopt@ne{#1}% + \gdef\@ATYPEarg@ne{#2}% + \@ifnextchar[\setkorsansATYPEA\setkorsansATYPEB +} + +\def\setkorsansATYPEA[#1]#2{% + \XKOV@XP\setsanshangulfont\XKOV@XP[\@ATYPEopt@ne]{\@ATYPEarg@ne}% + \setsanshanjafont[#1]{#2}% +} + +\def\setkorsansATYPEB{% + \XKOV@XP\setsanshangulfont\XKOV@XP[\@ATYPEopt@ne]{\@ATYPEarg@ne}% +} + +\def\setkorsansDTYPE#1{% + \gdef\@ATYPEarg@ne{#1}% + \@ifnextchar[\setkorsansDTYPEA\setkorsansDTYPEB +} + +\def\setkorsansDTYPEA[#1]#2{% + \setsanshangulfont{\@ATYPEarg@ne}% + \setsanshanjafont[#1]{#2}% +} + +\def\setkorsansDTYPEB{% + \setsanshangulfont{\@ATYPEarg@ne}% +} + +\def\setkorsansBTYPE(#1){% + \long\gdef\@BTYPEopt@ne{#1}% + \@ifnextchar(\setkorsansBTYPEA\setkorsansBTYPEB +} + +\def\setkorsansBTYPEA(#1)#2{% + \long\gdef\@BTYPEopttw@{#1}% + \long\gdef\@BTYPEarg@ne{#2}% + \@ifnextchar(\setkorsansBTYPEC\setkorsansBTYPED +} + +\def\setkorsansBTYPEB#1{% + \gdef\@BTYPEarg@ne{#1}% + \@ifnextchar(\setkorsansBTYPEBA\setkorsansBTYPEBB +} + +\def\setkorsansBTYPEBB{% + \s@tk@rs@nsf@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% +} + +\def\setkorsansBTYPEBA({% + \@ifnextchar)\setkorsansBTYPEBNO\setkorsansBTYPEBYES +} + +\def\setkorsansBTYPEBNO)#1{% + \s@tk@rs@nsf@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% + []{#1}% +} + +\def\setkorsansBTYPEBYES#1){% + \gdef\@BTYPEoptthr@@{#1}% + \@ifnextchar(\setkorsansBTYPEBE\setkorsansBTYPEBF +} + +\def\setkorsansBTYPEBE(#1)#2{% + \gdef\@BTYPEoptf@ur{#1}% + \s@tk@rs@nsf@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@][\@BTYPEoptf@ur]{#2}% +} + +\def\setkorsansBTYPEBF#1{% + \s@tk@rs@nsf@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@]{#1}% +} + +\def\setkorsansBTYPEC({% + \@ifnextchar)\setkorsansBTYPECNO\setkorsansBTYPECYES +} + +\def\setkorsansBTYPED{% + \s@tk@rs@nsf@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% +} + +\def\setkorsansBTYPECNO)#1{% + \s@tk@rs@nsf@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% + []{#1}% +} + +\def\setkorsansBTYPECYES#1){% + \gdef\@BTYPEoptthr@@{#1}% + \@ifnextchar(\setkorsansBTYPEE\setkorsansBTYPEF +} + +\def\setkorsansBTYPEE(#1)#2{% + \gdef\@BTYPEoptf@ur{#1}% + \s@tk@rs@nsf@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@][\@BTYPEoptf@ur]{#2}% +} + +\def\setkorsansBTYPEF#1{% + \s@tk@rs@nsf@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@]{#1}% +} + +\def\setkorsansCTYPE*{ + \@ifnextchar(\setkorsansCTYPEALPHA\setkorsansCTYPEBETA +} + +\def\setkorsansCTYPEBETA#1{% + \s@tk@rs@nsf@nt*{#1}% +} + +\def\setkorsansCTYPEALPHA(#1){% + \gdef\@CTYPEopt@ne{#1}% + \@ifnextchar(\setkorsansCTYPEA\setkorsansCTYPEB +} + +\def\setkorsansCTYPEA(#1)#2{% + \gdef\@CTYPEopttw@{#1}% + \gdef\@CTYPEarg@ne{#2}% + \@ifnextchar(\setkorsansCTYPEC\setkorsansCTYPED +} + +\def\setkorsansCTYPEB#1{% + \gdef\@CTYPEarg@ne{#1}% + \@ifnextchar(\setkorsansCTYPEBA\setkorsansCTYPEBB +} + +\def\setkorsansCTYPEBB{% + \s@tk@rs@nsf@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% +} + +\def\setkorsansCTYPEBA({% + \@ifnextchar)\setkorsansCTYPEBNO\setkorsansCTYPEBYES +} + +\def\setkorsansCTYPEBNO)#1{% + \s@tk@rs@nsf@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% + []{#1}% +} + +\def\setkorsansCTYPEBYES#1){% + \gdef\@CTYPEoptthr@@{#1}% + \@ifnextchar(\setkorsansCTYPEBE\setkorsansCTYPEBF +} + +\def\setkorsansCTYPEBE(#1)#2{% + \gdef\@CTYPEoptf@ur{#1}% + \s@tk@rs@nsf@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@][\@CTYPEoptf@ur]{#2}% +} + +\def\setkorsansCTYPEBF#1{% + \s@tk@rs@nsf@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@]{#1}% +} + +\def\setkorsansCTYPEC({% + \@ifnextchar)\setkorsansCTYPECNO\setkorsansCTYPECYES +} + +\def\setkorsansCTYPED{% + \s@tk@rs@nsf@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% +} + +\def\setkorsansCTYPECNO)#1{% + \s@tk@rs@nsf@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% + []{#1}% +} + +\def\setkorsansCTYPECYES#1){% + \gdef\@CTYPEoptthr@@{#1}% + \@ifnextchar(\setkorsansCTYPEE\setkorsansCTYPEF +} + +\def\setkorsansCTYPEE(#1)#2{% + \gdef\@CTYPEoptf@ur{#1}% + \s@tk@rs@nsf@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@][\@CTYPEoptf@ur]{#2}% +} + +\def\setkorsansCTYPEF#1{% + \s@tk@rs@nsf@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@]{#1}% +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def\setkormonofont{% + \@ifnextchar[\setkormonoATYPE{% + \@ifnextchar(\setkormonoBTYPE{% + \@ifnextchar*\setkormonoCTYPE\setkormonoDTYPE}}% +} + +\def\setkormonoATYPE[#1]#2{% + \gdef\@ATYPEopt@ne{#1}% + \gdef\@ATYPEarg@ne{#2}% + \@ifnextchar[\setkormonoATYPEA\setkormonoATYPEB +} + +\def\setkormonoATYPEA[#1]#2{% + \XKOV@XP\setmonohangulfont\XKOV@XP[\@ATYPEopt@ne]{\@ATYPEarg@ne}% + \setmonohanjafont[#1]{#2}% +} + +\def\setkormonoATYPEB{% + \XKOV@XP\setmonohangulfont\XKOV@XP[\@ATYPEopt@ne]{\@ATYPEarg@ne}% +} + +\def\setkormonoDTYPE#1{% + \gdef\@ATYPEarg@ne{#1}% + \@ifnextchar[\setkormonoDTYPEA\setkormonoDTYPEB +} + +\def\setkormonoDTYPEA[#1]#2{% + \setmonohangulfont{\@ATYPEarg@ne}% + \setmonohanjafont[#1]{#2}% +} + +\def\setkormonoDTYPEB{% + \setmonohangulfont{\@ATYPEarg@ne}% +} + +\def\setkormonoBTYPE(#1){% + \long\gdef\@BTYPEopt@ne{#1}% + \@ifnextchar(\setkormonoBTYPEA\setkormonoBTYPEB +} + +\def\setkormonoBTYPEA(#1)#2{% + \long\gdef\@BTYPEopttw@{#1}% + \long\gdef\@BTYPEarg@ne{#2}% + \@ifnextchar(\setkormonoBTYPEC\setkormonoBTYPED +} + +\def\setkormonoBTYPEB#1{% + \gdef\@BTYPEarg@ne{#1}% + \@ifnextchar(\setkormonoBTYPEBA\setkormonoBTYPEBB +} + +\def\setkormonoBTYPEBB{% + \s@tk@rm@n@f@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% +} + +\def\setkormonoBTYPEBA({% + \@ifnextchar)\setkormonoBTYPEBNO\setkormonoBTYPEBYES +} + +\def\setkormonoBTYPEBNO)#1{% + \s@tk@rm@n@f@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% + []{#1}% +} + +\def\setkormonoBTYPEBYES#1){% + \gdef\@BTYPEoptthr@@{#1}% + \@ifnextchar(\setkormonoBTYPEBE\setkormonoBTYPEBF +} + +\def\setkormonoBTYPEBE(#1)#2{% + \gdef\@BTYPEoptf@ur{#1}% + \s@tk@rm@n@f@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@][\@BTYPEoptf@ur]{#2}% +} + +\def\setkormonoBTYPEBF#1{% + \s@tk@rm@n@f@nt[\@BTYPEopt@ne]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@]{#1}% +} + +\def\setkormonoBTYPEC({% + \@ifnextchar)\setkormonoBTYPECNO\setkormonoBTYPECYES +} + +\def\setkormonoBTYPED{% + \s@tk@rm@n@f@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% +} + +\def\setkormonoBTYPECNO)#1{% + \s@tk@rm@n@f@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% + []{#1}% +} + +\def\setkormonoBTYPECYES#1){% + \gdef\@BTYPEoptthr@@{#1}% + \@ifnextchar(\setkormonoBTYPEE\setkormonoBTYPEF +} + +\def\setkormonoBTYPEE(#1)#2{% + \gdef\@BTYPEoptf@ur{#1}% + \s@tk@rm@n@f@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@][\@BTYPEoptf@ur]{#2}% +} + +\def\setkormonoBTYPEF#1{% + \s@tk@rm@n@f@nt[\@BTYPEopt@ne][\@BTYPEopttw@]{\@BTYPEarg@ne}% + [\@BTYPEoptthr@@]{#1}% +} + +\def\setkormonoCTYPE*{ + \@ifnextchar(\setkormonoCTYPEALPHA\setkormonoCTYPEBETA +} + +\def\setkormonoCTYPEBETA#1{% + \s@tk@rm@n@f@nt*{#1}% +} + +\def\setkormonoCTYPEALPHA(#1){% + \gdef\@CTYPEopt@ne{#1}% + \@ifnextchar(\setkormonoCTYPEA\setkormonoCTYPEB +} + +\def\setkormonoCTYPEA(#1)#2{% + \gdef\@CTYPEopttw@{#1}% + \gdef\@CTYPEarg@ne{#2}% + \@ifnextchar(\setkormonoCTYPEC\setkormonoCTYPED +} + +\def\setkormonoCTYPEB#1{% + \gdef\@CTYPEarg@ne{#1}% + \@ifnextchar(\setkormonoCTYPEBA\setkormonoCTYPEBB +} + +\def\setkormonoCTYPEBB{% + \s@tk@rm@n@f@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% +} + +\def\setkormonoCTYPEBA({% + \@ifnextchar)\setkormonoCTYPEBNO\setkormonoCTYPEBYES +} + +\def\setkormonoCTYPEBNO)#1{% + \s@tk@rm@n@f@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% + []{#1}% +} + +\def\setkormonoCTYPEBYES#1){% + \gdef\@CTYPEoptthr@@{#1}% + \@ifnextchar(\setkormonoCTYPEBE\setkormonoCTYPEBF +} + +\def\setkormonoCTYPEBE(#1)#2{% + \gdef\@CTYPEoptf@ur{#1}% + \s@tk@rm@n@f@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@][\@CTYPEoptf@ur]{#2}% +} + +\def\setkormonoCTYPEBF#1{% + \s@tk@rm@n@f@nt*[\@CTYPEopt@ne]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@]{#1}% +} + +\def\setkormonoCTYPEC({% + \@ifnextchar)\setkormonoCTYPECNO\setkormonoCTYPECYES +} + +\def\setkormonoCTYPED{% + \s@tk@rm@n@f@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% +} + +\def\setkormonoCTYPECNO)#1{% + \s@tk@rm@n@f@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% + []{#1}% +} + +\def\setkormonoCTYPECYES#1){% + \gdef\@CTYPEoptthr@@{#1}% + \@ifnextchar(\setkormonoCTYPEE\setkormonoCTYPEF +} + +\def\setkormonoCTYPEE(#1)#2{% + \gdef\@CTYPEoptf@ur{#1}% + \s@tk@rm@n@f@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@][\@CTYPEoptf@ur]{#2}% +} + +\def\setkormonoCTYPEF#1{% + \s@tk@rm@n@f@nt*[\@CTYPEopt@ne][\@CTYPEopttw@]{\@CTYPEarg@ne}% + [\@CTYPEoptthr@@]{#1}% +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\if@unfonts + \def\UnBatang{UnBatang} + \def\UnBatangBold{UnBatang-Bold} + \def\UnDotum{UnDotum} + \def\UnDotumBold{UnDotum-Bold} + \def\UnTaza{UnTaza} +\else +\if@nanumfonts + \setmainhangulfont{NanumMyeongjo} + \setsanshangulfont{NanumGothic} + \setmonohangulfont{NanumGothic} +\fi +\fi + +\def\s@tk@rm@inf@nt{% + \@ifnextchar*\s@setk@rmainf@nt\l@setk@rmainf@nt +} +\def\s@setk@rmainf@nt*{\SETKORMAINFONTEL} +\def\l@setk@rmainf@nt{\SETKORMAINFONT} + +\def\NOEXTSETKORMAINFONT{% + \let\hnjmainfont\kormainfont +} + +\def\RESstar{*} + +\newcommandtwoopt{\SETKORMAINFONTEL}[3][][]{% + \def\XKOV@externallocation{ExternalLocation}% + \@korfnt@externaltrue + \def\XKOV@kormain@regular{#3}% + \def\XKOV@kormain@bold{#1}% + \ifx#2\RESstar + \def\XKOV@kormain@italic{#3}% + \else + \def\XKOV@kormain@italic{#2}% + \fi + \def\XKOV@kormain@bolditalic{#2}% + \CallKorFont{main}% + \@korfnt@externaltrue + \@ifnextchar[\EXTSETKORMAINFONTEL\NOEXTSETKORMAINFONT +} + +\newcommandtwoopt{\EXTSETKORMAINFONTEL}[3][][]{% + \def\XKOV@externallocation{ExternalLocation}% + \@korfnt@externaltrue + \def\XKOV@hnjmain@regular{#3}% + \def\XKOV@hnjmain@bold{#1}% + \ifx#2\RESstar + \def\XKOV@hnjmain@italic{#3}% + \else + \def\XKOV@hnjmain@italic{#2}% + \fi + \def\XKOV@hnjmain@bolditalic{#2}% + \CallHnjFont{main}% + \@XKOV@extendcommandfalse +} + +\newcommandtwoopt{\SETKORMAINFONT}[3][][]{% + \def\XKOV@externallocation{}% + \@korfnt@externalfalse + \def\XKOV@kormain@regular{#3}% + \def\XKOV@kormain@bold{#1}% + \ifx#2\RESstar + \def\XKOV@kormain@italic{#3}% + \else + \def\XKOV@kormain@italic{#2}% + \fi + \def\XKOV@kormain@bolditalic{#2}% + \CallKorFont{main}% + \@korfnt@externaltrue + \@ifnextchar[\EXTSETKORMAINFONT\NOEXTSETKORMAINFONT +} + +\newcommandtwoopt{\EXTSETKORMAINFONT}[3][][]{% + \def\XKOV@externallocation{}% + \@korfnt@externalfalse + \def\XKOV@hnjmain@regular{#3}% + \def\XKOV@hnjmain@bold{#1}% + \ifx#2\RESstar + \def\XKOV@hnjmain@italic{#3}% + \else + \def\XKOV@hnjmain@italic{#2}% + \fi + \def\XKOV@hnjmain@bolditalic{#2}% + \CallHnjFont{main}% + \@XKOV@extendcommandfalse +} + +%%%%%%%%%%%%%%%%%%%%%%% sans + +\def\s@tk@rs@nsf@nt{% + \@ifnextchar*\s@setk@rsansf@nt\l@setk@rsansf@nt +} +\def\s@setk@rsansf@nt*{\SETKORSANSFONTEL} +\def\l@setk@rsansf@nt{\SETKORSANSFONT} + +\newcommandtwoopt{\SETKORSANSFONTEL}[3][][]{% + \def\XKOV@externallocation{ExternalLocation}% + \@korfnt@externaltrue + \def\XKOV@korsans@regular{#3}% + \def\XKOV@korsans@bold{#1}% + \ifx#2\RESstar + \def\XKOV@korsans@italic{#3}% + \else + \def\XKOV@korsans@italic{#2}% + \fi + \def\XKOV@korsans@bolditalic{#2}% + \CallKorFont{sans}% + \@korfnt@externaltrue + \@ifnextchar[\EXTSETKORSANSFONTEL\NOEXTSETKORSANSFONT +} + +\newcommandtwoopt{\EXTSETKORSANSFONTEL}[3][][]{% + \def\XKOV@externallocation{ExternalLocation}% + \@korfnt@externaltrue + \def\XKOV@hnjsans@regular{#3}% + \def\XKOV@hnjsans@bold{#1}% + \ifx#2\RESstar + \def\XKOV@hnjsans@italic{#3}% + \else + \def\XKOV@hnjsans@italic{#2}% + \fi + \def\XKOV@hnjsans@bolditalic{#2}% + \CallHnjFont{sans}% + \@XKOV@extendcommandfalse +} + +\newcommandtwoopt{\SETKORSANSFONT}[3][][]{% + \def\XKOV@externallocation{}% + \@korfnt@externalfalse + \def\XKOV@korsans@regular{#3}% + \def\XKOV@korsans@bold{#1}% + \ifx#2\RESstar + \def\XKOV@korsans@italic{#3}% + \else + \def\XKOV@korsans@italic{#2}% + \fi + \def\XKOV@korsans@bolditalic{#2}% + \CallKorFont{sans}% + \@korfnt@externaltrue + \@ifnextchar[\EXTSETKORSANSFONT\NOEXTSETKORSANSFONT +} + +\newcommandtwoopt{\EXTSETKORSANSFONT}[3][][]{% + \def\XKOV@externallocation{}% + \@korfnt@externalfalse + \def\XKOV@hnjsans@regular{#3}% + \def\XKOV@hnjsans@bold{#1}% + \ifx#2\RESstar + \def\XKOV@hnjsans@italic{#3}% + \else + \def\XKOV@hnjsans@italic{#2}% + \fi + \def\XKOV@hnjsans@bolditalic{#2}% + \CallHnjFont{sans}% + \@XKOV@extendcommandfalse +} + +\def\NOEXTSETKORSANSFONT{% + \let\hnjsansfont\korsansfont +} + +%%%%%%%%%%%%%%%%%%%%%%% mono + +\def\s@tk@rm@n@f@nt{% + \@ifnextchar*\s@setk@rmonof@nt\l@setk@rmonof@nt +} +\def\s@setk@rmonof@nt*{\SETKORMONOFONTEL} +\def\l@setk@rmonof@nt{\SETKORMONOFONT} + +\newcommandtwoopt{\SETKORMONOFONTEL}[3][][]{% + \def\XKOV@externallocation{ExternalLocation}% + \@korfnt@externaltrue + \def\XKOV@kormono@regular{#3}% + \def\XKOV@kormono@bold{#1}% + \def\XKOV@kormono@italic{#2}% + \def\XKOV@kormono@bolditalic{#2}% + \CallKorFontmono% + \@korfnt@externaltrue + \@ifnextchar[\EXTSETKORMONOFONTEL\NOEXTSETKORMONOFONT +} + +\newcommandtwoopt{\EXTSETKORMONOFONTEL}[3][][]{% + \setmonoscale{1.0}% + \def\XKOV@externallocation{ExternalLocation}% + \@korfnt@externaltrue + \def\XKOV@hnjmono@regular{#3}% + \def\XKOV@hnjmono@bold{#1}% + \def\XKOV@hnjmono@italic{#2}% + \def\XKOV@hnjmono@bolditalic{#2}% + \CallHnjFontmono% + \@XKOV@extendcommandfalse +} + +\newcommandtwoopt{\SETKORMONOFONT}[3][][]{% + \def\XKOV@externallocation{}% + \@korfnt@externalfalse + \def\XKOV@kormono@regular{#3}% + \def\XKOV@kormono@bold{#1}% + \def\XKOV@kormono@italic{#2}% + \def\XKOV@kormono@bolditalic{#2}% + \CallKorFontmono% + \@korfnt@externaltrue + \@ifnextchar[\EXTSETKORMONOFONT\NOEXTSETKORMONOFONT +} + +\newcommandtwoopt{\EXTSETKORMONOFONT}[3][][]{% + \setmonoscale{1.0}% + \def\XKOV@externallocation{}% + \@korfnt@externalfalse + \def\XKOV@hnjmono@regular{#3}% + \def\XKOV@hnjmono@bold{#1}% + \def\XKOV@hnjmono@italic{#2}% + \def\XKOV@hnjmono@bolditalic{#2}% + \CallHnjFontmono% + \@XKOV@extendcommandfalse +} + +\def\NOEXTSETKORMONOFONT{% + \let\hnjmonofont\korsansfont +} + +%% dummy call +\def\SetDefaultKorFonts{% +\if@unfonts +\if@korfnt@external + \ifx\XKOV@kormain@regular\undefined\def\XKOV@kormain@regular{UnBatang}\fi + \ifx\XKOV@kormain@bold\undefined\def\XKOV@kormain@bold{UnBatangBold}\fi + \ifx\XKOV@kormain@italic\undefined\def\XKOV@kormain@italic{UnBatang}\fi + \ifx\XKOV@kormain@bolditalic\undefined\def\XKOV@kormain@bolditalic{UnBatangBold}\fi + \ifx\XKOV@korsans@regular\undefined\def\XKOV@korsans@regular{UnDotum}\fi + \ifx\XKOV@korsans@bold\undefined\def\XKOV@korsans@bold{UnDotumBold}\fi + \ifx\XKOV@korsans@italic\undefined\def\XKOV@korsans@italic{UnDotum}\fi + \ifx\XKOV@korsans@bolditalic\undefined\def\XKOV@korsans@bolditalic{UnDotumBold}\fi + \ifx\XKOV@kormono@regular\undefined\def\XKOV@kormono@regular{UnTaza}\fi + \ifx\XKOV@kormono@bold\undefined\def\XKOV@kormono@bold{UnTaza}\fi + \ifx\XKOV@kormono@italic\undefined\def\XKOV@kormono@italic{UnTaza}\fi + \ifx\XKOV@kormono@bolditalic\undefined\def\XKOV@kormono@bolditalic{UnTaza}\fi +\else + \ifx\XKOV@kormain@regular\undefined\def\XKOV@kormain@regular{\UnBatang}\fi + \ifx\XKOV@kormain@bold\undefined\def\XKOV@kormain@bold{\UnBatangBold}\fi + \ifx\XKOV@kormain@italic\undefined\def\XKOV@kormain@italic{\UnBatang}\fi + \ifx\XKOV@kormain@bolditalic\undefined\def\XKOV@kormain@bolditalic{\UnBatangBold}\fi + \ifx\XKOV@korsans@regular\undefined\def\XKOV@korsans@regular{\UnDotum}\fi + \ifx\XKOV@korsans@bold\undefined\def\XKOV@korsans@bold{\UnDotumBold}\fi + \ifx\XKOV@korsans@italic\undefined\def\XKOV@korsans@italic{\UnDotum}\fi + \ifx\XKOV@korsans@bolditalic\undefined\def\XKOV@korsans@bolditalic{\UnDotumBold}\fi + \ifx\XKOV@kormono@regular\undefined\def\XKOV@kormono@regular{\UnTaza}\fi + \ifx\XKOV@kormono@bold\undefined\def\XKOV@kormono@bold{\UnTaza}\fi + \ifx\XKOV@kormono@italic\undefined\def\XKOV@kormono@italic{\UnTaza}\fi + \ifx\XKOV@kormono@bolditalic\undefined\def\XKOV@kormono@bolditalic{\UnTaza}\fi +\fi +\else\fi +} + +%%% dummy declaration, to avoid errors! +\if@unfonts +\s@tk@rm@inf@nt*{UnBatang} +\s@tk@rs@nsf@nt*{UnDotum} +\s@tk@rm@n@f@nt*{UnTaza} +\CallHnjDefault +\else +%\input TnX-xob-default.tex +\fi + +\AtBeginDocument{ + \ifx\XKOV@externallocation\undefined\def\XKOV@externallocation{ExternalLocation}\@korfnt@externaltrue\fi +%% \SetDefaultKorFonts +%% \CallKorFont{main}% +%% \CallKorFont{sans}% +%% \CallKorFontmono +} + +\endinput + +%%% 2013-09-27 : nounfonts set to default. +%%% 2012-12-31 : [unfonts], [nounfonts] +%%% 오전 1:21 2008-10-13 : xetexko-xobfont 작성 +%%% 오전 12:12 2008-11-09 : \setkor...font 명령 재작성 +%%% 오후 17:59 2008-12-02 : nowinname 옵션 추가 +%%% 오후 22:05 2008-12-02 : Italic 옵션에 (*) 추가 +%%% 오전 04:04 2008-12-08 : \XKOV@XP +%%% 오전 1:18 2009-08-25 : sans/mono bug fixed (thanks to DH Kim and YW Kim) +%%% 오전 12:22 2009-10-13 : 따옴표 설정을 xetexko에게. diff --git a/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-amssymb.sty b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-amssymb.sty new file mode 100644 index 00000000000..9d9578b44d2 --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-amssymb.sty @@ -0,0 +1,27 @@ +%% xob-amssymb.sty +%% +%% Copyright (c) 2007-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. +%% +%% disable a few commands +%% +\def\DisablePreAmsCmds#1{% + \expandafter\ifx\csname #1\endcsname\undefined\else + \expandafter\let\csname #1\endcsname\relax\fi +} +\DisablePreAmsCmds{Finv} +\DisablePreAmsCmds{Game} +\DisablePreAmsCmds{beth} +\DisablePreAmsCmds{gimel} +\DisablePreAmsCmds{daleth} +% +\RequirePackage{amssymb} +% +\endinput diff --git a/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-dotemph.sty b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-dotemph.sty new file mode 100644 index 00000000000..ad4d1ca9960 --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-dotemph.sty @@ -0,0 +1,51 @@ +%% xob-dotemph.sty +%% +%% Copyright (c) 2007-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. +%% +%% xob-dotemph +%% 2010-03-18 +%% 오전 9:01 2008-10-22 +%% xetexko-dotemph의 확장 +%% dhucs/hangul compatible (\dotemph, \circemph, \useremph) +%% ---------- +%% \useremph is different from xetexko's \useremph *** +%% +%% Updated for xetexko v2.1 +%% Kihwang Lee <leekh at ktug.org> +%% 2013.08.26 +%% +%%% from dhucs.sty +\def\circemph#1{\begingroup\def\dotemphchar{^^^^02da}\dotemph{#1}\endgroup} +\def\dhucs@useremph#1{\begingroup + \let\dotemphchar\useremphchar + \let\dotemphraise\useremphraisedim + \dotemph{#1}\endgroup} + +\def\useremph{% + \@ifnextchar[\@user@emph{% + \@ifnextchar*\@orig@useremph\@@user@emph}% +} + +\def\@orig@useremph*#1{\dhucs@useremph{#1}} + +\def\@user@emph[#1]#2#3{% + \def\useremphchar{#2}% + \def\useremphraisedim{#1}% + \dhucs@useremph{#3}% +} + +\def\@@user@emph#1#2{% + \def\useremphchar{#1}% + \def\useremphraisedim{6pt}% + \dhucs@useremph{#2}% +} + +\endinput diff --git a/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-hyper.sty b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-hyper.sty new file mode 100644 index 00000000000..154e8d3544d --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-hyper.sty @@ -0,0 +1,74 @@ +%% xob-hyper.sty +%% +%% Copyright (c) 2013 Kihwang Lee <leekh 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. +%% +%% Created for xetexko v2.1 +%% 2013.08.26 +%% +\AtBeginDocument{ + % for ulem package + \ifcsname UL@hook\endcsname \xetexkoulemsupport \fi + % for hyperref package + \@ifpackageloaded{hyperref}{\pdfstringdefDisableCommands{% + \let\dotemph\@firstofone + \let\makejosa\@secondoftwo + \let\jong\relax + \let\jung\relax + \let\rieul\relax + \let\latinalphs\relax + \let\hangulalphs\relax + \let\hanjaalphs\relax + \let\prevfontalphs\relax + \let\latinnums\relax + \let\hangulnums\relax + \let\hanjanums\relax + \let\prevfontnums\relax + \let\latinparens\relax + \let\hangulparens\relax + \let\hanjaparens\relax + \let\prevfontparens\relax + \let\latinquotes\relax + \let\hangulquotes\relax + \let\hanjaquotes\relax + \let\prevfontquotes\relax + \let\latinpuncts\relax + \let\hangulpuncts\relax + \let\hanjapuncts\relax + \let\prevfontpuncts\relax + \let\latinmarks\relax + \let\hangulmarks\relax + \let\hanjamarks\relax + \let\prevfontmarks\relax + \let\latincolons\relax + \let\hangulcolons\relax + \let\hanjacolons\relax + \let\prevfontcolons\relax + \let\latinhyphens\relax + \let\hangulhyphens\relax + \let\hanjahyphens\relax + \let\prevfonthyphens\relax + \let\latincjksymbols\relax + \let\hangulcjksymbols\relax + \let\hanjacjksymbols\relax + \let\prevfontcjksymbols\relax + \let\disablekoreanfonts\relax + \let\disablehangulspacing\relax + \let\disablehangulspacingandlinebreak\relax + \let\disableautojosa\relax + \let\disablecjksymbolspacing\relax + \let\japanese\relax + \let\chinese\relax + \let\Tchinese\relax + \let\Schinese\relax + }}{} +} + +\endinput diff --git a/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-paralist.sty b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-paralist.sty new file mode 100644 index 00000000000..d090882ab20 --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-oblivoir/memhangul-x/xob-paralist.sty @@ -0,0 +1,46 @@ +%% xob-paralist.sty +%% +%% Copyright (c) 2007-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. +%% +%% paralist, +%% +\@ifpackageloaded{paralist}{}{\RequirePackage{paralist}} +\makeatletter +\def\pl@loop@{% + \ifx 가\pl@temp \def\@tempa{\pl@label\gana }\else + \ifx ㈎\pl@temp \def\@tempa{\pl@label\pgana }\else + \ifx ㉮\pl@temp \def\@tempa{\pl@label\ogana }\else + \ifx ㄱ\pl@temp \def\@tempa{\pl@label\jaso }\else + \ifx ㈀\pl@temp \def\@tempa{\pl@label\pjaso }\else + \ifx ㉠\pl@temp \def\@tempa{\pl@label\ojaso }\else + \ifx ⑴\pl@temp \def\@tempa{\pl@label\pnum }\else + \ifx ①\pl@temp \def\@tempa{\pl@label\onum }\else + \ifx ⒜\pl@temp \def\@tempa{\pl@label\peng }\else + \ifx ⓐ\pl@temp \def\@tempa{\pl@label\oeng }\else + \ifx ⅰ\pl@temp \def\@tempa{\pl@label\hroman}\else + \ifx Ⅰ\pl@temp \def\@tempa{\pl@label\hRoman}\else +%%%%%%%%%%%%%%%%%%%%%%%%%% + \ifx A\pl@temp \def\@tempa{\pl@label\Alph }\else + \ifx a\pl@temp \def\@tempa{\pl@label\alph }\else + \ifx i\pl@temp \def\@tempa{\pl@label\roman }\else + \ifx I\pl@temp \def\@tempa{\pl@label\Roman }\else + \ifx 1\pl@temp \def\@tempa{\pl@label\arabic}\else + \ifx \@sptoken\pl@temp \let\@tempa\pl@space \else + \ifx \bgroup\pl@temp \let\@tempa\pl@group \else + \ifx \@@@\pl@temp \let\@tempa\@gobble \else + \let\@tempa\pl@other + \pl@hook + \fi\fi\fi\fi\fi\fi\fi\fi + \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi + \@tempa} +\makeatother + +\endinput |