Mercurial > pidgin.yaz
view plugins/perl/common/Cmds.xs @ 11290:b284c703d398
[gaim-migrate @ 13490]
Did some house cleaning on the code finished up some of the "TODO" stuff
that was left over from when I originally did the XSUBs. Furthermore,
the dynamically loaded Perl package problems should be corrected now that
the context is set before one of the concurrent perl interpreters is run.
committer: Tailor Script <tailor@pidgin.im>
author | John H. Kelm <johnkelm@gmail.com> |
---|---|
date | Thu, 18 Aug 2005 01:35:14 +0000 |
parents | 134d0001983d |
children | e1603fd610fa |
line wrap: on
line source
#include "module.h" MODULE = Gaim::Cmds PACKAGE = Gaim::Cmds PREFIX = gaim_cmd_ PROTOTYPES: ENABLE void gaim_cmd_help(conv, cmd) Gaim::Conversation conv const gchar *cmd PREINIT: GList *l; PPCODE: for (l = gaim_cmd_help(conv, cmd); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry"))); } 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(gaim_perl_bless_object(l->data, "Gaim::ListEntry"))); } void gaim_cmd_unregister(id) Gaim::CmdId id