plugins/perl/common/Cmds.xs@3f9b44862451 (annotated)
plugins/perl/common/Cmds.xs
Tue, 28 Feb 2006 23:38:48 +0000
- author
- Daniel Atallah <datallah@pidgin.im>
- date
- Tue, 28 Feb 2006 23:38:48 +0000
- changeset 13350
- 3f9b44862451
- parent 12892
- aa322da897d6
- permissions
- -rw-r--r--
[gaim-migrate @ 15721]
the accounts handle needs to be a void * not a void
| 11118 | 1 | #include "module.h" |
| 12882 | 2 | #include "../perl-handlers.h" |
| 11118 | 3 | |
| 12882 | 4 | MODULE = Gaim::Cmd PACKAGE = Gaim::Cmd PREFIX = gaim_cmd_ |
| 11118 | 5 | PROTOTYPES: ENABLE |
| 6 | ||
| 7 | void | |
| 12882 | 8 | gaim_cmd_help(conv, command) |
| 11118 | 9 | Gaim::Conversation conv |
| 12882 | 10 | const gchar *command |
| 11118 | 11 | PREINIT: |
| 12882 | 12 | GList *l; |
| 11118 | 13 | PPCODE: |
| 12882 | 14 | for (l = gaim_cmd_help(conv, command); l != NULL; l = l->next) { |
| 12892 | 15 | XPUSHs(sv_2mortal(newSVpv(l->data, 0))); |
| 12882 | 16 | } |
| 11118 | 17 | |
| 18 | void | |
| 19 | gaim_cmd_list(conv) | |
| 20 | Gaim::Conversation conv | |
| 21 | PREINIT: | |
| 12882 | 22 | GList *l; |
| 11118 | 23 | PPCODE: |
| 12882 | 24 | for (l = gaim_cmd_list(conv); l != NULL; l = l->next) { |
| 12892 | 25 | XPUSHs(sv_2mortal(newSVpv(l->data, 0))); |
| 12882 | 26 | } |
| 11118 | 27 | |
| 12882 | 28 | Gaim::Cmd::Id |
| 29 | gaim_cmd_register(plugin, command, args, priority, flag, prpl_id, func, helpstr, data = 0) | |
| 30 | Gaim::Plugin plugin | |
| 31 | const gchar *command | |
| 32 | const gchar *args | |
| 33 | Gaim::Cmd::Priority priority | |
| 34 | Gaim::Cmd::Flag flag | |
| 35 | const gchar *prpl_id | |
| 36 | SV *func | |
| 37 | const gchar *helpstr | |
| 38 | SV *data | |
| 39 | CODE: | |
| 40 | RETVAL = gaim_perl_cmd_register(plugin, command, args, priority, flag, | |
| 41 | prpl_id, func, helpstr, data); | |
| 42 | OUTPUT: | |
| 43 | RETVAL | |
| 44 | ||
| 45 | void | |
| 11118 | 46 | gaim_cmd_unregister(id) |
| 12882 | 47 | Gaim::Cmd::Id id |
| 48 | CODE: | |
| 49 | gaim_perl_cmd_unregister(id); |
