libpurple/plugins/perl/common/Core.xs@bca53cda8ed5 (annotated)
libpurple/plugins/perl/common/Core.xs
Sat, 22 Jun 2013 15:58:44 +0530
- author
- Ankit Vani <a@nevitus.org>
- date
- Sat, 22 Jun 2013 15:58:44 +0530
- branch
- soc.2013.gobjectification
- changeset 34606
- bca53cda8ed5
- parent 23987
- 3d41ccd1f8bf
- permissions
- -rw-r--r--
Added ciphers and hashes _new functions to .xs files
| 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 |
