[svn:parrot] r39597 - branches/tt761_keys_revamp/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Jun 16 22:37:42 2009
New Revision: 39597
URL: https://trac.parrot.org/parrot/changeset/39597

Log:
[pmc] Implement get_pmc ans shift_string in HashIterator.

Modified:
   branches/tt761_keys_revamp/src/pmc/hashiterator.pmc

Modified: branches/tt761_keys_revamp/src/pmc/hashiterator.pmc
==============================================================================
--- branches/tt761_keys_revamp/src/pmc/hashiterator.pmc	Tue Jun 16 21:58:24 2009	(r39596)
+++ branches/tt761_keys_revamp/src/pmc/hashiterator.pmc	Tue Jun 16 22:37:42 2009	(r39597)
@@ -153,6 +153,18 @@
 
 /*
 
+=item C<PMC *get_pmc()>
+
+Returns this Iterator's Hash.
+
+=cut
+*/
+    VTABLE PMC* get_pmc() {
+        return PARROT_HASHITERATOR(SELF)->pmc_hash;
+    }
+
+/*
+
 =item C<INTVAL get_bool()>
 
 Returns true if there is more elements to iterate over.
@@ -216,8 +228,14 @@
     }
 
 /*
+
 */
 
+    VTABLE STRING* shift_string() {
+        PMC *key = SELF.shift_pmc();
+        return VTABLE_get_string(INTERP, key);
+    }
+
 }
 
 /*