From:	Whiteknight@cvs.perl.org	Date:	Tue Aug 19 17:16:44 2008
Subject:	[svn:parrot] r30361 - branches/pdd27mmd/src/pmc

Author: Whiteknight
Date: Tue Aug 19 16:16:44 2008
New Revision: 30361

Modified:
   branches/pdd27mmd/src/pmc/multisub.pmc

Log:
[PMC] add stubs for get_pmc_keyed and get_pmc_keyed_string vtable methods. Add basic implementation of a get_iter method, which relies on these two vtable methods being implemented.

Modified: branches/pdd27mmd/src/pmc/multisub.pmc
==============================================================================
--- branches/pdd27mmd/src/pmc/multisub.pmc	(original)
+++ branches/pdd27mmd/src/pmc/multisub.pmc	Tue Aug 19 16:16:44 2008
@@ -79,21 +79,39 @@
     }
 
     VTABLE PMC *get_pmc() {
-        PMC * const list = Parrot_mmd_sort_manhattan(INTERP, SELF);
+        PMC * list = Parrot_mmd_sort_manhattan(INTERP, SELF);
 
         if (PMC_IS_NULL(list))
             Parrot_ex_throw_from_c_args(INTERP, NULL, 1, "No applicable methods.\n");
-
         return list;
     }
 
+/*
+    VTABLE PMC *get_pmc_keyed(PMC *key) {
+    }
+
+    VTABLE PMC *get_pmc_keyed_string(STRING *s) {
+    }
+*/
+
     /* stub get_iter method. Takes an argument list PMC, sorts the subs in the
        multi according to the closeness to that list, and returns an iterator
        over the sorted list of subs. Or, it could take a string PMC where
        type letters (P S N I) are whitespace delimited. */
-    METHOD PMC *get_iter(PMC *list) {
+/*
+    METHOD PMC *get_iter(PMC *args) {
+        STRING * const _array  = CONST_STRING(interp, "Array");
+        STRING * const _string = CONST_STRING(interp, "String");
+
+        if (VTABLE_isa(INTERP, args, _array))
+            return VTABLE_get_pmc_keyed(INTERP, SELF, args);
+        else if (VTABLE_isa(INTERP, args, _string))
+            return VTABLE_get_pmc_keyed_string(INTERP, SELF, args);
+        else
+            Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
+                    "attempt to call get_iter method with invalid arg type.\n");
     }
-
+*/
 }
 
 /*