Changeset d77e909

Timestamp:

Jul 28, 2009, 11:15:43 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

ab9cd8f

Parents:

84db778

git-author:

Nelson Elhage <nelhage@mit.edu> (07/28/09 09:47:44)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/28/09 23:15:43)

Message:

Add BarnOwl::all_filters() to get the names of all filters.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -332 +332 @@
         CODE:
         owl_select_remove_perl_dispatch(fd);
+
+
+AV*
+all_filters()
+        PREINIT:
+                AV *filters;
+                owl_list *fl;
+                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, newSVpv(owl_filter_get_name(f), 0));
+                }
+                RETVAL = filters;
+                sv_2mortal((SV*)RETVAL);
+        }
+        OUTPUT:
+                RETVAL
 
 MODULE = BarnOwl                PACKAGE = BarnOwl::Internal