summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/kotex-utils
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-02-04 22:13:20 +0000
committerKarl Berry <karl@freefriends.org>2015-02-04 22:13:20 +0000
commit3b79a7edb270159eeb2aa2dd72f9cdcff1289fed (patch)
tree6185c98ec795bfe3b52bc4e5c631b9768b870c99 /Master/texmf-dist/scripts/kotex-utils
parent93c850c63d0ceadb34e2e7ff703676f122ebb581 (diff)
kotex-utils (4feb15)
git-svn-id: svn://tug.org/texlive/trunk@36210 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/kotex-utils')
-rwxr-xr-xMaster/texmf-dist/scripts/kotex-utils/jamo-normalize.pl18
-rwxr-xr-xMaster/texmf-dist/scripts/kotex-utils/komkindex.pl10
2 files changed, 15 insertions, 13 deletions
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;