Mercurial > pidgin
comparison libpurple/plugins/perl/common/Status.xs @ 24689:7fd6e5a72bf1
disapproval of revision '0538a6873b4fbb3c72cc0b6fc4d8b690d467686d'
author | John Bailey <rekkanoryo@rekkanoryo.org> |
---|---|
date | Thu, 11 Dec 2008 22:36:29 +0000 |
parents | 08b65145276a |
children | 34b02adafd9b |
comparison
equal
deleted
inserted
replaced
24688:08b65145276a | 24689:7fd6e5a72bf1 |
---|---|
81 PREINIT: | 81 PREINIT: |
82 GList *t_GL; | 82 GList *t_GL; |
83 int i, t_len; | 83 int i, t_len; |
84 PPCODE: | 84 PPCODE: |
85 t_GL = NULL; | 85 t_GL = NULL; |
86 t_len = av_len((AV *)SvRV(source_list)) + 1; | 86 t_len = av_len((AV *)SvRV(source_list)); |
87 | 87 |
88 for (i = 0; i < t_len; i++) { | 88 for (i = 0; i < t_len; i++) { |
89 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(source_list), i, 0))); | 89 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(source_list), i, 0))); |
90 } | 90 } |
91 purple_presence_add_list(presence, t_GL); | 91 purple_presence_add_list(presence, t_GL); |
377 PREINIT: | 377 PREINIT: |
378 GList *t_GL; | 378 GList *t_GL; |
379 int i, t_len; | 379 int i, t_len; |
380 CODE: | 380 CODE: |
381 t_GL = NULL; | 381 t_GL = NULL; |
382 t_len = av_len((AV *)SvRV(status_types)) + 1; | 382 t_len = av_len((AV *)SvRV(status_types)); |
383 | 383 |
384 for (i = 0; i < t_len; i++) { | 384 for (i = 0; i < t_len; i++) { |
385 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0))); | 385 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0))); |
386 } | 386 } |
387 RETVAL = (PurpleStatusType *)purple_status_type_find_with_id(t_GL, id); | 387 RETVAL = (PurpleStatusType *)purple_status_type_find_with_id(t_GL, id); |