libpurple/plugins/perl/common/Core.xs@f7d55c9c57d3 (annotated)
libpurple/plugins/perl/common/Core.xs
Wed, 17 Apr 2013 23:55:31 +0200
- author
- Tomasz Wasilczyk <tomkiewicz@cpw.pidgin.im>
- date
- Wed, 17 Apr 2013 23:55:31 +0200
- branch
- release-2.x.y
- changeset 33897
- f7d55c9c57d3
- parent 23987
- 3d41ccd1f8bf
- permissions
- -rw-r--r--
Make Purple::Network::ip_atoi actually working
| 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 |
