Changeset d77e909 for perlglue.xs


Ignore:
Timestamp:
Jul 28, 2009, 11:15:43 PM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, 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:
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.