Code object mapping support.

Raku · Apr 9, 2013 · 5f9c348 · 5f9c348
1 parent 6b1f913
commit 5f9c348
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 4 deletions.
diff --git a/src/6model/sixmodelobject.c b/src/6model/sixmodelobject.c
@@ -291,6 +291,17 @@ PMC * hllize(PARROT_INTERP, PMC *obj, INTVAL hll_id) {
             return obj;
         }
     }
+    else if (obj->vtable->base_type == enum_class_Sub) {
+        if (VTABLE_exists_keyed_str(interp, config, Parrot_str_new_constant(interp, "foreign_transform_code")))  {
+            PMC *result;
+            PMC *code = VTABLE_get_pmc_keyed_str(interp, config, Parrot_str_new_constant(interp, "foreign_transform_code"));
+            Parrot_ext_call(interp, code, "P->P", obj, &result);
+            return result;
+        }
+        else {
+            return obj;
+        }
+    }
     else if (obj->vtable->base_type == enum_class_Null) {
         if (VTABLE_exists_keyed_str(interp, config, Parrot_str_new_constant(interp, "null_value")))
             return VTABLE_get_pmc_keyed_str(interp, config, Parrot_str_new_constant(interp, "null_value"));

diff --git a/src/ops/nqp.ops b/src/ops/nqp.ops
@@ -2985,10 +2985,6 @@ inline op nqp_sethllconfig(out PMC, in STR, invar PMC) {
         VTABLE_set_pmc_keyed_str(interp, config, Parrot_str_new_constant(interp, "foreign_type_str"),
             VTABLE_get_pmc_keyed_str(interp, $3, Parrot_str_new_constant(interp, "foreign_type_str")));
     }
-    if (VTABLE_exists_keyed_str(interp, $3, Parrot_str_new_constant(interp, "foreign_type_any"))) {
-        VTABLE_set_pmc_keyed_str(interp, config, Parrot_str_new_constant(interp, "foreign_type_any"),
-            VTABLE_get_pmc_keyed_str(interp, $3, Parrot_str_new_constant(interp, "foreign_type_any")));
-    }
 
     if (VTABLE_exists_keyed_str(interp, $3, Parrot_str_new_constant(interp, "foreign_transform_int"))) {
         VTABLE_set_pmc_keyed_str(interp, config, Parrot_str_new_constant(interp, "foreign_transform_int"),
@@ -3010,6 +3006,14 @@ inline op nqp_sethllconfig(out PMC, in STR, invar PMC) {
         VTABLE_set_pmc_keyed_str(interp, config, Parrot_str_new_constant(interp, "foreign_transform_hash"),
             VTABLE_get_pmc_keyed_str(interp, $3, Parrot_str_new_constant(interp, "foreign_transform_hash")));
     }
+    if (VTABLE_exists_keyed_str(interp, $3, Parrot_str_new_constant(interp, "foreign_transform_code"))) {
+        VTABLE_set_pmc_keyed_str(interp, config, Parrot_str_new_constant(interp, "foreign_transform_code"),
+            VTABLE_get_pmc_keyed_str(interp, $3, Parrot_str_new_constant(interp, "foreign_transform_code")));
+    }
+    if (VTABLE_exists_keyed_str(interp, $3, Parrot_str_new_constant(interp, "foreign_transform_any"))) {
+        VTABLE_set_pmc_keyed_str(interp, config, Parrot_str_new_constant(interp, "foreign_transform_any"),
+            VTABLE_get_pmc_keyed_str(interp, $3, Parrot_str_new_constant(interp, "foreign_transform_any")));
+    }
 
     if (VTABLE_exists_keyed_str(interp, $3, Parrot_str_new_constant(interp, "null_value"))) {
         VTABLE_set_pmc_keyed_str(interp, config, Parrot_str_new_constant(interp, "null_value"),