view libgaim/plugins/perl/common/Signal.xs @ 14717:b1fcd2fc903a

[gaim-migrate @ 17471] Martijn van Beers provided some patches to rework the perl object casting/blessing for signal instances in order to let the newly added jabber-* signals work. This is those patches. This is also a small whitespace change, a removal of the gaim debug message about "Found plugin info" it was just pissing me off, and a renamespacing of gaim_blist_node_get_extended_menu into Gaim::Blist::Node where it makes slightly more sense. committer: Tailor Script <[e-mail]>

#include "module.h"
#include "../perl-handlers.h"

MODULE = Gaim::Signal  PACKAGE = Gaim::Signal  PREFIX = gaim_signal_
PROTOTYPES: ENABLE

void
gaim_signal_connect_priority(instance, signal, plugin, callback, priority, data = 0)
	Gaim::Handle instance
	const char *signal
	Gaim::Plugin plugin
	SV *callback
	int priority
	SV *data
CODE:
	gaim_perl_signal_connect(plugin, instance, signal, callback, data, priority);

void
gaim_signal_connect(instance, signal, plugin, callback, data = 0)
	Gaim::Handle instance
	const char *signal
	Gaim::Plugin plugin
	SV *callback
	SV *data
CODE:
	gaim_perl_signal_connect(plugin, instance, signal, callback, data, GAIM_SIGNAL_PRIORITY_DEFAULT);

void
gaim_signal_disconnect(instance, signal, plugin)
	Gaim::Handle instance
	const char *signal
	Gaim::Plugin plugin
CODE:
	gaim_perl_signal_disconnect(plugin, instance, signal);