| 255 int tcl_cmd_buddy(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
255 int tcl_cmd_buddy(ClientData unused, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
| 256 { |
256 { |
| 257 Tcl_Obj *list, *tclgroup, *tclgrouplist, *tclcontact, *tclcontactlist, *tclbud, **elems, *result; |
257 Tcl_Obj *list, *tclgroup, *tclgrouplist, *tclcontact, *tclcontactlist, *tclbud, **elems, *result; |
| 258 char *cmds[] = { "alias", "handle", "info", "list", NULL }; |
258 char *cmds[] = { "alias", "handle", "info", "list", NULL }; |
| 259 enum { CMD_BUDDY_ALIAS, CMD_BUDDY_HANDLE, CMD_BUDDY_INFO, CMD_BUDDY_LIST } cmd; |
259 enum { CMD_BUDDY_ALIAS, CMD_BUDDY_HANDLE, CMD_BUDDY_INFO, CMD_BUDDY_LIST } cmd; |
| 260 struct gaim_buddy_list *blist; |
260 GaimBuddyList *blist; |
| 261 GaimBlistNode *node, *gnode, *bnode; |
261 GaimBlistNode *node, *gnode, *bnode; |
| 262 GaimAccount *account; |
262 GaimAccount *account; |
| 263 GaimBuddy *bud; |
263 GaimBuddy *bud; |
| 264 GaimBlistChat *cnode; |
264 GaimBlistChat *cnode; |
| 265 int error, all = 0, count; |
265 int error, all = 0, count; |