Change 14098 by jhi@alpha on 2002/01/05 22:47:59
The same problem with To{Lower,Title,Upper}
as earlier with ToFold.
Affected files ...
.... //depot/perl/lib/unicore/To/Lower.pl#5 edit
.... //depot/perl/lib/unicore/To/Title.pl#5 edit
.... //depot/perl/lib/unicore/To/Upper.pl#5 edit
.... //depot/perl/lib/unicore/mktables#14 edit
Differences ...
==== //depot/perl/lib/unicore/To/Lower.pl#5 (text) ====
Index: perl/lib/unicore/To/Lower.pl
--- perl/lib/unicore/To/Lower.pl.~1~ Sat Jan 5 16:00:05 2002
+++ perl/lib/unicore/To/Lower.pl Sat Jan 5 16:00:05 2002
@@ -263,9 +263,12 @@
01B7 0292
01B8 01B9
01BC 01BD
-01C4 01C5 01C6
-01C7 01C8 01C9
-01CA 01CB 01CC
+01C4 01C6
+01C5 01C6
+01C7 01C9
+01C8 01C9
+01CA 01CC
+01CB 01CC
01CD 01CE
01CF 01D0
01D1 01D2
@@ -283,7 +286,8 @@
01EA 01EB
01EC 01ED
01EE 01EF
-01F1 01F2 01F3
+01F1 01F3
+01F2 01F3
01F4 01F5
01F6 0195
01F7 01BF
==== //depot/perl/lib/unicore/To/Title.pl#5 (text) ====
Index: perl/lib/unicore/To/Title.pl
--- perl/lib/unicore/To/Title.pl.~1~ Sat Jan 5 16:00:05 2002
+++ perl/lib/unicore/To/Title.pl Sat Jan 5 16:00:05 2002
@@ -344,7 +344,8 @@
03BF 039F
03C0 03A0
03C1 03A1
-03C2 03C3 03A3
+03C2 03A3
+03C3 03A3
03C4 03A4
03C5 03A5
03C6 03A6
==== //depot/perl/lib/unicore/To/Upper.pl#5 (text) ====
Index: perl/lib/unicore/To/Upper.pl
--- perl/lib/unicore/To/Upper.pl.~1~ Sat Jan 5 16:00:05 2002
+++ perl/lib/unicore/To/Upper.pl Sat Jan 5 16:00:05 2002
@@ -247,9 +247,12 @@
01B9 01B8
01BD 01BC
01BF 01F7
-01C5 01C6 01C4
-01C8 01C9 01C7
-01CB 01CC 01CA
+01C5 01C4
+01C6 01C4
+01C8 01C7
+01C9 01C7
+01CB 01CA
+01CC 01CA
01CE 01CD
01D0 01CF
01D2 01D1
@@ -268,7 +271,8 @@
01EB 01EA
01ED 01EC
01EF 01EE
-01F2 01F3 01F1
+01F2 01F1
+01F3 01F1
01F5 01F4
01F9 01F8
01FB 01FA
@@ -340,7 +344,8 @@
03BF 039F
03C0 03A0
03C1 03A1
-03C2 03C3 03A3
+03C2 03A3
+03C3 03A3
03C4 03A4
03C5 03A5
03C6 03A6
==== //depot/perl/lib/unicore/mktables#14 (text) ====
Index: perl/lib/unicore/mktables
--- perl/lib/unicore/mktables.~1~ Sat Jan 5 16:00:05 2002
+++ perl/lib/unicore/mktables Sat Jan 5 16:00:05 2002
@@ -234,9 +234,11 @@
gencat(\@Name, \%General, \@General, \%Cat,
$name, $cat, $code, \&append);
- append($To{Upper} ||= [], $code, $upper) if $upper;
- append($To{Lower} ||= [], $code, $lower) if $lower;
- append($To{Title} ||= [], $code, $title) if $title;
+ # No append() here since since several codes may map into one.
+ push @{$To{Upper}}, [ $code, $code, $upper ] if $upper;
+ push @{$To{Lower}}, [ $code, $code, $lower ] if $lower;
+ push @{$To{Title}}, [ $code, $code, $title ] if $title;
+
append($To{Digit} ||= [], $code, $decimal) if $decimal;
append(\@Bidi, $code, $bidi);
End of Patch.
