Mercurial > pidgin
diff libgaim/plugins/perl/common/Signal.xs @ 14192:60b1bc8dbf37
[gaim-migrate @ 16863]
Renamed 'core' to 'libgaim'
committer: Tailor Script <tailor@pidgin.im>
author | Evan Schoenberg <evan.s@dreskin.net> |
---|---|
date | Sat, 19 Aug 2006 01:50:10 +0000 |
parents | |
children | b1fcd2fc903a |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/libgaim/plugins/perl/common/Signal.xs Sat Aug 19 01:50:10 2006 +0000 @@ -0,0 +1,34 @@ +#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);