view plugins/perl/common/Cmds.xs @ 11141:7d2dae6e585f

[gaim-migrate @ 13205] I was getting 208K of compiler warnings per .xs file. I tracked it down to this include. John Kelm said it's "a carry over from when I was trying to just get Perl to work again. It should be unnecessary now". committer: Tailor Script <[e-mail]>

#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