diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-04-23 01:34:55 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-23 09:04:31 +0000 |
| commit | e1d1eefb8c88e0dcaf2bb9e6c04d7f6192be966f (patch) | |
| tree | 6930eda70a9e751e8789ca568d015204ca292552 /lib/unicore | |
| parent | 8638e433f90c5046b38f1d145c125bad5dbfdb7e (diff) | |
| download | perl-e1d1eefb8c88e0dcaf2bb9e6c04d7f6192be966f.tar.gz | |
Change meaning of \v, \V, and add \h, \H to match Perl6, add \R to match PCRE and unicode tr18
Message-ID: <9b18b3110704221434g43457742p28cab00289f83639@mail.gmail.com>
p4raw-id: //depot/perl@31026
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/mktables | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 72f33cbc8e..64de8b1fee 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -829,7 +829,10 @@ sub UnicodeData_Txt() Table->New(Is => 'Word', Desc => "[[:Word:]]", Fuzzy => 0); $Cat{SpacePerl} = Table->New(Is => 'SpacePerl', Desc => '\s', Fuzzy => 0); - + $Cat{VertSpace} = + Table->New(Is => 'VertSpace', Desc => '\v', Fuzzy => 0); + $Cat{HorizSpace} = + Table->New(Is => 'HorizSpace', Desc => '\h', Fuzzy => 0); my %To; $To{Upper} = Table->New(); $To{Lower} = Table->New(); @@ -886,6 +889,15 @@ sub UnicodeData_Txt() $Cat{SpacePerl}->$op($code) if $isspace && $code != 0x000B; # Backward compat. + $Cat{VertSpace}->$op($code) if grep {$code == $_} + ( 0x0A..0x0D,0x85,0x2028,0x2029 ); + + $Cat{HorizSpace}->$op($code) if grep {$code == $_} ( + 0x09, 0x20, 0xa0, 0x1680, 0x180e, 0x2000, 0x2001, 0x2002, + 0x2003, 0x2004, 0x2005, 0x2006, 0x2007, 0x2008, 0x2009, 0x200a, + 0x202f, 0x205f, 0x3000 + ); + $Cat{Blank}->$op($code) if $isspace && !($code == 0x000A || $code == 0x000B || |