libpurple/plugins/perl/common/Core.xs@204b6e71f403
libpurple/plugins/perl/common/Core.xs
Thu, 07 Aug 2008 02:48:21 +0000
- author
- Daniel Atallah <datallah@pidgin.im>
- date
- Thu, 07 Aug 2008 02:48:21 +0000
- changeset 23982
- 204b6e71f403
- parent 15894
- 765ec644ac47
- child 18068
- b6554e3c8224
- child 23987
- 3d41ccd1f8bf
- permissions
- -rw-r--r--
Some Perl bindings fixes and additions from Zsombor Welker.
Technically some of these change the API, but in those couple cases, the way it
is now is either broken, not usable or pretty unlikely to be used. Feel free
to yell at me and/or revert this if you think this is unacceptable.
Fixes #5912
#include "module.h" MODULE = Purple::Core PACKAGE = Purple::Core PREFIX = purple_core_ PROTOTYPES: ENABLE gboolean purple_core_quit_cb() PPCODE: /* The argument to purple_core_quit_cb is not used, * so there's little point in requiring it on the * Perl side. */ RETVAL = purple_core_quit_cb(NULL); ST(0) = boolSV(RETVAL); sv_2mortal(ST(0)); const char * purple_core_get_version() const char * purple_core_get_ui() void purple_core_set_ui_ops(ops) Purple::Core::UiOps ops Purple::Core::UiOps purple_core_get_ui_ops()
