[svn:parrot] r26541 - trunk/languages/perl6/src/parser

[jonathan]

Author: jonathan
Date: Tue Mar 25 11:17:06 2008
New Revision: 26541

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo] Implement simple varname case for colonpairs, e.g. :$foo.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Tue Mar 25 11:17:06 2008
@@ -1258,6 +1258,17 @@
             $pair_val := PAST::Val.new( :value(1), :returns('Integer') );
         }
     }
+    elsif $key eq 'varname' {
+        if $<desigilname><name> {
+            $pair_key := PAST::Val.new( :value( ~$<desigilname> ) );
+            $pair_val := PAST::Var.new(
+                :name( ~$<sigil> ~ ~$<twigil> ~ ~$<desigilname> )
+            );
+        }
+        else {
+            $/.panic('complex varname colonpair case not yet implemented');
+        }
+    }
     else {
         $/.panic($key ~ " pairs not yet implemented.");
     }