Mercurial > pidgin.yaz

comparison libpurple/plugins/perl/common/Purple.xs @ 16079:6dedf7542b44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
This should be called Purple.xs instead of Pidgin.xs
author Daniel Atallah <daniel.atallah@gmail.com>
date Fri, 13 Apr 2007 01:57:16 +0000
parents
children 39c7bb133a9f
comparison
equal deleted inserted replaced
16078:783b05e528b0 16079:6dedf7542b44
1 #include "module.h"
2 #include "../perl-handlers.h"
3 #include "const-c.inc"
4
5 /* Prototypes for the BOOT section below. */
6 PURPLE_PERL_BOOT_PROTO(Account);
7 PURPLE_PERL_BOOT_PROTO(Account__Option);
8 PURPLE_PERL_BOOT_PROTO(Buddy__Icon);
9 PURPLE_PERL_BOOT_PROTO(BuddyList);
10 PURPLE_PERL_BOOT_PROTO(Cipher);
11 PURPLE_PERL_BOOT_PROTO(Cmd);
12 PURPLE_PERL_BOOT_PROTO(Connection);
13 PURPLE_PERL_BOOT_PROTO(Conversation);
14 PURPLE_PERL_BOOT_PROTO(Core);
15 PURPLE_PERL_BOOT_PROTO(Debug);
16 PURPLE_PERL_BOOT_PROTO(Xfer);
17 PURPLE_PERL_BOOT_PROTO(ImgStore);
18 PURPLE_PERL_BOOT_PROTO(Log);
19 PURPLE_PERL_BOOT_PROTO(Network);
20 PURPLE_PERL_BOOT_PROTO(Notify);
21 PURPLE_PERL_BOOT_PROTO(Plugin);
22 PURPLE_PERL_BOOT_PROTO(PluginPref);
23 PURPLE_PERL_BOOT_PROTO(Pounce);
24 PURPLE_PERL_BOOT_PROTO(Prefs);
25 PURPLE_PERL_BOOT_PROTO(Privacy);
26 PURPLE_PERL_BOOT_PROTO(Proxy);
27 PURPLE_PERL_BOOT_PROTO(Prpl);
28 PURPLE_PERL_BOOT_PROTO(Request);
29 PURPLE_PERL_BOOT_PROTO(Roomlist);
30 PURPLE_PERL_BOOT_PROTO(SSL);
31 PURPLE_PERL_BOOT_PROTO(SavedStatus);
32 PURPLE_PERL_BOOT_PROTO(Serv);
33 PURPLE_PERL_BOOT_PROTO(Signal);
34 PURPLE_PERL_BOOT_PROTO(Sound);
35 PURPLE_PERL_BOOT_PROTO(Status);
36 PURPLE_PERL_BOOT_PROTO(Stringref);
37 PURPLE_PERL_BOOT_PROTO(Util);
38 PURPLE_PERL_BOOT_PROTO(XMLNode);
39
40 MODULE = Purple PACKAGE = Purple PREFIX = purple_
41 PROTOTYPES: ENABLE
42
43 INCLUDE: const-xs.inc
44
45 BOOT:
46 PURPLE_PERL_BOOT(Account);
47 PURPLE_PERL_BOOT(Account__Option);
48 PURPLE_PERL_BOOT(Buddy__Icon);
49 PURPLE_PERL_BOOT(BuddyList);
50 PURPLE_PERL_BOOT(Cipher);
51 PURPLE_PERL_BOOT(Cmd);
52 PURPLE_PERL_BOOT(Connection);
53 PURPLE_PERL_BOOT(Conversation);
54 PURPLE_PERL_BOOT(Core);
55 PURPLE_PERL_BOOT(Debug);
56 PURPLE_PERL_BOOT(Xfer);
57 PURPLE_PERL_BOOT(ImgStore);
58 PURPLE_PERL_BOOT(Log);
59 PURPLE_PERL_BOOT(Network);
60 PURPLE_PERL_BOOT(Notify);
61 PURPLE_PERL_BOOT(Plugin);
62 PURPLE_PERL_BOOT(PluginPref);
63 PURPLE_PERL_BOOT(Pounce);
64 PURPLE_PERL_BOOT(Prefs);
65 PURPLE_PERL_BOOT(Privacy);
66 PURPLE_PERL_BOOT(Proxy);
67 PURPLE_PERL_BOOT(Prpl);
68 PURPLE_PERL_BOOT(Request);
69 PURPLE_PERL_BOOT(Roomlist);
70 PURPLE_PERL_BOOT(SSL);
71 PURPLE_PERL_BOOT(SavedStatus);
72 PURPLE_PERL_BOOT(Serv);
73 PURPLE_PERL_BOOT(Signal);
74 PURPLE_PERL_BOOT(Sound);
75 PURPLE_PERL_BOOT(Status);
76 PURPLE_PERL_BOOT(Stringref);
77 PURPLE_PERL_BOOT(Util);
78 PURPLE_PERL_BOOT(XMLNode);
79
80 void
81 timeout_add(plugin, seconds, callback, data = 0)
82 Purple::Plugin plugin
83 int seconds
84 SV *callback
85 SV *data
86 CODE:
87 purple_perl_timeout_add(plugin, seconds, callback, data);
88
89 void
90 deinit()
91 CODE:
92 purple_perl_timeout_clear();
93
94
95 MODULE = Purple PACKAGE = Purple PREFIX = purple_
96 PROTOTYPES: ENABLE
97
98 Purple::Core
99 purple_get_core()