libpurple/plugins/perl/common/Core.xs@b6554e3c8224 (annotated)
libpurple/plugins/perl/common/Core.xs
Sat, 19 May 2007 21:38:47 +0000
- author
- Richard Laager <rlaager@pidgin.im>
- date
- Sat, 19 May 2007 21:38:47 +0000
- changeset 18068
- b6554e3c8224
- parent 15066
- libgaim/plugins/perl/common/Core.xs@57ab37fe1190
- parent 15894
- libgaim/plugins/perl/common/Core.xs@765ec644ac47
- child 20481
- 65485e2ed8a3
- permissions
- -rw-r--r--
merge of '1442df274a24edc9a31194327bd00dfbcf478720'
and 'ce02548a6b6a545d97fb3f371506bcf1b5cc5131'
| 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 | |
| 22 | void | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
23 | purple_core_set_ui_ops(ops) |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
24 | Purple::Core::UiOps ops |
| 15066 | 25 | |
|
15894
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
26 | Purple::Core::UiOps |
|
765ec644ac47
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
27 | purple_core_get_ui_ops() |
| 15066 | 28 |
