Mercurial > pidgin
comparison libpurple/plugins/perl/common/Account.xs @ 32672:3828a61c44da
A boring and large patch so I can merge heads.
author | Elliott Sales de Andrade <qulogic@pidgin.im> |
---|---|
date | Fri, 23 Dec 2011 08:21:58 +0000 |
parents | 34b02adafd9b |
children |
comparison
equal
deleted
inserted
replaced
32671:0e69949b3e61 | 32672:3828a61c44da |
---|---|
197 void | 197 void |
198 purple_account_destroy_log(account) | 198 purple_account_destroy_log(account) |
199 Purple::Account account | 199 Purple::Account account |
200 | 200 |
201 void | 201 void |
202 purple_account_add_buddies(account, list) | 202 purple_account_add_buddies(account, list, message) |
203 Purple::Account account | 203 Purple::Account account |
204 SV * list | 204 SV * list |
205 const char *message | |
205 PREINIT: | 206 PREINIT: |
206 GList *t_GL; | 207 GList *t_GL; |
207 int i, t_len; | 208 int i, t_len; |
208 PPCODE: | 209 PPCODE: |
209 t_GL = NULL; | 210 t_GL = NULL; |
210 t_len = av_len((AV *)SvRV(list)); | 211 t_len = av_len((AV *)SvRV(list)); |
211 | 212 |
212 for (i = 0; i <= t_len; i++) | 213 for (i = 0; i <= t_len; i++) |
213 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0))); | 214 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0))); |
214 | 215 |
215 purple_account_add_buddies(account, t_GL); | 216 purple_account_add_buddies(account, t_GL, message); |
216 g_list_free(t_GL); | 217 g_list_free(t_GL); |
217 | 218 |
218 void | 219 void |
219 purple_account_add_buddy(account, buddy) | 220 purple_account_add_buddy(account, buddy, message) |
220 Purple::Account account | 221 Purple::Account account |
221 Purple::BuddyList::Buddy buddy | 222 Purple::BuddyList::Buddy buddy |
223 const char * message | |
222 | 224 |
223 void | 225 void |
224 purple_account_change_password(account, a, b) | 226 purple_account_change_password(account, a, b) |
225 Purple::Account account | 227 Purple::Account account |
226 const char * a | 228 const char * a |