Mercurial > pidgin3 / file revision

• file
• latest
• revisions
• annotate
• diff
• comparison
• raw

libpurple/plugins/perl/common/Core.xs@3ee4247ebbbd

libpurple/plugins/perl/common/Core.xs

Wed, 23 Apr 2008 02:29:39 +0000

author

Sadrul Habib Chowdhury <sadrul@pidgin.im>

date

Wed, 23 Apr 2008 02:29:39 +0000

changeset 22839

3ee4247ebbbd

parent 15894

765ec644ac47

child 18068

b6554e3c8224

child 23987

3d41ccd1f8bf

permissions

-rw-r--r--

Use the same fix for Purple::Util::fetch_url (from 4b6378d5e) for
Purple::Request:: functions as well. This allows the callbacks to be
specified both as coderefs or as strings (name of the callback function).

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