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);