First cut of package auto-viv using the new package scheme. Enabled just for variable accesses in lexical packages for now.

Author: jnthn

src/NQP/Actions.pm

@@ -1373,12 +1373,11 @@ class NQP::Actions is HLL::Actions {
         elsif is_lexical(@name[0]) {
             my $path := PAST::Var.new( :name(@name.shift()), :scope('lexical') );
             for @name {
-                $path := PAST::Var.new(
-                    :scope('keyed'),
-                    PAST::Op.new( :pirop('get_who PP'), $path ),
-                    ~$_);
+                $path := PAST::Op.new(
+                    :pirop('nqp_get_package_through_who PPs'),
+                    $path, ~$_);
             }
-            $lookup.unshift($path);
+            $lookup.unshift(PAST::Op.new(:pirop('get_who PP'), $path));
         }
         else {
             # XXX Would really want this and then chase the symbol

src/ops/nqp.ops

@@ -800,3 +800,45 @@ inline op nqp_get_sc_for_object(out PMC, in PMC) :base_core {
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
             "Can only use nqp_get_sc_for_object with a SixModelObject");
 }
+
+
+/*
+
+=item nqp_get_package_through_who
+
+Takes a type object and uses its associated symbol table (in .WHO)
+to look for a package within it. It will auto-vivify the package if
+non exists.
+
+=cut
+
+*/
+inline op nqp_get_package_through_who(out PMC, in PMC, in STR) :base_core {
+    if ($2->vtable->base_type == smo_id) {
+        PMC *who = STABLE($2)->WHO;
+        PMC *pkg = VTABLE_get_pmc_keyed_str(interp, who, $3);
+        if (PMC_IS_NULL(pkg)) {
+            /* Create the package object. This is just like a call:
+             * pkg = KnowHOW.new_type(:name($3))
+             * XXX For now just create a KnowHOW; we can switch to a lighter
+             * package temp type later. */
+            PMC *old_ctx = Parrot_pcc_get_signature(interp, CURRENT_CONTEXT(interp));
+            PMC *meth    = VTABLE_find_method(interp, KnowHOW, Parrot_str_new(interp, "new_type", 0));
+            PMC *cappy   = Parrot_pmc_new(interp, enum_class_CallContext);
+            VTABLE_push_pmc(interp, cappy, KnowHOW);
+            VTABLE_set_string_keyed_str(interp, cappy, Parrot_str_new(interp, "name", 0), $3);
+            Parrot_pcc_invoke_from_sig_object(interp, meth, cappy);
+            cappy = Parrot_pcc_get_signature(interp, CURRENT_CONTEXT(interp));
+            Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), old_ctx);
+            pkg = VTABLE_get_pmc_keyed_int(interp, cappy, 0);
+            
+            /* Install it in the outer package's .WHO. */
+            VTABLE_set_pmc_keyed_str(interp, who, $3, pkg);
+        }
+        $1 = pkg;
+    }
+    else {
+        Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
+            "Can only use nqp_get_package_through_who with a SixModelObject");
+    }
+}