Add a Serialization Context PMC. Just bare bones for now.

Author: jnthn

build/Makefile.in

@@ -150,7 +150,7 @@ DYNOPS          = $(OPS_DIR)/$(OPS)$(LOAD_EXT)
 PMC_SOURCES     = $(PMC_DIR)/stable.pmc $(PMC_DIR)/rakudoobject.pmc \
                   $(PMC_DIR)/repr.pmc $(PMC_DIR)/dispatchersub.pmc \
                   $(PMC_DIR)/nqpmultisig.pmc $(PMC_DIR)/nqplexinfo.pmc \
-                  $(PMC_DIR)/nqplexpad.pmc
+                  $(PMC_DIR)/nqplexpad.pmc $(PMC_DIR)/serializationcontext.pmc 
 
 OPS_SOURCE      = nqp.ops
 

src/pmc/serializationcontext.pmc

@@ -0,0 +1,67 @@
+/* A serialization context is a container for a set of objects
+ * that exist per compilation unit and cross the compile-time /
+ * runtime boundary.*/
+pmclass SerializationContext auto_attrs dynpmc group nqp {
+    /* The handle of this SC. */
+    ATTR STRING *handle;
+    
+    /* The set of objects that live in this SC. */
+    ATTR PMC *root_objects;
+    
+    VTABLE void init() {
+        PMC *root_objects = pmc_new(interp, enum_class_ResizablePMCArray);
+        SETATTR_SerializationContext_root_objects(interp, SELF, root_objects);
+        PObj_custom_mark_SET(SELF);
+    }
+    
+    VTABLE void set_string_native(STRING *handle) {
+        SETATTR_SerializationContext_handle(interp, SELF, handle);
+    }
+
+    VTABLE void mark() {
+        PMC    *root_objects;
+        STRING *handle;
+        GETATTR_SerializationContext_root_objects(interp, SELF, root_objects);
+        Parrot_gc_mark_PMC_alive(INTERP, root_objects);
+        GETATTR_SerializationContext_handle(interp, SELF, handle);
+        Parrot_gc_mark_STRING_alive(INTERP, handle);
+    }
+    
+    VTABLE PMC* get_pmc_keyed_int(INTVAL idx) {
+        PMC    *root_objects;
+        GETATTR_SerializationContext_root_objects(interp, SELF, root_objects);
+        return VTABLE_get_pmc_keyed_int(interp, root_objects, idx);
+    }
+    
+    VTABLE PMC* get_pmc_keyed(PMC *idx) {
+        PMC    *root_objects;
+        GETATTR_SerializationContext_root_objects(interp, SELF, root_objects);
+        return VTABLE_get_pmc_keyed(interp, root_objects, idx);
+    }
+    
+    VTABLE void set_pmc_keyed_int(INTVAL idx, PMC *value) {
+        PMC    *root_objects;
+        GETATTR_SerializationContext_root_objects(interp, SELF, root_objects);
+        VTABLE_set_pmc_keyed_int(interp, root_objects, idx, value);
+    }
+    
+    VTABLE void set_pmc_keyed(PMC *idx, PMC *value) {
+        PMC    *root_objects;
+        GETATTR_SerializationContext_root_objects(interp, SELF, root_objects);
+        VTABLE_set_pmc_keyed(interp, root_objects, idx, value);
+    }
+    
+    METHOD INTVAL elems() {
+        PMC    *root_objects;
+        INTVAL elems;
+        GETATTR_SerializationContext_root_objects(interp, SELF, root_objects);
+        elems = VTABLE_elements(interp, root_objects);
+        RETURN (INTVAL elems);
+    }
+    
+    METHOD STRING* handle() {
+        STRING *handle;
+        GETATTR_SerializationContext_handle(interp, SELF, handle);
+        RETURN (STRING* handle);
+    }
+}