libgaim/plugins/perl/common/Core.xs@57ab37fe1190 (annotated)
libgaim/plugins/perl/common/Core.xs
Sun, 19 Nov 2006 19:58:45 +0000
- author
- Richard Laager <rlaager@pidgin.im>
- date
- Sun, 19 Nov 2006 19:58:45 +0000
- changeset 15066
- 57ab37fe1190
- permissions
- -rw-r--r--
[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?
| 15066 | 1 | #include "module.h" |
| 2 | ||
| 3 | MODULE = Gaim::Core PACKAGE = Gaim::Core PREFIX = gaim_core_ | |
| 4 | PROTOTYPES: ENABLE | |
| 5 | ||
| 6 | gboolean | |
| 7 | gaim_core_quit_cb() | |
| 8 | PPCODE: | |
| 9 | /* The argument to gaim_core_quit_cb is not used, | |
| 10 | * so there's little point in requiring it on the | |
| 11 | * Perl side. */ | |
| 12 | RETVAL = gaim_core_quit_cb(NULL); | |
| 13 | ST(0) = boolSV(RETVAL); | |
| 14 | sv_2mortal(ST(0)); | |
| 15 | ||
| 16 | const char * | |
| 17 | gaim_core_get_version() | |
| 18 | ||
| 19 | const char * | |
| 20 | gaim_core_get_ui() | |
| 21 | ||
| 22 | void | |
| 23 | gaim_core_set_ui_ops(ops) | |
| 24 | Gaim::Core::UiOps ops | |
| 25 | ||
| 26 | Gaim::Core::UiOps | |
| 27 | gaim_core_get_ui_ops() | |
| 28 |
