Ticket #1378: iglobals_hash_example.patch

src/pmc/parrotinterpreter.pmc

@@ -441 +441 @@
   "outer"; "<item>"         ... same for outer level 1
   "outer"; "<item>"; level  ... same for outer <level>
   "globals"                 ... return global stash
+  "iglobals"                ... return a string-indexed hash of iglobals
 
 =cut
 
@@ -562 +563 @@
             return pmc_new(interp, enum_class_Hash);
         }
 
+        name = CONST_STRING(interp, "iglobals");
+
+        if (Parrot_str_equal(interp, item, name)) {
+            PMC *ig_hash = pmc_new(interp, enum_class_Hash);
+            PMC *one     = pmc_new(interp, enum_class_Integer);
+
+            VTABLE_set_pmc_keyed_str(interp, ig_hash, CONST_STRING(interp, "classname_hash"), interp->class_hash);
+
+            VTABLE_set_integer_native(interp, one, 1);
+            VTABLE_setprop(interp, ig_hash, CONST_STRING(interp, "_ro"), one);
+
+            return ig_hash;
+        }
+
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_ATTRIB_NOT_FOUND,
                 "No such item %Ss", item);
     }