Mercurial > pidgin.yaz
changeset 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 | ed796f756237 |
| children | 12343e2aaab1 |
| files | plugins/perl/common/Gaim.xs plugins/perl/perl-handlers.h |
| diffstat | 2 files changed, 21 insertions(+), 2 deletions(-) [+] |
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
--- a/plugins/perl/perl-handlers.h Thu Aug 21 08:38:32 2003 +0000 +++ b/plugins/perl/perl-handlers.h Thu Aug 21 08:42:47 2003 +0000 @@ -28,10 +28,10 @@ void gaim_perl_timeout_clear_for_plugin(GaimPlugin *plugin); void gaim_perl_timeout_clear(void); -void gaim_perl_signal_connect(GaimPlugin *plugin, void *handle, +void gaim_perl_signal_connect(GaimPlugin *plugin, void *instance, const char *signal, const char *func, void *data); -void gaim_perl_signal_disconnect(GaimPlugin *plugin, void *handle, +void gaim_perl_signal_disconnect(GaimPlugin *plugin, void *instance, const char *signal, const char *func); void gaim_perl_signal_clear_for_plugin(GaimPlugin *plugin); void gaim_perl_signal_clear(void);