Mercurial > pidgin.yaz

comparison plugins/perl/common/Gaim.xs @ 6520:2e2593d95121

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 7037] Added timeout handler support to perl. It may not work. Probably should, but who knows. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Wed, 20 Aug 2003 10:25:58 +0000
parents cbd24b37350d
children 390807f638b1
comparison
equal deleted inserted replaced
6519:7f0fffa1077b 6520:2e2593d95121
1 #include "module.h" 1 #include "module.h"
2 #include "../perl-handlers.h"
2 3
3 MODULE = Gaim PACKAGE = Gaim 4 MODULE = Gaim PACKAGE = Gaim
4 PROTOTYPES: ENABLE 5 PROTOTYPES: ENABLE
5 6
6 void 7 void
7 debug(string) 8 timeout_add(plugin, seconds, func, arg)
9 Gaim::Plugin plugin
10 int seconds
11 const char *func
12 void *arg
13 CODE:
14 gaim_perl_timeout_add(plugin, 1000 * seconds, func, arg);
15
16 void
17 debug(category, string)
18 const char *category
8 const char *string 19 const char *string
9 CODE: 20 CODE:
10 gaim_debug(GAIM_DEBUG_INFO, "perl script", string); 21 gaim_debug(GAIM_DEBUG_INFO, category, string);
22
23 void
24 deinit()
25 PREINIT:
26 GList *l;
27 CODE:
28 gaim_perl_timeout_clear();
29
11 30
12 BOOT: 31 BOOT:
13 GAIM_PERL_BOOT(Account); 32 GAIM_PERL_BOOT(Account);
33