Mercurial > pidgin3 / file revision

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

libpurple/plugins/perl/common/Core.xs@1d1bd4413f82

libpurple/plugins/perl/common/Core.xs

Fri, 22 May 2009 04:56:05 +0000

author

Paul Aurich <darkrain42@pidgin.im>

date

Fri, 22 May 2009 04:56:05 +0000

changeset 27158

1d1bd4413f82

parent 23987

3d41ccd1f8bf

permissions

-rw-r--r--

Various perl warning fixes as well as real fixes to gconstpointer functions

SvPV, et al. take a char*, whereas the cipher and base16/64 encoding functions
return unsigned char*s, so cast away warnings about those distinctions.

get_image_extension and get_image_filename take a (char *, len) as arguments,
but the generated glue code wasn't interepreting the data as a giant array.
I think purple_imgstore_get_data is also broken, but is not fixed.

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