plugins/perl/common/Cmds.xs@b98e72d4089a (annotated)
plugins/perl/common/Cmds.xs
Mon, 16 Apr 2007 00:43:53 +0000
- author
- Richard Laager <rlaager@pidgin.im>
- date
- Mon, 16 Apr 2007 00:43:53 +0000
- changeset 13071
- b98e72d4089a
- parent 12892
- aa322da897d6
- permissions
- -rw-r--r--
Commit a proper copy of this binary file. The old one was corrupted,
probably due to missing SVN attributes.
This was retrieved from the following URL, though we may have it in CVS:
http://dev.openwengo.com/trac/openwengo/trac.cgi/browser/vendors/gaim/trunk/doc/oscar/On_Sending_Files_via_OSCAR.odt?rev=4273
| 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); |
