libpurple/plugins/perl/common/Core.xs@065a79d2d0e5
libpurple/plugins/perl/common/Core.xs
Sun, 12 Aug 2007 01:52:10 +0000
- author
- Daniel Atallah <datallah@pidgin.im>
- date
- Sun, 12 Aug 2007 01:52:10 +0000
- changeset 19336
- 065a79d2d0e5
- parent 15894
- 765ec644ac47
- child 18068
- b6554e3c8224
- child 23987
- 3d41ccd1f8bf
- permissions
- -rw-r--r--
Make perl loader more robust - use G_EVAL flag on all calls so that if the perl function dies, it doesn't cause libpurple to quit.
#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()
