view libpurple/plugins/perl/common/Signal.xs @ 27017:31f65046b92d

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"
#include "../perl-handlers.h"

MODULE = Purple::Signal  PACKAGE = Purple::Signal  PREFIX = purple_signal_
PROTOTYPES: ENABLE

void
purple_signal_connect_priority(instance, signal, plugin, callback, priority, data = 0)
	Purple::Handle instance
	const char *signal
	Purple::Plugin plugin
	SV *callback
	int priority
	SV *data
CODE:
	purple_perl_signal_connect(plugin, instance, signal, callback, data, priority);

void
purple_signal_connect(instance, signal, plugin, callback, data = 0)
	Purple::Handle instance
	const char *signal
	Purple::Plugin plugin
	SV *callback
	SV *data
CODE:
	purple_perl_signal_connect(plugin, instance, signal, callback, data, PURPLE_SIGNAL_PRIORITY_DEFAULT);

void
purple_signal_disconnect(instance, signal, plugin)
	Purple::Handle instance
	const char *signal
	Purple::Plugin plugin
CODE:
	purple_perl_signal_disconnect(plugin, instance, signal);