Permalink
Browse files

nqpq: protoregex stub.

  • Loading branch information...
pmichaud committed Aug 10, 2011
1 parent 6262ccf commit 32fb34c46f85d3895577005500a6ac2425060eb7
Showing with 6 additions and 1 deletion.
  1. +2 −1 src/NQPQ/Grammar.pm
  2. +4 −0 src/QRegex/Cursor.nqp
View
@@ -499,9 +499,10 @@ grammar NQP::Grammar is HLL::Grammar {
| $<proto>=[proto] [regex|token|rule]
<deflongname>
[
|| '{*}'<?ENDSTMT>
|| '{' '<...>' '}'<?ENDSTMT>
|| '{' '<*>' '}'<?ENDSTMT>
|| <.panic: "Proto regex body must be <*> (or <...>, which is deprecated)">
|| <.panic: "Proto regex body must be \{*\} (or <*> or <...>, which are deprecated)">
]
| $<sym>=[regex|token|rule]
<deflongname>
View
@@ -87,6 +87,10 @@ role NQPCursorRole {
$!pos := -3;
}
method !protoregex($name) {
pir::say($name);
}
method !BACKREF($name) {
my $cur := self."!cursor_start"();
my $n := $!cstack ?? nqp::elems($!cstack) - 1 !! -1;

0 comments on commit 32fb34c

Please sign in to comment.