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

Author: jnthn

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"()
     }