plugins/perl/common/Cmds.xs@b318f395092d (annotated)
plugins/perl/common/Cmds.xs
Sun, 12 Feb 2006 22:14:38 +0000
- author
- Mark Doliner <markdoliner@pidgin.im>
- date
- Sun, 12 Feb 2006 22:14:38 +0000
- changeset 13255
- b318f395092d
- parent 12892
- aa322da897d6
- permissions
- -rw-r--r--
[gaim-migrate @ 15620]
This is the way we clean the code, clean the code, clean the code
This is the way we clean the code, clean the code, clean the code
So early in the morning
| 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); |
