[nqp]: Add 'for' statement and tests.

src/NQP/Actions.pm

@@ -105,6 +105,16 @@ method statement_control:sym<repeat>($/) {
     make $past;
 }
 
+method statement_control:sym<for>($/) {
+    my $past := $<xblock>.ast;
+    $past.pasttype('for');
+    my $block := $past[1];
+    $block[0].push( PAST::Var.new( :name('$_'), :scope('parameter') ) );
+    $block.symbol('$_', :scope('lexical') );
+    $block.arity(1);
+    make $past;
+}
+
 ## Terms
 
 method noun:sym<variable>($/) { make $<variable>.ast; }

src/NQP/Grammar.pm

@@ -82,6 +82,11 @@ token statement_control:sym<repeat> {
     ]
 }
 
+token statement_control:sym<for> {
+    <sym> :s
+    <xblock>
+}
+
 ## Terms
 
 token noun:sym<variable>           { <variable> }

t/nqp/15-list.t

@@ -0,0 +1,12 @@
+#!./parrot nqp.pbc
+
+# lists and for
+
+plan(3);
+
+my $list := (1,2,3);
+my $indexer := 0;
+
+for $list {
+    print("ok "); print($_); say(" checking loop via indices");
+}