Changeset e67359b30d65785f8a0951ed0df008dae0e38036

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-05T22:51:09Z-0400

Parents:

68c572a4377c03adaeca5bb25ec192e3515dc2df

Children:

3cc4bfc144304de096deb510403db0c38a62af68

git-committer:

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

Message:

Add owl_new_av to abstract owl_list to AV*

Takes a callback function to convert elements to SV*.

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

Files:

• perlconfig.c (modified) (1 diff)

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;
 }