Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    r6dc2d6b rd77e909  
    332332        CODE:
    333333        owl_select_remove_perl_dispatch(fd);
     334
     335
     336AV*
     337all_filters()
     338        PREINIT:
     339                AV *filters;
     340                owl_list *fl;
     341                owl_filter *f;
     342                int i;
     343        CODE:
     344        {
     345                fl = owl_global_get_filterlist(&g);
     346                filters = newAV();
     347                for(i=0;i<owl_list_get_size(fl);i++) {
     348                        f = owl_list_get_element(fl, i);
     349                        av_push(filters, newSVpv(owl_filter_get_name(f), 0));
     350                }
     351                RETVAL = filters;
     352                sv_2mortal((SV*)RETVAL);
     353        }
     354        OUTPUT:
     355                RETVAL
    334356
    335357MODULE = BarnOwl                PACKAGE = BarnOwl::Internal
Note: See TracChangeset for help on using the changeset viewer.