Implement various cases of binding into pseudo-packages.

rakudo · Apr 15, 2012 · 9df76e9 · 9df76e9
1 parent d6cd1e2
commit 9df76e9
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -3750,6 +3750,12 @@ class Perl6::Actions is HLL::Actions {
             $target[0].push($source);
             make $target;
         }
+        elsif $target.isa(PAST::Op) && $target.pasttype eq 'callmethod' &&
+              ($target.name eq 'postcircumfix:<[ ]>' || $target.name eq 'postcircumfix:<{ }>') {
+            $source.named('BIND');
+            $target.push($source);
+            make $target;
+        }
         # XXX Several more cases to do...
         else {
             $*W.throw($/, ['X', 'Bind', 'WrongLHS']);

diff --git a/src/Perl6/World.pm b/src/Perl6/World.pm
@@ -1640,7 +1640,7 @@ class Perl6::World is HLL::World {
                     );
                 }
                 $lookup := PAST::Op.new(
-                    :pasttype('callmethod'), :name('at_key'),
+                    :pasttype('callmethod'), :name('postcircumfix:<{ }>'),
                     $lookup,
                     self.add_string_constant($_));
             }

diff --git a/src/core/PseudoStash.pm b/src/core/PseudoStash.pm
@@ -100,6 +100,23 @@ my class PseudoStash is EnumMap {
         }
     }
 
+    method bind_key($key is copy, \$value) {
+        $key = $key.Str;
+        if %pseudoers.exists($key) {
+            die "Cannot bind to pseudo-package $key";
+        }
+        elsif $!mode == PRECISE_SCOPE {
+            my Mu $store := nqp::getattr(self, EnumMap, '$!storage');
+            nqp::bindkey($store, nqp::unbox_s($key), $value)
+        }
+        elsif $!mode == DYNAMIC_CHAIN || $!mode == PICK_CHAIN_BY_NAME && substr($key, 1, 1) eq '*' {
+            die "Binding to dynamic variables not yet implemented";
+        }
+        else {
+            die "This case of binding is not yet implemented";
+        }
+    }
+
     method exists($key is copy) {
         $key = $key.Str;
         if %pseudoers.exists($key) {