Mercurial > pidgin.yaz
view libpurple/plugins/perl/common/Core.xs @ 25441:ecc098dc6563
propagate from branch 'im.pidgin.cpw.malu.xmpp.ibb_ft' (head cb0383f5b2aa47ed5b3bc5beb121c391d70b776a)
to branch 'im.pidgin.pidgin' (head 182999b6c59afcf63dda43bccb93e9db7c5f6719)
author | Elliott Sales de Andrade <qulogic@pidgin.im> |
---|---|
date | Mon, 02 Mar 2009 06:18:44 +0000 |
parents | e3f30a73a793 |
children |
line wrap: on
line source
#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()