Mercurial > pidgin

view libpurple/plugins/perl/common/Core.xs @ 23142:dea8b856466e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
propagate from branch 'im.pidgin.pidgin.custom_smiley' (head c134ff23eba5faac09c13e731e792fa612c91a9a) to branch 'im.pidgin.pidgin.next.minor' (head 4d2d20241c7dac5915e142f0aa9811c9eab40111)
author Sadrul Habib Chowdhury <imadil@gmail.com>
date Mon, 12 May 2008 23:17:48 +0000
parents 2f8274ce570a
children e3f30a73a793
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()

void
purple_core_set_ui_ops(ops)
    Purple::Core::UiOps ops

Purple::Core::UiOps
purple_core_get_ui_ops()