Changeset fe7616e


Ignore:
Timestamp:
Oct 26, 2009, 4:09:38 PM (12 years ago)
Author:
David Benjamin <davidben@mit.edu>
Branches:
master, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
02a72bf
Parents:
e3cbd65
git-author:
David Benjamin <davidben@mit.edu> (10/05/09 19:59:45)
git-committer:
David Benjamin <davidben@mit.edu> (10/26/09 16:09:38)
Message:
Export BarnOwl::all_keymaps to perl

For completing the show keymap command.

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

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    re3cbd65 rfe7616e  
    369369                owl_list_create(&l);
    370370                owl_dict_get_keys(owl_global_get_vardict(&g), &l);
     371                RETVAL = owl_new_av(&l, (SV*(*)(const void*))owl_new_sv);
     372                sv_2mortal((SV*)RETVAL);
     373        }
     374        OUTPUT:
     375                RETVAL
     376        CLEANUP:
     377                owl_list_free_all(&l, owl_free);
     378
     379
     380AV*
     381all_keymaps()
     382        PREINIT:
     383                owl_list l;
     384                const owl_keyhandler *kh;
     385        CODE:
     386        {
     387                owl_list_create(&l);
     388                kh = owl_global_get_keyhandler(&g);
     389                owl_keyhandler_get_keymap_names(kh, &l);
    371390                RETVAL = owl_new_av(&l, (SV*(*)(const void*))owl_new_sv);
    372391                sv_2mortal((SV*)RETVAL);
Note: See TracChangeset for help on using the changeset viewer.