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

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Jun 25 11:30:07 2009
New Revision: 39768
URL: https://trac.parrot.org/parrot/changeset/39768

Log:
[pmc] Implement HashIterator.set_integer_native

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	Thu Jun 25 11:29:41 2009	(r39767)
+++ branches/tt761_keys_revamp/src/pmc/hashiterator.pmc	Thu Jun 25 11:30:07 2009	(r39768)
@@ -158,6 +158,29 @@
 
 /*
 
+=item C<void set_integer_native()>
+
+=cut
+
+*/
+    VTABLE void set_integer_native(INTVAL value) {
+        Parrot_HashIterator_attributes *attrs =
+                PARROT_HASHITERATOR(SELF);
+
+        if (value == 0) {
+            /* Restart iterator */
+            attrs->bucket           = 0;
+            attrs->pos              = 0;
+            advance_to_next(INTERP, SELF);
+            return;
+        }
+
+        Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_INVALID_OPERATION,
+                "HashIterator: unknown iterator type");
+    };
+
+/*
+
 =item C<PMC *get_pmc()>
 
 Returns this Iterator's Hash.