libpurple/plugins/perl/common/Core.xs

Sat, 19 May 2007 21:38:47 +0000

author
Richard Laager <rlaager@pidgin.im>
date
Sat, 19 May 2007 21:38:47 +0000
changeset 18068
b6554e3c8224
parent 15066
libgaim/plugins/perl/common/Core.xs@57ab37fe1190
parent 15894
libgaim/plugins/perl/common/Core.xs@765ec644ac47
child 20481
65485e2ed8a3
permissions
-rw-r--r--

merge of '1442df274a24edc9a31194327bd00dfbcf478720'
and 'ce02548a6b6a545d97fb3f371506bcf1b5cc5131'

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

mercurial