Add unspace parsing

rakudo · Jan 4, 2010 · a867b39 · a867b39
1 parent f7ad5dc
commit a867b39
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -166,6 +166,20 @@ token ENDSTMT {
     ]?
 }
 
+token unsp {
+    \\ <?before [\s|'#'] >
+    # :dba('unspace')
+    [
+    | <.vws>
+    | <.unv>
+    ]*
+}
+
+token vws {
+    #:dba('vertical whitespace')
+    \v
+}
+
 token ws { 
     ||  <?MARKED('ws')> 
     ||  <!ww>