Mercurial > pidgin.yaz

view libpurple/plugins/perl/common/Core.xs @ 25309:5fa132f530f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
propagate from branch 'im.pidgin.pidgin' (head 3fa3a746613f1d6095334bfc54443d61166dd9fa) to branch 'im.pidgin.pidgin.next.minor' (head f3bb9458fa15c80c60545652e3145916f069d494)
author Richard Laager <rlaager@wiktel.com>
date Sun, 02 Nov 2008 22:18:13 +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()