Changeset 21439 for perl5

Timestamp:

07/22/08 17:27:44 (4 months ago)

Author:

fglock

Message:

[PCR] some unicode fixes

Files:

• perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/CharClass.pm (modified) (2 diffs)

perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/CharClass.pm

@@ -13 +13 @@
         word  xdigit
     );
-    # XXX this list is broken!!!
     %extra_unicode = (
         'isLr'       => '(?:\p{isLl}|\p{isLu}|\p{isLt})',
+        'isInLatin1Supplement'      => '[\x{0080}–\x{00FF}]',
+        'isInCyrillicSupplementary' => '[\x{0500}–\x{052F}]',
+        'isID_Start' => '\p{ID_Start}',
+    # XXX the remaining list is broken!!!
         'isBidiL'    => '(?:\p{isLatin})',
         'isBidiR'    => '(?:\p{isHebrew}|\p{isArabic})',
@@ -22 +25 @@
         'isBidiET'   => '(?:\p{isHebrew}|\p{isArabic})',
         'isBidiWS'   => '(?:\p{isHebrew}|\p{isArabic})',
-        'isID_Start' => '(?:\p{isHebrew}|\p{isArabic})',
-        'isInCyrillicSupplementary' => '(?:\p{isHebrew}|\p{isArabic})',
-        'isInLatin1Supplement' => '(?:\p{isLatin})',
     );
 }