% xetexko.sty
%
% Copyright (c) 2013-2024 Dohyun Kim <nomos at ktug org>
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3c
% of this license or (at your option) any later version.
% The latest version of this license is in
% http://www.latex-project.org/lppl.txt
% and version 1.3c or later is part of all distributions of LaTeX
% version 2006/05/20 or later.
\ifdefined\XeKocatcodeofATchar\endinput\fi
\edef\XeKocatcodeofATchar{\catcode`@=\the\catcode`@\relax}
\catcode`@=11
\ifdefined\ProvidesPackage
\NeedsTeXFormat{LaTeX2e}[2021/11/15]
\ProvidesPackage{xetexko}[2024/03/01 v4.3 typesetting Korean with XeTeX]
\else
\ifdefined\@tempcnta\else \newcount\@tempcnta \fi
\ifdefined\@sptoken \else
\begingroup\def\:{\global\let\@sptoken= } \: \endgroup
\fi
\fi
\chardef\XeTeXcharclassBoundary=4095
\chardef\XeTeXcharclassIgnore =4096
\newXeTeXintercharclass\XeTeXcharclassID
\newXeTeXintercharclass\XeTeXcharclassCJ
\newXeTeXintercharclass\XeTeXcharclassOP
\newXeTeXintercharclass\XeTeXcharclassCL
\newXeTeXintercharclass\XeTeXcharclassEX
\let\XeTeXcharclassIS\XeTeXcharclassCJ
\let\XeTeXcharclassNS\XeTeXcharclassCJ
\newXeTeXintercharclass\XeTeXcharclassCM
\input load-unicode-xetex-classes %
\newXeTeXintercharclass\XeTeXcharclassHG
\newXeTeXintercharclass\XeTeXcharclassJJ % hangul MV and TC
\newXeTeXintercharclass\XeTeXcharclassMD % ��� ��� ���
\newXeTeXintercharclass\XeTeXcharclassFS % ��� ���
\newXeTeXintercharclass\XeTeXcharclassLD % ��� ��� ���
\newXeTeXintercharclass\XeTeXcharclassSY % KS symbols
\newXeTeXintercharclass\XeTeXcharclassAO % ascii ( `` etc
\newXeTeXintercharclass\XeTeXcharclassAC % ascii ) '' etc
\newXeTeXintercharclass\XeTeXcharclassAM % ascii colons
\newXeTeXintercharclass\XeTeXcharclassAH % ascii hyphen and its ligatures
\newXeTeXintercharclass\XeTeXcharclassAP % ascii punctuations
\newXeTeXintercharclass\XeTeXcharclassVC % colons in vertical writing
\let\XeTeXcharclassAA=\z@ % other non-cjk chars
% more CM
\count@"FE00 \loop
\XeTeXcharclass\count@=\XeTeXcharclassCM
\ifnum\count@<"FE0F \advance\count@\@ne \repeat
\count@"E0100 \loop
\XeTeXcharclass\count@=\XeTeXcharclassCM
\ifnum\count@<"E01EF \advance\count@\@ne \repeat
% hangul
\count@="AC00 \loop
\catcode\count@=12 % for josa
\XeTeXcharclass\count@=\XeTeXcharclassHG
\ifnum\count@<"D7A3 \advance\count@\@ne \repeat
\count@="1100 \loop
\XeTeXcharclass\count@=\XeTeXcharclassHG
\ifnum\count@<"115F \advance\count@\@ne \repeat
\count@="A960 \loop
\XeTeXcharclass\count@=\XeTeXcharclassHG
\ifnum\count@<"A97C \advance\count@\@ne \repeat
\count@="3131 \loop
\XeTeXcharclass\count@=\XeTeXcharclassHG
\ifnum\count@<"318E \advance\count@\@ne \repeat
% hangul MV and TC
\count@="1160 \loop
\XeTeXcharclass\count@=\XeTeXcharclassJJ
\ifnum\count@<"11FF \advance\count@\@ne \repeat
\count@="D7B0 \loop
\XeTeXcharclass\count@=\XeTeXcharclassJJ
\ifnum\count@<"D7FB \advance\count@\@ne \repeat
% ascii opening
\XeTeXcharclass "28=\XeTeXcharclassAO % ( LEFT PARENTHESIS
\XeTeXcharclass "3C=\XeTeXcharclassAO % < LESS-THAN SIGN
\XeTeXcharclass "5B=\XeTeXcharclassAO % [ LEFT SQUARE BRACKET
\XeTeXcharclass "60=\XeTeXcharclassAO % ` GRAVE ACCENT
\XeTeXcharclass "7B=\XeTeXcharclassAO % { LEFT CURLY BRACKET
\XeTeXcharclass "AB=\XeTeXcharclassAO % �� LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
% ascii closing
\XeTeXcharclass "27=\XeTeXcharclassAC % ' APOSTROPHE
\XeTeXcharclass "29=\XeTeXcharclassAC % ) RIGHT PARENTHESIS
\XeTeXcharclass "3E=\XeTeXcharclassAC % > GREATER-THAN SIGN
\XeTeXcharclass "5D=\XeTeXcharclassAC % ] RIGHT SQUARE BRACKET
\XeTeXcharclass "7D=\XeTeXcharclassAC % } RIGHT CURLY BRACKET
\XeTeXcharclass "BB=\XeTeXcharclassAC % �� RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
% ascii colons
\XeTeXcharclass "3A=\XeTeXcharclassAM % : COLON
\XeTeXcharclass "3B=\XeTeXcharclassAM % ; SEMICOLON
\XeTeXcharclass "7E=\XeTeXcharclassAM % ~ TILDE
% ascii hyphen
\XeTeXcharclass "2D =\XeTeXcharclassAH % -
\XeTeXcharclass "2F =\XeTeXcharclassAH % /
\XeTeXcharclass "2013=\XeTeXcharclassAH % ���
\XeTeXcharclass "2014=\XeTeXcharclassAH % ���
% ascii punctuations
\XeTeXcharclass "21=\XeTeXcharclassAP % ! EXCLAMATION MARK
\XeTeXcharclass "2C=\XeTeXcharclassAP % , COMMA
\XeTeXcharclass "2E=\XeTeXcharclassAP % . FULL STOP
\XeTeXcharclass "3F=\XeTeXcharclassAP % ? QUESTION MARK
%
\XeTeXcharclass "2018=\XeTeXcharclassOP % ��� LEFT SINGLE QUOTATION MARK
\XeTeXcharclass "201C=\XeTeXcharclassOP % ��� LEFT DOUBLE QUOTATION MARK
%
\XeTeXcharclass "2019=\XeTeXcharclassCL % ��� RIGHT SINGLE QUOTATION MARK
\XeTeXcharclass "201D=\XeTeXcharclassCL % ��� RIGHT DOUBLE QUOTATION MARK
% IS : these are not expected to be input
\XeTeXcharclass "FE10=\XeTeXcharclassCL % ��� PRESENTATION FORM FOR VERTICAL COMMA
\XeTeXcharclass "FE13=\XeTeXcharclassVC % ��� PRESENTATION FORM FOR VERTICAL COLON
\XeTeXcharclass "FE14=\XeTeXcharclassVC % ��� PRESENTATION FORM FOR VERTICAL SEMICOLON
% NS
\XeTeXcharclass "00B7=\XeTeXcharclassMD % �� MIDDLE DOT
\XeTeXcharclass "30FB=\XeTeXcharclassMD % ��� KATAKANA MIDDLE DOT
\XeTeXcharclass "FE54=\XeTeXcharclassMD % ��� SMALL SEMICOLON
\XeTeXcharclass "FE55=\XeTeXcharclassMD % ��� SMALL COLON
\XeTeXcharclass "FF1A=\XeTeXcharclassMD % ��� FULLWIDTH COLON
\XeTeXcharclass "FF1B=\XeTeXcharclassMD % ��� FULLWIDTH SEMICOLON
\XeTeXcharclass "FF65=\XeTeXcharclassMD % ��� HALFWIDTH KATAKANA MIDDLE DOT
%
\XeTeXcharclass "3002=\XeTeXcharclassFS % ��� IDEOGRAPHIC FULL STOP
\XeTeXcharclass "FE12=\XeTeXcharclassFS % ��� PRESENTATION FORM FOR VERTICAL IDEOGRAPHIC FULL STOP
\XeTeXcharclass "FE52=\XeTeXcharclassFS % ��� SMALL FULL STOP
\XeTeXcharclass "FF0E=\XeTeXcharclassFS % ��� FULLWIDTH FULL STOP
\XeTeXcharclass "FF61=\XeTeXcharclassFS % ��� HALFWIDTH IDEOGRAPHIC FULL STOP
%
\XeTeXcharclass "2015=\XeTeXcharclassLD % ��� HORIZONTAL BAR
\XeTeXcharclass "2025=\XeTeXcharclassLD % ��� TWO DOT LEADER
\XeTeXcharclass "2026=\XeTeXcharclassLD % ��� HORIZONTAL ELLIPSIS
\XeTeXcharclass "3003=\XeTeXcharclassLD % ��� DITTO MARK : KS symbol
% ������������
\XeTeXcharclass "25A1=\XeTeXcharclassID % ���
% some KS symbols
\XeTeXcharclass "2032=\XeTeXcharclassSY % ���
\XeTeXcharclass "2033=\XeTeXcharclassSY % ���
\XeTeXcharclass "203B=\XeTeXcharclassSY % ���
\XeTeXcharclass "2103=\XeTeXcharclassSY % ���
\XeTeXcharclass "2109=\XeTeXcharclassSY % ���
\XeTeXcharclass "2113=\XeTeXcharclassSY % ���
\XeTeXcharclass "2121=\XeTeXcharclassSY % ���
\count@="2160 \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"2169 \advance\count@\@ne \repeat
\count@="2170 \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"2179 \advance\count@\@ne \repeat
\count@="2190 \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"2199 \advance\count@\@ne \repeat
\XeTeXcharclass "21D2=\XeTeXcharclassSY % ���
\XeTeXcharclass "21D4=\XeTeXcharclassSY % ���
\XeTeXcharclass "2225=\XeTeXcharclassSY % ���
\XeTeXcharclass "223C=\XeTeXcharclassSY % ��� TILDE OPERATOR
\XeTeXcharclass "226A=\XeTeXcharclassSY % ��� ������ ������! ��������� ������������ ������?
\XeTeXcharclass "226B=\XeTeXcharclassSY % ��� ������ ������! ��������� ������������ ������?
\XeTeXcharclass "2299=\XeTeXcharclassSY % ���
\count@="2460 \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"246E \advance\count@\@ne \repeat
\count@="2474 \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"2482 \advance\count@\@ne \repeat
\count@="249C \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"24B5 \advance\count@\@ne \repeat
\count@="24D0 \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"24E9 \advance\count@\@ne \repeat
\XeTeXcharclass "2500 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2501 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2502 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2503 = \XeTeXcharclassSY % ���
\count@="250C \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"254B \advance\count@\@ne \repeat
\XeTeXcharclass "2592 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25A0 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25A3 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25A4 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25A5 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25A6 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25A7 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25A8 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25A9 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25B2 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25B3 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25B6 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25B7 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25BC = \XeTeXcharclassSY % ���
\XeTeXcharclass "25BD = \XeTeXcharclassSY % ���
\XeTeXcharclass "25C0 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25C1 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25C6 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25C7 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25C8 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25CB = \XeTeXcharclassSY % ���
\XeTeXcharclass "25CE = \XeTeXcharclassSY % ���
\XeTeXcharclass "25CF = \XeTeXcharclassSY % ���
\XeTeXcharclass "25D0 = \XeTeXcharclassSY % ���
\XeTeXcharclass "25D1 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2605 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2606 = \XeTeXcharclassSY % ���
\XeTeXcharclass "260E = \XeTeXcharclassSY % ���
\XeTeXcharclass "260F = \XeTeXcharclassSY % ���
\XeTeXcharclass "261C = \XeTeXcharclassSY % ���
\XeTeXcharclass "261E = \XeTeXcharclassSY % ���
\XeTeXcharclass "2640 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2642 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2660 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2661 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2663 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2664 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2665 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2667 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2668 = \XeTeXcharclassSY % ���
\XeTeXcharclass "2669 = \XeTeXcharclassSY % ���
\XeTeXcharclass "266A = \XeTeXcharclassSY % ���
\XeTeXcharclass "266C = \XeTeXcharclassSY % ���
\XeTeXcharclass "266D = \XeTeXcharclassSY % ���
\XeTeXcharclass "3000 = \XeTeXcharclassSY % ���
\XeTeXcharclass "3013 = \XeTeXcharclassSY % ���
\count@="3200 \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"321E \advance\count@\@ne \repeat
\count@="3260 \loop % ���..���
\XeTeXcharclass\count@=\XeTeXcharclassSY
\ifnum\count@<"327F \advance\count@\@ne \repeat
\XeTeXcharclass "33C2 = \XeTeXcharclassSY % ���
\XeTeXcharclass "33C7 = \XeTeXcharclassSY % ���
\XeTeXcharclass "33D8 = \XeTeXcharclassSY % ���
\XeTeXcharclass "FF04 = \XeTeXcharclassSY % ���
\XeTeXcharclass "FF05 = \XeTeXcharclassSY % ���
\XeTeXcharclass "FF3C = \XeTeXcharclassSY % ���
\XeTeXcharclass "FF5E = \XeTeXcharclassSY % ��� FULLWIDTH TILDE : KS symbol
\XeTeXcharclass "FFE0 = \XeTeXcharclassSY % ���
\XeTeXcharclass "FFE1 = \XeTeXcharclassSY % ���
\XeTeXcharclass "FFE5 = \XeTeXcharclassSY % ���
\XeTeXcharclass "FFE6 = \XeTeXcharclassSY % ���
% spaces
\def\XeKo@halfzero {\hskip 2\XeKo@quarterdim \relax}
\def\XeKo@halfhalf {\hskip 2\XeKo@quarterdim minus 2\XeKo@quarterdim \relax}
\def\XeKo@halfquarter {\hskip 2\XeKo@quarterdim minus \XeKo@quarterdim \relax}
\def\XeKo@quarterquarter {\hskip \XeKo@quarterdim minus \XeKo@quarterdim \relax}
\def\XeKo@iiiquarterquarter{\hskip 3\XeKo@quarterdim minus \XeKo@quarterdim \relax}
\let\XeKo@nobreak\nobreak
\def\XKinterhangulbreak{% compat
\ifnum\XeKo@typesetclassic=\z@
\penalty\XeTeXlinebreakpenalty
\fi
\hskip
\ifdefined\xetexkointerhchar \xetexkointerhchar \else \z@ \fi
\XeKo@stretchshrink
}
\def\XKinterhanjabreak{% compat
\ifnum\XeKo@typesetclassic=\z@
\penalty\XeTeXlinebreakpenalty
\fi
\hskip\z@ \XeKo@stretchshrink
}
\def\XeKo@latincjk@classic{%
\hskip
\ifdefined\xetexkohu
\xetexkohu plus .5\dimexpr\xetexkohu\relax minus.25\dimexpr\xetexkohu\relax
\else
\XeKo@quarterdim plus .5\XeKo@quarterdim minus.25\XeKo@quarterdim
\fi
\relax
}
\def\XeKo@latincjk@modern{%
\hskip \ifdefined\xetexkohu \xetexkohu \else \XeKo@quarterdim \fi
\XeKo@stretchshrink
}
\def\XeKo@postmath@modern{%
\hskip 2\ifdefined\xetexkohu \dimexpr\xetexkohu\relax \else \XeKo@quarterdim \fi
\XeKo@stretchshrink
}
% ������������ ������. verbatim ��������� ��� ��������� ������ ������
\def\XeKo@suppress@linebreak{%
\ifnum\lastnodetype=11 % glue node
\XeKo@skip@=\lastskip \unskip
\XeKo@count@=\lastpenalty \unpenalty
\ifnum\XeKo@count@<5000 \XeKo@count@=5000 \fi
\penalty\XeKo@count@
\hskip\XeKo@skip@
\fi
}
\protected\def\inhibitglue{\hskip\z@\XeKo@stretchshrink}
% typesetting modes
\protected\def\typesetclassic{%
\chardef\XeKo@typesetclassic\@ne
\def\XeKo@quarterdim{\dimexpr.25em\relax}%
\def\XeKo@stretchshrink{plus.08em minus.04em\relax}%
\let\XeKo@latincjk\XeKo@latincjk@classic
\let\XeKo@postmath\XeKo@latincjk@classic
\XeTeXlinebreakpenalty=\z@
\XeTeXlinebreakskip=\z@ \XeKo@stretchshrink
\parindent=1em
}
\protected\def\typesetmodern{%
\chardef\XeKo@typesetclassic\z@
\def\XeKo@quarterdim{\dimexpr.05em\relax}%
\def\XeKo@stretchshrink{plus.04em minus.02em\relax}%
\let\XeKo@latincjk\XeKo@latincjk@modern
\let\XeKo@postmath\XeKo@postmath@modern
\XeTeXlinebreakpenalty=50
\XeTeXlinebreakskip=\z@ \XeKo@stretchshrink
}
\typesetmodern
\chardef\XeKo@typesetvertical\z@
\chardef\XeKo@STchineseJapanese\z@ % 0=KOR, 1=SC, 2=TC, 3=JPN
\protected\def\japanese{%
\typesetclassic
\chardef\XeKo@STchineseJapanese\thr@@
\XeTeXcharclass "FF1A = \XeTeXcharclassMD % ��� both horizontal and vertical glyphs
}
\protected\def\Tchinese{%
\typesetclassic
\chardef\XeKo@STchineseJapanese\tw@
\XeKo@Tchinese@classes
\parindent=2em
}
\protected\def\Schinese{%
\typesetclassic
\chardef\XeKo@STchineseJapanese\@ne
\ifnum\XeKo@typesetvertical=\@ne
\XeKo@Schinese@vertical
\else
\XeKo@Schinese@horizontal
\fi
\parindent=2em
}
\let\chinese\Schinese
\def\XeKo@Schinese@horizontal{% these glyphs in simplified chinese fonts are left-aligned.
\XeTeXcharclass "FF01 = \XeTeXcharclassFS % ���
\XeTeXcharclass "FF1A = \XeTeXcharclassCL % ���
\XeTeXcharclass "FF1B = \XeTeXcharclassCL % ���
\XeTeXcharclass "FF1F = \XeTeXcharclassFS % ���
}
\def\XeKo@Schinese@vertical{%
\XeTeXcharclass "FF01 = \XeTeXcharclassEX % ���
\XeTeXcharclass "FF1A = \XeTeXcharclassVC % ���
\XeTeXcharclass "FF1B = \XeTeXcharclassVC % ���
\XeTeXcharclass "FF1F = \XeTeXcharclassEX % ���
}
\def\XeKo@Tchinese@classes{% these glyphs in traditional chinese fonts are center-aligned
\XeTeXcharclass "3001 = \XeTeXcharclassMD % ���
\XeTeXcharclass "3002 = \XeTeXcharclassLD % ���
\XeTeXcharclass "FF0C = \XeTeXcharclassMD % ���
\XeTeXcharclass "FF0E = \XeTeXcharclassLD % ���
}
\protected\def\typesetvertical{%
\chardef\XeKo@typesetvertical\@ne
\XeTeXcharclass "FF1A = \XeTeXcharclassVC % ���
\XeTeXcharclass "FF1B = \XeTeXcharclassVC % ���
\ifcase\XeKo@STchineseJapanese
\parindent=1em
\or \XeKo@Schinese@vertical
\or \XeKo@Tchinese@classes
\or \XeTeXcharclass "FF1A = \XeTeXcharclassMD % ���
\fi
}
\protected\def\typesethorizontal{%
\chardef\XeKo@typesetvertical\z@
\XeTeXcharclass "FF1A = \XeTeXcharclassMD % ���
\XeTeXcharclass "FF1B = \XeTeXcharclassMD % ���
\ifcase\XeKo@STchineseJapanese
\or \XeKo@Schinese@horizontal
\or \XeKo@Tchinese@classes
\fi
\parindent\z@
}
\protected\def\vertical#1{%
\leavevmode
\ifx\empty#1\empty
\setbox\z@\hbox\bgroup
\else
\setbox\z@\vbox\bgroup \hsize#1\relax
\fi
\typesetvertical
}
\protected\def\endvertical{%
\ifinner\else \par\fi
\egroup
\XeKo@rotatebox\z@
\box\z@
}
\protected\def\horizontal#1{%
\leavevmode
\ifx\empty#1\empty
\setbox\z@\hbox\bgroup
\else
\setbox\z@\vbox\bgroup \hsize#1\relax
\fi
\typesethorizontal
}
\protected\def\endhorizontal{%
\ifinner\else \par\fi
\egroup
\XeKo@unrotatebox\z@
\ifdefined\xetexkocharraise \raise\xetexkocharraise \fi
\box\z@
}
\def\XeKo@rotatebox#1{%
\dimen@\dimexpr\ht#1+\dp#1\relax
\setbox#1\hbox to\dimen@\bgroup
\hfil
\vbox to\wd#1\bgroup
\wd#1\z@
\special{x:gsave}\relax
\special{x:rotate -90}\relax
\box#1\relax
\kern-\dimen@
\special{x:grestore}\relax
\vfil
\egroup
\kern-.5ex
\egroup
}
\def\XeKo@unrotatebox#1{%
\dimen@\dimexpr\ht#1+\dp#1\relax
\setbox#1\hbox to\dimen@\bgroup
\lower.5\wd#1\vbox to\wd#1\bgroup
\vfil
\wd#1\z@
\special{x:gsave}\relax
\special{x:rotate 90}\relax
\box#1\relax
\kern-\dimen@
\special{x:grestore}\relax
\egroup
\hfil
\egroup
}
\protected\def\vertlatin#1{\leavevmode\lower.5ex\hbox{\latinmarks #1}} % compat
% fonts
\def\XeKo@reset@options{%
\let\xetexkohu \XeKo@undefined
\let\xetexkocharraise \XeKo@undefined
\let\xetexkointerhchar\XeKo@undefined
}
\expandafter\let\expandafter\XeKo@latin@font\the\font
\def\XeKo@font@Hangul{%
\expandafter\ifx\the\font\XeKo@raw@hangul@font \else
\expandafter\ifx\the\font\XeKo@raw@hanja@font \else
\expandafter\let\expandafter\XeKo@latin@font\the\font
\fi\fi
\ifdefined\XeKo@hangul@font
\XeKo@reset@options
\XeKo@hangul@font
\expandafter\let\expandafter\XeKo@raw@hangul@font\the\font
\fi
}
\def\XeKo@font@CJK{%
\expandafter\ifx\the\font\XeKo@raw@hangul@font \else
\expandafter\ifx\the\font\XeKo@raw@hanja@font \else
\expandafter\let\expandafter\XeKo@latin@font\the\font
\fi\fi
\ifdefined\XeKo@hanja@font
\XeKo@reset@options
\XeKo@hanja@font
\expandafter\let\expandafter\XeKo@raw@hanja@font\the\font
\fi
}
\def\XeKo@font@Latin{%
\expandafter\ifx\the\font\XeKo@raw@hangul@font
\XeKo@latin@font
\else \expandafter\ifx\the\font\XeKo@raw@hanja@font
\XeKo@latin@font
\fi\fi
}
\let\XeKo@fontHG\XeKo@font@Hangul
\let\XeKo@fontID\XeKo@font@CJK
\let\XeKo@fontCJ\XeKo@font@CJK
\let\XeKo@fontSY\XeKo@font@Hangul
\let\XeKo@fontAA\XeKo@font@Latin
\let\XeKo@fontAO\XeKo@font@Hangul
\let\XeKo@fontAC\XeKo@font@Hangul
\let\XeKo@fontAP\relax % prevfont
\let\XeKo@fontAM\relax % prevfont
\let\XeKo@fontAH\XeKo@font@Latin
\let\XeKo@fontOP\XeKo@font@Hangul
\let\XeKo@fontCL\XeKo@font@Hangul
\let\XeKo@fontMD\XeKo@font@Hangul
\let\XeKo@fontFS\XeKo@font@Hangul
\let\XeKo@fontEX\XeKo@font@Hangul
\let\XeKo@fontLD\XeKo@font@Hangul
\let\XeKo@fontVC\XeKo@font@Hangul
\protected\def\latinalphs {\let\XeKo@fontAA\XeKo@font@Latin}
\protected\def\latinparens {\let\XeKo@fontAO\XeKo@font@Latin\let\XeKo@fontAC\XeKo@font@Latin}
\protected\def\latinpuncts {\let\XeKo@fontAP\XeKo@font@Latin}
\protected\def\latincolons {\let\XeKo@fontAM\XeKo@font@Latin}
\protected\def\latinhyphens{\let\XeKo@fontAH\XeKo@font@Latin}
\protected\def\latincjksymbols{%
\let\XeKo@fontSY\XeKo@font@Latin
\let\XeKo@fontOP\XeKo@font@Latin
\let\XeKo@fontCL\XeKo@font@Latin
\let\XeKo@fontMD\XeKo@font@Latin
\let\XeKo@fontFS\XeKo@font@Latin
\let\XeKo@fontEX\XeKo@font@Latin
\let\XeKo@fontLD\XeKo@font@Latin
\let\XeKo@fontVC\XeKo@font@Latin
}
\protected\def\latinmarks{%
\latinalphs\latinparens\latinpuncts\latincolons\latinhyphens\latincjksymbols
}
\let\latinnums\latinalphs
\let\latinquotes\latinparens
\protected\def\hangulalphs {\let\XeKo@fontAA\XeKo@font@Hangul}
\protected\def\hangulparens {\let\XeKo@fontAO\XeKo@font@Hangul\let\XeKo@fontAC\XeKo@font@Hangul}
\protected\def\hangulpuncts {\let\XeKo@fontAP\XeKo@font@Hangul}
\protected\def\hangulcolons {\let\XeKo@fontAM\XeKo@font@Hangul}
\protected\def\hangulhyphens{\let\XeKo@fontAH\XeKo@font@Hangul}
\protected\def\hangulcjksymbols{%
\let\XeKo@fontSY\XeKo@font@Hangul
\let\XeKo@fontOP\XeKo@font@Hangul
\let\XeKo@fontCL\XeKo@font@Hangul
\let\XeKo@fontMD\XeKo@font@Hangul
\let\XeKo@fontFS\XeKo@font@Hangul
\let\XeKo@fontEX\XeKo@font@Hangul
\let\XeKo@fontLD\XeKo@font@Hangul
\let\XeKo@fontVC\XeKo@font@Hangul
}
\protected\def\hangulmarks{%
\hangulalphs\hangulparens\hangulpuncts\hangulcolons\hangulhyphens\hangulcjksymbols
}
\let\hangulnums\hangulalphs
\let\hangulquotes\hangulparens
\protected\def\hanjaalphs {\let\XeKo@fontAA\XeKo@font@CJK}
\protected\def\hanjaparens {\let\XeKo@fontAO\XeKo@font@CJK\let\XeKo@fontAC\XeKo@font@CJK}
\protected\def\hanjapuncts {\let\XeKo@fontAP\XeKo@font@CJK}
\protected\def\hanjacolons {\let\XeKo@fontAM\XeKo@font@CJK}
\protected\def\hanjahyphens{\let\XeKo@fontAH\XeKo@font@CJK}
\protected\def\hanjacjksymbols{%
\let\XeKo@fontSY\XeKo@font@CJK
\let\XeKo@fontOP\XeKo@font@CJK
\let\XeKo@fontCL\XeKo@font@CJK
\let\XeKo@fontMD\XeKo@font@CJK
\let\XeKo@fontFS\XeKo@font@CJK
\let\XeKo@fontEX\XeKo@font@CJK
\let\XeKo@fontLD\XeKo@font@CJK
\let\XeKo@fontVC\XeKo@font@CJK
}
\protected\def\hanjamarks{%
\hanjaalphs\hanjaparens\hanjapuncts\hanjacolons\hanjahyphens\hanjacjksymbols
}
\let\hanjanums\hanjaalphs
\let\hanjaquotes\hanjaparens
\protected\def\prevfontalphs {\let\XeKo@fontAA\relax}
\protected\def\prevfontparens {\let\XeKo@fontAO\relax\let\XeKo@fontAC\relax}
\protected\def\prevfontpuncts {\let\XeKo@fontAP\relax}
\protected\def\prevfontcolons {\let\XeKo@fontAM\relax}
\protected\def\prevfonthyphens{\let\XeKo@fontAH\relax}
\protected\def\prevfontcjksymbols{%
\let\XeKo@fontSY\relax
\let\XeKo@fontOP\relax
\let\XeKo@fontCL\relax
\let\XeKo@fontMD\relax
\let\XeKo@fontFS\relax
\let\XeKo@fontEX\relax
\let\XeKo@fontLD\relax
\let\XeKo@fontVC\relax
}
\protected\def\prevfontmarks{%
\prevfontalphs\prevfontparens\prevfontpuncts\prevfontcolons\prevfonthyphens\prevfontcjksymbols
}
\let\prevfontnums\prevfontalphs
\let\prevfontquotes\prevfontparens
% interchartoks
\chardef\XeKo@cjk@ignorespaces\z@
\protected\def\removeclassicspaces{\chardef\XeKo@cjk@ignorespaces\@ne}
\expandafter\let\csname XeKo@6@class\endcsname =\XeTeXcharclassHG
\expandafter\let\csname XeKo@7@class\endcsname =\XeTeXcharclassID
\expandafter\let\csname XeKo@8@class\endcsname =\XeTeXcharclassSY
\expandafter\let\csname XeKo@9@class\endcsname =\XeTeXcharclassAA
\expandafter\let\csname XeKo@10@class\endcsname=\XeTeXcharclassAO
\expandafter\let\csname XeKo@11@class\endcsname=\XeTeXcharclassAC
\expandafter\let\csname XeKo@12@class\endcsname=\XeTeXcharclassAP
\expandafter\let\csname XeKo@13@class\endcsname=\XeTeXcharclassAM
\expandafter\let\csname XeKo@14@class\endcsname=\XeTeXcharclassAH
\expandafter\let\csname XeKo@15@class\endcsname=\XeTeXcharclassOP
\expandafter\let\csname XeKo@16@class\endcsname=\XeTeXcharclassCL
\expandafter\let\csname XeKo@17@class\endcsname=\XeTeXcharclassMD
\expandafter\let\csname XeKo@18@class\endcsname=\XeTeXcharclassFS
\expandafter\let\csname XeKo@19@class\endcsname=\XeTeXcharclassEX
\expandafter\let\csname XeKo@20@class\endcsname=\XeTeXcharclassLD
\expandafter\let\csname XeKo@21@class\endcsname=\XeTeXcharclassVC
\newtoks\XeKo@toks@
\newtoks\XeKo@toks@ii
\newskip\XeKo@skip@
\newcount\XeKo@count@
\newdimen\XeKo@dimen@
\def\XeKo@check@next@tok{\futurelet\XeKo@let@token\XeKo@check@next@tok@}
\def\XeKo@check@next@tok@{%
\XeKo@get@charslot
\ifnum\XeKo@charslot="FFFF
\expandafter\XeKo@flush@toks
\else
\ifnum 0\ifnum\XeKo@currclass>8 \ifnum\XeKo@currclass<15 % AA..AH
1\fi\fi >\z@
\expandafter\expandafter\expandafter\XeKo@check@next@tok@latin
\else % HG ID
\expandafter\expandafter\expandafter\XeKo@check@next@tok@cjk
\fi
\fi
}
\def\XeKo@check@next@tok@cjk{%
\ifnum 0\ifnum\XeTeXcharclass\XeKo@charslot=\XeTeXcharclassJJ 1\else
\ifnum\XeTeXcharclass\XeKo@charslot=\XeTeXcharclassCM 1\fi\fi >\z@
\expandafter\XeKo@addto@toks
\else
\expandafter\XeKo@flush@toks
\fi
}
\def\XeKo@check@next@tok@latin{%
% load-unicode-xetex-classes��� ������������ ������ CM��� ������, ������, ������ ������ ������.
% ��������� ������������ CM��� ��������� ��������� ������.
% ���������!!! ��������� FE00-FE0F��� CM������ ������������������ CJK��� ������������ ���������.
\ifnum 0%
\ifnum\XeTeXcharclass\XeKo@charslot=\csname XeKo@\XeKo@currclass @class\endcsname 1\else
\ifnum\XeTeXcharclass\XeKo@charslot=\XeTeXcharclassCM 1\fi\fi >\z@
\expandafter\XeKo@addto@toks
\else
\expandafter\XeKo@flush@toks
\fi
}
\def\XeKo@addto@toks#1{%
\ifnum\XeKo@currclass=9 % AA
\global\let\XeKo@josatoken=#1\relax
\else\ifnum\XeTeXcharclass\XeKo@charslot=\XeTeXcharclassJJ
\global\let\XeKo@josatoken=#1\relax
\else\ifnum\XeKo@currclass=8 % SY
\global\let\XeKo@josatoken=#1\relax
\fi\fi\fi
\XeKo@toks@\expandafter{\the\XeKo@toks@ #1}%
\XeKo@check@next@tok
}
\def\XeKo@flush@toks{%
\ifnum\XeKo@currclass<8 %
\XeKo@toks@ii{}\expandafter\XeKo@char@orphan % HG, ID
\else
\expandafter\XeKo@do@flush@toks
\fi
}
\def\XeKo@char@orphan{%
\ifx\XeKo@let@token\par
\XeKo@suppress@linebreak
\let\XeKo@next\XeKo@flush@char@orphan
\else \ifx\@sptoken\XeKo@let@token
\XeKo@toks@ii\expandafter{\the\XeKo@toks@ii \@sptoken}%
\let\XeKo@next\XeKo@char@orphan@
\else \ifx ^^2e\XeKo@let@token % .
\XeKo@toks@ii\expandafter{\the\XeKo@toks@ii ^^2e}%
\let\XeKo@next\XeKo@char@orphan@
\else \ifx ^^3f\XeKo@let@token % ?
\XeKo@toks@ii\expandafter{\the\XeKo@toks@ii ^^3f}%
\let\XeKo@next\XeKo@char@orphan@
\else \ifx ^^21\XeKo@let@token % !
\XeKo@toks@ii\expandafter{\the\XeKo@toks@ii ^^21}%
\let\XeKo@next\XeKo@char@orphan@
\else \ifx ^^^^3002\XeKo@let@token % ���
\XeKo@toks@ii\expandafter{\the\XeKo@toks@ii ^^^^3002}%
\let\XeKo@next\XeKo@char@orphan@
\else \ifx ^^^^ff0e\XeKo@let@token % ���
\XeKo@toks@ii\expandafter{\the\XeKo@toks@ii ^^^^ff0e}%
\let\XeKo@next\XeKo@char@orphan@
\else
\let\XeKo@next\XeKo@flush@char@orphan
\fi\fi\fi\fi\fi \fi\fi
\XeKo@next
}
\def\XeKo@char@orphan@{\afterassignment\XeKo@char@orphan@@\let\XeKo@let@token= }
\def\XeKo@char@orphan@@{\futurelet\XeKo@let@token\XeKo@char@orphan}
\def\XeKo@flush@char@orphan{\expandafter \XeKo@do@flush@toks \the\XeKo@toks@ii }
\def\XeKo@char@raise@start{%
\ifdefined\xetexkocharraise
\expandafter\ifx\the\font\XeKo@raw@hangul@font
\raise\xetexkocharraise\hbox\bgroup
\else \expandafter\ifx\the\font\XeKo@raw@hanja@font
\raise\xetexkocharraise\hbox\bgroup
\fi\fi
\fi
}
\def\XeKo@char@raise@stop{%
\ifdefined\xetexkocharraise
\expandafter\ifx\the\font\XeKo@raw@hangul@font
\egroup
\else \expandafter\ifx\the\font\XeKo@raw@hanja@font
\egroup
\fi\fi
\fi
}
\def\XeKo@do@flush@toks{%
\begingroup
\XeTeXinterchartokenstate\z@
\ifdefined\XeKo@pre@hang
\XeKo@pre@hang % hanging punctuations
\fi
\XeKo@char@raise@start % charraise
\ifnum\XeKo@currclass=6 %
\XeKo@everyhangul{\XeKo@maybe@dotemph \the\XeKo@toks@}% everyhangul
\else
\ifnum\XeKo@currclass=7 %
\XeKo@everyhanja{\XeKo@maybe@dotemph \the\XeKo@toks@}% everyhanja
\else
\ifnum\XeKo@compresspuncts=\@ne
\ifnum\XeKo@currclass=15 % OP
\hbox to.5em\bgroup\hss \the\XeKo@toks@ \egroup
\else\ifnum\XeKo@currclass=16 % CL
\hbox to.5em\bgroup \the\XeKo@toks@ \hss\egroup
\else\ifnum\XeKo@currclass=17 % MD
\hbox to.5em\bgroup\hss \the\XeKo@toks@ \hss\egroup
\else\ifnum\XeKo@currclass=18 % FS
\hbox to.5em\bgroup \the\XeKo@toks@ \hss\egroup
\else
\the\XeKo@toks@
\fi\fi\fi\fi
\else
\the\XeKo@toks@
\fi
\fi
\fi
\XeKo@char@raise@stop % charraise
\ifdefined\XeKo@post@hang
\XeKo@post@hang % hanging punctuations
\fi
\endgroup
\futurelet\XeKo@let@token\XeKo@maybe@kern@ii
}
\def\XeKo@maybe@kern@ii{%
\ifx\XeKo@let@token\@sptoken
\ifnum\XeKo@cjk@ignorespaces=\@ne % try to remove space
\expandafter\expandafter\expandafter\XeKo@maybe@ignorespaces
\fi
\else
\XeKo@insert@kerns
\fi
}
\def\XeKo@insert@kerns{%
\kern-\XeKo@currclass sp \kern \XeKo@currclass sp
}
% remove space
\def\XeKo@maybe@ignorespaces{%
\ifnum 0\ifnum\XeKo@currclass<9 1\else % HG ID SY
\ifnum\XeKo@currclass>14 1\fi\fi % CJK punctuations
>\z@
\expandafter\XeKo@ignorespaces@iv
\fi
}
\def\XeKo@ignorespaces@iv{\afterassignment\XeKo@ignorespaces@v\let\XeKo@let@token= }
\def\XeKo@ignorespaces@v{\futurelet\XeKo@let@token\XeKo@ignorespaces@vi}
\def\XeKo@ignorespaces@vi{%
\XeKo@get@charslot
\XeKo@count@=\XeTeXcharclass\XeKo@charslot
\ifnum\XeKo@count@=\XeTeXcharclassAA \@sptoken \else
\ifnum\XeKo@count@=\XeTeXcharclassAO \@sptoken \else
\ifnum\XeKo@count@=\XeTeXcharclassAC \@sptoken \else
\ifnum\XeKo@count@=\XeTeXcharclassAP \@sptoken \else
\ifnum\XeKo@count@=\XeTeXcharclassAM \@sptoken \else
\ifnum\XeKo@count@=\XeTeXcharclassAH \@sptoken \else
\XeKo@insert@kerns
\fi\fi\fi\fi\fi \fi
}
% hanging punctuations
\chardef\XeKo@hangingpuncts\z@
\protected\def\hangingpunctuation{\chardef\XeKo@hangingpuncts\@ne }
\let\hangingpunctuations\hangingpunctuation
\protected\def\sethangingratio#1=#2 {%
\expandafter\def\csname XeKo@hanging@ratio@\number#1\endcsname{#2}%
}
\protected\def\unsethangingratio{\afterassignment\unsethangingratio@\count@= }
\def\unsethangingratio@{%
\expandafter\let\csname XeKo@hanging@ratio@\number\count@\endcsname\XeKo@undefined
}
\def\XeKo@def@pre@hang#1{%
\ifnum\XeKo@hangingpuncts=\@ne
\ifcsname XeKo@hanging@ratio@\number`#1\endcsname
\ifnum 0\ifnum\XeKo@compresspuncts=\@ne
\ifnum\XeKo@currclass=15 % OP
1\fi\fi >\z@
\XeKo@dimen@=.5em
\else
\setbox\XeKo@box@\hbox{\XeTeXinterchartokenstate\z@ #1}%
\XeKo@dimen@=\wd\XeKo@box@
\fi
\XeKo@dimen@=\csname XeKo@hanging@ratio@\number`#1\endcsname\XeKo@dimen@
\edef\XeKo@pre@hang{%
\kern\the\XeKo@dimen@
\vrule width-\the\XeKo@dimen@ height\z@ depth\z@
}%
\fi
\fi
}
\def\XeKo@def@post@hang#1{%
\ifnum\XeKo@hangingpuncts=\@ne
\ifcsname XeKo@hanging@ratio@\number`#1\endcsname
\ifnum 0\ifnum\XeKo@compresspuncts=\@ne
\ifnum\XeKo@currclass>15 %
\ifnum\XeKo@currclass<19 % CL MD FS
1\fi\fi\fi >\z@
\XeKo@dimen@=.5em
\else
\setbox\XeKo@box@\hbox{\XeTeXinterchartokenstate\z@ #1}%
\XeKo@dimen@=\wd\XeKo@box@
\fi
\XeKo@dimen@=\csname XeKo@hanging@ratio@\number`#1\endcsname\XeKo@dimen@
\edef\XeKo@post@hang{%
\noexpand\XeKo@count@\noexpand\spacefactor
\vrule width-\the\XeKo@dimen@ height\z@ depth\z@
\kern\the\XeKo@dimen@
\noexpand\spacefactor\noexpand\XeKo@count@
}%
\fi
\fi
}
\sethangingratio"2C=1 % , ������
\sethangingratio"2E=1 % . ������
\sethangingratio"3001=1 % ��� ������
\sethangingratio"3002=1 % ��� ���������
\sethangingratio"FF0C=1 % ��� ������������
\sethangingratio"FF0E=1 % ��� ������������
% compress CJK punctuations to .5em
\protected\def\compresspunctuations{\chardef\XeKo@compresspuncts\@ne }
\protected\def\nocompresspunctuations{\chardef\XeKo@compresspuncts\z@ }
\compresspunctuations
%% everyhangul/hanja
\def\everyhangul#1{\def\XeKo@everyhangul##1{#1}}
\def\everyhanja #1{\def\XeKo@everyhanja ##1{#1}}
\def\XeKo@everyhangul#1{#1}
\def\XeKo@everyhanja #1{#1}
\def\XeKo@startHG#1{%
\global\let\XeKo@josatoken=#1\relax
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{6}%
\XeKo@toks@{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startID#1{%
\global\let\XeKo@josatoken=#1\relax
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{7}%
\XeKo@toks@{#1}%
\ifdefined\fallbackhanjafont
\iffontchar\font`#1\else
\XeKo@toks@{\fallbackhanjafont #1}%
\fi
\fi
\XeKo@check@next@tok
}
\def\XeKo@startCJ#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{7}% same as ID
\XeKo@toks@{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startSY#1{%
\global\let\XeKo@josatoken=#1\relax
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{8}%
\XeKo@toks@{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startAA#1{%
\global\let\XeKo@josatoken=#1\relax
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{9}%
\XeKo@toks@{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startAO#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{10}%
\XeKo@toks@{#1}%
\XeKo@def@pre@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startAC#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{11}%
\XeKo@toks@{#1}%
\XeKo@def@post@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startAP#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{12}%
\XeKo@toks@{#1}%
\XeKo@def@post@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startAM#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{13}%
\XeKo@toks@{#1}%
\XeKo@def@post@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startAH#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{14}%
\XeKo@toks@{#1}%
\ifnum`#1=\hyphenchar\font \else % exclude hyphen char
\XeKo@def@post@hang{#1}%
\fi
\XeKo@check@next@tok
}
\def\XeKo@startOP#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{15}%
\XeKo@toks@{#1}%
\XeKo@def@pre@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startCL#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{16}%
\XeKo@toks@{#1}%
\XeKo@def@post@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startMD#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{17}%
\XeKo@toks@{#1}%
\XeKo@def@post@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startFS#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{18}%
\XeKo@toks@{#1}%
\XeKo@def@post@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startEX#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{19}%
\XeKo@toks@{#1}%
\XeKo@def@post@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startLD#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{20}%
\XeKo@toks@{#1}%
\XeKo@def@post@hang{#1}%
\XeKo@check@next@tok
}
\def\XeKo@startVC#1{%
\let\XeKo@pre@hang\XeKo@undefined \let\XeKo@post@hang\XeKo@undefined
\def\XeKo@currclass{21}%
\XeKo@toks@{#1}%
\XeKo@def@post@hang{#1}%
\XeKo@check@next@tok
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassHG{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XKinterhanjabreak \or \or \or \or % 1: ruby��� ������������ ������
\or \unkern\unkern \XKinterhangulbreak % HG HG
\or \unkern\unkern \XKinterhanjabreak % ID HG
\or \unkern\unkern % SY HG
\or \unkern\unkern \XeKo@latincjk % AA HG
\or \unkern\unkern % AO HG
\or \unkern\unkern \XeKo@latincjk % AC HG
\or \unkern\unkern \XeKo@latincjk % AP HG
\or \unkern\unkern \XeKo@latincjk % AM HG
\or \unkern\unkern \XKinterhanjabreak % AH HG
\or \unkern\unkern % OP HG
\or \unkern\unkern \XeKo@halfhalf % CL HG
\or \unkern\unkern \XeKo@quarterquarter % MD HG
\or \unkern\unkern \XeKo@halfzero % FS HG
\or \unkern\unkern \XeKo@halfhalf % EX HG
\or \unkern\unkern \XKinterhanjabreak % LD HG
\or \unkern\unkern \XeKo@quarterquarter % VC HG
\fi
\else\ifnum\lastnodetype=10 % mathoff
\XeKo@postmath
\fi\fi
\XeKo@fontHG\expandafter\XeKo@startHG
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassID{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XKinterhanjabreak \or \or \or \or
\or \unkern\unkern \XKinterhanjabreak % HG ID
\or \unkern\unkern \XKinterhanjabreak % ID ID
\or \unkern\unkern % SY ID
\or \unkern\unkern \XeKo@latincjk % AA ID
\or \unkern\unkern % AO ID
\or \unkern\unkern \XeKo@latincjk % AC ID
\or \unkern\unkern \XeKo@latincjk % AP ID
\or \unkern\unkern \XeKo@latincjk % AM ID
\or \unkern\unkern \XKinterhanjabreak % AH ID
\or \unkern\unkern % OP ID
\or \unkern\unkern \XeKo@halfhalf % CL ID
\or \unkern\unkern \XeKo@quarterquarter % MD ID
\or \unkern\unkern \XeKo@halfzero % FS ID
\or \unkern\unkern \XeKo@halfhalf % EX ID
\or \unkern\unkern \XKinterhanjabreak % LD ID
\or \unkern\unkern \XeKo@quarterquarter % VC ID
\fi
\else\ifnum\lastnodetype=10 % mathoff
\XeKo@postmath
\fi\fi
\XeKo@fontID\expandafter\XeKo@startID
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassCJ{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XKinterhanjabreak \XeKo@suppress@linebreak \or \or \or \or
\or \unkern\unkern \XKinterhanjabreak \XeKo@suppress@linebreak % HG CJ
\or \unkern\unkern \XKinterhanjabreak \XeKo@suppress@linebreak % ID CJ
\or \unkern\unkern % SY CJ
\or \unkern\unkern \XeKo@latincjk % AA CJ
\or \unkern\unkern % AO CJ
\or \unkern\unkern \XeKo@latincjk % AC CJ
\or \unkern\unkern \XeKo@latincjk % AP CJ
\or \unkern\unkern \XeKo@latincjk % AM CJ
\or \unkern\unkern \XKinterhanjabreak % AH CJ
\or \unkern\unkern % OP CJ
\or \unkern\unkern \XeKo@halfhalf \XeKo@suppress@linebreak % CL CJ
\or \unkern\unkern \XeKo@quarterquarter \XeKo@suppress@linebreak % MD CJ
\or \unkern\unkern \XeKo@halfzero \XeKo@suppress@linebreak % FS CJ
\or \unkern\unkern \XeKo@halfhalf \XeKo@suppress@linebreak % EX CJ
\or \unkern\unkern \XKinterhanjabreak \XeKo@suppress@linebreak % LD CJ
\or \unkern\unkern \XeKo@quarterquarter \XeKo@suppress@linebreak % VC CJ
\fi
\else\ifnum\lastnodetype=10 % mathoff
\XeKo@postmath
\fi\fi
\XeKo@fontCJ\expandafter\XeKo@startCJ
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassSY{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \or \or \or \or
\or \unkern\unkern % HG SY
\or \unkern\unkern % ID SY
\or \unkern\unkern % SY SY
\or \unkern\unkern % AA SY
\or \unkern\unkern % AO SY
\or \unkern\unkern \XeKo@latincjk % AC SY
\or \unkern\unkern \XeKo@latincjk % AP SY
\or \unkern\unkern \XeKo@latincjk % AM SY
\or \unkern\unkern % AH SY
\or \unkern\unkern % OP SY
\or \unkern\unkern \XeKo@halfhalf % CL SY
\or \unkern\unkern \XeKo@quarterquarter % MD SY
\or \unkern\unkern \XeKo@halfzero % FS SY
\or \unkern\unkern \XeKo@halfhalf % EX SY
\or \unkern\unkern % LD SY
\or \unkern\unkern \XeKo@quarterquarter % VC SY
\fi
\else\ifnum\lastnodetype=10 % mathoff
\XeKo@postmath
\fi\fi
\XeKo@fontSY\expandafter\XeKo@startSY
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassAA{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XeKo@latincjk \or \or \or \or
\or \unkern\unkern \XeKo@latincjk % HG AA
\or \unkern\unkern \XeKo@latincjk % ID AA
\or \unkern\unkern % SY AA
\or \unkern\unkern % AA AA
\or \unkern\unkern % AO AA
\or \unkern\unkern % AC AA
\or \unkern\unkern % AP AA
\or \unkern\unkern % AM AA
\or \unkern\unkern % AH AA
\or \unkern\unkern % OP AA
\or \unkern\unkern \XeKo@halfhalf % CL AA
\or \unkern\unkern \XeKo@quarterquarter % MD AA
\or \unkern\unkern \XeKo@halfzero % FS AA
\or \unkern\unkern \XeKo@halfhalf % EX AA
\or \unkern\unkern \XeKo@latincjk % LD AA
\or \unkern\unkern \XeKo@quarterquarter % VC AA
\fi
\fi
\XeKo@fontAA\expandafter\XeKo@startAA
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassAO{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XeKo@latincjk \or \or \or \or
\or \unkern\unkern \XeKo@latincjk % HG AO
\or \unkern\unkern \XeKo@latincjk % ID AO
\or \unkern\unkern \XeKo@latincjk % SY AO
\or \unkern\unkern % AA AO
\or \unkern\unkern % AO AO
\or \unkern\unkern \inhibitglue % AC AO
\or \unkern\unkern % AP AO
\or \unkern\unkern % AM AO
\or \unkern\unkern % AH AO
\or \unkern\unkern % OP AO
\or \unkern\unkern \XeKo@halfhalf % CL AO
\or \unkern\unkern \XeKo@quarterquarter % MD AO
\or \unkern\unkern \XeKo@halfzero % FS AO
\or \unkern\unkern \XeKo@halfhalf % EX AO
\or \unkern\unkern \XeKo@latincjk % LD AO
\or \unkern\unkern \XeKo@quarterquarter % VC AO
\fi
\fi
\XeKo@fontAO\expandafter\XeKo@startAO
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassAC{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \or \or \or \or
\or \unkern\unkern % HG AC
\or \unkern\unkern % ID AC
\or \unkern\unkern % SY AC
\or \unkern\unkern % AA AC
\or \unkern\unkern % AO AC
\or \unkern\unkern % AC AC
\or \unkern\unkern % AP AC
\or \unkern\unkern % AM AC
\or \unkern\unkern % AH AC
\or \unkern\unkern % OP AC
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % CL AC
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % MD AC
\or \unkern\unkern \XeKo@nobreak\XeKo@halfzero % FS AC
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % EX AC
\or \unkern\unkern % LD AC
\or \unkern\unkern % VC AC
\fi
\fi
\XeKo@fontAC\expandafter\XeKo@startAC
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassAP{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \or \or \or \or
\or \unkern\unkern % HG AP
\or \unkern\unkern % ID AP
\or \unkern\unkern % SY AP
\or \unkern\unkern % AA AP
\or \unkern\unkern % AO AP
\or \unkern\unkern % AC AP
\or \unkern\unkern % AP AP
\or \unkern\unkern % AM AP
\or \unkern\unkern % AH AP
\or \unkern\unkern % OP AP
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % CL AP
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % MD AP
\or \unkern\unkern \XeKo@nobreak\XeKo@halfzero % FS AP
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % EX AP
\or \unkern\unkern % LD AP
\or \unkern\unkern % VC AP
\fi
\fi
\XeKo@fontAP\expandafter\XeKo@startAP
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassAM{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XeKo@nobreak\XeKo@latincjk \or \or \or \or
\or \unkern\unkern \XeKo@nobreak\XeKo@latincjk % HG AM
\or \unkern\unkern \XeKo@nobreak\XeKo@latincjk % ID AM
\or \unkern\unkern \XeKo@nobreak\XeKo@latincjk % SY AM
\or \unkern\unkern % AA AM
\or \unkern\unkern % AO AM
\or \unkern\unkern % AC AM
\or \unkern\unkern % AP AM
\or \unkern\unkern % AM AM
\or \unkern\unkern % AH AM
\or \unkern\unkern % OP AM
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % CL AM
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % MD AM
\or \unkern\unkern \XeKo@nobreak\XeKo@halfzero % FS AM
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % EX AM
\or \unkern\unkern % LD AM
\or \unkern\unkern % VC AM
\fi
\fi
\XeKo@fontAM\expandafter\XeKo@startAM
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassAH{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XeKo@nobreak \or \or \or \or
\or \unkern\unkern \XeKo@nobreak % HG AH
\or \unkern\unkern \XeKo@nobreak % ID AH
\or \unkern\unkern \XeKo@nobreak % SY AH
\or \unkern\unkern % AA AH
\or \unkern\unkern % AO AH
\or \unkern\unkern % AC AH
\or \unkern\unkern % AP AH
\or \unkern\unkern % AM AH
\or \unkern\unkern % AH AH
\or \unkern\unkern % OP AH
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % CL AH
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % MD AH
\or \unkern\unkern \XeKo@nobreak\XeKo@halfzero % FS AH
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % EX AH
\or \unkern\unkern \XeKo@nobreak % LD AH
\or \unkern\unkern \XeKo@nobreak % VC AH
\fi
\fi
\XeKo@fontAH\expandafter\XeKo@startAH
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassOP{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XeKo@halfhalf \or \or \or \or
\or \unkern\unkern \XeKo@halfhalf % HG OP
\or \unkern\unkern \XeKo@halfhalf % ID OP
\or \unkern\unkern \XeKo@halfhalf % SY OP
\or \unkern\unkern \XeKo@halfhalf % AA OP
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % AO OP
\or \unkern\unkern \XeKo@halfhalf % AC OP
\or \unkern\unkern \XeKo@halfhalf % AP OP
\or \unkern\unkern \XeKo@halfhalf % AM OP
\or \unkern\unkern \XeKo@halfhalf % AH OP
\or \unkern\unkern % OP OP
\or \unkern\unkern \XeKo@halfhalf % CL OP
\or \unkern\unkern \XeKo@quarterquarter % MD OP
\or \unkern\unkern \XeKo@halfzero % FS OP
\or \unkern\unkern \XeKo@halfhalf % EX OP
\or \unkern\unkern \XeKo@halfhalf % LD OP
\or \unkern\unkern \XeKo@quarterquarter % VC OP
\fi
\else\ifnum\lastnodetype=10 % mathoff
\XeKo@halfhalf
\fi\fi
\XeKo@fontOP\expandafter\XeKo@startOP
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassCL{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \or \or \or \or
\or \unkern\unkern % HG CL
\or \unkern\unkern % ID CL
\or \unkern\unkern % SY CL
\or \unkern\unkern % AA CL
\or \unkern\unkern % AO CL
\or \unkern\unkern % AC CL
\or \unkern\unkern % AP CL
\or \unkern\unkern % AM CL
\or \unkern\unkern % AH CL
\or \unkern\unkern % OP CL
\or \unkern\unkern % CL CL
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % MD CL
\or \unkern\unkern % FS CL
\or \unkern\unkern % EX CL
\or \unkern\unkern % LD CL
\or \unkern\unkern % VC CL
\fi
\fi
\XeKo@fontCL\expandafter\XeKo@startCL
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassMD{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XeKo@nobreak\XeKo@quarterquarter \or \or \or \or
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % HG MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % ID MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % SY MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % AA MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % AO MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % AC MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % AP MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % AM MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % AH MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % OP MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % CL MD
\or \unkern\unkern \XeKo@nobreak\XeKo@halfquarter % MD MD
\or \unkern\unkern \XeKo@nobreak\XeKo@iiiquarterquarter % FS MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % EX MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % LD MD
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % VC MD
\fi
\else\ifnum\lastnodetype=10 % mathoff
\XeKo@nobreak\XeKo@quarterquarter
\fi\fi
\XeKo@fontMD\expandafter\XeKo@startMD
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassFS{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \or \or \or \or
\or \unkern\unkern % HG FS
\or \unkern\unkern % ID FS
\or \unkern\unkern % SY FS
\or \unkern\unkern % AA FS
\or \unkern\unkern % AO FS
\or \unkern\unkern % AC FS
\or \unkern\unkern % AP FS
\or \unkern\unkern % AM FS
\or \unkern\unkern % AH FS
\or \unkern\unkern % OP FS
\or \unkern\unkern % CL FS
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % MD FS
\or \unkern\unkern % FS FS
\or \unkern\unkern % EX FS
\or \unkern\unkern % LD FS
\or \unkern\unkern % VC FS
\fi
\fi
\XeKo@fontFS\expandafter\XeKo@startFS
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassEX{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \or \or \or \or
\or \unkern\unkern % HG EX
\or \unkern\unkern % ID EX
\or \unkern\unkern % SY EX
\or \unkern\unkern % AA EX
\or \unkern\unkern % AO EX
\or \unkern\unkern % AC EX
\or \unkern\unkern % AP EX
\or \unkern\unkern % AM EX
\or \unkern\unkern % AH EX
\or \unkern\unkern % OP EX
\or \unkern\unkern \XeKo@nobreak\XeKo@halfhalf % CL EX
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % MD EX
\or \unkern\unkern \XeKo@nobreak\XeKo@halfzero % FS EX
\or \unkern\unkern % EX EX
\or \unkern\unkern % LD EX
\or \unkern\unkern % VC EX
\fi
\fi
\XeKo@fontEX\expandafter\XeKo@startEX
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassLD{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \XKinterhanjabreak \XeKo@suppress@linebreak \or \or \or \or
\or \unkern\unkern \XKinterhanjabreak \XeKo@suppress@linebreak % HG LD
\or \unkern\unkern \XKinterhanjabreak \XeKo@suppress@linebreak % ID LD
\or \unkern\unkern % SY LD
\or \unkern\unkern % AA LD
\or \unkern\unkern % AO LD
\or \unkern\unkern % AC LD
\or \unkern\unkern % AP LD
\or \unkern\unkern % AM LD
\or \unkern\unkern % AH LD
\or \unkern\unkern % OP LD
\or \unkern\unkern \XeKo@halfhalf \XeKo@suppress@linebreak % CL LD
\or \unkern\unkern \XeKo@quarterquarter \XeKo@suppress@linebreak % MD LD
\or \unkern\unkern \XeKo@halfzero \XeKo@suppress@linebreak % FS LD
\or \unkern\unkern \XKinterhanjabreak \XeKo@suppress@linebreak % EX LD
\or \unkern\unkern % LD LD
\or \unkern\unkern \XKinterhanjabreak \XeKo@suppress@linebreak % VC LD
\fi
\fi
\XeKo@fontLD\expandafter\XeKo@startLD
\fi
}
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassVC{%
\ifx\f@encoding\UTFencname
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \or \or \or \or
\or \unkern\unkern % HG VC
\or \unkern\unkern % ID VC
\or \unkern\unkern % SY VC
\or \unkern\unkern % AA VC
\or \unkern\unkern % AO VC
\or \unkern\unkern % AC VC
\or \unkern\unkern % AP VC
\or \unkern\unkern % AM VC
\or \unkern\unkern % AH VC
\or \unkern\unkern % OP VC
\or \unkern\unkern % CL VC
\or \unkern\unkern \XeKo@nobreak\XeKo@quarterquarter % MD VC
\or \unkern\unkern % FS VC
\or \unkern\unkern % EX VC
\or \unkern\unkern % LD VC
\or \unkern\unkern % VC VC
\fi
\fi
\XeKo@fontVC\expandafter\XeKo@startVC
\fi
}
\newbox\XeKo@box@
% \char"1112\char"119E\char"11AB etc.
% !!!!! ��� ������ \everyhangul ������ ��������� ������ ��������� !!!!!
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassJJ{%
\ifnum\lastnodetype=12 %
\ifnum\lastkern=6 %
\unkern\unkern
\expandafter\expandafter\expandafter\XeKo@startJJ
\fi
\fi
}
\def\XeKo@startJJ#1{%
\global\let\XeKo@josatoken=#1\relax
\begingroup
\XeTeXinterchartokenstate\z@
\ifnum\lastnodetype=\@ne % hbox (charraise box)
\setbox\XeKo@box@=\lastbox
\XeKo@char@raise@start \unhbox\XeKo@box@ #1\XeKo@char@raise@stop
\else
#1\relax
\fi
\endgroup
\XeKo@insert@kerns
}
% \char"9AA8\char"E0102 etc.
\XeTeXinterchartoks\XeTeXcharclassBoundary\XeTeXcharclassCM{%
\ifnum\lastnodetype=12 %
\ifcase\lastkern
\or \or \or \or \or
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % HG
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % ID
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % SY
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % AA
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % AO
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % AC
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % AP
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % AM
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % AH
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % OP
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % CL
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % MD
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % FS
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % EX
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % LD
\or \unkern\unkern \expandafter\expandafter\expandafter\XeKo@startCM % VC
\fi
\fi
}
\def\XeKo@startCM#1{%
\begingroup
\XeTeXinterchartokenstate\z@
\ifnum\lastnodetype=\@ne % hbox
\ifdefined\xetexkocharraise
\setbox\XeKo@box@=\lastbox % charraise box
\XeKo@char@raise@start
\unhbox\XeKo@box@
\ifnum\lastnodetype=\@ne % hbox again
\XeKo@rebox@punctbox{#1}% compressed punctuation box
\else
#1\relax
\fi
\XeKo@char@raise@stop
\else
\XeKo@rebox@punctbox{#1}% compressed punctuation box
\fi
\else
#1\relax
\fi
\endgroup
\XeKo@insert@kerns
}
\def\XeKo@rebox@punctbox#1{%
\ifnum 0\ifnum\XeKo@currclass>14 \ifnum\XeKo@currclass<19 % OP .. FS
1\fi\fi >\z@
\setbox\XeKo@box@=\lastbox
\hbox to.5em\bgroup
\unhbox\XeKo@box@
\XeKo@skip@\lastskip \unskip
#1\hskip\XeKo@skip@
\egroup
\else
#1\relax
\fi
}
%%% josa selection
\begingroup
\catcode`A=11\relax \global\let\XeKo@catcode@letter=A
\catcode`0=12\relax \global\let\XeKo@catcode@other =0
\endgroup
\def\XeKo@striptw@words#1 #2 #3\relax{#3}
\def\XeKo@get@charslot{%
\if\noexpand\XeKo@let@token\relax
\chardef\XeKo@charslot="FFFF
\else
\expandafter\XeKo@get@charslot@
\fi
}
\def\XeKo@get@charslot@{%
\ifnum 0\ifcat\XeKo@let@token\XeKo@catcode@letter 1\else
\ifcat\XeKo@let@token\XeKo@catcode@other 1\fi\fi >\z@
\edef\@tempa{\expandafter\XeKo@striptw@words\meaning\XeKo@let@token\relax}%
\expandafter\chardef\expandafter\XeKo@charslot\expandafter`\@tempa\relax
\else
\chardef\XeKo@charslot="FFFF
\fi
}
\def\XeKo@read@hanja@hangul@file#1{%
\begingroup
\@tempcnta=\z@
\openin1=#1\relax \XeKo@read@hanja@hangul@line \closein1
\endgroup
}
\def\XeKo@read@hanja@hangul@line{%
\read1 to \@tempa
\ifnum\XeKo@count@=\@tempcnta
\global\XeKo@count@\@tempa
\else
\advance\@tempcnta\@ne \expandafter\XeKo@read@hanja@hangul@line
\fi
}
\def\XeKo@num@josa{%
\ifnum\XeKo@count@<\z@ \XeKo@count@=-\XeKo@count@ \fi
\count@\XeKo@count@
\divide\count@ 10
\multiply\count@ 10
\advance\XeKo@count@-\count@
\XeKo@count@=\ifcase\XeKo@count@ \z@
\or \@ne
\or \tw@
\or \z@
\or \tw@
\or \tw@
\or \z@
\or \@ne
\or \@ne
\or \tw@
\fi
\XeKo@do@make@josa
}
\def\XeKo@alph@josa{%
\XeKo@count@=\ifnum "4C=\XeKo@count@ \@ne % L
\else\ifnum "4D=\XeKo@count@ \z@ % M
\else\ifnum "4E=\XeKo@count@ \z@ % N
\else\ifnum "6C=\XeKo@count@ \@ne % l
\else\ifnum "6D=\XeKo@count@ \z@ % m
\else\ifnum "6E=\XeKo@count@ \z@ % n
\else \tw@
\fi\fi\fi\fi\fi \fi
\XeKo@do@make@josa
}
\protected\def\jong {\global\let\XeKo@josatoken=0}\jong
\protected\def\rieul{\global\let\XeKo@josatoken=1}
\protected\def\jung {\global\let\XeKo@josatoken=2}
\protected\def\���{\XeKo@make@josa ������}
\protected\def\���{\futurelet\XeKo@let@token\XeKo@make@josa@I}
\protected\def\���{\XeKo@make@josa ������} \let\���\���
\protected\def\���{\XeKo@make@josa ������} \let\���\���
\protected\def\���{\XeKo@make@josa ������} \let\���\���
\protected\def\���{\XeKo@make@josa \empty ���}
\protected\def\���{\������}
\protected\def\���{\XeKo@make@josa ���{������}}
\def\XeKo@make@josa@II{\XeKo@make@josa\relax ���}
\def\XeKo@make@josa@I{%
\XeKo@get@charslot
\ifnum\XeKo@charslot="FFFF
\expandafter\���%
\else
\ifnum 0\ifnum\XeKo@charslot>"ABFF \ifnum\XeKo@charslot<"D7A4 1\fi\fi >\z@
\expandafter\expandafter\expandafter\XeKo@make@josa@II
\else
\expandafter\expandafter\expandafter\���%
\fi
\fi
}
\def\XeKo@make@josa{%
\let\XeKo@let@token=\XeKo@josatoken
\XeKo@get@charslot
\XeKo@count@=\XeKo@charslot
\ifnum\XeKo@count@<"FF00
\else\ifnum\XeKo@count@<"FF5B
\advance\XeKo@count@-"FEE0
\fi\fi
\let\XeKo@next\XeKo@make@josa@
\ifnum\XeKo@count@<"30 % 0
\else\ifnum\XeKo@count@<"3A
\advance\XeKo@count@-"30 \let\XeKo@next\XeKo@num@josa
\else\ifnum\XeKo@count@<"41
\else\ifnum\XeKo@count@<"7B \let\XeKo@next\XeKo@alph@josa
\else\ifnum\XeKo@count@<"2160 % roman numneral I
\else\ifnum\XeKo@count@<"216C
\advance\XeKo@count@-"215F \let\XeKo@next\XeKo@num@josa
\else\ifnum\XeKo@count@<"2170 % roman numneral i
\else\ifnum\XeKo@count@<"217C
\advance\XeKo@count@-"216F \let\XeKo@next\XeKo@num@josa
\else\ifnum\XeKo@count@<"2460 % ���
\else\ifnum\XeKo@count@<"249C % ���
\advance\XeKo@count@-"245F \let\XeKo@next\XeKo@num@josa
\else\ifnum\XeKo@count@<"24B6 % ���
\advance\XeKo@count@-"245B \let\XeKo@next\XeKo@alph@josa
\else\ifnum\XeKo@count@<"24D0 % ���
\advance\XeKo@count@-"2475 \let\XeKo@next\XeKo@alph@josa
\else\ifnum\XeKo@count@<"24EA
\advance\XeKo@count@-"248F \let\XeKo@next\XeKo@alph@josa
\fi\fi\fi\fi\fi \fi\fi\fi\fi\fi \fi\fi\fi
\XeKo@next
}
\def\XeKo@make@josa@{%
\ifnum\XeKo@count@<"3260 % ���
\else\ifnum\XeKo@count@<"3280
\advance\XeKo@count@-"60
\fi\fi
\let\XeKo@next\XeKo@make@josa@@
\ifnum\XeKo@count@<"3131 % ���
\else\ifnum\XeKo@count@<"318F
\ifnum \XeKo@count@="3139 \XeKo@count@\@ne
\else\ifnum\XeKo@count@<"314F \XeKo@count@\z@
\else\ifnum\XeKo@count@>"3164
\ifnum\XeKo@count@<"3187 \XeKo@count@\z@ \fi
\fi\fi\fi
\let\XeKo@next\XeKo@do@make@josa
\else\ifnum\XeKo@count@<"3200 % ���
\else\ifnum\XeKo@count@<"321F
\ifnum \XeKo@count@="3203 \XeKo@count@\@ne
\else\ifnum\XeKo@count@<"320E \XeKo@count@\z@
\fi\fi
\let\XeKo@next\XeKo@do@make@josa
\fi\fi\fi\fi
\XeKo@next
}
\def\XeKo@make@josa@@{%
\ifnum\XeKo@count@<"3400 \else\ifnum\XeKo@count@<"4DB6
\advance\XeKo@count@-"3400 \XeKo@read@hanja@hangul@file{hanjaexa_hangul.tab}%
\else\ifnum\XeKo@count@<"4E00 \else\ifnum\XeKo@count@<"9FA6
\advance\XeKo@count@-"4E00 \XeKo@read@hanja@hangul@file{hanja_hangul.tab}%
\else\ifnum\XeKo@count@<"F900 \else\ifnum\XeKo@count@<"FA2E
\advance\XeKo@count@-"F900 \XeKo@read@hanja@hangul@file{hanjacom_hangul.tab}%
\fi\fi\fi\fi\fi \fi
\ifnum\XeKo@count@<"AC00 \else\ifnum\XeKo@count@<"D7A4 % Hangul syllables
\advance\XeKo@count@-"AC00
\@tempcnta\XeKo@count@ \divide\@tempcnta28 \multiply\@tempcnta28
\advance\XeKo@count@-\@tempcnta \advance\XeKo@count@"11A7
\fi\fi
\ifnum\XeKo@count@<"11A8
\else\ifnum\XeKo@count@<"1200
\ifnum\XeKo@count@="11AF \XeKo@count@\@ne \else \XeKo@count@\z@ \fi
\else\ifnum\XeKo@count@<"D7CB
\else\ifnum\XeKo@count@<"D7FC
\XeKo@count@\z@
\fi\fi\fi\fi
\XeKo@do@make@josa
}
\def\XeKo@do@make@josa#1#2{%
\ifcase\XeKo@count@ #2% jong
\or \ifx#1\empty\else#2\fi % rieul
\else #1% jung
\fi
}
% dotemph
\def\dotemphraise{0.4em }
\ifcsname bfseries\endcsname
\def\dotemphchar{\bfseries ^^^^02d9}
\else
\def\dotemphchar{\bf \char95 }
\fi
\newbox\XeKo@dotemph@box
\let\XeKo@maybe@dotemph\relax
\protected\def\dotemph#1{%
\leavevmode
\setbox\XeKo@dotemph@box\hbox{\raise\dotemphraise\hbox{\dotemphchar}}%
\begingroup
\let\XeKo@maybe@dotemph\XeKo@do@dotemph
#1\relax
\endgroup
}
\def\XeKo@do@dotemph{%
\XeKo@check@hangulTM % ������ ��������� ������������
\setbox\z@\hbox{\the\XeKo@toks@}%
\setbox\tw@\hbox to\wd\z@{%
\hss
\ifnum\XeKo@has@hangulTM>\z@
\kern\fontcharwd\font\XeKo@has@hangulTM
\fi
\unhcopy\XeKo@dotemph@box
\hss
}\wd\tw@\z@ \ht\tw@\z@ \dp\tw@\z@
\box\tw@
}
\def\XeKo@check@hangulTM{%
\chardef\XeKo@has@hangulTM\z@
\expandafter\XeKo@check@hangulTM@e \the\XeKo@toks@ ^^^^302e\relax
\ifnum\XeKo@has@hangulTM=\z@
\expandafter\XeKo@check@hangulTM@f \the\XeKo@toks@ ^^^^302f\relax
\fi
}
\def\XeKo@check@hangulTM@e#1^^^^302e#2\relax{%
\ifx\empty#2\empty \else
\chardef\XeKo@has@hangulTM="302E
\fi
}
\def\XeKo@check@hangulTM@f#1^^^^302f#2\relax{%
\ifx\empty#2\empty \else
\chardef\XeKo@has@hangulTM="302F
\fi
}
% other commands
\let\enablecjksymbolspacing\compresspunctuations
\let\disablecjksymbolspacing\nocompresspunctuations
\protected\def\disablekoreanfonts{%
\let\XeKo@fontHG\relax
\let\XeKo@fontID\relax
\let\XeKo@fontCJ\relax
\let\XeKo@fontSY\relax
\let\XeKo@fontAA\relax
\let\XeKo@fontAO\relax
\let\XeKo@fontAC\relax
\let\XeKo@fontAP\relax
\let\XeKo@fontAM\relax
\let\XeKo@fontAH\relax
\let\XeKo@fontOP\relax
\let\XeKo@fontCL\relax
\let\XeKo@fontMD\relax
\let\XeKo@fontFS\relax
\let\XeKo@fontEX\relax
\let\XeKo@fontLD\relax
\let\XeKo@fontVC\relax
}
\protected\def\disablehangulspacing{%
\let\XeKo@halfzero \inhibitglue
\let\XeKo@halfhalf \inhibitglue
\let\XeKo@halfquarter \inhibitglue
\let\XeKo@quarterquarter \inhibitglue
\let\XeKo@iiiquarterquarter \inhibitglue
\let\XeKo@latincjk \inhibitglue
\let\XeKo@postmath \inhibitglue
\let\XKinterhangulbreak \inhibitglue
\let\XKinterhanjabreak \inhibitglue
\let\XeKo@latincjk@classic \inhibitglue
\let\XeKo@latincjk@modern \inhibitglue
\let\XeKo@postmath@modern \inhibitglue
\let\XeKo@suppress@linebreak \relax
\chardef\XeKo@cjk@ignorespaces \z@
\chardef\XeKo@compresspuncts \z@
}
\protected\def\disablehangulspacingandlinebreak{%
\let\inhibitglue \relax
\chardef\XeKo@hangingpuncts \z@
\disablehangulspacing
\XeTeXlinebreaklocale""
}
\protected\def\enablehangulspacingandlinebreak{%
\XeTeXinterchartokenstate\@ne
\XeTeXlinebreaklocale"ko"
}
\enablehangulspacingandlinebreak
% no longer support these two \disable...
\let\disableautojosa\relax
\let\disablejamoautojosa\relax
% ulem support
\protected\def\XeKo@UL@dotemph#1{%
\ifx\ \LA@space\else \UL@stop\fi
\leavevmode
\setbox\XeKo@dotemph@box\hbox{\raise\dotemphraise\hbox{\dotemphchar}}%
\begingroup
\let\XeKo@maybe@dotemph\XeKo@do@dotemph
\XeKo@UL@dotemph@#1 ^^^^ffff \relax
\endgroup
\ifx\ \LA@space\else \UL@start\fi
}
\def\XeKo@UL@dotemph@#1 {%
\ifx^^^^ffff#1\relax
\unskip\unskip\unskip
\else
\ifx\ \LA@space
#1\ %
\else
\UL@start
#1\ %
\UL@stop
\fi
\expandafter\XeKo@UL@dotemph@
\fi
}
\def\xetexkoulemsupport{%
\let\XeKo@UL@stop\UL@stop
\UL@hook\expandafter{\the\UL@hook
\let\dotemph\XeKo@UL@dotemph
% uline ��������� ��������� ������������ ��������� ������
\def\UL@stop{%
\global\let\XeKo@UL@tmp@latinfont \XeKo@latin@font
\global\let\XeKo@UL@tmp@hangulfont \XeKo@hangul@font
\global\let\XeKo@UL@tmp@hanjafont \XeKo@hanja@font
\global\let\XeKo@UL@tmp@rawhangulfont \XeKo@raw@hangul@font
\global\let\XeKo@UL@tmp@rawhanjafont \XeKo@raw@hanja@font
\expandafter \XeKo@UL@stop \the\font
\let\XeKo@latin@font \XeKo@UL@tmp@latinfont
\let\XeKo@hangul@font \XeKo@UL@tmp@hangulfont
\let\XeKo@hanja@font \XeKo@UL@tmp@hanjafont
\let\XeKo@raw@hangul@font \XeKo@UL@tmp@rawhangulfont
\let\XeKo@raw@hanja@font \XeKo@UL@tmp@rawhanjafont
}%
}}
% math hangul
\def\setmathhangulblock#1#2{%
\count@="#1
\loop
\Umathcode\count@ = 7 \symmathhangul\count@
\ifnum\count@<"#2 \advance\count@\@ne
\repeat
}
%%% plain
\ifcsname ver@xetexko.sty\endcsname \else
\def\verticaltypesetting{%
\dimen@\hsize \hsize\vsize \vsize\dimen@
\edef\plainoutput{\dimen@\hsize \hsize\vsize \vsize\dimen@
\unexpanded\expandafter{\plainoutput}}%
\def\pagebody{\setbox\z@\vbox to\hsize{\boxmaxdepth=\maxdepth \pagecontents}%
\XeKo@rotatebox\z@\box\z@}%
\typesetvertical
\let\verticaltypesetting\relax % prevent multiple running
}
\def\beginverticaltypesetting{\vfill\supereject \begingroup \verticaltypesetting}
\def\endverticaltypesetting{\vfill\supereject \endgroup}
% hangul fonts
\protected\def\hangulfont{%
\afterassignment\XeKo@hangulfont@setup\font\XeKo@hangul@font
}
\def\XeKo@hangulfont@setup{%
\edef\XeKo@hangul@font{%
\the\XeKo@hangul@font
\ifdefined\xetexkohu \def\noexpand\xetexkohu{\xetexkohu}\fi
\ifdefined\xetexkointerhchar \def\noexpand\xetexkointerhchar{\xetexkointerhchar}\fi
\ifdefined\xetexkocharraise \def\noexpand\xetexkocharraise{\xetexkocharraise}\fi
}%
}
\protected\def\sethangulfont#1{%
\def\@tempa{#1}%
\edef\@tempb{\string#1}%
\expandafter\afterassignment\expandafter\XeKo@sethangulfont@setup
\expandafter\font\csname XeKo@hangul@font@\@tempb\endcsname
}
\def\XeKo@sethangulfont@setup{%
\expandafter\edef\@tempa{%
\def\noexpand\XeKo@hangul@font{%
\csname XeKo@hangul@font@\@tempb\endcsname
\ifdefined\xetexkohu \def\noexpand\xetexkohu{\xetexkohu}\fi
\ifdefined\xetexkointerhchar \def\noexpand\xetexkointerhchar{\xetexkointerhchar}\fi
\ifdefined\xetexkocharraise \def\noexpand\xetexkocharraise{\xetexkocharraise}\fi
}%
}%
}
\protected\def\hanjafont{%
\afterassignment\XeKo@hanjafont@setup\font\XeKo@hanja@font
}
\def\XeKo@hanjafont@setup{%
\edef\XeKo@hanja@font{%
\the\XeKo@hanja@font
\ifdefined\xetexkohu \def\noexpand\xetexkohu{\xetexkohu}\fi
\ifdefined\xetexkointerhchar \def\noexpand\xetexkointerhchar{\xetexkointerhchar}\fi
\ifdefined\xetexkocharraise \def\noexpand\xetexkocharraise{\xetexkocharraise}\fi
}%
}
\protected\def\sethanjafont#1{%
\def\@tempa{#1}%
\edef\@tempb{\string#1}%
\expandafter\afterassignment\expandafter\XeKo@sethanjafont@setup
\expandafter\font\csname XeKo@hanja@font@\@tempb\endcsname
}
\def\XeKo@sethanjafont@setup{%
\expandafter\edef\@tempa{%
\def\noexpand\XeKo@hanja@font{%
\csname XeKo@hanja@font@\@tempb\endcsname
\ifdefined\xetexkohu \def\noexpand\xetexkohu{\xetexkohu}\fi
\ifdefined\xetexkointerhchar \def\noexpand\xetexkointerhchar{\xetexkointerhchar}\fi
\ifdefined\xetexkocharraise \def\noexpand\xetexkocharraise{\xetexkocharraise}\fi
}%
}%
}
\protected\def\hanjabyhangulfont{\let\XeKo@hanja@font\XeKo@hangul@font }
% math hangul
\protected\def\setmathhangulfonts#1#2#3{% font identifiers
\ifnum\Umathcodenum"AC00="AC00\relax
\csname newfam\endcsname\symmathhangul
\setmathhangulblock{AC00}{D7A3}%
\fi
\textfont\symmathhangul=#1\relax
\scriptfont\symmathhangul=#2\relax
\scriptscriptfont\symmathhangul=#3\relax
}
\protected\def\mathhangulfont{%
\afterassignment\xetexkosetmathhangulfonts\font\textmathhangul
}
\def\xetexkosetmathhangulfonts{%
\edef\@tempa{%
\expandafter\expandafter\expandafter\XeKo@strip@at@size@from@font
\expandafter\fontname\expandafter\textmathhangul\detokenize{ at }\relax
}%
\dimen@\fontdimen 6 \textmathhangul
\font\scriptmathhangul= \@tempa\space at .7\dimen@
\font\scriptscriptmathhangul = \@tempa\space at .5\dimen@
\setmathhangulfonts\textmathhangul\scriptmathhangul\scriptscriptmathhangul
}
\expandafter\def\expandafter\XeKo@strip@at@size@from@font
\expandafter#\expandafter1\detokenize{ at }#2\relax{#1}
% default unbatang
\hangulfont="[UnBatang.ttf]:mapping=tex-text;script=hang" at 10pt
\hanjabyhangulfont
\XeKocatcodeofATchar
\endinput\fi
%%% latex
\def\verticaltypesetting{%
\ifx\@nodocument\relax % not in the preamble
\clearpage
\begingroup
\fi
\hsize\textheight \vsize\textwidth
\textwidth\hsize \textheight\vsize
\@colroom\vsize \@colht\vsize
\if@twocolumn
\columnwidth=.5\dimexpr\textwidth-\columnsep\relax
\linewidth\columnwidth \hsize\columnwidth
\else
\linewidth\hsize \columnwidth\hsize
\fi
\expandafter\def\expandafter\@outputpage\expandafter{%
\expandafter\XeKo@rotatebox\expandafter\@outputbox
\expandafter\textwidth\expandafter\textheight
\@outputpage
}%
\typesetvertical
\let\verticaltypesetting\relax % prevent multiple running
}
\def\endverticaltypesetting{%
\clearpage
\endgroup
\global\@colroom\textheight
\global\@colht\textheight
\global\vsize\textheight
}
\RequirePackage{fontspec}[2020/02/03]
\AddToHook{rmfamily}{%
\let \xetexkohangulfont \xetexkomainhangulfont
\let \xetexkohanguloption \xetexkomainhanguloption
\let \xetexkohanjafont \xetexkomainhanjafont
\let \xetexkohanjaoption \xetexkomainhanjaoption
}
\AddToHook{sffamily}{%
\let \xetexkohangulfont \xetexkosanshangulfont
\let \xetexkohanguloption \xetexkosanshanguloption
\let \xetexkohanjafont \xetexkosanshanjafont
\let \xetexkohanjaoption \xetexkosanshanjaoption
}
\AddToHook{ttfamily}{%
\let \xetexkohangulfont \xetexkomonohangulfont
\let \xetexkohanguloption \xetexkomonohanguloption
\let \xetexkohanjafont \xetexkomonohanjafont
\let \xetexkohanjaoption \xetexkomonohanjaoption
\latinalphs\latinparens\latinpuncts\latincolons\latinhyphens
\disablehangulspacing
}
\AddToHook{cmd/verbatim@font/after}{%
\disablehangulspacingandlinebreak
\aftergroup\enablehangulspacingandlinebreak
}
\AddToHook{normalfont}{%
\let \xetexkohangulfont \xetexkodefaulthangulfont
\let \xetexkohanguloption \xetexkodefaulthanguloption
\let \xetexkohanjafont \xetexkodefaulthanjafont
\let \xetexkohanjaoption \xetexkodefaulthanjaoption
}
\AddToHook{env/picture/begin}{%
\latinalphs\latinparens\latinpuncts\latincolons\latinhyphens
}
\def\XeKo@hangul@selectfont{%
\ifdefined\XeKo@in@selectfont\else
\ifdefined\xetexkohangulfont
\begingroup
\let\XeKo@in@selectfont\empty
\xetexkohangulfont
\edef\x{\endgroup
\def\noexpand\XeKo@hangul@font{\the\font
\unexpanded\expandafter{\xetexkohanguloption}}%
}\x
\xetexkohanguloption % for ���������-������ interlatincjk
\else
\let\XeKo@hangul@font\XeKo@undefined
\fi
\fi
}
\def\XeKo@hanja@selectfont{%
\ifdefined\XeKo@in@selectfont\else
\ifdefined\xetexkohanjafont
\begingroup
\let\XeKo@in@selectfont\empty
\xetexkohanjafont
\edef\x{\endgroup
\def\noexpand\XeKo@hanja@font{\the\font
\unexpanded\expandafter{\xetexkohanjaoption}}%
}\x
\xetexkohanjaoption
\else
\let\XeKo@hanja@font\XeKo@undefined
\fi
\fi }
\let\XeKo@selectfont\selectfont
\ExplSyntaxOn
\AddToHook{selectfont}
{
\fontspec_if_current_script:nTF {math} {} % unless unicode-math font
{
\XeKo@hanja@selectfont
\XeKo@hangul@selectfont
}
}
\tl_new:N \l_xtxko_font_opts_tl
\tl_new:N \l_xtxko_rest_opts_tl
\keys_define:nn { xtxko-font }
{
hu .code:n = { \__xtxko_add_font_opt:Nn \xetexkohu {#1} } ,
interhchar .code:n = { \__xtxko_add_font_opt:Nn \xetexkointerhchar {#1} } ,
charraise .code:n = { \__xtxko_add_font_opt:Nn \xetexkocharraise {#1} } ,
InterLatinCJK .meta:n = { hu = {#1} } ,
InterHangul .meta:n = { interhchar = {#1} } ,
CharRaise .meta:n = { charraise = {#1} } ,
lowerexclamation .code:n = { },
lowerperiod .code:n = { },
lowercomma .code:n = { },
lowerquestion .code:n = { },
postexclamationkern .code:n = { },
postmathskip .code:n = { },
postperiodkern .code:n = { },
postcommakern .code:n = { },
postquestionkern .code:n = { },
preexclamationkern .code:n = { },
preperiodkern .code:n = { },
precommakern .code:n = { },
prequestionkern .code:n = { },
quoteraise .code:n = { },
quotewidth .code:n = { },
PunctRaise .code:n = { },
}
\cs_new:Nn \__xtxko_add_font_opt:Nn
{
\tl_put_right:Nn \l_xtxko_font_opts_tl { \cs_set_nopar:Npn #1 {#2} }
}
\cs_new:Nn \__xtxko_assign_font_opts:n
{
\tl_clear:N \l_xtxko_font_opts_tl
\keys_set_known:neN { xtxko-font } {#1} \l_xtxko_rest_opts_tl
}
\DeclareDocumentCommand \setmainhangulfont { O{} m O{} }
{
\__xtxko_assign_font_opts:n { #1, #3 }
\fontspec_set_family:Nnn \XeKo@mainhangulfamily { Ligatures=TeX, \l_xtxko_rest_opts_tl } { #2 }
\cs_set_protected_nopar:Npn \xetexkomainhangulfont
{
\fontencoding \g_fontspec_encoding_tl \fontfamily \XeKo@mainhangulfamily \XeKo@selectfont
}
\cs_set_eq:NN \xetexkomainhanguloption \l_xtxko_font_opts_tl
\str_if_eq:eeT \familydefault \rmdefault
{
\cs_set_eq:NN \xetexkohangulfont \xetexkomainhangulfont
\cs_set_eq:NN \xetexkohanguloption \xetexkomainhanguloption
\cs_set_eq:NN \xetexkodefaulthangulfont \xetexkomainhangulfont
\cs_set_eq:NN \xetexkodefaulthanguloption \xetexkomainhanguloption
\XeKo@hangul@selectfont
}
\ignorespaces
}
\DeclareDocumentCommand \setsanshangulfont { O{} m O{} }
{
\__xtxko_assign_font_opts:n { #1, #3 }
\fontspec_set_family:Nnn \XeKo@sanshangulfamily { Ligatures=TeX, \l_xtxko_rest_opts_tl } { #2 }
\cs_set_protected_nopar:Npn \xetexkosanshangulfont
{
\fontencoding \g_fontspec_encoding_tl \fontfamily \XeKo@sanshangulfamily \XeKo@selectfont
}
\cs_set_eq:NN \xetexkosanshanguloption \l_xtxko_font_opts_tl
\str_if_eq:eeT \familydefault \sfdefault
{
\cs_set_eq:NN \xetexkohangulfont \xetexkosanshangulfont
\cs_set_eq:NN \xetexkohanguloption \xetexkosanshanguloption
\cs_set_eq:NN \xetexkodefaulthangulfont \xetexkosanshangulfont
\cs_set_eq:NN \xetexkodefaulthanguloption \xetexkosanshanguloption
\XeKo@hangul@selectfont
}
\ignorespaces
}
\DeclareDocumentCommand \setmonohangulfont { O{} m O{} }
{
\__xtxko_assign_font_opts:n { #1, #3 }
\fontspec_set_family:Nnn \XeKo@monohangulfamily { \l_xtxko_rest_opts_tl } { #2 }
\cs_set_protected_nopar:Npn \xetexkomonohangulfont
{
\fontencoding \g_fontspec_encoding_tl \fontfamily \XeKo@monohangulfamily \XeKo@selectfont
}
\cs_set_eq:NN \xetexkomonohanguloption \l_xtxko_font_opts_tl
\str_if_eq:eeT \familydefault \ttdefault
{
\cs_set_eq:NN \xetexkohangulfont \xetexkomonohangulfont
\cs_set_eq:NN \xetexkohanguloption \xetexkomonohanguloption
\cs_set_eq:NN \xetexkodefaulthangulfont \xetexkomonohangulfont
\cs_set_eq:NN \xetexkodefaulthanguloption \xetexkomonohanguloption
\XeKo@hangul@selectfont
}
\ignorespaces
}
\DeclareDocumentCommand \newhangulfontfamily { m O{} m O{} }
{
\__xtxko_assign_font_opts:n { #2, #4 }
\fontspec_set_family:cnn { xetexko_user_family_ \cs_to_str:N #1 } { \l_xtxko_rest_opts_tl } { #3 }
\cs_set_nopar:cpn { xetexko_user_font_ \cs_to_str:N #1 }
{
\fontencoding \g_fontspec_encoding_tl
\exp_args:Nc \fontfamily { xetexko_user_family_ \cs_to_str:N #1 } \XeKo@selectfont
}
\cs_set_nopar:cpe { xetexko_user_option_ \cs_to_str:N #1 }
{
\exp_not:o { \l_xtxko_font_opts_tl }
}
\cs_set_protected_nopar:Npn #1
{
\cs_set_eq:Nc \xetexkohangulfont { xetexko_user_font_ \cs_to_str:N #1 }
\cs_set_eq:Nc \xetexkohanguloption { xetexko_user_option_ \cs_to_str:N #1 }
\XeKo@hangul@selectfont
}
\ignorespaces
}
\DeclareDocumentCommand \newhangulfontface { m O{} m O{} }
{
\newhangulfontfamily #1 { #3 } [ BoldFont={}, ItalicFont={}, SmallCapsFont={}, #2, #4 ]
}
\DeclareDocumentCommand \hangulfontspec { O{} m O{} }
{
\__xtxko_assign_font_opts:n { #1, #3 }
\fontspec_set_family:Nnn \xetexkohangulfontfamily { \l_xtxko_rest_opts_tl } { #2 }
\cs_set_nopar:Npn \xetexkohangulfont
{
\fontencoding \g_fontspec_encoding_tl
\fontfamily \xetexkohangulfontfamily \XeKo@selectfont
}
\cs_set_nopar:Npe \xetexkohanguloption
{
\exp_not:o { \l_xtxko_font_opts_tl }
}
\XeKo@hangul@selectfont
\ignorespaces
}
\cs_set_eq:NN \adhochangulfont \hangulfontspec
\DeclareDocumentCommand \addhangulfontfeature { m }
{
\group_begin:
\fontseries\seriesdefault\fontshape\shapedefault \xetexkohangulfont
\cs_set_eq:NN \l_xtxko_font_opts_tl \xetexkohanguloption
\keys_set_known:neN { xtxko-font } { #1 } \l_xtxko_rest_opts_tl
\addfontfeature { \l_xtxko_rest_opts_tl }
\use:e
{
\group_end:
\exp_not:N \cs_set_nopar:Npn \exp_not:N \xetexkohangulfont
{
\exp_not:N \fontencoding { \f@encoding }
\exp_not:N \fontfamily { \f@family }
\exp_not:N \XeKo@selectfont
}
\exp_not:N \cs_set_nopar:Npn \exp_not:N \xetexkohanguloption
{
\exp_not:o { \l_xtxko_font_opts_tl }
}
}
\XeKo@hangul@selectfont
\ignorespaces
}
\cs_set_eq:NN \addhangulfontfeatures \addhangulfontfeature
\DeclareDocumentCommand \setmainhanjafont { O{} m O{} }
{
\__xtxko_assign_font_opts:n { #1, #3 }
\fontspec_set_family:Nnn \XeKo@mainhanjafamily { Ligatures=TeX, \l_xtxko_rest_opts_tl } { #2 }
\cs_set_protected_nopar:Npn \xetexkomainhanjafont
{
\fontencoding \g_fontspec_encoding_tl \fontfamily \XeKo@mainhanjafamily \XeKo@selectfont
}
\cs_set_eq:NN \xetexkomainhanjaoption \l_xtxko_font_opts_tl
\str_if_eq:eeT \familydefault \rmdefault
{
\cs_set_eq:NN \xetexkohanjafont \xetexkomainhanjafont
\cs_set_eq:NN \xetexkohanjaoption \xetexkomainhanjaoption
\cs_set_eq:NN \xetexkodefaulthanjafont \xetexkomainhanjafont
\cs_set_eq:NN \xetexkodefaulthanjaoption \xetexkomainhanjaoption
\XeKo@hanja@selectfont
}
\ignorespaces
}
\DeclareDocumentCommand \setsanshanjafont { O{} m O{} }
{
\__xtxko_assign_font_opts:n { #1, #3 }
\fontspec_set_family:Nnn \XeKo@sanshanjafamily { Ligatures=TeX, \l_xtxko_rest_opts_tl } { #2 }
\cs_set_protected_nopar:Npn \xetexkosanshanjafont
{
\fontencoding \g_fontspec_encoding_tl \fontfamily \XeKo@sanshanjafamily \XeKo@selectfont
}
\cs_set_eq:NN \xetexkosanshanjaoption \l_xtxko_font_opts_tl
\str_if_eq:eeT \familydefault \sfdefault
{
\cs_set_eq:NN \xetexkohanjafont \xetexkosanshanjafont
\cs_set_eq:NN \xetexkohanjaoption \xetexkosanshanjaoption
\cs_set_eq:NN \xetexkodefaulthanjafont \xetexkosanshanjafont
\cs_set_eq:NN \xetexkodefaulthanjaoption \xetexkosanshanjaoption
\XeKo@hanja@selectfont
}
\ignorespaces
}
\DeclareDocumentCommand \setmonohanjafont { O{} m O{} }
{
\__xtxko_assign_font_opts:n { #1, #3 }
\fontspec_set_family:Nnn \XeKo@monohanjafamily { \l_xtxko_rest_opts_tl } { #2 }
\cs_set_protected_nopar:Npn \xetexkomonohanjafont
{
\fontencoding \g_fontspec_encoding_tl \fontfamily \XeKo@monohanjafamily \XeKo@selectfont
}
\cs_set_eq:NN \xetexkomonohanjaoption \l_xtxko_font_opts_tl
\str_if_eq:eeT \familydefault \ttdefault
{
\cs_set_eq:NN \xetexkohanjafont \xetexkomonohanjafont
\cs_set_eq:NN \xetexkohanjaoption \xetexkomonohanjaoption
\cs_set_eq:NN \xetexkodefaulthanjafont \xetexkomonohanjafont
\cs_set_eq:NN \xetexkodefaulthanjaoption \xetexkomonohanjaoption
\XeKo@hanja@selectfont
}
\ignorespaces
}
\DeclareDocumentCommand \newhanjafontfamily { m O{} m O{} }
{
\__xtxko_assign_font_opts:n { #2, #4 }
\fontspec_set_family:cnn { xetexko_user_family_ \cs_to_str:N #1 } { \l_xtxko_rest_opts_tl } { #3 }
\cs_set_nopar:cpn { xetexko_user_font_ \cs_to_str:N #1 }
{
\fontencoding \g_fontspec_encoding_tl
\exp_args:Nc \fontfamily { xetexko_user_family_ \cs_to_str:N #1 } \XeKo@selectfont
}
\cs_set_nopar:cpe { xetexko_user_option_ \cs_to_str:N #1 }
{
\exp_not:o { \l_xtxko_font_opts_tl }
}
\cs_set_protected_nopar:Npn #1
{
\cs_set_eq:Nc \xetexkohanjafont { xetexko_user_font_ \cs_to_str:N #1 }
\cs_set_eq:Nc \xetexkohanjaoption { xetexko_user_option_ \cs_to_str:N #1 }
\XeKo@hanja@selectfont
}
\ignorespaces
}
\DeclareDocumentCommand \newhanjafontface { m O{} m O{} }
{
\newhanjafontfamily #1 { #3 } [ BoldFont={}, ItalicFont={}, SmallCapsFont={}, #2, #4 ]
}
\DeclareDocumentCommand \hanjafontspec { O{} m O{} }
{
\__xtxko_assign_font_opts:n { #1, #3 }
\fontspec_set_family:Nnn \xetexkohanjafontfamily { \l_xtxko_rest_opts_tl } { #2 }
\cs_set_nopar:Npn \xetexkohanjafont
{
\fontencoding \g_fontspec_encoding_tl
\fontfamily \xetexkohanjafontfamily \XeKo@selectfont
}
\cs_set_nopar:Npe \xetexkohanjaoption
{
\exp_not:o { \l_xtxko_font_opts_tl }
}
\XeKo@hanja@selectfont
\ignorespaces
}
\cs_set_eq:NN \adhochanjafont \hanjafontspec
\DeclareDocumentCommand \addhanjafontfeature { m }
{
\group_begin:
\fontseries\seriesdefault\fontshape\shapedefault \xetexkohanjafont
\cs_set_eq:NN \l_xtxko_font_opts_tl \xetexkohanjaoption
\keys_set_known:neN { xtxko-font } { #1 } \l_xtxko_rest_opts_tl
\addfontfeature { \l_xtxko_rest_opts_tl }
\use:e
{
\group_end:
\exp_not:N \cs_set_nopar:Npn \exp_not:N \xetexkohanjafont
{
\exp_not:N \fontencoding { \f@encoding }
\exp_not:N \fontfamily { \f@family }
\exp_not:N \XeKo@selectfont
}
\exp_not:N \cs_set_nopar:Npn \exp_not:N \xetexkohanjaoption
{
\exp_not:o { \l_xtxko_font_opts_tl }
}
}
\XeKo@hanja@selectfont
\ignorespaces
}
\cs_set_eq:NN \addhanjafontfeatures \addhanjafontfeature
% math hangul
\DeclareDocumentCommand \setmathhangulfont { O{} m O{} }
{
\fontspec_set_family:Nnn \xetexkomathhangulfamily { #1, #3 } { #2 }
\DeclareSymbolFont { mathhangul }
\g_fontspec_encoding_tl \xetexkomathhangulfamily \seriesdefault \shapedefault
\int_compare:nNnT { \Umathcodenum"AC00 } = { "AC00 }
{
\setmathhangulblock{AC00}{D7A3}
}
\ignorespaces
}
% xetexkofontregime
\keys_define:nn { xtxko-char }
{
alphs .code:n = \use:c { #1alphs } ,
parens .code:n = \use:c { #1parens } ,
puncts .code:n = \use:c { #1puncts } ,
colons .code:n = \use:c { #1colons } ,
hyphens .code:n = \use:c { #1hyphens } ,
cjksymbols .code:n = \use:c { #1cjksymbols } ,
nums .meta:n = { alphs = {#1} },
quotes .meta:n = { parens = {#1} },
}
\DeclareDocumentCommand \xetexkofontregime { O{} m O{} }
{
\use:c { #2marks }
\keys_set:nn { xtxko-char } { #1, #3 }
}
% no longer support default hangul/hanja fontfeatures
\DeclareDocumentCommand \defaulthangulfontfeatures { t+ o m } { }
\cs_set_eq:NN \defaulthanjafontfeatures \defaulthangulfontfeatures
\ExplSyntaxOff
\protected\def\hanjabyhangulfont{%
\let\xetexkomainhanjafont \xetexkomainhangulfont
\let\xetexkomainhanjaoption \xetexkomainhanguloption
\let\xetexkosanshanjafont \xetexkosanshangulfont
\let\xetexkosanshanjaoption \xetexkosanshanguloption
\let\xetexkomonohanjafont \xetexkomonohangulfont
\let\xetexkomonohanjaoption \xetexkomonohanguloption
\let\xetexkodefaulthanjafont \xetexkodefaulthangulfont
\let\xetexkodefaulthanjaoption \xetexkodefaulthanguloption
\let\xetexkohanjafont \xetexkohangulfont
\let\xetexkohanjaoption \xetexkohanguloption
\let\XeKo@hanja@font \XeKo@hangul@font
}
\AtBeginDocument{%
\ifdefined\xetexkomainhangulfont\else
\begingroup\rmfamily \expandafter\endgroup
\iffontchar\font"AC00 \else
\IfFontExistsTF{UnBatang.ttf}
{\setmainhangulfont{UnBatang.ttf}[BoldFont=UnBatangBold.ttf,Script=Hangul,Language=Korean]}{}
\fi
\fi
\ifdefined\xetexkosanshangulfont\else
\begingroup\sffamily \expandafter\endgroup
\iffontchar\font"AC00 \else
\IfFontExistsTF{UnDotum.ttf}
{\setsanshangulfont{UnDotum.ttf}[BoldFont=UnDotumBold.ttf]}{}
\fi
\fi
\ifdefined\xetexkomonohangulfont\else
\begingroup\ttfamily \expandafter\endgroup
\iffontchar\font"AC00 \else
\IfFontExistsTF{UnDotum.ttf}{%
\ifnum 0\ifnum\strcmp{\ttdefault}{lmtt}=\z@ 1\fi
\ifnum\strcmp{\ttdefault}{LatinModernMono(0)}=\z@ 1\fi >\z@
\setmonohangulfont{UnDotum.ttf}[
BoldFont=UnDotumBold.ttf,
UprightFeatures={SizeFeatures={{Size={-8.5}, FakeStretch=1.062},
{Size={8.5-11}, FakeStretch=1.05 },
{Size={11-}, FakeStretch=1.03 }}},
BoldFeatures={SizeFeatures={{Size={-}, FakeStretch=1.05 }}},
WordSpace={1.66667,0,0} ]
\else
\setmonohangulfont{UnDotum.ttf}[BoldFont=UnDotumBold.ttf]
\fi
}{}
\fi
\fi
\ifdefined\xetexkomainhanjafont\else
\let\xetexkomainhanjafont \xetexkomainhangulfont
\let\xetexkomainhanjaoption \xetexkomainhanguloption
\fi
\ifdefined\xetexkosanshanjafont\else
\let\xetexkosanshanjafont \xetexkosanshangulfont
\let\xetexkosanshanjaoption \xetexkosanshanguloption
\fi
\ifdefined\xetexkomonohanjafont\else
\let\xetexkomonohanjafont \xetexkomonohangulfont
\let\xetexkomonohanjaoption \xetexkomonohanguloption
\fi
\ifdefined\xetexkodefaulthanjafont\else
\let\xetexkodefaulthanjafont \xetexkodefaulthangulfont
\let\xetexkodefaulthanjaoption \xetexkodefaulthanguloption
\fi
\ifdefined\xetexkohanjafont\else
\let\xetexkohanjafont \xetexkohangulfont
\let\xetexkohanjaoption \xetexkohanguloption
\fi
\ifdefined\XeKo@hanja@font\else
\let\XeKo@hanja@font \XeKo@hangul@font
\fi
}
\AddToHook{package/ulem/after}{\xetexkoulemsupport}
\AddToHook{package/hyperref/after}{\pdfstringdefDisableCommands{%
\let\hangulalphs\relax
\let\hangulnums\relax
\let\hangulparens\relax
\let\hangulquotes\relax
\let\hangulpuncts\relax
\let\hangulmarks\relax
\let\hangulcolons\relax
\let\hangulhyphens\relax
\let\hangulcjksymbols\relax
\let\hanjaalphs\relax
\let\hanjanums\relax
\let\hanjaparens\relax
\let\hanjaquotes\relax
\let\hanjapuncts\relax
\let\hanjamarks\relax
\let\hanjacolons\relax
\let\hanjahyphens\relax
\let\hanjacjksymbols\relax
\let\latinalphs\relax
\let\latinnums\relax
\let\latinparens\relax
\let\latinquotes\relax
\let\latinpuncts\relax
\let\latinmarks\relax
\let\latincolons\relax
\let\latinhyphens\relax
\let\latincjksymbols\relax
\let\prevfontalphs\relax
\let\prevfontnums\relax
\let\prevfontparens\relax
\let\prevfontquotes\relax
\let\prevfontpuncts\relax
\let\prevfontmarks\relax
\let\prevfontcolons\relax
\let\prevfonthyphens\relax
\let\prevfontcjksymbols\relax
\let\hanjabyhangulfont\relax
\let\inhibitglue\relax
\let\typesetclassic\relax
\let\typesetmodern\relax
\let\hangingpunctuation\relax
\let\hangingpunctuations\relax
\let\removeclassicspaces\relax
\let\nocompresspunctuations\relax
\let\compresspunctuations\relax
\let\disablekoreanfonts\relax
\let\disablehangulspacing\relax
\let\disablehangulspacingandlinebreak\relax
\let\enablehangulspacingandlinebreak\relax
\let\jong\relax
\let\jung\relax
\let\rieul\relax
\let\dotemph\@firstofone
\let\addhangulfontfeature\@gobble
\let\addhangulfontfeatures\@gobble
\let\addhanjafontfeature\@gobble
\let\addhanjafontfeatures\@gobble
\def\���{���}%
\def\���{���}%
\def\���{���}%
\def\���{���}%
\def\���{���}%
\def\���{���}%
\def\���{���}%
\def\���{���}%
\def\���{���}%
\def\���{���}%
\def\���{���}%
\def\hellipsis{...}}}
\newif\if@hangul
\newif\if@hanja
\DeclareOption{hangul}{\@hangultrue}
\DeclareOption{hanja}{\@hangultrue\@hanjatrue}
\DeclareOption{unfonts}{}
\ProcessOptions\relax
\RequirePackage{kolabels-utf}
\if@hangul
\RequirePackage{konames-utf}
\fi
\protected\def\hellipsis{^^^^2026^^^^2026}
\if@hangul
\linespread{1.3888}
\footnotesep=1.3888\footnotesep
\skip\footins=\glueexpr\skip\footins/72*100\relax
\frenchspacing
\fi
\XeKocatcodeofATchar
\endinput