Mercurial > pidgin

comparison libpurple/plugins/tcl/tcl_signals.c @ 24337:7a1d01cc98d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix Tcl to compile with the hidden structs.
author Richard Laager <rlaager@wiktel.com>
date Thu, 30 Oct 2008 05:40:51 +0000
parents 44b4e8bd759b
children 7c871249318b
comparison
equal deleted inserted replaced
24336:03c73e917b1b 24337:7a1d01cc98d8
290 /* We're going to switch again for code-deduping */ 290 /* We're going to switch again for code-deduping */
291 if (purple_value_is_outgoing(handler->argtypes[i])) 291 if (purple_value_is_outgoing(handler->argtypes[i]))
292 node = *va_arg(args, PurpleBlistNode **); 292 node = *va_arg(args, PurpleBlistNode **);
293 else 293 else
294 node = va_arg(args, PurpleBlistNode *); 294 node = va_arg(args, PurpleBlistNode *);
295 switch (node->type) { 295 switch (purple_blist_node_get_type(node)) {
296 case PURPLE_BLIST_GROUP_NODE: 296 case PURPLE_BLIST_GROUP_NODE:
297 arg = Tcl_NewListObj(0, NULL); 297 arg = Tcl_NewListObj(0, NULL);
298 Tcl_ListObjAppendElement(handler->interp, arg, 298 Tcl_ListObjAppendElement(handler->interp, arg,
299 Tcl_NewStringObj("group", -1)); 299 Tcl_NewStringObj("group", -1));
300 Tcl_ListObjAppendElement(handler->interp, arg, 300 Tcl_ListObjAppendElement(handler->interp, arg,
301 Tcl_NewStringObj(((PurpleGroup *)node)->name, -1)); 301 Tcl_NewStringObj(purple_group_get_name((PurpleGroup *)node), -1));
302 break; 302 break;
303 case PURPLE_BLIST_CONTACT_NODE: 303 case PURPLE_BLIST_CONTACT_NODE:
304 /* g_string_printf(val, "contact {%s}", Contact Name? ); */ 304 /* g_string_printf(val, "contact {%s}", Contact Name? ); */
305 arg = Tcl_NewStringObj("contact", -1); 305 arg = Tcl_NewStringObj("contact", -1);
306 break; 306 break;
307 case PURPLE_BLIST_BUDDY_NODE: 307 case PURPLE_BLIST_BUDDY_NODE:
308 arg = Tcl_NewListObj(0, NULL); 308 arg = Tcl_NewListObj(0, NULL);
309 Tcl_ListObjAppendElement(handler->interp, arg, 309 Tcl_ListObjAppendElement(handler->interp, arg,
310 Tcl_NewStringObj("buddy", -1)); 310 Tcl_NewStringObj("buddy", -1));
311 Tcl_ListObjAppendElement(handler->interp, arg, 311 Tcl_ListObjAppendElement(handler->interp, arg,
312 Tcl_NewStringObj(((PurpleBuddy *)node)->name, -1)); 312 Tcl_NewStringObj(purple_buddy_get_name((PurpleBuddy *)node), -1));
313 Tcl_ListObjAppendElement(handler->interp, arg, 313 Tcl_ListObjAppendElement(handler->interp, arg,
314 purple_tcl_ref_new(PurpleTclRefAccount, 314 purple_tcl_ref_new(PurpleTclRefAccount,
315 ((PurpleBuddy *)node)->account)); 315 purple_buddy_get_account((PurpleBuddy *)node)));
316 break; 316 break;
317 case PURPLE_BLIST_CHAT_NODE: 317 case PURPLE_BLIST_CHAT_NODE:
318 arg = Tcl_NewListObj(0, NULL); 318 arg = Tcl_NewListObj(0, NULL);
319 Tcl_ListObjAppendElement(handler->interp, arg, 319 Tcl_ListObjAppendElement(handler->interp, arg,
320 Tcl_NewStringObj("chat", -1)); 320 Tcl_NewStringObj("chat", -1));
321 Tcl_ListObjAppendElement(handler->interp, arg, 321 Tcl_ListObjAppendElement(handler->interp, arg,
322 Tcl_NewStringObj(((PurpleChat *)node)->alias, -1)); 322 Tcl_NewStringObj(purple_chat_get_name((PurpleChat *)node), -1));
323 Tcl_ListObjAppendElement(handler->interp, arg, 323 Tcl_ListObjAppendElement(handler->interp, arg,
324 purple_tcl_ref_new(PurpleTclRefAccount, 324 purple_tcl_ref_new(PurpleTclRefAccount,
325 ((PurpleChat *)node)->account)); 325 purple_chat_get_account((PurpleChat *)node)));
326 break; 326 break;
327 case PURPLE_BLIST_OTHER_NODE: 327 case PURPLE_BLIST_OTHER_NODE:
328 arg = Tcl_NewStringObj("other", -1); 328 arg = Tcl_NewStringObj("other", -1);
329 break; 329 break;
330 } 330 }