Add basic statements and terminators.

perl6 · Oct 21, 2009 · b079e0d · b079e0d
1 parent 9924922
commit b079e0d
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 2 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -1,7 +1,16 @@
 class NQP::Actions is HLL::Actions;
 
+method TOP($/) { make $<statementlist>.ast; }
 
-method TOP($/) { make $<EXPR>.ast; }
+method statementlist($/) {
+    my $past := PAST::Stmts.new( :node($/) );
+    if $<statement> {
+        for $<statement> { $past.push( $_.ast ); }
+    }
+    make $past;
+}
+
+method statement($/) { make $<EXPR>.ast; }
 
 ## Terms
 

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -1,6 +1,20 @@
 grammar NQP::Grammar is HLL::Grammar;
 
-token TOP { <EXPR> [ $ || <.panic: 'Confused'> ] }
+token TOP { <statementlist> [ $ || <.panic: 'Confused'> ] }
+
+rule statementlist {
+    | $
+    | [<statement><.eat_terminator> ]*
+}
+
+token statement {
+    | <EXPR>
+}
+
+token eat_terminator {
+    | ';'
+    | $
+}
 
 ## Terms