Changeset fe7616e

Timestamp:

Oct 26, 2009, 4:09:38 PM (15 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, 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:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -369 +369 @@
                 owl_list_create(&l);
                 owl_dict_get_keys(owl_global_get_vardict(&g), &l);
+                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);