summaryrefslogtreecommitdiff
path: root/language/korean/kotex-utf/contrib/dhucs-trivcj.sty
diff options
context:
space:
mode:
Diffstat (limited to 'language/korean/kotex-utf/contrib/dhucs-trivcj.sty')
-rw-r--r--language/korean/kotex-utf/contrib/dhucs-trivcj.sty126
1 files changed, 126 insertions, 0 deletions
diff --git a/language/korean/kotex-utf/contrib/dhucs-trivcj.sty b/language/korean/kotex-utf/contrib/dhucs-trivcj.sty
new file mode 100644
index 0000000000..0c4f65c052
--- /dev/null
+++ b/language/korean/kotex-utf/contrib/dhucs-trivcj.sty
@@ -0,0 +1,126 @@
+%% File `dhucs-trivcj.sty`
+%%
+%% Copyright (c) 2007-2013 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.
+%%
+%% -----------------------------------------------------------------
+%% \trivcjtypesetting for temporary chinese or japanese insertion
+\ProvidesPackage{dhucs-trivcj}
+ [2011/08/17 temporary chinese/japanese for dhucs]
+
+%%%%%% luatex & xetex
+\ifx가가\relax
+ \newcommand*\trivcjtypesetting{%
+ \parindent1em
+ \let\nbs\nobreakspace %% see CJK.sty
+ \def~{}}
+ \protected\edef\japanese{\unexpanded\expandafter{\japanese\trivcjtypesetting}}
+ \protected\edef\Schinese{\unexpanded\expandafter{\Schinese\trivcjtypesetting}}
+ \protected\edef\Tchinese{\unexpanded\expandafter{\Tchinese\trivcjtypesetting}}
+ \let\chinese\Schinese
+ \expandafter\endinput
+\fi
+
+%%%%% legacy tex
+\newskip\interCJskip
+\interCJskip=0em plus 0.1em minus 0.01em
+\newskip\interXCJskip
+\interXCJskip=.25em plus .15em minus .06em
+
+\newcommand*\trivcjtypesetting{%
+ \parindent1em
+ \let\nbs\nobreakspace %% see CJK.sty
+ \def~{\hskip\interXCJskip\ignorespaces}%% see CJK.sty
+ \edef\declarenobreakspacefactor{\unexpanded\expandafter
+ {\declarenobreakspacefactor\ignorespaces}}%
+ \edef\declarehanjaspacefactor{\unexpanded\expandafter
+ {\declarehanjaspacefactor\ignorespaces}}%
+ \def\check@next@to@sptoken@@{%
+ \ifx\par\dhucs@nextnext
+ \chardef\puncnobre@k\@ne
+ \else
+ %% if \dhucs@nextnext == \fi ???
+ \ifx\bgroup\dhucs@nextnext\else
+ \ifx\egroup\dhucs@nextnext\else
+ % \ifx&\dhucs@nextnext\else
+ \if\noexpand\dhucs@nextnext\relax\else
+ \chardef\nexttoh@ngul\@ne
+ \let\dhucs@next\relax
+ \fi\fi\fi %\fi
+ \fi
+ \unihangulchar@@@\dhucs@next}%
+ \def\kernbeforeasciichar{\hskip\interXCJskip}%
+ \def\breakbetweenhanja{\hskip\interCJskip}%
+ \def\nobreakbetweenhanja{\nobreak\hskip\interCJskip}%
+ \def\breakafterasciichar{\hskip\interXCJskip}%
+ \def\nobreakafterasciichar{\nobreak\hskip\interXCJskip}%
+ \let\breakafterinlinemath\breakafterasciichar
+ \let\nobreakafterinlinemath\nobreakafterasciichar
+ \let\breakbeforeasciichar\breakafterasciichar
+ \def\cjksymbolextraspace{\hskip.5em minus.5em\relax}%
+ \def\postcjksymskip{\futurelet\dhucs@next\@@postcjksymskip}%
+ \def\cjksymbolunskip{\ifhmode\unskip\fi}%
+ \def\cjksymbolskip{\cjksymbolunskip\cjksymbolextraspace}
+ \expandafter\let\csname nexttohangul-1\expandafter
+ \endcsname\csname nexttotrivcj-1\endcsname
+}
+\newcommand*\@@postcjksymskip{%
+ \ifx\dhucs@next.\else
+ \ifx\dhucs@next,\else
+ \ifx\dhucs@next:\else
+ \ifx\dhucs@next;\else
+ \ifx\dhucs@next!\else
+ \ifx\dhucs@next?\else
+ \cjksymbolextraspace
+ \fi\fi\fi\fi\fi \fi
+ \ifhmode\declarehanjaspacefactor\fi
+ \ignorespaces
+}
+
+\DeclareUnicodeCharacter{30FB}%
+ {\cjksymbolunskip\nobreak\hskip.25em minus.25em
+ \hbox to .5em{\hss\unihangulchar{"30FB}\hss}\hskip.25em minus.25em\relax}
+\DeclareUnicodeCharacter{FF01}% !
+ {\cjksymbolunskip\hbox to.1em{\unihangulchar{"FF01}\hss}\postcjksymskip}
+\DeclareUnicodeCharacter{FF0C}% ,
+ {\cjksymbolunskip\hbox to.5em{\unihangulchar{"FF0C}\hss}\postcjksymskip}
+\DeclareUnicodeCharacter{FF0E}% .
+ {\cjksymbolunskip\hbox to.5em{\unihangulchar{"FF0E}\hss}\postcjksymskip}
+\DeclareUnicodeCharacter{FF1A}% :
+ {\cjksymbolunskip\nobreak\hskip.25em minus.25em
+ \hbox to.5em{\hss\unihangulchar{"FF1A}\hss}\hskip.25em minus.25em\relax}
+\DeclareUnicodeCharacter{FF1B}% ;
+ {\cjksymbolunskip\nobreak\hskip.25em minus.25em
+ \hbox to.5em{\hss\unihangulchar{"FF1B}\hss}\hskip.25em minus.25em\relax}
+\DeclareUnicodeCharacter{FF1F}% ?
+ {\cjksymbolunskip\hbox to.1em{\unihangulchar{"FF1F}\hss}\postcjksymskip}
+
+%\newenvironment{japanese}{\SetHanjaFonts{jpmj}{jpgt}{jpgt}\trivcjtypesetting}{}
+%\newenvironment{chinese}{\SetHanjaFonts{cnmj}{cngt}{cngt}\trivcjtypesetting}{}
+% AR PL SungtiL GB
+\DeclareFontFamily{LUC}{gbsn}{\hyphenchar\font\m@ne}
+\DeclareFontShape{LUC}{gbsn}{m}{n}{<-> LUC * gbsnu}{}
+%% AR PL Mingti2L Big5
+\DeclareFontFamily{LUC}{bsmi}{\hyphenchar\font\m@ne}
+\DeclareFontShape{LUC}{bsmi}{m}{n}{<-> LUC * bsmiu}{}
+%% Japanese Wadalab
+\DeclareFontFamily{LUC}{min}{\hyphenchar\font\m@ne}
+\DeclareFontShape{LUC}{min}{m}{n}{ <-> LUC * udmj}{}
+%%
+\newenvironment{japanese}
+{\SetHanjaFonts{min}{min}{min}\trivcjtypesetting}{}
+\newenvironment{Schinese}
+{\SetHanjaFonts{gbsn}{gbsn}{gbsn}\trivcjtypesetting}{}
+\newenvironment{Tchinese}
+{\SetHanjaFonts{bsmi}{bsmi}{bsmi}\trivcjtypesetting}{}
+
+\let\chinese\Schinese\let\endchinese\endSchinese
+
+\endinput