comparison libgaim/plugins/perl/common/Gaim.xs @ 15004:5e07a6f8eb33

[gaim-migrate @ 17784] SF Patch #1571670 from zdeqb "Perl bindings for the functions in core.h and some bindings for the functions in privacy.h." I made the following changes: 1. I chose to export gaim_get_core() as Gaim::get_core instead of Gaim::Core::get_core. 2. I don't see any reason to require Perl code to pass bogus values just because C requires them. So, I changed Gaim::Core::quit_cb to NOT take an argument, and to pass NULL to gaim_core_quit_cb(). 3. I fixed a typo. 4. I cleaned up some spacing issues. I noticed that Core.c didn't get created from Core.xs until I re-ran configure. Maybe there's no way to avoid this? committer: Tailor Script <tailor@pidgin.im>
author Richard Laager <rlaager@wiktel.com>
date Sun, 19 Nov 2006 19:58:45 +0000
parents 60b1bc8dbf37
children
comparison
equal deleted inserted replaced
15003:60bba83d5c2d 15004:5e07a6f8eb33
9 GAIM_PERL_BOOT_PROTO(BuddyList); 9 GAIM_PERL_BOOT_PROTO(BuddyList);
10 GAIM_PERL_BOOT_PROTO(Cipher); 10 GAIM_PERL_BOOT_PROTO(Cipher);
11 GAIM_PERL_BOOT_PROTO(Cmd); 11 GAIM_PERL_BOOT_PROTO(Cmd);
12 GAIM_PERL_BOOT_PROTO(Connection); 12 GAIM_PERL_BOOT_PROTO(Connection);
13 GAIM_PERL_BOOT_PROTO(Conversation); 13 GAIM_PERL_BOOT_PROTO(Conversation);
14 GAIM_PERL_BOOT_PROTO(Core);
14 GAIM_PERL_BOOT_PROTO(Debug); 15 GAIM_PERL_BOOT_PROTO(Debug);
15 GAIM_PERL_BOOT_PROTO(Xfer); 16 GAIM_PERL_BOOT_PROTO(Xfer);
16 GAIM_PERL_BOOT_PROTO(ImgStore); 17 GAIM_PERL_BOOT_PROTO(ImgStore);
17 GAIM_PERL_BOOT_PROTO(Log); 18 GAIM_PERL_BOOT_PROTO(Log);
18 GAIM_PERL_BOOT_PROTO(Network); 19 GAIM_PERL_BOOT_PROTO(Network);
48 GAIM_PERL_BOOT(BuddyList); 49 GAIM_PERL_BOOT(BuddyList);
49 GAIM_PERL_BOOT(Cipher); 50 GAIM_PERL_BOOT(Cipher);
50 GAIM_PERL_BOOT(Cmd); 51 GAIM_PERL_BOOT(Cmd);
51 GAIM_PERL_BOOT(Connection); 52 GAIM_PERL_BOOT(Connection);
52 GAIM_PERL_BOOT(Conversation); 53 GAIM_PERL_BOOT(Conversation);
54 GAIM_PERL_BOOT(Core);
53 GAIM_PERL_BOOT(Debug); 55 GAIM_PERL_BOOT(Debug);
54 GAIM_PERL_BOOT(Xfer); 56 GAIM_PERL_BOOT(Xfer);
55 GAIM_PERL_BOOT(ImgStore); 57 GAIM_PERL_BOOT(ImgStore);
56 GAIM_PERL_BOOT(Log); 58 GAIM_PERL_BOOT(Log);
57 GAIM_PERL_BOOT(Network); 59 GAIM_PERL_BOOT(Network);
86 88
87 void 89 void
88 deinit() 90 deinit()
89 CODE: 91 CODE:
90 gaim_perl_timeout_clear(); 92 gaim_perl_timeout_clear();
93
94
95 MODULE = Gaim PACKAGE = Gaim PREFIX = gaim_
96 PROTOTYPES: ENABLE
97
98 Gaim::Core
99 gaim_get_core()