Implement contextual scope.

Raku · Jul 9, 2012 · ffcadc6 · ffcadc6
1 parent ad562d8
commit ffcadc6
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/QAST/Compiler.nqp b/src/QAST/Compiler.nqp
@@ -567,6 +567,19 @@ class QAST::Compiler is HLL::Compiler {
                 $ops.result($res_reg);
             }
         }
+        elsif $scope eq 'contextual' {
+            if $*BINDVAL {
+                my $valpost := self.coerce(self.as_post_clear_bindval($*BINDVAL), 'P');
+                $ops.push($valpost);
+                $ops.push_pirop('store_dynamic_lex', self.escape($name), $valpost.result);
+                $ops.result($valpost.result);
+            }
+            else {
+                my $res_reg := $*REGALLOC."fresh_p"();
+                $ops.push_pirop('find_dynamic_lex', $res_reg, self.escape($name));
+                $ops.result($res_reg);
+            }
+        }
         else {
             pir::die("QAST::Var with scope '$scope' NYI");
         }