comparison libpurple/plugins/perl/common/Account.xs @ 24647:34b02adafd9b

merge of 'dd536145a4036177cabc4e4e1ac83dcdf1008a33' and 'fdb452e89c3d4140034ff12f06a8c3daf350ae5d'
author John Bailey <rekkanoryo@rekkanoryo.org>
date Thu, 11 Dec 2008 22:36:47 +0000
parents 68a90c95b722 7fd6e5a72bf1
children 2f3b391b114f
comparison
equal deleted inserted replaced
24646:36851084b5f2 24647:34b02adafd9b
103 PREINIT: 103 PREINIT:
104 GList *t_GL; 104 GList *t_GL;
105 int i, t_len; 105 int i, t_len;
106 PPCODE: 106 PPCODE:
107 t_GL = NULL; 107 t_GL = NULL;
108 t_len = av_len((AV *)SvRV(status_types)) + 1; 108 t_len = av_len((AV *)SvRV(status_types));
109 109
110 for (i = 0; i <= t_len; i++) 110 for (i = 0; i <= t_len; i++)
111 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0))); 111 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0)));
112 112
113 purple_account_set_status_types(account, t_GL); 113 purple_account_set_status_types(account, t_GL);
205 PREINIT: 205 PREINIT:
206 GList *t_GL; 206 GList *t_GL;
207 int i, t_len; 207 int i, t_len;
208 PPCODE: 208 PPCODE:
209 t_GL = NULL; 209 t_GL = NULL;
210 t_len = av_len((AV *)SvRV(list)) + 1; 210 t_len = av_len((AV *)SvRV(list));
211 211
212 for (i = 0; i <= t_len; i++) 212 for (i = 0; i <= t_len; i++)
213 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0))); 213 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0)));
214 214
215 purple_account_add_buddies(account, t_GL); 215 purple_account_add_buddies(account, t_GL);
234 PREINIT: 234 PREINIT:
235 GList *t_GL1, *t_GL2; 235 GList *t_GL1, *t_GL2;
236 int i, t_len; 236 int i, t_len;
237 PPCODE: 237 PPCODE:
238 t_GL1 = NULL; 238 t_GL1 = NULL;
239 t_len = av_len((AV *)SvRV(A)) + 1; 239 t_len = av_len((AV *)SvRV(A));
240 240
241 for (i = 0; i <= t_len; i++) 241 for (i = 0; i <= t_len; i++)
242 t_GL1 = g_list_append(t_GL1, SvPVutf8_nolen(*av_fetch((AV *)SvRV(A), i, 0))); 242 t_GL1 = g_list_append(t_GL1, SvPVutf8_nolen(*av_fetch((AV *)SvRV(A), i, 0)));
243 243
244 t_GL2 = NULL; 244 t_GL2 = NULL;
245 t_len = av_len((AV *)SvRV(B)) + 1; 245 t_len = av_len((AV *)SvRV(B));
246 246
247 for (i = 0; i <= t_len; i++) 247 for (i = 0; i <= t_len; i++)
248 t_GL2 = g_list_append(t_GL2, SvPVutf8_nolen(*av_fetch((AV *)SvRV(B), i, 0))); 248 t_GL2 = g_list_append(t_GL2, SvPVutf8_nolen(*av_fetch((AV *)SvRV(B), i, 0)));
249 249
250 purple_account_remove_buddies(account, t_GL1, t_GL2); 250 purple_account_remove_buddies(account, t_GL1, t_GL2);