Initial patches to ignore leading whitespace in rules.

Author: pmichaud

src/NQP/Grammar.pm

@@ -118,8 +118,8 @@ grammar NQP::Grammar is HLL::Grammar {
     }
 
     rule statementlist {
-        | $
-        | [<statement><.eat_terminator> ]*
+        | <?> $
+        | <?> [<statement><.eat_terminator> ]*
     }
 
     token statement {
@@ -388,10 +388,13 @@ grammar NQP::Grammar is HLL::Grammar {
     token scope_declarator:sym<our> { <sym> <scoped('our')> }
     token scope_declarator:sym<has> { <sym> <scoped('has')> }
 
-    rule scoped($*SCOPE) {
+    token scoped($*SCOPE) {
+        <.ws>
+        [
         | <declarator>
         | <multi_declarator>
         | <package_declarator>
+        ]
     }
 
     token typename {
@@ -491,7 +494,7 @@ grammar NQP::Grammar is HLL::Grammar {
         ':' <param_var>
     }
 
-    rule default_value { '=' <EXPR('i=')> }
+    rule default_value { <?> '=' <EXPR('i=')> }
 
     rule trait { <trait_mod> }
 
@@ -613,7 +616,7 @@ grammar NQP::Grammar is HLL::Grammar {
     token circumfix:sym<{ }> { <?[{]> <pblock> }
     token circumfix:sym<sigil> { <sigil> '(' ~ ')' <semilist> }
 
-    rule semilist { <statement> }
+    rule semilist { <?> <statement> }
 
     ## Operators
 

src/QRegex/P6Regex/Grammar.nqp

@@ -63,11 +63,14 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
     }
 
     token termish {
+        <.ws>
+        [
         || <noun=.quantified_atom>+
         || (\W) {
             my $char := ~$/[0];
             $/.CURSOR.panic("Unrecognized regex metacharacter $char (must be quoted to match literally)")
             }
+        ]
     }
 
     token quantified_atom {