Mercurial > pidgin

view libpurple/plugins/perl/common/Core.xs @ 23969:4ecea8ae3d21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge of '3c1dec61837db8f0f51fc35f7ca26ff948a4e4f4' and 'd03f77d92751b3104fa7f211c86084c46a8679b7'
author Elliott Sales de Andrade <qulogic@pidgin.im>
date Tue, 26 Aug 2008 04:08:22 +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()