Mercurial > pidgin

comparison plugins/perl/common/Gaim.xs @ 6554:28b38803d0bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 7076] Oops, we're supposed to be using gaim_signal_connect_vargs(). committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Thu, 21 Aug 2003 09:02:39 +0000
parents 65dc4d34f280
children 6e25e1e08ffb
comparison
equal deleted inserted replaced
6553:9e4fa4853cfe 6554:28b38803d0bb
10 int seconds 10 int seconds
11 const char *func 11 const char *func
12 SV *data 12 SV *data
13 CODE: 13 CODE:
14 gaim_perl_timeout_add(plugin, seconds, func, data); 14 gaim_perl_timeout_add(plugin, seconds, func, data);
15
16 void
17 signal_connect(instance, signal, plugin, func, data)
18 void *instance
19 const char *signal
20 Gaim::Plugin plugin
21 const char *func
22 SV *data
23 CODE:
24 gaim_perl_signal_connect(plugin, instance, signal, func, data);
25
26 void
27 signal_disconnect(instance, signal, plugin, func)
28 void *instance
29 const char *signal
30 Gaim::Plugin plugin
31 const char *func
32 CODE:
33 gaim_perl_signal_disconnect(plugin, instance, signal, func);
15 34
16 void 35 void
17 debug(level, category, string) 36 debug(level, category, string)
18 const char *level 37 const char *level
19 const char *category 38 const char *category
29 gaim_debug(GAIM_DEBUG_ERROR, category, string); 48 gaim_debug(GAIM_DEBUG_ERROR, category, string);
30 else if (!strcmp(level, "fatal")) 49 else if (!strcmp(level, "fatal"))
31 gaim_debug(GAIM_DEBUG_FATAL, category, string); 50 gaim_debug(GAIM_DEBUG_FATAL, category, string);
32 else 51 else
33 croak("Unknown debug level type '%s'", level); 52 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 SV *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);
53 53
54 void 54 void
55 debug_misc(category, string) 55 debug_misc(category, string)
56 const char *category 56 const char *category
57 const char *string 57 const char *string