Make a few more v-tables overridable (e.g. ones that NQPCapture needs to override). Gets us a bit further with Match on 6model.

Author: jnthn

src/pmc/rakudoobject.pmc

@@ -115,8 +115,106 @@ pmclass RakudoObject manual_attrs dynpmc group nqp {
             Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), old_ctx);
             return VTABLE_get_bool(interp, VTABLE_get_pmc_keyed_int(interp, cappy, 0));
         }
-        else { printf("Found no get_bool\n");
+        else
             return SUPER();
+    }
+    
+    VTABLE PMC * get_pmc_keyed(PMC *key) {
+        PMC **vt = STABLE(SELF)->parrot_vtable_mapping;
+        PMC *meth;
+        if (vt && !PMC_IS_NULL(meth = vt[PARROT_VTABLE_SLOT_GET_PMC_KEYED])) {
+            PMC *old_ctx = Parrot_pcc_get_signature(interp, CURRENT_CONTEXT(interp));
+            PMC *cappy   = Parrot_pmc_new(interp, enum_class_CallContext);
+            VTABLE_push_pmc(interp, cappy, SELF);
+            VTABLE_push_pmc(interp, cappy, key);
+            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);
+            return VTABLE_get_pmc_keyed_int(interp, cappy, 0);
+        }
+        else
+            return SUPER(key);
+    }
+    
+    VTABLE PMC * get_pmc_keyed_int(INTVAL key) {
+        PMC **vt = STABLE(SELF)->parrot_vtable_mapping;
+        PMC *meth;
+        if (vt && !PMC_IS_NULL(meth = vt[PARROT_VTABLE_SLOT_GET_PMC_KEYED_INT])) {
+            PMC *old_ctx = Parrot_pcc_get_signature(interp, CURRENT_CONTEXT(interp));
+            PMC *cappy   = Parrot_pmc_new(interp, enum_class_CallContext);
+            VTABLE_push_pmc(interp, cappy, SELF);
+            VTABLE_push_integer(interp, cappy, key);
+            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);
+            return VTABLE_get_pmc_keyed_int(interp, cappy, 0);
+        }
+        else
+            return SUPER(key);
+    }
+    
+    VTABLE PMC * get_pmc_keyed_str(STRING *key) {
+        PMC **vt = STABLE(SELF)->parrot_vtable_mapping;
+        PMC *meth;
+        if (vt && !PMC_IS_NULL(meth = vt[PARROT_VTABLE_SLOT_GET_PMC_KEYED_STR])) {
+            PMC *old_ctx = Parrot_pcc_get_signature(interp, CURRENT_CONTEXT(interp));
+            PMC *cappy   = Parrot_pmc_new(interp, enum_class_CallContext);
+            VTABLE_push_pmc(interp, cappy, SELF);
+            VTABLE_push_string(interp, cappy, key);
+            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);
+            return VTABLE_get_pmc_keyed_int(interp, cappy, 0);
         }
+        else
+            return SUPER(key);
+    }
+    
+    VTABLE void set_pmc_keyed(PMC *key, PMC *value) {
+        PMC **vt = STABLE(SELF)->parrot_vtable_mapping;
+        PMC *meth;
+        if (vt && !PMC_IS_NULL(meth = vt[PARROT_VTABLE_SLOT_SET_PMC_KEYED])) {
+            PMC *old_ctx = Parrot_pcc_get_signature(interp, CURRENT_CONTEXT(interp));
+            PMC *cappy   = Parrot_pmc_new(interp, enum_class_CallContext);
+            VTABLE_push_pmc(interp, cappy, SELF);
+            VTABLE_push_pmc(interp, cappy, key);
+            VTABLE_push_pmc(interp, cappy, value);
+            Parrot_pcc_invoke_from_sig_object(interp, meth, cappy);
+            Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), old_ctx);
+        }
+        else
+            SUPER(key, value);
+    }
+    
+    VTABLE void set_pmc_keyed_int(INTVAL key, PMC *value) {
+        PMC **vt = STABLE(SELF)->parrot_vtable_mapping;
+        PMC *meth;
+        if (vt && !PMC_IS_NULL(meth = vt[PARROT_VTABLE_SLOT_SET_PMC_KEYED_INT])) {
+            PMC *old_ctx = Parrot_pcc_get_signature(interp, CURRENT_CONTEXT(interp));
+            PMC *cappy   = Parrot_pmc_new(interp, enum_class_CallContext);
+            VTABLE_push_pmc(interp, cappy, SELF);
+            VTABLE_push_integer(interp, cappy, key);
+            VTABLE_push_pmc(interp, cappy, value);
+            Parrot_pcc_invoke_from_sig_object(interp, meth, cappy);
+            Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), old_ctx);
+        }
+        else
+            SUPER(key, value);
+    }
+    
+    VTABLE void set_pmc_keyed_str(STRING *key, PMC *value) {
+        PMC **vt = STABLE(SELF)->parrot_vtable_mapping;
+        PMC *meth;
+        if (vt && !PMC_IS_NULL(meth = vt[PARROT_VTABLE_SLOT_SET_PMC_KEYED_STR])) {
+            PMC *old_ctx = Parrot_pcc_get_signature(interp, CURRENT_CONTEXT(interp));
+            PMC *cappy   = Parrot_pmc_new(interp, enum_class_CallContext);
+            VTABLE_push_pmc(interp, cappy, SELF);
+            VTABLE_push_string(interp, cappy, key);
+            VTABLE_push_pmc(interp, cappy, value);
+            Parrot_pcc_invoke_from_sig_object(interp, meth, cappy);
+            Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), old_ctx);
+        }
+        else
+            SUPER(key, value);
     }
 }