Mercurial > pidgin.yaz
comparison 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 |
comparison
equal
deleted
inserted
replaced
6549:ed796f756237 | 6550:f1736493aebb |
---|---|
29 gaim_debug(GAIM_DEBUG_ERROR, category, string); | 29 gaim_debug(GAIM_DEBUG_ERROR, category, string); |
30 else if (!strcmp(level, "fatal")) | 30 else if (!strcmp(level, "fatal")) |
31 gaim_debug(GAIM_DEBUG_FATAL, category, string); | 31 gaim_debug(GAIM_DEBUG_FATAL, category, string); |
32 else | 32 else |
33 croak("Unknown debug level type '%s'", level); | 33 croak("Unknown debug level type '%s'", level); |
34 | |
35 void | |
36 signal_connect(instance, signal, plugin, func, data) | |
37 void *instance | |
38 const char *signal | |
39 Gaim::Plugin plugin | |
40 const char *func | |
41 void *data | |
42 CODE: | |
43 gaim_perl_signal_connect(plugin, instance, signal, func, data); | |
44 | |
45 void | |
46 signal_disconnect(instance, signal, plugin, func) | |
47 void *instance | |
48 const char *signal | |
49 Gaim::Plugin plugin | |
50 const char *func | |
51 CODE: | |
52 gaim_perl_signal_disconnect(plugin, instance, signal, func); | |
34 | 53 |
35 void | 54 void |
36 debug_misc(category, string) | 55 debug_misc(category, string) |
37 const char *category | 56 const char *category |
38 const char *string | 57 const char *string |