Changeset 21527 for perl5

Show
Ignore:
Timestamp:
07/25/08 10:03:09 (4 months ago)
Author:
fglock
Message:

[PCR] added 'isGraphemeLink'

Location:
perl5/Pugs-Compiler-Rule
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • perl5/Pugs-Compiler-Rule/Changes

    r21454 r21527  
     1- added unicode 'isGraphemeLink' 
     2 
    130.33  2008-07-23 
    24- added unicode property 'isLr' 

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

    r21442 r21527  
    1717        'isInLatin1Supplement'      => '[\x{0080}–\x{00FF}]', 
    1818        'isInCyrillicSupplementary' => '[\x{0500}–\x{052F}]', 
     19 
     20        # http://unicode.org/cldr/utility/list-unicodeset.jsp?a=[:Grapheme_Link=True:] 
     21        'isGraphemeLink'  => '[[् ্ ੍ ્ ୍ ் ్ ್ ് ්  ꠆ ꣄ ᮪ 𐨿 ฺ ྄ ᜔ ᜴ ꥓ ္ ်  ្ ᭄]', 
    1922         
    2023    # $ perl -MSet::IntSpan -ne ' @x=split/;/; $v=hex($x[0]); push @nums, $v if $x[4] eq "EN"; END{ $set= new Set::IntSpan @nums; $set="$set"; $set =~ s/(\d+)/ sprintf("\\x{%0X}",$1) /ge; print $set,"\n"}'