Mercurial > pidgin
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
10338:67db2cbc0294 | 10339:3eb03f22e082 |
---|---|
74 } | 74 } |
75 | 75 |
76 int tcl_cmd_account(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | 76 int tcl_cmd_account(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
77 { | 77 { |
78 Tcl_Obj *result = Tcl_GetObjResult(interp), *list, *elem; | 78 Tcl_Obj *result = Tcl_GetObjResult(interp), *list, *elem; |
79 char *cmds[] = { "alias", "connect", "connection", "disconnect", "find", | 79 const char *cmds[] = { "alias", "connect", "connection", "disconnect", "find", |
80 "handle", "isconnected", "list", | 80 "handle", "isconnected", "list", |
81 "protocol", "username", NULL }; | 81 "protocol", "username", NULL }; |
82 enum { CMD_ACCOUNT_ALIAS, CMD_ACCOUNT_CONNECT, CMD_ACCOUNT_CONNECTION, | 82 enum { CMD_ACCOUNT_ALIAS, CMD_ACCOUNT_CONNECT, CMD_ACCOUNT_CONNECTION, |
83 CMD_ACCOUNT_DISCONNECT, CMD_ACCOUNT_FIND, CMD_ACCOUNT_HANDLE, | 83 CMD_ACCOUNT_DISCONNECT, CMD_ACCOUNT_FIND, CMD_ACCOUNT_HANDLE, |
84 CMD_ACCOUNT_ISCONNECTED, CMD_ACCOUNT_LIST, | 84 CMD_ACCOUNT_ISCONNECTED, CMD_ACCOUNT_LIST, |
85 CMD_ACCOUNT_PROTOCOL, CMD_ACCOUNT_USERNAME } cmd; | 85 CMD_ACCOUNT_PROTOCOL, CMD_ACCOUNT_USERNAME } cmd; |
86 char *listopts[] = { "-all", "-online", NULL }; | 86 const char *listopts[] = { "-all", "-online", NULL }; |
87 enum { CMD_ACCOUNTLIST_ALL, CMD_ACCOUNTLIST_ONLINE } listopt; | 87 enum { CMD_ACCOUNTLIST_ALL, CMD_ACCOUNTLIST_ONLINE } listopt; |
88 const char *alias; | 88 const char *alias; |
89 GList *cur; | 89 GList *cur; |
90 GaimAccount *account; | 90 GaimAccount *account; |
91 int error; | 91 int error; |
242 } | 242 } |
243 | 243 |
244 int tcl_cmd_buddy(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | 244 int tcl_cmd_buddy(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
245 { | 245 { |
246 Tcl_Obj *list, *tclgroup, *tclgrouplist, *tclcontact, *tclcontactlist, *tclbud, **elems, *result; | 246 Tcl_Obj *list, *tclgroup, *tclgrouplist, *tclcontact, *tclcontactlist, *tclbud, **elems, *result; |
247 char *cmds[] = { "alias", "handle", "info", "list", NULL }; | 247 const char *cmds[] = { "alias", "handle", "info", "list", NULL }; |
248 enum { CMD_BUDDY_ALIAS, CMD_BUDDY_HANDLE, CMD_BUDDY_INFO, CMD_BUDDY_LIST } cmd; | 248 enum { CMD_BUDDY_ALIAS, CMD_BUDDY_HANDLE, CMD_BUDDY_INFO, CMD_BUDDY_LIST } cmd; |
249 GaimBuddyList *blist; | 249 GaimBuddyList *blist; |
250 GaimBlistNode *node, *gnode, *bnode; | 250 GaimBlistNode *node, *gnode, *bnode; |
251 GaimAccount *account; | 251 GaimAccount *account; |
252 GaimBuddy *bud; | 252 GaimBuddy *bud; |
387 } | 387 } |
388 | 388 |
389 int tcl_cmd_connection(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | 389 int tcl_cmd_connection(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
390 { | 390 { |
391 Tcl_Obj *result = Tcl_GetObjResult(interp), *list, *elem; | 391 Tcl_Obj *result = Tcl_GetObjResult(interp), *list, *elem; |
392 char *cmds[] = { "account", "displayname", "handle", "list", NULL }; | 392 const char *cmds[] = { "account", "displayname", "handle", "list", NULL }; |
393 enum { CMD_CONN_ACCOUNT, CMD_CONN_DISPLAYNAME, CMD_CONN_HANDLE, CMD_CONN_LIST } cmd; | 393 enum { CMD_CONN_ACCOUNT, CMD_CONN_DISPLAYNAME, CMD_CONN_HANDLE, CMD_CONN_LIST } cmd; |
394 int error; | 394 int error; |
395 GList *cur; | 395 GList *cur; |
396 GaimConnection *gc; | 396 GaimConnection *gc; |
397 | 397 |
453 } | 453 } |
454 | 454 |
455 int tcl_cmd_conversation(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | 455 int tcl_cmd_conversation(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
456 { | 456 { |
457 Tcl_Obj *list, *elem, *result = Tcl_GetObjResult(interp); | 457 Tcl_Obj *list, *elem, *result = Tcl_GetObjResult(interp); |
458 char *cmds[] = { "find", "handle", "list", "new", "write", NULL }; | 458 const char *cmds[] = { "find", "handle", "list", "new", "write", NULL }; |
459 enum { CMD_CONV_FIND, CMD_CONV_HANDLE, CMD_CONV_LIST, CMD_CONV_NEW, CMD_CONV_WRITE } cmd; | 459 enum { CMD_CONV_FIND, CMD_CONV_HANDLE, CMD_CONV_LIST, CMD_CONV_NEW, CMD_CONV_WRITE } cmd; |
460 char *styles[] = { "send", "recv", "system", NULL }; | 460 const char *styles[] = { "send", "recv", "system", NULL }; |
461 enum { CMD_CONV_WRITE_SEND, CMD_CONV_WRITE_RECV, CMD_CONV_WRITE_SYSTEM } style; | 461 enum { CMD_CONV_WRITE_SEND, CMD_CONV_WRITE_RECV, CMD_CONV_WRITE_SYSTEM } style; |
462 char *findopts[] = { "-account", NULL }; | 462 const char *findopts[] = { "-account", NULL }; |
463 enum { CMD_CONV_FIND_ACCOUNT } findopt; | 463 enum { CMD_CONV_FIND_ACCOUNT } findopt; |
464 char *newopts[] = { "-chat", "-im" }; | 464 const char *newopts[] = { "-chat", "-im" }; |
465 enum { CMD_CONV_NEW_CHAT, CMD_CONV_NEW_IM } newopt; | 465 enum { CMD_CONV_NEW_CHAT, CMD_CONV_NEW_IM } newopt; |
466 GaimConversation *convo; | 466 GaimConversation *convo; |
467 GaimAccount *account; | 467 GaimAccount *account; |
468 GaimConversationType type; | 468 GaimConversationType type; |
469 GList *cur; | 469 GList *cur; |
610 } | 610 } |
611 | 611 |
612 int tcl_cmd_core(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | 612 int tcl_cmd_core(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
613 { | 613 { |
614 Tcl_Obj *result = Tcl_GetObjResult(interp); | 614 Tcl_Obj *result = Tcl_GetObjResult(interp); |
615 char *cmds[] = { "handle", "quit", NULL }; | 615 const char *cmds[] = { "handle", "quit", NULL }; |
616 enum { CMD_CORE_HANDLE, CMD_CORE_QUIT } cmd; | 616 enum { CMD_CORE_HANDLE, CMD_CORE_QUIT } cmd; |
617 int error; | 617 int error; |
618 | 618 |
619 if (objc < 2) { | 619 if (objc < 2) { |
620 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); | 620 Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?"); |
646 | 646 |
647 int tcl_cmd_debug(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | 647 int tcl_cmd_debug(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
648 { | 648 { |
649 char *category, *message; | 649 char *category, *message; |
650 int lev; | 650 int lev; |
651 char *levels[] = { "-misc", "-info", "-warning", "-error", NULL }; | 651 const char *levels[] = { "-misc", "-info", "-warning", "-error", NULL }; |
652 GaimDebugLevel levelind[] = { GAIM_DEBUG_MISC, GAIM_DEBUG_INFO, GAIM_DEBUG_WARNING, GAIM_DEBUG_ERROR }; | 652 GaimDebugLevel levelind[] = { GAIM_DEBUG_MISC, GAIM_DEBUG_INFO, GAIM_DEBUG_WARNING, GAIM_DEBUG_ERROR }; |
653 int error; | 653 int error; |
654 | 654 |
655 if (objc != 4) { | 655 if (objc != 4) { |
656 Tcl_WrongNumArgs(interp, 1, objv, "level category message"); | 656 Tcl_WrongNumArgs(interp, 1, objv, "level category message"); |
670 } | 670 } |
671 | 671 |
672 int tcl_cmd_notify(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | 672 int tcl_cmd_notify(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
673 { | 673 { |
674 int error, type; | 674 int error, type; |
675 char *opts[] = { "-error", "-warning", "-info", NULL }; | 675 const char *opts[] = { "-error", "-warning", "-info", NULL }; |
676 GaimNotifyMsgType optind[] = { GAIM_NOTIFY_MSG_ERROR, GAIM_NOTIFY_MSG_WARNING, GAIM_NOTIFY_MSG_INFO }; | 676 GaimNotifyMsgType optind[] = { GAIM_NOTIFY_MSG_ERROR, GAIM_NOTIFY_MSG_WARNING, GAIM_NOTIFY_MSG_INFO }; |
677 char *title, *msg1, *msg2; | 677 char *title, *msg1, *msg2; |
678 | 678 |
679 if (objc < 4 || objc > 5) { | 679 if (objc < 4 || objc > 5) { |
680 Tcl_WrongNumArgs(interp, 1, objv, "?type? title primary secondary"); | 680 Tcl_WrongNumArgs(interp, 1, objv, "?type? title primary secondary"); |
700 } | 700 } |
701 | 701 |
702 int tcl_cmd_prefs(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | 702 int tcl_cmd_prefs(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
703 { | 703 { |
704 Tcl_Obj *result, *list, *elem, **elems; | 704 Tcl_Obj *result, *list, *elem, **elems; |
705 char *cmds[] = { "get", "set", "type", NULL }; | 705 const char *cmds[] = { "get", "set", "type", NULL }; |
706 enum { CMD_PREFS_GET, CMD_PREFS_SET, CMD_PREFS_TYPE } cmd; | 706 enum { CMD_PREFS_GET, CMD_PREFS_SET, CMD_PREFS_TYPE } cmd; |
707 /* char *types[] = { "none", "boolean", "int", "string", "stringlist", NULL }; */ | 707 /* char *types[] = { "none", "boolean", "int", "string", "stringlist", NULL }; */ |
708 /* enum { TCL_PREFS_NONE, TCL_PREFS_BOOL, TCL_PREFS_INT, TCL_PREFS_STRING, TCL_PREFS_STRINGLIST } type; */ | 708 /* enum { TCL_PREFS_NONE, TCL_PREFS_BOOL, TCL_PREFS_INT, TCL_PREFS_STRING, TCL_PREFS_STRINGLIST } type; */ |
709 GaimPrefType preftype; | 709 GaimPrefType preftype; |
710 GList *cur; | 710 GList *cur; |
855 return TCL_OK; | 855 return TCL_OK; |
856 } | 856 } |
857 | 857 |
858 int tcl_cmd_signal(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) | 858 int tcl_cmd_signal(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
859 { | 859 { |
860 char *cmds[] = { "connect", "disconnect", NULL }; | 860 const char *cmds[] = { "connect", "disconnect", NULL }; |
861 enum { CMD_SIGNAL_CONNECT, CMD_SIGNAL_DISCONNECT } cmd; | 861 enum { CMD_SIGNAL_CONNECT, CMD_SIGNAL_DISCONNECT } cmd; |
862 struct tcl_signal_handler *handler; | 862 struct tcl_signal_handler *handler; |
863 Tcl_Obj **elems, *result = Tcl_GetObjResult(interp); | 863 Tcl_Obj **elems, *result = Tcl_GetObjResult(interp); |
864 void *instance; | 864 void *instance; |
865 int error, nelems, i; | 865 int error, nelems, i; |