Expose complex character classes to LTM

sorear · Nov 25, 2010 · 85bf01e · 85bf01e
1 parent ccbb9b8
commit 85bf01e
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/Niecza/Actions.pm b/src/Niecza/Actions.pm
@@ -757,7 +757,13 @@ sub do_cclass { my ($cl, $M) = @_;
                 RxOp::CClassElem->new(cc => $_->{quibble}{_ast}) :
             RxOp::Subrule->new(captures => [], method => $_->{name}->Str);
 
-        if ($sign) {
+        if ($exp->isa('RxOp::CClassElem') && (!$rxop || $rxop->isa('RxOp::CClassElem'))) {
+            if ($sign) {
+                $rxop = $rxop ? RxOp::CClassElem->new(cc => $exp->cc->plus($rxop->cc)) : $exp;
+            } else {
+                $rxop = RxOp::CClassElem->new(cc => ($rxop ? $rxop->cc : $CClass::Full)->minus($exp->cc));
+            }
+        } elsif ($sign) {
             $rxop = $rxop ? RxOp::SeqAlt->new(zyg => [ $exp, $rxop ]) : $exp;
         } else {
             $rxop = RxOp::Sequence->new(zyg => [