Mercurial > pidgin
diff plugins/perl/common/Gaim.xs @ 6550:f1736493aebb
[gaim-migrate @ 7072]
This *should* be a working signal implementation for perl. Watch it crash.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Thu, 21 Aug 2003 08:42:47 +0000 |
parents | fe0294504602 |
children | 65dc4d34f280 |
line wrap: on
line diff
--- a/plugins/perl/common/Gaim.xs Thu Aug 21 08:38:32 2003 +0000 +++ b/plugins/perl/common/Gaim.xs Thu Aug 21 08:42:47 2003 +0000 @@ -33,6 +33,25 @@ croak("Unknown debug level type '%s'", level); void +signal_connect(instance, signal, plugin, func, data) + void *instance + const char *signal + Gaim::Plugin plugin + const char *func + void *data +CODE: + gaim_perl_signal_connect(plugin, instance, signal, func, data); + +void +signal_disconnect(instance, signal, plugin, func) + void *instance + const char *signal + Gaim::Plugin plugin + const char *func +CODE: + gaim_perl_signal_disconnect(plugin, instance, signal, func); + +void debug_misc(category, string) const char *category const char *string