[svn:mod_parrot] r608 - in mod_parrot/trunk: include src

Author: jhorwitz
Date: Sat Feb  7 13:07:04 2009
New Revision: 608

Modified:
   mod_parrot/trunk/include/mod_parrot.h
   mod_parrot/trunk/src/mod_parrot.c

Log:
remove unused modparrot_meta_handler


Modified: mod_parrot/trunk/include/mod_parrot.h
==============================================================================
--- mod_parrot/trunk/include/mod_parrot.h	(original)
+++ mod_parrot/trunk/include/mod_parrot.h	Sat Feb  7 13:07:04 2009
@@ -104,7 +104,6 @@
 int modparrot_call_sub_IPS(Parrot_Interp, char *, char *, int *, Parrot_PMC,
     char *);
 char *modparrot_backtrace(Parrot_Interp);
-int modparrot_meta_handler(Parrot_Interp, char *, char *, char *, int *);
 Parrot_PMC get_sub_pmc(Parrot_Interp , char *, char *);
 apr_array_header_t *mp_ctx_pool_init(apr_pool_t *, Parrot_Interp, int);
 void mp_ctx_pool_destroy(apr_array_header_t *);

Modified: mod_parrot/trunk/src/mod_parrot.c
==============================================================================
--- mod_parrot/trunk/src/mod_parrot.c	(original)
+++ mod_parrot/trunk/src/mod_parrot.c	Sat Feb  7 13:07:04 2009
@@ -333,34 +333,6 @@
     return(ctxp);
 }
 
-int modparrot_meta_handler(Parrot_Interp interp, char *hll, char *hll_handler,
-    char *handler, int *ret)
-{
-    Parrot_PMC ctx_class;
-    Parrot_PMC ctx_pmc;
-    Parrot_PMC namespace;
-    Parrot_Int typenum;
-    int res;
-
-    typenum = Parrot_PMC_typenum(interp, "ResizableStringArray");
-    namespace = (Parrot_PMC)Parrot_PMC_new(interp, typenum);
-    Parrot_register_pmc(interp, namespace);
-    Parrot_PMC_set_intval(interp, namespace, 2);
-    Parrot_PMC_set_cstring_intkey(interp, namespace, 0, "ModParrot");
-    Parrot_PMC_set_cstring_intkey(interp, namespace, 1, "Context");
-    ctx_class = Parrot_oo_get_class(interp, namespace);
-    Parrot_unregister_pmc(interp, namespace);
-
-    ctx_pmc = Parrot_Class_instantiate(interp, ctx_class, PMCNULL);
-    Parrot_register_pmc(interp, ctx_pmc);
-
-    if (!hll) hll = MODPARROT_DEFAULT_HLL;
-    res = modparrot_call_sub_IPS(interp, hll, hll_handler, ret, ctx_pmc,
-        handler);
-    Parrot_unregister_pmc(interp, ctx_pmc);
-    return res ? 1 : 0;
-}
-
 static int modparrot_call_meta_handler(Parrot_Interp interp, char *hll,
     char *hook, int *ret)
 {