plugins/perl/common/Signal.xs

Sun, 12 Feb 2006 22:14:38 +0000

author
Mark Doliner <markdoliner@pidgin.im>
date
Sun, 12 Feb 2006 22:14:38 +0000
changeset 13255
b318f395092d
parent 13191
6c98c6130701
permissions
-rw-r--r--

[gaim-migrate @ 15620]
This is the way we clean the code, clean the code, clean the code
This is the way we clean the code, clean the code, clean the code
So early in the morning

#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)
	void *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)
	void *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)
	void *instance
	const char *signal
	Gaim::Plugin plugin
CODE:
	gaim_perl_signal_disconnect(plugin, instance, signal);

mercurial