Author: pmichaud
Date: Wed May 7 12:30:11 2008
New Revision: 27379
Modified:
trunk/compilers/pge/PGE/Perl6Regex.pir
trunk/t/compilers/pge/perl6regex/rx_subrules
Log:
[pge]:
* Remove <alpha-[jJ]> form of enumerated character list -- it's
no longer allowed by S05. (The <+alpha-[jJ]> form still
exists, though.)
Modified: trunk/compilers/pge/PGE/Perl6Regex.pir
==============================================================================
--- trunk/compilers/pge/PGE/Perl6Regex.pir (original)
+++ trunk/compilers/pge/PGE/Perl6Regex.pir Wed May 7 12:30:11 2008
@@ -740,10 +740,7 @@
if key == '<.' goto nocapture
if key == '<!' goto negated
- ## if the next character is +/-, this is really an enumcharclass
- $I0 = index '+-', $S0
- if $I0 == -1 goto subrule_arg
- .return 'parse_enumcharclass'(mobsave)
+ goto subrule_arg
negated:
mob['isnegated'] = 1
Modified: trunk/t/compilers/pge/perl6regex/rx_subrules
==============================================================================
--- trunk/t/compilers/pge/perl6regex/rx_subrules (original)
+++ trunk/t/compilers/pge/perl6regex/rx_subrules Wed May 7 12:30:11 2008
@@ -70,7 +70,6 @@
^<-upper>dent ident_1 y inverted character class
^<-upper>dent Ident_1 n inverted character class
<+alpha-[Jj]>+ abc y character class with no
j
-<alpha-[Jj]>+ abc y character class with no
j and no leading +
<+ alpha - [ Jj ]> abc y character class with no
j with ws
^<+alpha-[Jj]>+$ aJc n character class with no
j fail
