This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
No need to store identity mappings.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 19 Feb 2002 00:21:07 +0000 (00:21 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 19 Feb 2002 00:21:07 +0000 (00:21 +0000)
p4raw-id: //depot/perl@14757

lib/unicore/To/Lower.pl
lib/unicore/To/Title.pl
lib/unicore/mktables

index 521d3a2..b7ef2a0 100644 (file)
@@ -5,29 +5,6 @@
 
 %utf8::ToSpecLower =
 (
-'00DF' => "\x{00DF}",
-'0149' => "\x{0149}",
-'01F0' => "\x{01F0}",
-'0390' => "\x{0390}",
-'03B0' => "\x{03B0}",
-'0587' => "\x{0587}",
-'1E96' => "\x{1E96}",
-'1E97' => "\x{1E97}",
-'1E98' => "\x{1E98}",
-'1E99' => "\x{1E99}",
-'1E9A' => "\x{1E9A}",
-'1F50' => "\x{1F50}",
-'1F52' => "\x{1F52}",
-'1F54' => "\x{1F54}",
-'1F56' => "\x{1F56}",
-'1F80' => "\x{1F80}",
-'1F81' => "\x{1F81}",
-'1F82' => "\x{1F82}",
-'1F83' => "\x{1F83}",
-'1F84' => "\x{1F84}",
-'1F85' => "\x{1F85}",
-'1F86' => "\x{1F86}",
-'1F87' => "\x{1F87}",
 '1F88' => "\x{1F80}",
 '1F89' => "\x{1F81}",
 '1F8A' => "\x{1F82}",
 '1F8D' => "\x{1F85}",
 '1F8E' => "\x{1F86}",
 '1F8F' => "\x{1F87}",
-'1F90' => "\x{1F90}",
-'1F91' => "\x{1F91}",
-'1F92' => "\x{1F92}",
-'1F93' => "\x{1F93}",
-'1F94' => "\x{1F94}",
-'1F95' => "\x{1F95}",
-'1F96' => "\x{1F96}",
-'1F97' => "\x{1F97}",
 '1F98' => "\x{1F90}",
 '1F99' => "\x{1F91}",
 '1F9A' => "\x{1F92}",
 '1F9D' => "\x{1F95}",
 '1F9E' => "\x{1F96}",
 '1F9F' => "\x{1F97}",
-'1FA0' => "\x{1FA0}",
-'1FA1' => "\x{1FA1}",
-'1FA2' => "\x{1FA2}",
-'1FA3' => "\x{1FA3}",
-'1FA4' => "\x{1FA4}",
-'1FA5' => "\x{1FA5}",
-'1FA6' => "\x{1FA6}",
-'1FA7' => "\x{1FA7}",
 '1FA8' => "\x{1FA0}",
 '1FA9' => "\x{1FA1}",
 '1FAA' => "\x{1FA2}",
 '1FAD' => "\x{1FA5}",
 '1FAE' => "\x{1FA6}",
 '1FAF' => "\x{1FA7}",
-'1FB2' => "\x{1FB2}",
-'1FB3' => "\x{1FB3}",
-'1FB4' => "\x{1FB4}",
-'1FB6' => "\x{1FB6}",
-'1FB7' => "\x{1FB7}",
 '1FBC' => "\x{1FB3}",
-'1FC2' => "\x{1FC2}",
-'1FC3' => "\x{1FC3}",
-'1FC4' => "\x{1FC4}",
-'1FC6' => "\x{1FC6}",
-'1FC7' => "\x{1FC7}",
 '1FCC' => "\x{1FC3}",
-'1FD2' => "\x{1FD2}",
-'1FD3' => "\x{1FD3}",
-'1FD6' => "\x{1FD6}",
-'1FD7' => "\x{1FD7}",
-'1FE2' => "\x{1FE2}",
-'1FE3' => "\x{1FE3}",
-'1FE4' => "\x{1FE4}",
-'1FE6' => "\x{1FE6}",
-'1FE7' => "\x{1FE7}",
-'1FF2' => "\x{1FF2}",
-'1FF3' => "\x{1FF3}",
-'1FF4' => "\x{1FF4}",
-'1FF6' => "\x{1FF6}",
-'1FF7' => "\x{1FF7}",
 '1FFC' => "\x{1FF3}",
-'FB00' => "\x{FB00}",
-'FB01' => "\x{FB01}",
-'FB02' => "\x{FB02}",
-'FB03' => "\x{FB03}",
-'FB04' => "\x{FB04}",
-'FB05' => "\x{FB05}",
-'FB06' => "\x{FB06}",
-'FB13' => "\x{FB13}",
-'FB14' => "\x{FB14}",
-'FB15' => "\x{FB15}",
-'FB16' => "\x{FB16}",
-'FB17' => "\x{FB17}",
 );
 
 return <<'END';
index fa8401b..1a58400 100644 (file)
 '1F85' => "\x{1F8D}",
 '1F86' => "\x{1F8E}",
 '1F87' => "\x{1F8F}",
-'1F88' => "\x{1F88}",
-'1F89' => "\x{1F89}",
-'1F8A' => "\x{1F8A}",
-'1F8B' => "\x{1F8B}",
-'1F8C' => "\x{1F8C}",
-'1F8D' => "\x{1F8D}",
-'1F8E' => "\x{1F8E}",
-'1F8F' => "\x{1F8F}",
 '1F90' => "\x{1F98}",
 '1F91' => "\x{1F99}",
 '1F92' => "\x{1F9A}",
 '1F95' => "\x{1F9D}",
 '1F96' => "\x{1F9E}",
 '1F97' => "\x{1F9F}",
-'1F98' => "\x{1F98}",
-'1F99' => "\x{1F99}",
-'1F9A' => "\x{1F9A}",
-'1F9B' => "\x{1F9B}",
-'1F9C' => "\x{1F9C}",
-'1F9D' => "\x{1F9D}",
-'1F9E' => "\x{1F9E}",
-'1F9F' => "\x{1F9F}",
 '1FA0' => "\x{1FA8}",
 '1FA1' => "\x{1FA9}",
 '1FA2' => "\x{1FAA}",
 '1FA5' => "\x{1FAD}",
 '1FA6' => "\x{1FAE}",
 '1FA7' => "\x{1FAF}",
-'1FA8' => "\x{1FA8}",
-'1FA9' => "\x{1FA9}",
-'1FAA' => "\x{1FAA}",
-'1FAB' => "\x{1FAB}",
-'1FAC' => "\x{1FAC}",
-'1FAD' => "\x{1FAD}",
-'1FAE' => "\x{1FAE}",
-'1FAF' => "\x{1FAF}",
 '1FB2' => "\x{1FBA}\x{0345}",
 '1FB3' => "\x{1FBC}",
 '1FB4' => "\x{0386}\x{0345}",
 '1FB6' => "\x{0391}\x{0342}",
 '1FB7' => "\x{0391}\x{0342}\x{0345}",
-'1FBC' => "\x{1FBC}",
 '1FC2' => "\x{1FCA}\x{0345}",
 '1FC3' => "\x{1FCC}",
 '1FC4' => "\x{0389}\x{0345}",
 '1FC6' => "\x{0397}\x{0342}",
 '1FC7' => "\x{0397}\x{0342}\x{0345}",
-'1FCC' => "\x{1FCC}",
 '1FD2' => "\x{0399}\x{0308}\x{0300}",
 '1FD3' => "\x{0399}\x{0308}\x{0301}",
 '1FD6' => "\x{0399}\x{0342}",
@@ -94,7 +68,6 @@
 '1FF4' => "\x{038F}\x{0345}",
 '1FF6' => "\x{03A9}\x{0342}",
 '1FF7' => "\x{03A9}\x{0342}\x{0345}",
-'1FFC' => "\x{1FFC}",
 'FB00' => "\x{0046}\x{0066}",
 'FB01' => "\x{0046}\x{0069}",
 'FB02' => "\x{0046}\x{006C}",
index 0ca6dcd..2caf287 100644 (file)
@@ -1635,9 +1635,12 @@ sub SpecialCasing_txt()
         # Wait until all the special cases have been read since
         # they are not listed in numeric order.
         my $ix = hex($code);
-        push @{$CaseInfo{Lower}}, [ $ix, $code, $lower ];
-        push @{$CaseInfo{Title}}, [ $ix, $code, $title ];
-        push @{$CaseInfo{Upper}}, [ $ix, $code, $upper ];
+        push @{$CaseInfo{Lower}}, [ $ix, $code, $lower ]
+           unless $code eq $lower;
+        push @{$CaseInfo{Title}}, [ $ix, $code, $title ]
+           unless $code eq $title;
+        push @{$CaseInfo{Upper}}, [ $ix, $code, $upper ]
+           unless $code eq $upper;
     }
     close IN;