[svn:languages] r113 - in lolcode/trunk: . src/parser

[bacek at svn.parrot.org]

Author: bacek
Date: Mon May  3 14:35:26 2010
New Revision: 113
URL: https://trac.parrot.org/languages/changeset/113

Log:
First cut to update LOLCODE to nqp-ex. Still broken

Modified:
   lolcode/trunk/setup.pir
   lolcode/trunk/src/parser/actions.pm

Modified: lolcode/trunk/setup.pir
==============================================================================
--- lolcode/trunk/setup.pir	Thu Apr 15 14:34:40 2010	(r112)
+++ lolcode/trunk/setup.pir	Mon May  3 14:35:26 2010	(r113)
@@ -41,7 +41,7 @@
 
     $P2 = new 'Hash'
     $P2['src/gen_actions.pir'] = 'src/parser/actions.pm'
-    $P0['pir_nqp'] = $P2
+    $P0['pir_nqprx'] = $P2
 
     $P3 = new 'Hash'
     $P4 = split "\n", <<'SOURCES'

Modified: lolcode/trunk/src/parser/actions.pm
==============================================================================
--- lolcode/trunk/src/parser/actions.pm	Thu Apr 15 14:34:40 2010	(r112)
+++ lolcode/trunk/src/parser/actions.pm	Mon May  3 14:35:26 2010	(r113)
@@ -152,7 +152,7 @@
     $bind.push( $it );
     $bind.push( $expr );
     $past.unshift( $it );
-    my $past := PAST::Stmts.new( $bind, $past, :node( $/ ) );
+    $past := PAST::Stmts.new( $bind, $past, :node( $/ ) );
     make $past;
 }
 
@@ -189,7 +189,7 @@
     #$bind.push( $it );
     #$bind.push( $expr );
     #$past.unshift( $it );
-    my $past := PAST::Stmts.new( $past, :node( $/ ) );
+    $past := PAST::Stmts.new( $past, :node( $/ ) );
     make $past;
 }
 
@@ -285,7 +285,7 @@
     my $mkay := 'mkay';
 
     for $<tokens> {
-        if($_<identifier>) {
+        if $_<identifier> {
             my $name := ~$_<identifier>;
             my $item := get_item($name);
             if is_sub($name) {