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()