Changeset e3cbd65

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:

fe7616e

Parents:

3cc4bfc

git-author:

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

git-committer:

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

Message:

Use owl_new_av in exported functions

Simplified all_variables, all_filters, and all_styles.

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

File:

• perlglue.xs (modified) (3 diffs)

perlglue.xs

@@ -334 +334 @@
 all_filters()
         PREINIT:
-                AV *filters;
                 const owl_list *fl;
-                const owl_filter *f;
-                int i;
         CODE:
         {
                 fl = owl_global_get_filterlist(&g);
-                filters = newAV();
-                for(i=0;i<owl_list_get_size(fl);i++) {
-                        f = owl_list_get_element(fl, i);
-                        av_push(filters, owl_new_sv(owl_filter_get_name(f)));
-                }
-                RETVAL = filters;
+                RETVAL = owl_new_av(fl, (SV*(*)(const void*))owl_filter_to_sv);
                 sv_2mortal((SV*)RETVAL);
         }
@@ -355 +347 @@
 all_styles()
         PREINIT:
-                AV *styles;
                 owl_list l;
-                const char *name;
-                int i;
         CODE:
         {
                 owl_list_create(&l);
                 owl_global_get_style_names(&g, &l);
-                styles = newAV();
-                for(i=0;i<owl_list_get_size(&l);i++) {
-                        name = owl_list_get_element(&l, i);
-                        av_push(styles, owl_new_sv(name));
-                }
-                RETVAL = styles;
+                RETVAL = owl_new_av(&l, (SV*(*)(const void*))owl_new_sv);
                 sv_2mortal((SV*)RETVAL);
         }
@@ -380 +364 @@
 all_variables()
         PREINIT:
-                AV *vars;
                 owl_list l;
-                const char *name;
-                int i;
         CODE:
         {
                 owl_list_create(&l);
                 owl_dict_get_keys(owl_global_get_vardict(&g), &l);
-                vars = newAV();
-                for(i=0;i<owl_list_get_size(&l);i++) {
-                        name = owl_list_get_element(&l, i);
-                        av_push(vars, owl_new_sv(name));
-                }
-                RETVAL = vars;
+                RETVAL = owl_new_av(&l, (SV*(*)(const void*))owl_new_sv);
                 sv_2mortal((SV*)RETVAL);
         }