Mercurial > pidgin
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() |