comparison libpurple/plugins/perl/common/Conversation.xs @ 32819:2c6510167895 default tip

propagate from branch 'im.pidgin.pidgin.2.x.y' (head 3315c5dfbd0ad16511bdcf865e5b07c02d07df24) to branch 'im.pidgin.pidgin' (head cbd1eda6bcbf0565ae7766396bb8f6f419cb6a9a)
author Elliott Sales de Andrade <qulogic@pidgin.im>
date Sat, 02 Jun 2012 02:30:49 +0000
parents 3e7a7e14af62
children
comparison
equal deleted inserted replaced
32818:01ff09d4a463 32819:2c6510167895
144 Purple::Account 144 Purple::Account
145 purple_conversation_get_account(conv) 145 purple_conversation_get_account(conv)
146 Purple::Conversation conv 146 Purple::Conversation conv
147 147
148 Purple::Connection 148 Purple::Connection
149 purple_conversation_get_gc(conv) 149 purple_conversation_get_connection(conv)
150 Purple::Conversation conv 150 Purple::Conversation conv
151 151
152 void 152 void
153 purple_conversation_set_title(conv, title); 153 purple_conversation_set_title(conv, title);
154 Purple::Conversation conv 154 Purple::Conversation conv
336 Purple::Conversation 336 Purple::Conversation
337 purple_conv_chat_get_conversation(chat) 337 purple_conv_chat_get_conversation(chat)
338 Purple::Conversation::Chat chat 338 Purple::Conversation::Chat chat
339 339
340 void 340 void
341 purple_conv_chat_set_users(chat, users)
342 Purple::Conversation::Chat chat
343 SV * users
344 PREINIT:
345 GList *l, *t_GL;
346 int i, t_len;
347 PPCODE:
348 t_GL = NULL;
349 t_len = av_len((AV *)SvRV(users));
350
351 for (i = 0; i <= t_len; i++)
352 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(users), i, 0)));
353
354 for (l = purple_conv_chat_set_users(chat, t_GL); l != NULL; l = l->next) {
355 XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));
356 }
357
358 void
359 purple_conv_chat_get_users(chat) 341 purple_conv_chat_get_users(chat)
360 Purple::Conversation::Chat chat 342 Purple::Conversation::Chat chat
361 PREINIT: 343 PREINIT:
362 GList *l; 344 GList *l;
363 PPCODE: 345 PPCODE: