Make <alpha> LTM-declarative.

Raku · May 27, 2012 · cf4bf1f · cf4bf1f
1 parent 16654ba
commit cf4bf1f
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/QRegex/NFA.nqp b/src/QRegex/NFA.nqp
@@ -122,6 +122,10 @@ class QRegex::NFA {
         if $node.name eq 'before' && !$node.negate {
             self.regex_nfa($node[0][1]<orig_qast>, $from, 0);
         }
+        elsif $node.name eq 'alpha' {
+            self.addedge($from, $to, $EDGE_CHARCLASS + $node.negate,
+                pir::const::CCLASS_ALPHABETIC)
+        }
         elsif $subtype eq 'zerowidth' {
             $node.negate 
                 ?? self.fate($node, $from, $to)