Mercurial > pidgin.yaz
diff libpurple/plugins/perl/common/Cmds.xs @ 15834:2f8274ce570a
Perl fixes for s/gaim/purple/. This hasn't really been tested yet.
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Mon, 19 Mar 2007 17:02:24 +0000 |
parents | 5fe8042783c1 |
children | 39c7bb133a9f |
line wrap: on
line diff
--- a/libpurple/plugins/perl/common/Cmds.xs Mon Mar 19 17:01:28 2007 +0000 +++ b/libpurple/plugins/perl/common/Cmds.xs Mon Mar 19 17:02:24 2007 +0000 @@ -1,49 +1,49 @@ #include "module.h" #include "../perl-handlers.h" -MODULE = Gaim::Cmd PACKAGE = Gaim::Cmd PREFIX = gaim_cmd_ +MODULE = Purple::Cmd PACKAGE = Purple::Cmd PREFIX = purple_cmd_ PROTOTYPES: ENABLE void -gaim_cmd_help(conv, command) - Gaim::Conversation conv +purple_cmd_help(conv, command) + Purple::Conversation conv const gchar *command PREINIT: GList *l; PPCODE: - for (l = gaim_cmd_help(conv, command); l != NULL; l = l->next) { + for (l = purple_cmd_help(conv, command); l != NULL; l = l->next) { XPUSHs(sv_2mortal(newSVpv(l->data, 0))); } void -gaim_cmd_list(conv) - Gaim::Conversation conv +purple_cmd_list(conv) + Purple::Conversation conv PREINIT: GList *l; PPCODE: - for (l = gaim_cmd_list(conv); l != NULL; l = l->next) { + for (l = purple_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 +Purple::Cmd::Id +purple_cmd_register(plugin, command, args, priority, flag, prpl_id, func, helpstr, data = 0) + Purple::Plugin plugin const gchar *command const gchar *args - Gaim::Cmd::Priority priority - Gaim::Cmd::Flag flag + Purple::Cmd::Priority priority + Purple::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, + RETVAL = purple_perl_cmd_register(plugin, command, args, priority, flag, prpl_id, func, helpstr, data); OUTPUT: RETVAL void -gaim_cmd_unregister(id) - Gaim::Cmd::Id id +purple_cmd_unregister(id) + Purple::Cmd::Id id CODE: - gaim_perl_cmd_unregister(id); + purple_perl_cmd_unregister(id);