Implement Capture.freeze/thaw. Closes #2047

parrot · Mar 11, 2011 · cdecdf8 · cdecdf8
1 parent 492de04
commit cdecdf8
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 2 deletions.
diff --git a/src/pmc/capture.pmc b/src/pmc/capture.pmc
@@ -777,6 +777,34 @@ Mark the array.
 
 /*
 
+=item C<void freeze()>
+
+=item C<void thaw()>
+
+Freeze/thaw Capture
+
+=cut
+
+*/
+
+    VTABLE void freeze(PMC *info) {
+        PMC *array, *hash;
+        GET_ATTR_array(INTERP, SELF, array);
+        GET_ATTR_hash(INTERP, SELF, hash);
+
+        VTABLE_push_pmc(INTERP, info, array);
+        VTABLE_push_pmc(INTERP, info, hash);
+    }
+
+    VTABLE void thaw(PMC *info) {
+        PMC *tmp;
+        tmp = VTABLE_shift_pmc(INTERP, info);
+        SET_ATTR_array(INTERP, SELF, tmp);
+        tmp = VTABLE_shift_pmc(INTERP, info);
+        SET_ATTR_hash(INTERP, SELF, tmp);
+    }
+/*
+
 =back
 
 =head2 Methods

diff --git a/t/pmc/capture.t b/t/pmc/capture.t
@@ -356,9 +356,9 @@ a variety of keys and values.
     $P0 = thaw $S1
 
     $S0 = $P0["foo"]
-    "is"($S0, "foo", "Hash thawed", "todo" => "TT #2047")
+    "is"($S0, "foo", "Hash thawed")
     $S0 = $P0[0]
-    "is"($S0, "bar", "Array thawed", "todo" => "TT #2047")
+    "is"($S0, "bar", "Array thawed")
 .end
 
 # Local Variables: