Changes in perlconfig.c [e7f5970:ffc4df6]

File:

• perlconfig.c (modified) (4 diffs)

perlconfig.c

@@ -33 +33 @@
     owl_free(escape);
   }
-  return ret;
-}
-
-AV *owl_new_av(const owl_list *l, SV *(*to_sv)(const void *))
-{
-  AV *ret;
-  int i;
-  void *element;
-
-  ret = newAV();
-
-  for (i = 0; i < owl_list_get_size(l); i++) {
-    element = owl_list_get_element(l, i);
-    av_push(ret, to_sv(element));
-  }
-
-  return ret;
-}
-
-HV *owl_new_hv(const owl_dict *d, SV *(*to_sv)(const void *))
-{
-  HV *ret;
-  owl_list l;
-  const char *key;
-  void *element;
-  int i;
-
-  ret = newHV();
-
-  /* TODO: add an iterator-like interface to owl_dict */
-  owl_dict_get_keys(d, &l);
-  for (i = 0; i < owl_list_get_size(&l); i++) {
-    key = owl_list_get_element(&l, i);
-    element = owl_dict_find_element(d, key);
-    (void)hv_store(ret, key, strlen(key), to_sv(element), 0);
-  }
-  owl_list_free_all(&l, owl_free);
-
   return ret;
 }
@@ -542 +504 @@
 }
 
-void owl_perlconfig_dispatch_free(owl_dispatch *d)
+void owl_perlconfig_io_dispatch_destroy(const owl_io_dispatch *d)
 {
   SvREFCNT_dec(d->data);
-  owl_free(d);
 }
 
@@ -593 +554 @@
 }
 
-void owl_perlconfig_dispatch(owl_dispatch *d)
-{
-  SV *cb = d->data;
+void owl_perlconfig_io_dispatch(const owl_io_dispatch *d, void *data)
+{
+  SV *cb = data;
   dSP;
   if(cb == NULL) {
@@ -607 +568 @@
   PUSHMARK(SP);
   PUTBACK;
-  
+
   call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);