libgaim/plugins/perl/common/Signal.xs

Wed, 12 Nov 2008 05:14:03 +0000

author
Richard Laager <rlaager@pidgin.im>
date
Wed, 12 Nov 2008 05:14:03 +0000
branch
gaim
changeset 20471
1966704b3e42
parent 13191
plugins/perl/common/Signal.xs@6c98c6130701
parent 14779
plugins/perl/common/Signal.xs@1b71da367f56
permissions
-rw-r--r--

merge of '77693555855fe9cd3215414f79964dba346cc5fa'
and '19a87e98e5857ad0289f2c760d460f7f1dbbb42d'

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

mercurial