Changeset e7f5970bf7083cf17c2ed23381f4ff53816d7ffb

Timestamp:

10/26/09 16:09:38 (4 weeks ago)

Author:

David Benjamin <davidben@mit.edu>

git-author:

David Benjamin <davidben@mit.edu> / 2009-10-06T13:32:11Z-0400

Parents:

02a72bfacefe24e332415bea7225142b5d609763

Children:

a01ed7cdca6315ea934496b953495210530f61f7

git-committer:

David Benjamin <davidben@mit.edu> / 2009-10-26T16:09:38Z-0400

Message:

Add owl_new_hv for future Perl code

While we're at it, might as well make it easy to export dictionaries in
future.

Signed-off-by: David Benjamin <davidben@mit.edu>

Files:

• perlconfig.c (modified) (1 diff)

perlconfig.c

@@ -48 +48 @@
     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;