Mercurial > pidgin.yaz
view libgaim/plugins/perl/common/Cmds.xs @ 14364:338ac096e322
[gaim-migrate @ 17070]
Disabled GTK+ components of the Perl plugin (we'll no longer support gtk-perl prefs frames until this is refactored into a gtkgaim plugin somehow).
Fix gaim_util_fetch_url and plug some leaks.
I haven't successfully tested gaim_util_fetch_url from perl yet - it doesn't seem to actually pass the retrieved text to the plugin sub correctly yet.
The syntax for calling gaim_util_fetch_url() from perl is also funky and should be made more consistent to the C function.
committer: Tailor Script <tailor@pidgin.im>
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Mon, 28 Aug 2006 20:27:03 +0000 |
parents | 60b1bc8dbf37 |
children |
line wrap: on
line source
#include "module.h" #include "../perl-handlers.h" MODULE = Gaim::Cmd PACKAGE = Gaim::Cmd PREFIX = gaim_cmd_ PROTOTYPES: ENABLE void gaim_cmd_help(conv, command) Gaim::Conversation conv const gchar *command PREINIT: GList *l; PPCODE: for (l = gaim_cmd_help(conv, command); l != NULL; l = l->next) { XPUSHs(sv_2mortal(newSVpv(l->data, 0))); } void gaim_cmd_list(conv) Gaim::Conversation conv PREINIT: GList *l; PPCODE: for (l = gaim_cmd_list(conv); l != NULL; l = l->next) { XPUSHs(sv_2mortal(newSVpv(l->data, 0))); } Gaim::Cmd::Id gaim_cmd_register(plugin, command, args, priority, flag, prpl_id, func, helpstr, data = 0) Gaim::Plugin plugin const gchar *command const gchar *args Gaim::Cmd::Priority priority Gaim::Cmd::Flag flag const gchar *prpl_id SV *func const gchar *helpstr SV *data CODE: RETVAL = gaim_perl_cmd_register(plugin, command, args, priority, flag, prpl_id, func, helpstr, data); OUTPUT: RETVAL void gaim_cmd_unregister(id) Gaim::Cmd::Id id CODE: gaim_perl_cmd_unregister(id);