Mercurial > pidgin
view libpurple/plugins/perl/common/Core.xs @ 26677:fc8c1933bc22
propagate from branch 'im.pidgin.pidgin' (head e028e1fa5d4d70792f0219311b12e5f4b1587776)
to branch 'im.pidgin.cpw.darkrain42.docs' (head 2fec5896a8d1642235382a15d2ee7e988b6acf34)
| author | Paul Aurich <paul@darkrain42.org> |
|---|---|
| date | Fri, 03 Apr 2009 02:42:38 +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()
