Changeset fe7616e5988beed102273ee0ed321a352ba80297

Timestamp:

10/26/09 16:09:38 (4 weeks ago)

Author:

David Benjamin <davidben@mit.edu>

git-author:

David Benjamin <davidben@mit.edu> / 2009-10-05T19:59:45Z-0400

Parents:

e3cbd65cfe991b0f4d6b753d76dc9e1157caa634

Children:

02a72bfacefe24e332415bea7225142b5d609763

git-committer:

David Benjamin <davidben@mit.edu> / 2009-10-26T16:09:38Z-0400

Message:

Export BarnOwl::all_keymaps to perl

For completing the show keymap command.

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

Files:

• 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);