kotex-plain (21apr15)

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

3 files changed, 83 insertions, 83 deletions

diff --git a/Master/texmf-dist/doc/plain/kotex-plain/ChangeLog b/Master/texmf-dist/doc/plain/kotex-plain/ChangeLog
index aad779051bf..5d64ae472f3 100644
--- a/Master/texmf-dist/doc/plain/kotex-plain/ChangeLog
+++ b/Master/texmf-dist/doc/plain/kotex-plain/ChangeLog
@@ -1,4 +1,14 @@
-2013-10-26	Kangsoo Kim <karnes at ktug org>
+2015-04-19  Dohyun Kim  <nomos at ktug org>
+
+	Version 2.1.0
+
+	* kotexutf-core.tex: refined kernel macros.
+
+2013-10-28  Kihwang Lee  <leekh at ktug org>
+
+	No version change, CTAN update
+
+2013-10-26  Kangsoo Kim  <karnes at ktug org>
 
 	Version 2.0.2
 
@@ -6,50 +16,63 @@
 	* hangulcweb.sty: fix for xetexko and luatexko v2.1
 	* kotexutf.sty: fix for xetexko and luatexko v2.1
 
-2010-01-04	Dohyum Kim <nomos at ktug org>
+2013-10-24  Kihwang Lee  <leekh at ktug org>
+
+	No version change
+
+	* Uploaded to CTAN
+
+2013-10-21  Kihwang Lee  <leekh at ktug org>
+
+	Version 2.0.0
+
+	* kotex-plain packaging, uploaded to https://github.com/kihwanglee/kotex-plain
+
+2010-01-04  Dohyun Kim  <nomos at ktug org>
 
 	Version 2.0.1a
 
 	* kotexutf.tex: finemath on bas been plain TeX default
 
-2009-03-06	Dohyun Kim <nomos at ktug org>
+2009-03-06  Dohyun Kim  <nomos at ktug org>
 
 	Version 2.0.1
 
 	* kotexplain.tex: plaintex wrapper
 
-2009-03-05	Dohyun Kim <nomos at ktug org>
+2009-03-05  Dohyun Kim  <nomos at ktug org>
 
 	Version 2.0.0
 
 	* kotexplain.tex: do nothing except loading kotexutf.tex
 
-2007-06-26	Dohyum Kim <nomos at ktug org>
+2007-06-26  Dohyum Kim  <nomos at ktug org>
 
 	Version 1.0.5
 
 	* kotexplain.tex: error if char does not exist
 
-2007-06-26	Dohyun Kim <nomos at ktug org>
+2007-06-26  Dohyun Kim  <nomos at ktug org>
 
 	Version 1.0.4
 
 	* kotexplain.tex: redefine U+2018, U+2019, u+201C, u+201D
 
-2007-06-25	Dohyun Kim <nomos at ktug org>
+2007-06-25  Dohyun Kim  <nomos at ktug org>
 
 	Version 1.0.3
 
 	* kotexplain.tex: fix bugs introduced by previous minor upgrade
 
-2007-06-24	Dohyun Kim <nomos at ktug org>
+2007-06-24  Dohyun Kim  <nomos at ktug org>
 
 	Version 1.0.2
 
 	* kotexplain.tex: lower multiple punctuations
 
-2007-06-14	Dohyun Kim <nomos at ktug org>
+2007-06-14  Dohyun Kim  <nomos at ktug org>
 
 	Version 1.0.1
 
 	* kotexplain.tex: \hu was too normal a CS. use \dhucs@hu instead
+
diff --git a/Master/texmf-dist/doc/plain/kotex-plain/README b/Master/texmf-dist/doc/plain/kotex-plain/README
index c452bdb705a..6749669b6e9 100644
--- a/Master/texmf-dist/doc/plain/kotex-plain/README
+++ b/Master/texmf-dist/doc/plain/kotex-plain/README
@@ -59,7 +59,7 @@ License
 -------
 
 kotex-plain is licensed under the LaTeX Project Public
-License (LPPL).
+License (LPPL) version 1.3c or later.
 
 Contacts
 --------
diff --git a/Master/texmf-dist/tex/plain/kotex-plain/kotexutf-core.tex b/Master/texmf-dist/tex/plain/kotex-plain/kotexutf-core.tex
index 98bf4ce5959..aa79d8e1d61 100644
--- a/Master/texmf-dist/tex/plain/kotex-plain/kotexutf-core.tex
+++ b/Master/texmf-dist/tex/plain/kotex-plain/kotexutf-core.tex
@@ -19,90 +19,17 @@
 %% frenchspacing is default
 \frenchspacing
 
-%% modifying commands from utf8.def
-\def\UTFviii@two@octets#1#2{%
-  \ifx\protect\noexpand
-    \string#1\string#2%
-  \else
-    \ifx\protect\string
-      \string#1\string#2%
-    \else
-      \ifcsname u8:\string#1\string#2\endcsname
-	\csname u8:\string#1\string#2%
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter\endcsname
-      \else
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter\unihangul@two@octets
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter#1%
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter#2%
-      \fi
-    \fi
-  \fi
-}
 \def\unihangul@two@octets#1#2{%
     \expandafter\unihangulchar\expandafter{%
       \number\numexpr
 	(`#1 - 192) * 64 +
 	(`#2 - 128) \relax}}
-\def\UTFviii@three@octets#1#2#3{%
-  \ifx\protect\noexpand
-    \string#1\string#2\string#3%
-  \else
-    \ifx\protect\string
-      \string#1\string#2\string#3%
-    \else
-      \ifcsname u8:\string#1\string#2\string#3\endcsname
-	\csname u8:\string#1\string#2\string#3%
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter\endcsname
-      \else
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter\unihangul@three@octets
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter#1%
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter#2%
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter#3%
-      \fi
-    \fi
-  \fi
-}
 \def\unihangul@three@octets#1#2#3{%
     \expandafter\unihangulchar\expandafter{%
       \number\numexpr
 	(`#1 - 224) * 4096 +
 	(`#2 - 128) * 64 +
 	(`#3 - 128) \relax}}
-\def\UTFviii@four@octets#1#2#3#4{%
-  \ifx\protect\noexpand
-    \string#1\string#2\string#3\string#4%
-  \else
-    \ifx\protect\string
-      \string#1\string#2\string#3\string#4%
-    \else
-      \ifcsname u8:\string#1\string#2\string#3\string#4\endcsname
-	\csname u8:\string#1\string#2\string#3\string#4%
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter\endcsname
-      \else
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter\unihangul@four@octets
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter#1%
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter#2%
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter#3%
-	\expandafter\expandafter\expandafter\expandafter
-	\expandafter\expandafter\expandafter#4%
-      \fi
-    \fi
-  \fi
-}
 \def\unihangul@four@octets#1#2#3#4{%
     \expandafter\unihangulchar\expandafter{%
       \number\numexpr
@@ -111,6 +38,56 @@
 	(`#3 - 128) * 64 +
 	(`#4 - 128) \relax}}
 
+\count@"80 \loop
+  \uccode\count@\z@
+  \lccode\count@\z@
+  \catcode\count@=12
+\ifnum\count@<"BF \advance\count@\@ne \repeat
+
+\count@"C2 \loop
+  \uccode\count@\z@
+  \lccode\count@\z@
+  \begingroup
+  \lccode`\~\count@
+  \lowercase{\endgroup
+    \protected\def~##1{%
+      \ifcsname U8:\string~\string##1\endcsname
+        \csname U8:\string~\string##1\expandafter\endcsname
+      \else
+        \expandafter\unihangul@two@octets
+        \expandafter~\expandafter##1%
+      \fi }}
+\ifnum\count@<"DF \advance\count@\@ne \repeat
+
+\count@"E0 \loop
+  \uccode\count@\z@
+  \lccode\count@\z@
+  \begingroup
+  \lccode`\~\count@
+  \lowercase{\endgroup
+  \protected\def~##1##2{%
+    \ifcsname U8:\string~\string##1\string##2\endcsname
+      \csname U8:\string~\string##1\string##2\expandafter\endcsname
+    \else
+      \expandafter\unihangul@three@octets
+      \expandafter~\expandafter##1\expandafter##2%
+    \fi }}
+\ifnum\count@<"EF \advance\count@\@ne \repeat
+
+\count@"F0 \loop
+  \uccode\count@\z@
+  \lccode\count@\z@
+  \begingroup
+  \lccode`\~\count@
+  \lowercase{\endgroup
+    \protected\def~##1##2##3{%
+      \ifcsname U8:\string~\string##1\string##2\string##3\endcsname
+        \csname U8:\string~\string##1\string##2\string##3\expandafter\endcsname
+      \else
+        \expandafter\unihangul@four@octets
+        \expandafter~\expandafter##1\expandafter##2\expandafter##3%
+      \fi }}
+\ifnum\count@<"F4 \advance\count@\@ne \repeat
 
 %% subfont plane and char slot
 \def\geth@ngulpl@ne@ndch@r{%