libpurple/plugins/perl/common/Core.xs@05ca719b901b (annotated)
libpurple/plugins/perl/common/Core.xs
Wed, 13 May 2009 20:29:03 +0000
- author
- Marcus Lundblad <malu@pidgin.im>
- date
- Wed, 13 May 2009 20:29:03 +0000
- changeset 27110
- 05ca719b901b
- parent 23987
- 3d41ccd1f8bf
- permissions
- -rw-r--r--
Support custom smileys in MUCs (when all participants support BoB and a maximum
of 10 participants are in the chat).
Always announce support for BoB, since disable custom smileys will still turn
off fetching them, and BoB can be used for other purposes further on.
| 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 |
