pidgin: plugins/tcl/tcl_cmds.c comparison

comparison plugins/tcl/tcl_cmds.c @ 10339:3eb03f22e082

[gaim-migrate @ 11548] This is stupid, but it gets rid of a lot of compile warnings for me on FC3. gcc (GCC) 3.4.2 20041017 (Red Hat 3.4.2-6.fc3) tcl-8.4.7-2 committer: Tailor Script <tailor@pidgin.im>

author	Mark Doliner <mark@kingant.net>
date	Thu, 09 Dec 2004 05:21:39 +0000
parents	a66cf83552dc
children	3e4ecbdf8d0a

comparison

equal deleted inserted replaced

-:67db2cbc0294
+:3eb03f22e082
 }
 int tcl_cmd_account(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	Tcl_Obj *result = Tcl_GetObjResult(interp), *list, *elem;
-	char *cmds[] = { "alias", "connect", "connection", "disconnect", "find",
+	const char *cmds[] = { "alias", "connect", "connection", "disconnect", "find",
 			 "handle", "isconnected", "list",
 			 "protocol", "username", NULL };
 	enum { CMD_ACCOUNT_ALIAS, CMD_ACCOUNT_CONNECT, CMD_ACCOUNT_CONNECTION,
 	       CMD_ACCOUNT_DISCONNECT, CMD_ACCOUNT_FIND, CMD_ACCOUNT_HANDLE,
 	       CMD_ACCOUNT_ISCONNECTED, CMD_ACCOUNT_LIST,
 	       CMD_ACCOUNT_PROTOCOL, CMD_ACCOUNT_USERNAME } cmd;
-	char *listopts[] = { "-all", "-online", NULL };
+	const char *listopts[] = { "-all", "-online", NULL };
 	enum { CMD_ACCOUNTLIST_ALL, CMD_ACCOUNTLIST_ONLINE } listopt;
 	const char *alias;
 	GList *cur;
 	GaimAccount *account;
 	int error;
 }
 int tcl_cmd_buddy(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	Tcl_Obj *list, *tclgroup, *tclgrouplist, *tclcontact, *tclcontactlist, *tclbud, **elems, *result;
-	char *cmds[] = { "alias", "handle", "info", "list", NULL };
+	const char *cmds[] = { "alias", "handle", "info", "list", NULL };
 	enum { CMD_BUDDY_ALIAS, CMD_BUDDY_HANDLE, CMD_BUDDY_INFO, CMD_BUDDY_LIST } cmd;
 	GaimBuddyList *blist;
 	GaimBlistNode *node, *gnode, *bnode;
 	GaimAccount *account;
 	GaimBuddy *bud;
 }
 int tcl_cmd_connection(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	Tcl_Obj *result = Tcl_GetObjResult(interp), *list, *elem;
-	char *cmds[] = { "account", "displayname", "handle", "list", NULL };
+	const char *cmds[] = { "account", "displayname", "handle", "list", NULL };
 	enum { CMD_CONN_ACCOUNT, CMD_CONN_DISPLAYNAME, CMD_CONN_HANDLE, CMD_CONN_LIST } cmd;
 	int error;
 	GList *cur;
 	GaimConnection *gc;
 }
 int tcl_cmd_conversation(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	Tcl_Obj *list, *elem, *result = Tcl_GetObjResult(interp);
-	char *cmds[] = { "find", "handle", "list", "new", "write", NULL };
+	const char *cmds[] = { "find", "handle", "list", "new", "write", NULL };
 	enum { CMD_CONV_FIND, CMD_CONV_HANDLE, CMD_CONV_LIST, CMD_CONV_NEW, CMD_CONV_WRITE } cmd;
-	char *styles[] = { "send", "recv", "system", NULL };
+	const char *styles[] = { "send", "recv", "system", NULL };
 	enum { CMD_CONV_WRITE_SEND, CMD_CONV_WRITE_RECV, CMD_CONV_WRITE_SYSTEM } style;
-	char *findopts[] = { "-account", NULL };
+	const char *findopts[] = { "-account", NULL };
 	enum { CMD_CONV_FIND_ACCOUNT } findopt;
-	char *newopts[] = { "-chat", "-im" };
+	const char *newopts[] = { "-chat", "-im" };
 	enum { CMD_CONV_NEW_CHAT, CMD_CONV_NEW_IM } newopt;
 	GaimConversation *convo;
 	GaimAccount *account;
 	GaimConversationType type;
 	GList *cur;
 }
 int tcl_cmd_core(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	Tcl_Obj *result = Tcl_GetObjResult(interp);
-	char *cmds[] = { "handle", "quit", NULL };
+	const char *cmds[] = { "handle", "quit", NULL };
 	enum { CMD_CORE_HANDLE, CMD_CORE_QUIT } cmd;
 	int error;
 	if (objc < 2) {
 		Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");
 int tcl_cmd_debug(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	char *category, *message;
 	int lev;
-	char *levels[] = { "-misc", "-info", "-warning", "-error", NULL };
+	const char *levels[] = { "-misc", "-info", "-warning", "-error", NULL };
 	GaimDebugLevel levelind[] = { GAIM_DEBUG_MISC, GAIM_DEBUG_INFO, GAIM_DEBUG_WARNING, GAIM_DEBUG_ERROR };
 	int error;
 	if (objc != 4) {
 		Tcl_WrongNumArgs(interp, 1, objv, "level category message");
 }
 int tcl_cmd_notify(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	int error, type;
-	char *opts[] = { "-error", "-warning", "-info", NULL };
+	const char *opts[] = { "-error", "-warning", "-info", NULL };
 	GaimNotifyMsgType optind[] = { GAIM_NOTIFY_MSG_ERROR, GAIM_NOTIFY_MSG_WARNING, GAIM_NOTIFY_MSG_INFO };
 	char *title, *msg1, *msg2;
 	if (objc < 4 || objc > 5) {
 		Tcl_WrongNumArgs(interp, 1, objv, "?type? title primary secondary");
 }
 int tcl_cmd_prefs(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	Tcl_Obj *result, *list, *elem, **elems;
-	char *cmds[] = { "get", "set", "type", NULL };
+	const char *cmds[] = { "get", "set", "type", NULL };
 	enum { CMD_PREFS_GET, CMD_PREFS_SET, CMD_PREFS_TYPE } cmd;
 	/* char *types[] = { "none", "boolean", "int", "string", "stringlist", NULL }; */
 	/* enum { TCL_PREFS_NONE, TCL_PREFS_BOOL, TCL_PREFS_INT, TCL_PREFS_STRING, TCL_PREFS_STRINGLIST } type; */
 	GaimPrefType preftype;
 	GList *cur;
 	return TCL_OK;
 }
 int tcl_cmd_signal(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
-	char *cmds[] = { "connect", "disconnect", NULL };
+	const char *cmds[] = { "connect", "disconnect", NULL };
 	enum { CMD_SIGNAL_CONNECT, CMD_SIGNAL_DISCONNECT } cmd;
 	struct tcl_signal_handler *handler;
 	Tcl_Obj **elems, *result = Tcl_GetObjResult(interp);
 	void *instance;
 	int error, nelems, i;

Mercurial > pidgin

comparison plugins/tcl/tcl_cmds.c @ 10339:3eb03f22e082