plugins/perl/common/Gaim.xs

changeset 14253
b63ebf84c42b
parent 14252
d10dda2777a9
child 14254
77edc7a6191a
equal deleted inserted replaced
14252:d10dda2777a9 14253:b63ebf84c42b
1 #include "module.h"
2 #include "../perl-handlers.h"
3 #include "const-c.inc"
4
5 /* Prototypes for the BOOT section below. */
6 GAIM_PERL_BOOT_PROTO(Account);
7 GAIM_PERL_BOOT_PROTO(Account__Option);
8 GAIM_PERL_BOOT_PROTO(Buddy__Icon);
9 GAIM_PERL_BOOT_PROTO(BuddyList);
10 GAIM_PERL_BOOT_PROTO(Cipher);
11 GAIM_PERL_BOOT_PROTO(Cmd);
12 GAIM_PERL_BOOT_PROTO(Connection);
13 GAIM_PERL_BOOT_PROTO(Conversation);
14 GAIM_PERL_BOOT_PROTO(Debug);
15 GAIM_PERL_BOOT_PROTO(Xfer);
16 GAIM_PERL_BOOT_PROTO(ImgStore);
17 GAIM_PERL_BOOT_PROTO(Log);
18 GAIM_PERL_BOOT_PROTO(Network);
19 GAIM_PERL_BOOT_PROTO(Notify);
20 GAIM_PERL_BOOT_PROTO(Plugin);
21 GAIM_PERL_BOOT_PROTO(PluginPref);
22 GAIM_PERL_BOOT_PROTO(Pounce);
23 GAIM_PERL_BOOT_PROTO(Prefs);
24 GAIM_PERL_BOOT_PROTO(Privacy);
25 GAIM_PERL_BOOT_PROTO(Proxy);
26 GAIM_PERL_BOOT_PROTO(Prpl);
27 GAIM_PERL_BOOT_PROTO(Request);
28 GAIM_PERL_BOOT_PROTO(Roomlist);
29 GAIM_PERL_BOOT_PROTO(SSL);
30 GAIM_PERL_BOOT_PROTO(SavedStatus);
31 GAIM_PERL_BOOT_PROTO(Serv);
32 GAIM_PERL_BOOT_PROTO(Signal);
33 GAIM_PERL_BOOT_PROTO(Sound);
34 GAIM_PERL_BOOT_PROTO(Status);
35 GAIM_PERL_BOOT_PROTO(Stringref);
36 GAIM_PERL_BOOT_PROTO(Util);
37 GAIM_PERL_BOOT_PROTO(XMLNode);
38
39 MODULE = Gaim PACKAGE = Gaim PREFIX = gaim_
40 PROTOTYPES: ENABLE
41
42 INCLUDE: const-xs.inc
43
44 BOOT:
45 GAIM_PERL_BOOT(Account);
46 GAIM_PERL_BOOT(Account__Option);
47 GAIM_PERL_BOOT(Buddy__Icon);
48 GAIM_PERL_BOOT(BuddyList);
49 GAIM_PERL_BOOT(Cipher);
50 GAIM_PERL_BOOT(Cmd);
51 GAIM_PERL_BOOT(Connection);
52 GAIM_PERL_BOOT(Conversation);
53 GAIM_PERL_BOOT(Debug);
54 GAIM_PERL_BOOT(Xfer);
55 GAIM_PERL_BOOT(ImgStore);
56 GAIM_PERL_BOOT(Log);
57 GAIM_PERL_BOOT(Network);
58 GAIM_PERL_BOOT(Notify);
59 GAIM_PERL_BOOT(Plugin);
60 GAIM_PERL_BOOT(PluginPref);
61 GAIM_PERL_BOOT(Pounce);
62 GAIM_PERL_BOOT(Prefs);
63 GAIM_PERL_BOOT(Privacy);
64 GAIM_PERL_BOOT(Proxy);
65 GAIM_PERL_BOOT(Prpl);
66 GAIM_PERL_BOOT(Request);
67 GAIM_PERL_BOOT(Roomlist);
68 GAIM_PERL_BOOT(SSL);
69 GAIM_PERL_BOOT(SavedStatus);
70 GAIM_PERL_BOOT(Serv);
71 GAIM_PERL_BOOT(Signal);
72 GAIM_PERL_BOOT(Sound);
73 GAIM_PERL_BOOT(Status);
74 GAIM_PERL_BOOT(Stringref);
75 GAIM_PERL_BOOT(Util);
76 GAIM_PERL_BOOT(XMLNode);
77
78 void
79 timeout_add(plugin, seconds, callback, data = 0)
80 Gaim::Plugin plugin
81 int seconds
82 SV *callback
83 SV *data
84 CODE:
85 gaim_perl_timeout_add(plugin, seconds, callback, data);
86
87 void
88 deinit()
89 CODE:
90 gaim_perl_timeout_clear();

mercurial