Mercurial > pidgin

comparison plugins/perl/common/Gaim.xs @ 6550:f1736493aebb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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