Implement <.print> and <.graph> rules.

Raku · Sep 23, 2015 · bf1d2ad · bf1d2ad
1 parent 8304e17
commit bf1d2ad
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -716,6 +716,15 @@ role NQPCursorRole is export {
         $cur;
     }
 
+    method print() {
+        my $cur := self."!cursor_start_cur"();
+        my str $target := nqp::getattr_s($!shared, ParseShared, '$!target');
+        $cur."!cursor_pass"($!pos+1, 'print')
+          if $!pos < nqp::chars($target)
+             && nqp::iscclass(nqp::const::CCLASS_PRINTING, $target, $!pos);
+        $cur;
+    }
+
     method cntrl() {
         my $cur := self."!cursor_start_cur"();
         my str $target := nqp::getattr_s($!shared, ParseShared, '$!target');
@@ -734,6 +743,16 @@ role NQPCursorRole is export {
         $cur;
     }
 
+    method graph() {
+        my $cur := self."!cursor_start_cur"();
+        my str $target := nqp::getattr_s($!shared, ParseShared, '$!target');
+        $cur."!cursor_pass"($!pos+1, 'graph')
+          if $!pos < nqp::chars($target)
+             && (nqp::iscclass(nqp::const::CCLASS_ALPHANUMERIC, $target, $!pos)
+                 || nqp::iscclass(nqp::const::CCLASS_PUNCTUATION, $target, $!pos));
+        $cur;
+    }
+
     method FAILGOAL($goal, $dba?) {
         self."!cursor_start_cur"()
     }