diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-05 22:47:59 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-05 22:47:59 +0000 |
| commit | 282e7f1e0d4a0c4dde1baf82ed27182d09bae8f9 (patch) | |
| tree | edb3d5919d2e71191e4f69930d260afddcdf39bd | |
| parent | 9715e8511d7ded5c50f7cf8ce067dea8b9c2c2d1 (diff) | |
| download | perl-282e7f1e0d4a0c4dde1baf82ed27182d09bae8f9.tar.gz | |
The same problem with To{Lower,Title,Upper}
as earlier with ToFold.
p4raw-id: //depot/perl@14098
| -rw-r--r-- | lib/unicore/To/Lower.pl | 12 | ||||
| -rw-r--r-- | lib/unicore/To/Title.pl | 3 | ||||
| -rw-r--r-- | lib/unicore/To/Upper.pl | 15 | ||||
| -rw-r--r-- | lib/unicore/mktables | 8 |
4 files changed, 25 insertions, 13 deletions
diff --git a/lib/unicore/To/Lower.pl b/lib/unicore/To/Lower.pl index 550863442e..2fc00e623d 100644 --- a/lib/unicore/To/Lower.pl +++ b/lib/unicore/To/Lower.pl @@ -263,9 +263,12 @@ return <<'END'; 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 @@ return <<'END'; 01EA 01EB 01EC 01ED 01EE 01EF -01F1 01F2 01F3 +01F1 01F3 +01F2 01F3 01F4 01F5 01F6 0195 01F7 01BF diff --git a/lib/unicore/To/Title.pl b/lib/unicore/To/Title.pl index 5a43c63ca8..a4189ec7c3 100644 --- a/lib/unicore/To/Title.pl +++ b/lib/unicore/To/Title.pl @@ -344,7 +344,8 @@ return <<'END'; 03BF 039F 03C0 03A0 03C1 03A1 -03C2 03C3 03A3 +03C2 03A3 +03C3 03A3 03C4 03A4 03C5 03A5 03C6 03A6 diff --git a/lib/unicore/To/Upper.pl b/lib/unicore/To/Upper.pl index 37942905de..d852650481 100644 --- a/lib/unicore/To/Upper.pl +++ b/lib/unicore/To/Upper.pl @@ -247,9 +247,12 @@ return <<'END'; 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 @@ return <<'END'; 01EB 01EA 01ED 01EC 01EF 01EE -01F2 01F3 01F1 +01F2 01F1 +01F3 01F1 01F5 01F4 01F9 01F8 01FB 01FA @@ -340,7 +344,8 @@ return <<'END'; 03BF 039F 03C0 03A0 03C1 03A1 -03C2 03C3 03A3 +03C2 03A3 +03C3 03A3 03C4 03A4 03C5 03A5 03C6 03A6 diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 067af24b6a..e92effbc06 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -234,9 +234,11 @@ if (open(my $Unicode, "Unicode.txt")) { 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); |