Changes in perlglue.xs [ffc4df6:fe7616e]

File:

• perlglue.xs (modified) (4 diffs)

perlglue.xs

@@ -318 +318 @@
 
 void
-remove_io_dispatch(fd)
+add_dispatch(fd, cb)
         int fd
-        CODE:
-        owl_select_remove_perl_io_dispatch(fd);
+        SV * cb
+        CODE:
+        owl_select_add_perl_dispatch(fd, SvREFCNT_inc(cb));
+
+void
+remove_dispatch(fd)
+        int fd
+        CODE:
+        owl_select_remove_perl_dispatch(fd);
+
 
 AV*
 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);
         }
@@ -347 +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);
         }
@@ -372 +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);
+        }
+        OUTPUT:
+                RETVAL
+        CLEANUP:
+                owl_list_free_all(&l, owl_free);
+
+
+AV*
+all_keymaps()
+        PREINIT:
+                owl_list l;
+                const owl_keyhandler *kh;
+        CODE:
+        {
+                owl_list_create(&l);
+                kh = owl_global_get_keyhandler(&g);
+                owl_keyhandler_get_keymap_names(kh, &l);
+                RETVAL = owl_new_av(&l, (SV*(*)(const void*))owl_new_sv);
                 sv_2mortal((SV*)RETVAL);
         }
@@ -501 +504 @@
                                       ival);
 
-void
-add_io_dispatch(fd, mode, cb)
-        int fd
-        int mode
-        SV * cb
-        CODE:
-        owl_select_add_perl_io_dispatch(fd, mode, SvREFCNT_inc(cb));
-
 IV
 add_timer(after, interval, cb)