cjk-ko (25mar13)

git-svn-id: svn://tug.org/texlive/trunk@29516 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 388 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/cjk-ko/cjkutf8-ko.sty b/Master/texmf-dist/tex/latex/cjk-ko/cjkutf8-ko.sty
new file mode 100644
index 00000000000..083df4a284a
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/cjk-ko/cjkutf8-ko.sty
@@ -0,0 +1,388 @@
+% $Id: cjkutf8-ko.sty,v 1.14 2013/03/07 04:53:32 nomos Exp $
+%
+% Copyright (c) 2013 Dohyun Kim <nomos at ktug or kr>
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program in doc/COPYING; if not, write to the Free
+% Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
+% MA 02110-1301 USA
+
+\ProvidesPackage{cjkutf8-ko}[2013/02/23 v1.0 Hangul typesetting on CJKutf8]
+
+\ifx\eTeXversion\relax \let\eTeXversion\undefined \fi
+\newif\if@hangul
+\newif\if@hanja
+\let\use@josa\empty
+
+\DeclareOption{hangul}{\@hangultrue}
+\DeclareOption{hanja}{\@hanjatrue\@hangultrue}
+\DeclareOption{usecjkt1font}{\let\usecjk@@font\empty\@hangultrue}
+\DeclareOption{usedotemph}{\let\usedot@mph\empty}
+\DeclareOption{nojosa}{\let\use@josa\undefined}
+\ProcessOptions\relax
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+% font settings
+\ifx\usecjk@@font\undefined\else
+  \RequirePackage[T1]{fontenc}
+  \RequirePackage{textcomp}
+  \def\rmdefault{nanummj}
+  \def\sfdefault{nanumgt}
+  \ifx\eTeXversion\undefined % TW T1 is broken
+    \g@addto@macro\ttfamily{\fontencoding{OT1}\selectfont}
+  \fi
+\fi
+
+\RequirePackage{CJKutf8}
+
+\g@addto@macro\rmfamily{\CJKfamily{nanummj}}
+\g@addto@macro\sffamily{\CJKfamily{nanumgt}}
+\g@addto@macro\ttfamily{\CJKfamily{nanumgt}}
+
+\AtBeginDocument{
+  \edef\reserved@a{\familydefault}
+  \edef\reserved@b{\rmdefault}
+  \ifx\reserved@a\reserved@b
+    \CJKfamily{nanummj}
+    \g@addto@macro\normalfont{\CJKfamily{nanummj}}
+    \if@hangul\ifx\usecjk@@font\undefined
+      \CJKKO@hangulspaceglue{t1nanummjm}% get space glue from hangul font
+    \fi\fi
+  \else
+    \CJKfamily{nanumgt}
+    \g@addto@macro\normalfont{\CJKfamily{nanumgt}}
+    \if@hangul\ifx\usecjk@@font\undefined
+      \CJKKO@hangulspaceglue{t1nanumgtm}% get space glue from hangul font
+    \fi\fi
+  \fi
+  \let\reset@font\normalfont
+}
+
+\def\CJKKO@hangulspaceglue#1{%
+  \bgroup
+  \@for\reserved@a:=,\small,\footnotesize,\large,\Large,\LARGE\do{%
+    \reserved@a
+    \font\x=#1 at \f@size\p@
+    \fontdimen2\font=\fontdimen2\x
+    \fontdimen3\font=.5\fontdimen2\x
+    \fontdimen4\font=.3333\fontdimen2\x
+    \fontdimen7\font=\fontdimen7\x }%
+  \egroup }
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% dotemph
+% CJKfntef.sty requires e-TeX
+\ifx\ifcsname\undefined
+  \expandafter\let
+  \csname ifcsname\expandafter\endcsname
+  \csname iffalse\endcsname
+\fi
+% Users can redefine \dotemphchar and \dotemphraise
+\ifx\usedot@mph\undefined
+  \def\dotemph{\PackageError{cjkutf8-ko}
+    {To enable \string\dotemph, package option [usedotemph] is required}
+    {CJKfntef.sty will be automatically loaded if [usedotemph] option is given}}
+\else
+  % CJKglue should be skip only. seems to do with \LA@CJKglue in CJKulem.sty
+  \RequirePackage{ulem}[2000/05/26]
+  \addto@hook\UL@hook{\let\CJKglue\HangulGlue}
+  \RequirePackage{CJKfntef}
+  \ifx\usecjk@@font\undefined\normalem\else % currently tex writer T1 is broken
+  \ifx\eTeXversion\undefined\else\normalem\fi\fi
+  \def\dotemphraise{0.2em}
+  \def\dotemphchar{\bfseries\Unicode{"02}{"D9}}
+  % user command: dotemph
+  \DeclareRobustCommand*\dotemph{%
+    \CJKunderanysymbol{-\dotemphraise}{\dotemphchar}}
+  \AtBeginDocument{
+    \@ifpackageloaded{hyperref}{\g@addto@macro\pdfstringdefPreHook{%
+	\let\dotemph\@firstofone
+    }}{}
+  }
+\fi
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+% start CJK env
+\def\HangulGlue{\hskip0pt plus.1ex minus.01em }
+\def\HangulPenalty{\ifnum\lastpenalty=\z@ \penalty50 \fi}
+\def\CJKglue{\HangulPenalty\HangulGlue}
+\def\CJKpostmathglue{\HangulPenalty\hskip.25ex plus.1ex minus.05ex }
+\CJKspace
+\CJK@envStart{}{UTF8}{nanummj}
+\makeatletter
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% CJKscale: scale CJK char size
+\def\CJKscale#1{%
+  \ifx\usecjk@@font\undefined
+    \def\CJK@scale{#1}%
+  \else
+    \PackageError{cjkutf8-ko}
+      {\string\CJKscale\space is not allowed}
+      {\string\CJKscale\space cannot be used with option [usecjkt1font]}
+  \fi}
+\@onlypreamble\CJKscale
+\def\cancelCJKscale{\let\CJK@scale\undefined}
+\@onlypreamble\cancelCJKscale
+\AtBeginDocument{
+  \ifx\usecjk@@font\undefined
+  \ifx\CJK@scale\undefined\else
+    % redefine \CJK@empty
+    \def\CJK@empty#1{%
+      \@tempdimb \f@size\p@
+      \@tempdimb\CJK@scale\@tempdimb %%% inserted
+      \ifx\optional@arg \@empty
+      \else
+	\expandafter\ifx
+	 \csname CJK@\mandatory@arg/\f@size/\the\@tempdimb\endcsname \relax
+	  \@tempdimb \optional@arg\@tempdimb
+	  #1{Font\space shape\space `\curr@fontshape'\space
+	     will\space be\MessageBreak
+	     scaled\space to\space size\space \the\@tempdimb}%
+	  \expandafter
+	   \gdef\csname CJK@\mandatory@arg/\f@size/\the\@tempdimb\endcsname{}%
+	\fi
+      \fi
+      \edef\external@font{%
+	\mandatory@arg\CJK@plane\space at \the\@tempdimb}%
+      \xdef\font@name{%
+	\csname \curr@fontshape/\f@size/\CJK@plane\endcsname}%
+      \expandafter\global\expandafter\let
+       \csname \CJK@curr@fontshape\expandafter\endcsname
+	\csname \curr@fontshape\endcsname}
+    \if@hangul % hangul is main language
+      % scale space glue
+      \bgroup
+      \@for\reserved@a:=,\small,\footnotesize,\large,\Large,\LARGE\do{%
+	\reserved@a
+	\fontdimen2\font=\CJK@scale\fontdimen2\font
+	\fontdimen3\font=\CJK@scale\fontdimen3\font
+	\fontdimen4\font=\CJK@scale\fontdimen4\font
+	\fontdimen7\font=\CJK@scale\fontdimen7\font}
+      \egroup
+      % scale parindent, footnotesep, footins
+      \parindent\CJK@scale\parindent
+      \footnotesep\CJK@scale\footnotesep
+      \skip\footins=\CJK@scale\skip\footins plus6pt minus3pt
+      % scale linespread
+      \@tempdima\baselinestretch\p@
+      \@tempdima\CJK@scale\@tempdima
+      \edef\reserved@a{\strip@pt\@tempdima}
+      \expandafter\expandafter\expandafter\linespread\expandafter{\reserved@a}
+      \selectfont
+    \fi
+  \fi\fi
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% insert CJKglue before opening ascii and letter
+\def\CJK@ignorespaces{%
+  \ifnum\lastkern=\@ne
+    \spacefactor\@m % was normal cjk, so sf=1000
+    \expandafter\expandafter\expandafter\CJKKO@check@next@tok
+  \fi}
+\def\CJKKO@check@next@tok{\futurelet\@let@token\CJKKO@check@next@tok@}
+\def\CJKKO@check@next@tok@{%
+  \ifx\@let@token(\CJKglue\else
+  \ifx\@let@token`\CJKglue\else
+  \ifx\@let@token[\CJKglue\else
+  \ifx\@let@token<\CJKglue\else
+  \ifx\@let@token\{\CJKglue\else
+  \ifcat\noexpand\@let@token\CJKKO@catcodeXI
+    \CJKglue
+  \fi\fi\fi\fi\fi\fi}
+
+\begingroup
+  \catcode`\A=11 \global\let\CJKKO@catcodeXI=A
+\endgroup
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% allow break after ascii (except opening) and before cjk
+%%% not a good solution. but...
+\sfcode16=998 % t1 ``
+\sfcode40=998 % (
+\sfcode60=998 % <
+\sfcode91=998 % [
+\sfcode92=998 % ot1 ``
+\sfcode96=998 % `
+\sfcode102=998 % oms {
+\sfcode123=998 % t1 {
+\ifx\eTeXversion\undefined
+  \def\CJK@testLastCJK{%
+    \global\CJK@false
+    \ifnum\lastkern=\@ne
+      \global \CJK@true
+    %%% inserted
+    \else
+      \ifhmode
+      \ifnum\lastkern=\tw@\else
+      \ifnum\lastskip=\z@ % last node is not space (?)
+      \ifnum\lastpenalty=\z@ % last node is not penalty (?)
+      \ifnum\spacefactor=998 \else % last char is not opening ascii
+	\ifx\CJK@plane\undefined\else
+	  \CJK@testPostPunct{\CJK@@@enc}{\CJK@plane}{\CJK@gtemp}%
+	\fi
+	\ifCJK@ \global\CJK@false
+	\else \CJKglue % this char is not closing cjk
+	\fi
+      \fi\fi\fi\fi\fi
+    %%% end of inserted
+    \fi}
+\else
+  \def\CJK@testLastCJK{%
+    \global\CJK@false
+    \ifnum\lastkern=\@ne
+      \global \CJK@true
+    %%% inserted
+    \else
+      \ifhmode
+      \ifnum\lastkern=\tw@\else
+      \ifnum\lastskip=\z@ % last node is not space (?)
+      \ifnum\lastpenalty=\z@ % last node is not penalty (?)
+      \ifnum\spacefactor=998 \else % last char is not opening ascii
+	\ifx\CJK@plane\undefined\else
+	  \CJK@testPostPunct{\CJK@@@enc}{\CJK@plane}{\CJK@gtemp}%
+	\fi
+	\ifCJK@
+	  \global\CJK@false
+	\else % this char is not closing cjk
+	  \ifnum\lastnodetype=10 \CJKpostmathglue % after math-off
+	  \else \CJKglue
+	  \fi
+	\fi
+      \fi\fi\fi\fi\fi
+    %%% end of inserted
+    \fi}
+\fi
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+% half-width puncts
+\def\CJKKO@XXX@plane{30}
+\def\CJKKO@FF@plane{ff}
+\DeclareRobustCommand\CJKpunctsymbol[1]{%
+  \ifx\CJK@plane\CJKKO@XXX@plane
+    \ifcase#1\CJKsymbol{#1}% 3000
+    \or \CJKKO@normal@punct{#1}% 3001
+    \or \CJKKO@normal@punct{#1}% 3002
+    \or \CJKsymbol{#1}% 3003
+    \or \CJKsymbol{#1}% 3004
+    \or \CJKsymbol{#1}% 3005
+    \or \CJKsymbol{#1}% 3006
+    \or \CJKsymbol{#1}% 3007
+    \or \CJKKO@opening@punct{#1}% 3008
+    \or \CJKKO@normal@punct{#1}%  3009
+    \or \CJKKO@opening@punct{#1}% 300A
+    \or \CJKKO@normal@punct{#1}%  300B
+    \or \CJKKO@opening@punct{#1}% 300C
+    \or \CJKKO@normal@punct{#1}%  300D
+    \or \CJKKO@opening@punct{#1}% 300E
+    \or \CJKKO@normal@punct{#1}%  300F
+    \or \CJKKO@opening@punct{#1}% 3010
+    \or \CJKKO@normal@punct{#1}%  3011
+    \or \CJKsymbol{#1}% 3012
+    \or \CJKsymbol{#1}% 3013
+    \or \CJKKO@opening@punct{#1}% 3014
+    \or \CJKKO@normal@punct{#1}%  3015
+    \or \CJKKO@opening@punct{#1}% 3016
+    \or \CJKKO@normal@punct{#1}%  3017
+    \or \CJKKO@opening@punct{#1}% 3018
+    \or \CJKKO@normal@punct{#1}%  3019
+    \or \CJKKO@opening@punct{#1}% 301A
+    \or \CJKKO@normal@punct{#1}%  301B
+    \else \CJKsymbol{#1}%
+    \fi
+  \else
+    \ifx\CJK@plane\CJKKO@FF@plane
+      \ifnum#1="08 \CJKKO@opening@punct{#1}% FF08
+      \else\ifnum#1="09 \CJKKO@normal@punct{#1}% FF09
+      \else \CJKsymbol{#1}%
+      \fi\fi
+    \else
+      \CJKsymbol{#1}%
+    \fi
+  \fi}
+\def\CJKKO@opening@punct#1{\leavevmode\hbox to.5em{\hss\CJKsymbol{#1}}}
+\def\CJKKO@normal@punct#1{\leavevmode\hbox to.5em{\CJKsymbol{#1}\hss}}
+\DeclareUnicodeCharacter{00B7}
+  {\leavevmode\kern.25em \Unicode{0}{"B7}\hskip.25em\relax}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% lowercjkchar: eg, \lowercjkchar{-0.1em}
+%%% do NOT use unit ex; hangul subfonts may not have x-height
+\def\lowercjkchar#1{%
+  \ifx\usecjk@@font\undefined
+    \def\CJK@charlower{#1}%
+  \else
+    \PackageError{cjkutf8-ko}
+      {\string\lowercjkchar\space is not allowed}
+      {\string\lowercjkchar\space cannot be used with option [usecjkt1font]}
+  \fi}
+\let\lowerCJKchar\lowercjkchar
+\@onlypreamble\lowercjkchar \@onlypreamble\lowerCJKchar
+\def\cancellowercjkchar{\let\CJK@charlower\undefined}
+\let\cancellowerCJKchar\cancellowercjkchar
+\@onlypreamble\cancellowercjkchar \@onlypreamble\cancellowerCJKchar
+\AtBeginDocument{
+  \ifx\usecjk@@font\undefined
+  \ifx\CJK@charlower\undefined\else
+    \DeclareRobustCommand{\CJKsymbol}[1]{%
+      \leavevmode\lower\CJK@charlower\hbox{% inserted
+	\symbol{#1}%
+	\ifCJK@bold@
+	  \hbox to \CJKboldshift{\hss\symbol{#1}}%
+	  \hbox to \CJKboldshift{\hss\symbol{#1}}%
+	\fi
+      }% inserted
+    }
+  \fi\fi
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% nanummj has no hanja : texlive only
+\ifx\eTeXversion\undefined\else
+  \RequirePackage{cjkutf8-nanummjhanja}
+\fi
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% auto-josa, light version
+\RequirePackage{cjkutf8-josa}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+% hangul captions, labels, and spacing
+\RequirePackage{kolabels-utf}
+\if@hangul
+  \RequirePackage{konames-utf}
+  \ifx\eTeXversion\undefined \mathsurround=0.25ex \fi
+  \linespread{1.3888}
+  \footnotesep=1.3888\footnotesep
+  \skip\footins=1.3888\skip\footins plus6pt minus3pt
+  \frenchspacing
+\fi
+
+%\ifx\usecjk@@font\undefined
+%  \CJKscale{0.95}
+%  \lowercjkchar{-0.07em}
+%\fi
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% disable cmap by CJK, which sometimes behaves insalely
+%%% instead try to use pdftex's pdfgentounicode
+\ifpdf
+  \let\CJK@addcmap\@gobble
+  \ifx\pdfgentounicode\undefined\else
+    \pdfgentounicode=1
+    \input glyphtounicode
+  \fi
+\fi
+
+\endinput