Changeset e67359b

Timestamp:

Oct 26, 2009, 4:09:38 PM (15 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

3cc4bfc

Parents:

68c572a

git-author:

David Benjamin <davidben@mit.edu> (10/05/09 22:51:09)

git-committer:

David Benjamin <davidben@mit.edu> (10/26/09 16:09:38)

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>

File:

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