Mercurial > pidgin.yaz

comparison libpurple/plugins/tcl/tcl_cmds.c @ 24284:3324f099a212

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix my Tcl fix.
author Richard Laager <rlaager@wiktel.com>
date Thu, 30 Oct 2008 19:57:47 +0000
parents 7a1d01cc98d8
children 0e08c847517d
comparison
equal deleted inserted replaced
24283:a41e0d8ddae4 24284:3324f099a212
426 return TCL_ERROR; 426 return TCL_ERROR;
427 } 427 }
428 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK) 428 if ((error = Tcl_GetIndexFromObj(interp, objv[1], cmds, "subcommand", 0, (int *)&cmd)) != TCL_OK)
429 return error; 429 return error;
430 430
431 type = purple_blist_node_get_type(node);
432 switch (cmd) { 431 switch (cmd) {
433 case CMD_BUDDY_ALIAS: 432 case CMD_BUDDY_ALIAS:
434 if (objc != 3) { 433 if (objc != 3) {
435 Tcl_WrongNumArgs(interp, 2, objv, "buddy"); 434 Tcl_WrongNumArgs(interp, 2, objv, "buddy");
436 return TCL_ERROR; 435 return TCL_ERROR;
437 } 436 }
438 if ((error = Tcl_ListObjGetElements(interp, objv[2], &count, &elems)) != TCL_OK) 437 if ((error = Tcl_ListObjGetElements(interp, objv[2], &count, &elems)) != TCL_OK)
439 return error; 438 return error;
440 if ((node = tcl_list_to_buddy(interp, count, elems)) == NULL) 439 if ((node = tcl_list_to_buddy(interp, count, elems)) == NULL)
441 return TCL_ERROR; 440 return TCL_ERROR;
441 type = purple_blist_node_get_type(node);
442 if (type == PURPLE_BLIST_CHAT_NODE) 442 if (type == PURPLE_BLIST_CHAT_NODE)
443 Tcl_SetObjResult(interp, 443 Tcl_SetObjResult(interp,
444 Tcl_NewStringObj(purple_chat_get_name((PurpleChat *)node), -1)); 444 Tcl_NewStringObj(purple_chat_get_name((PurpleChat *)node), -1));
445 else if (type == PURPLE_BLIST_BUDDY_NODE) 445 else if (type == PURPLE_BLIST_BUDDY_NODE)
446 Tcl_SetObjResult(interp, 446 Tcl_SetObjResult(interp,