libpurple/plugins/perl/common/Core.xs@1073f46cfe21 (annotated)
libpurple/plugins/perl/common/Core.xs
Wed, 10 Feb 2010 09:04:15 +0000
- author
- Mark Doliner <markdoliner@pidgin.im>
- date
- Wed, 10 Feb 2010 09:04:15 +0000
- changeset 29340
- 1073f46cfe21
- parent 23987
- 3d41ccd1f8bf
- permissions
- -rw-r--r--
Pass around a va_list instead of a pointer to a va_list. Refs #7404
This gets rid of a compile warning for me on x86_64. I don't have
an i386 box to test on, but every bit of evidence I can find tells me
that it's totally fine to pass around a va_list. We do it in status.c
If this breaks compilation for you or you get a warning from perl-handlers.c
then pleaes let me know! Or just disapprove this
| 15066 | 1 | #include "module.h" |
| 2 | ||
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
3 | MODULE = Purple::Core PACKAGE = Purple::Core PREFIX = purple_core_ |
| 15066 | 4 | PROTOTYPES: ENABLE |
| 5 | ||
| 6 | gboolean | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
7 | purple_core_quit_cb() |
| 15066 | 8 | PPCODE: |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
9 | /* The argument to purple_core_quit_cb is not used, |
| 15066 | 10 | * so there's little point in requiring it on the |
| 11 | * Perl side. */ | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
12 | RETVAL = purple_core_quit_cb(NULL); |
| 15066 | 13 | ST(0) = boolSV(RETVAL); |
| 14 | sv_2mortal(ST(0)); | |
| 15 | ||
| 16 | const char * | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
17 | purple_core_get_version() |
| 15066 | 18 | |
| 19 | const char * | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
20 | purple_core_get_ui() |
| 15066 | 21 |
