From 3b79a7edb270159eeb2aa2dd72f9cdcff1289fed Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Wed, 4 Feb 2015 22:13:20 +0000
Subject: kotex-utils (4feb15)

git-svn-id: svn://tug.org/texlive/trunk@36210 c570f23f-e606-0410-a88d-b1316a301751
---
 .../texmf-dist/scripts/kotex-utils/jamo-normalize.pl   | 18 +++++++++---------
 Master/texmf-dist/scripts/kotex-utils/komkindex.pl     | 10 ++++++----
 2 files changed, 15 insertions(+), 13 deletions(-)

(limited to 'Master/texmf-dist/scripts/kotex-utils')

diff --git a/Master/texmf-dist/scripts/kotex-utils/jamo-normalize.pl b/Master/texmf-dist/scripts/kotex-utils/jamo-normalize.pl
index f6ed6e70496..a22c5c01401 100755
--- a/Master/texmf-dist/scripts/kotex-utils/jamo-normalize.pl
+++ b/Master/texmf-dist/scripts/kotex-utils/jamo-normalize.pl
@@ -50,15 +50,15 @@ while (@ARGV) {
 
 ##### variables #####
 
-my $cho		= "\x{1100}-\x{115F}\x{A960}-\x{A97C}";
-my $jung	= "\x{1160}-\x{11A7}\x{D7B0}-\x{D7C6}";
-my $jong	= "\x{11A8}-\x{11FF}\x{D7CB}-\x{D7FB}";
-my $tmrk	= "\x{302E}\x{302F}";
-my $boundary	= "\x{200B}";
-my $syllblock	= "[$cho][$jung][$jong]?[$tmrk]?";
-my $jamos	= "[$cho$jung$jong$tmrk]";
+my $cho       = "\x{1100}-\x{115F}\x{A960}-\x{A97C}";
+my $jung      = "\x{1160}-\x{11A7}\x{D7B0}-\x{D7C6}";
+my $jong      = "\x{11A8}-\x{11FF}\x{D7CB}-\x{D7FB}";
+my $tmrk      = "\x{302E}\x{302F}";
+my $boundary  = "\x{200B}";
+my $syllblock = "[$cho][$jung][$jong]?[$tmrk]?";
+my $jamos     = "[$cho$jung$jong$tmrk]";
 
-my %jamo2cjamo	= (
+my %jamo2cjamo = (
   0x1100 => 0x3131, 0x1101 => 0x3132, 0x1102 => 0x3134, 0x1103 => 0x3137,
   0x1104 => 0x3138, 0x1105 => 0x3139, 0x1106 => 0x3141, 0x1107 => 0x3142,
   0x1108 => 0x3143, 0x1109 => 0x3145, 0x110A => 0x3146, 0x110B => 0x3147,
@@ -182,7 +182,7 @@ sub insert_boundary {
       my @subparts = split /($jamos)/, $parts[$i];
       my @newsubparts;
       for my $i (0 .. $#subparts) {
-	push @newsubparts, $subparts[$i] if $subparts[$i];
+        push @newsubparts, $subparts[$i] if $subparts[$i];
       }
       push @newparts, join ($boundary, @newsubparts);
     }
diff --git a/Master/texmf-dist/scripts/kotex-utils/komkindex.pl b/Master/texmf-dist/scripts/kotex-utils/komkindex.pl
index 4efc054fefd..93d7ac4893d 100755
--- a/Master/texmf-dist/scripts/kotex-utils/komkindex.pl
+++ b/Master/texmf-dist/scripts/kotex-utils/komkindex.pl
@@ -275,7 +275,7 @@ foreach my $file (@IDXfiles) {
         }
 
         # @을 경계로 가름.
-        my @ybody = split /(?<!\Q$ist_quote\E])\Q$ist_actual\E/, $_;
+        my @ybody = split /(?<!\Q$ist_quote\E)\Q$ist_actual\E/, $_;
         $_ = $ybody[0];
 
         s/[{}]//g;
@@ -293,13 +293,15 @@ foreach my $file (@IDXfiles) {
 
         $ybody[0] = $_;
 
+        my $tmpkey = $ybody[1];
+        $tmpkey =~ s/(?<!\\)\Q$ist_quote\E(.)/$1/g;
         my @tmp = split "",$ybody[0];
-        $idxhash{ $ybody[1] } = $tmp[0];	# for grouping routine
+        $idxhash{ $tmpkey } = $tmp[0];	# for grouping routine
         if ( $tmp[0] =~ /^\x{F801}/ ) {   # 초성채움.
-          $idxhash{ $ybody[1] } = $tmp[1];
+          $idxhash{ $tmpkey } = $tmp[1];
         }
         if ( $tmp[0] =~ /^\x{F806}/ ) {   # 중성채움.
-          $idxhash{ $ybody[1] } = $tmp[2];
+          $idxhash{ $tmpkey } = $tmp[2];
         }
 
         $_ = join $ist_actual,@ybody;
-- 
cgit v1.2.3