This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Is{Alnum,Alpha,Word} don't match titlecase
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 30 Apr 2000 18:17:47 +0000 (18:17 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 30 Apr 2000 18:17:47 +0000 (18:17 +0000)
TODO: IsSpace is defined recursively!

(both spotted by Larry)

p4raw-id: //depot/perl@6025

lib/unicode/Is/Alnum.pl
lib/unicode/Is/Alpha.pl
lib/unicode/Is/Word.pl
lib/unicode/mktables.PL

index d44f744..203860b 100644 (file)
@@ -10,11 +10,7 @@ return <<'END';
 00ba   
 00c0   00d6
 00d8   00f6
-00f8   01c4
-01c6   01c7
-01c9   01ca
-01cc   01f1
-01f3   021f
+00f8   021f
 0222   0233
 0250   02ad
 0386   
@@ -210,19 +206,16 @@ return <<'END';
 1f5b   
 1f5d   
 1f5f   1f7d
-1f80   1f87
-1f90   1f97
-1fa0   1fa7
-1fb0   1fb4
-1fb6   1fbb
+1f80   1fb4
+1fb6   1fbc
 1fbe   
 1fc2   1fc4
-1fc6   1fcb
+1fc6   1fcc
 1fd0   1fd3
 1fd6   1fdb
 1fe0   1fec
 1ff2   1ff4
-1ff6   1ffb
+1ff6   1ffc
 207f   
 2102   
 2107   
index 0e94688..90020b8 100644 (file)
@@ -9,11 +9,7 @@ return <<'END';
 00ba   
 00c0   00d6
 00d8   00f6
-00f8   01c4
-01c6   01c7
-01c9   01ca
-01cc   01f1
-01f3   021f
+00f8   021f
 0222   0233
 0250   02ad
 0386   
@@ -193,19 +189,16 @@ return <<'END';
 1f5b   
 1f5d   
 1f5f   1f7d
-1f80   1f87
-1f90   1f97
-1fa0   1fa7
-1fb0   1fb4
-1fb6   1fbb
+1f80   1fb4
+1fb6   1fbc
 1fbe   
 1fc2   1fc4
-1fc6   1fcb
+1fc6   1fcc
 1fd0   1fd3
 1fd6   1fdb
 1fe0   1fec
 1ff2   1ff4
-1ff6   1ffb
+1ff6   1ffc
 207f   
 2102   
 2107   
index 23186bd..2f13b38 100644 (file)
@@ -11,11 +11,7 @@ return <<'END';
 00ba   
 00c0   00d6
 00d8   00f6
-00f8   01c4
-01c6   01c7
-01c9   01ca
-01cc   01f1
-01f3   021f
+00f8   021f
 0222   0233
 0250   02ad
 0386   
@@ -211,19 +207,16 @@ return <<'END';
 1f5b   
 1f5d   
 1f5f   1f7d
-1f80   1f87
-1f90   1f97
-1fa0   1fa7
-1fb0   1fb4
-1fb6   1fbb
+1f80   1fb4
+1fb6   1fbc
 1fbe   
 1fc2   1fc4
-1fc6   1fcb
+1fc6   1fcc
 1fd0   1fd3
 1fd6   1fdb
 1fe0   1fec
 1ff2   1ff4
-1ff6   1ffb
+1ff6   1ffc
 207f   
 2102   
 2107   
index f4ae601..4f705a4 100755 (executable)
@@ -11,9 +11,10 @@ mkdir "To", 0777;
 @todo = (
 # typical
 
-    ['IsWord',  '$cat =~ /^L[ulo]|^Nd/ or $code eq "005F"',    ''],
-    ['IsAlnum', '$cat =~ /^L[ulo]|^Nd/',       ''],
-    ['IsAlpha',  '$cat =~ /^L[ulo]/',  ''],
+    ['IsWord',  '$cat =~ /^L[ulot]|^Nd/ or $code eq "005F"',   ''],
+    ['IsAlnum', '$cat =~ /^L[ulot]|^Nd/',      ''],
+    ['IsAlpha',  '$cat =~ /^L[ulot]/', ''],
+    # XXX broken: recursive definition (/\s/ will look up IsSpace in future)
     ['IsSpace',  '$cat =~ /^Z/ or $code lt "0020" and chr(hex $code) =~ /^\s/',        ''],
     ['IsDigit',  '$cat =~ /^Nd$/',     ''],
     ['IsUpper',  '$cat =~ /^Lu$/',     ''],