Implement copy_to methods for all the reprs; untested.

Author: jnthn

src/6model/reprs/HashAttrStore.c

@@ -46,6 +46,13 @@ static void initialize(PARROT_INTERP, STable *st, void *data) {
     ((HashAttrStoreBody *)data)->store = pmc_new(interp, enum_class_Hash);
 }
 
+/* Copies to the body of one object to another. */
+static void copy_to(PARROT_INTERP, STable *st, void *src, void *dest) {
+    HashAttrStoreBody *src_body = (HashAttrStoreBody *)src;
+    HashAttrStoreBody *dest_body = (HashAttrStoreBody *)dest;
+    dest_body->store = VTABLE_clone(interp, src_body->store);
+}
+
 /* Gets the current value for an attribute. */
 static PMC * get_attribute_boxed(PARROT_INTERP, STable *st, void *data, PMC *class_handle, STRING *name, INTVAL hint) {
     HashAttrStoreBody *body = (HashAttrStoreBody *)data;
@@ -174,6 +181,7 @@ REPROps * HashAttrStore_initialize(PARROT_INTERP) {
     this_repr->type_object_for = type_object_for;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
+    this_repr->copy_to = copy_to;
     this_repr->get_attribute_boxed = get_attribute_boxed;
     this_repr->get_attribute_ref = get_attribute_ref;
     this_repr->bind_attribute = bind_attribute;

src/6model/reprs/KnowHOWREPR.c

@@ -46,6 +46,15 @@ static void initialize(PARROT_INTERP, STable *st, void *data) {
     body->attributes     = pmc_new(interp, enum_class_ResizablePMCArray);
 }
 
+/* Copies to the body of one object to another. */
+static void copy_to(PARROT_INTERP, STable *st, void *src, void *dest) {
+    KnowHOWREPRBody *src_body = (KnowHOWREPRBody *)src;
+    KnowHOWREPRBody *dest_body = (KnowHOWREPRBody *)dest;
+    dest_body->name = src_body->name;
+    dest_body->methods = VTABLE_clone(interp, src_body->methods);
+    dest_body->attributes = VTABLE_clone(interp, src_body->attributes);
+}
+
 /* Helper to die because this type doesn't support attributes. */
 PARROT_DOES_NOT_RETURN
 static void die_no_attrs(PARROT_INTERP) {
@@ -171,6 +180,7 @@ REPROps * KnowHOWREPR_initialize(PARROT_INTERP) {
     this_repr->type_object_for = type_object_for;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
+    this_repr->copy_to = copy_to;
     this_repr->get_attribute_boxed = get_attribute_boxed;
     this_repr->get_attribute_ref = get_attribute_ref;
     this_repr->bind_attribute = bind_attribute;

src/6model/reprs/P6int.c

@@ -43,6 +43,11 @@ static void initialize(PARROT_INTERP, STable *st, void *data) {
     ((P6intBody *)data)->value = 0;
 }
 
+/* Copies to the body of one object to another. */
+static void copy_to(PARROT_INTERP, STable *st, void *src, void *dest) {
+    *((INTVAL *)dest) = *((INTVAL *)src);
+}
+
 /* Helper to die because this type doesn't support attributes. */
 PARROT_DOES_NOT_RETURN
 static void die_no_attrs(PARROT_INTERP) {
@@ -155,6 +160,7 @@ REPROps * P6int_initialize(PARROT_INTERP) {
     this_repr->type_object_for = type_object_for;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
+    this_repr->copy_to = copy_to;
     this_repr->get_attribute_boxed = get_attribute_boxed;
     this_repr->get_attribute_ref = get_attribute_ref;
     this_repr->bind_attribute = bind_attribute;

src/6model/reprs/P6num.c

@@ -44,6 +44,11 @@ static void initialize(PARROT_INTERP, STable *st, void *data) {
     ((P6numBody *)data)->value = 0.0/x;
 }
 
+/* Copies to the body of one object to another. */
+static void copy_to(PARROT_INTERP, STable *st, void *src, void *dest) {
+    *((FLOATVAL *)dest) = *((FLOATVAL *)src);
+}
+
 /* Helper to die because this type doesn't support attributes. */
 PARROT_DOES_NOT_RETURN
 static void die_no_attrs(PARROT_INTERP) {
@@ -156,6 +161,7 @@ REPROps * P6num_initialize(PARROT_INTERP) {
     this_repr->type_object_for = type_object_for;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
+    this_repr->copy_to = copy_to;
     this_repr->get_attribute_boxed = get_attribute_boxed;
     this_repr->get_attribute_ref = get_attribute_ref;
     this_repr->bind_attribute = bind_attribute;

src/6model/reprs/P6opaque.c

@@ -388,6 +388,12 @@ static void initialize(PARROT_INTERP, STable *st, void *data) {
     /* XXX Fill this out when we may have nested things to initialize. */
 }
 
+/* Copies to the body of one object to another. */
+static void copy_to(PARROT_INTERP, STable *st, void *src, void *dest) {
+    P6opaqueREPRData * repr_data = (P6opaqueREPRData *) st->REPR_data;
+    memcpy(dest, src, repr_data->allocation_size - sizeof(P6opaqueInstance));
+}
+
 /* Helper for complaining about attribute access errors. */
 PARROT_DOES_NOT_RETURN
 static void no_such_attribute(PARROT_INTERP, const char *action, PMC *class_handle, STRING *name) {
@@ -821,6 +827,7 @@ REPROps * P6opaque_initialize(PARROT_INTERP) {
     this_repr->type_object_for = type_object_for;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
+    this_repr->copy_to = copy_to;
     this_repr->get_attribute_boxed = get_attribute_boxed;
     this_repr->get_attribute_ref = get_attribute_ref;
     this_repr->bind_attribute = bind_attribute;

src/6model/reprs/P6str.c

@@ -43,6 +43,12 @@ static void initialize(PARROT_INTERP, STable *st, void *data) {
     ((P6strBody *)data)->value = STRINGNULL;
 }
 
+/* Copies to the body of one object to another. */
+static void copy_to(PARROT_INTERP, STable *st, void *src, void *dest) {
+    /* Strings are immutable, so this is safe. */
+    *((STRING **)dest) = *((STRING **)src);
+}
+
 /* Helper to die because this type doesn't support attributes. */
 PARROT_DOES_NOT_RETURN
 static void die_no_attrs(PARROT_INTERP) {
@@ -162,6 +168,7 @@ REPROps * P6str_initialize(PARROT_INTERP) {
     this_repr->type_object_for = type_object_for;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
+    this_repr->copy_to = copy_to;
     this_repr->get_attribute_boxed = get_attribute_boxed;
     this_repr->get_attribute_ref = get_attribute_ref;
     this_repr->bind_attribute = bind_attribute;

src/6model/reprs/Uninstantiable.c

@@ -42,6 +42,11 @@ static void initialize(PARROT_INTERP, STable *st, void *data) {
     /* Nothing to do. */
 }
 
+/* Copies to the body of one object to another. */
+static void copy_to(PARROT_INTERP, STable *st, void *src, void *dest) {
+    /* Nothing to copy. */
+}
+
 /* Helper to die because this type doesn't support attributes. */
 PARROT_DOES_NOT_RETURN
 static void die_no_attrs(PARROT_INTERP) {
@@ -162,6 +167,7 @@ REPROps * Uninstantiable_initialize(PARROT_INTERP) {
     this_repr->type_object_for = type_object_for;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
+    this_repr->copy_to = copy_to;
     this_repr->get_attribute_boxed = get_attribute_boxed;
     this_repr->get_attribute_ref = get_attribute_ref;
     this_repr->bind_attribute = bind_attribute;