Mercurial > pidgin

comparison plugins/perl/common/Status.xs @ 11130:3f3bc7f1b6bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13186] Fixed warning messages committer: Tailor Script <tailor@pidgin.im>
author John H. Kelm <johnkelm@gmail.com>
date Tue, 19 Jul 2005 10:03:10 +0000
parents 134d0001983d
children ece127d56c14
comparison
equal deleted inserted replaced
11129:0754ce8f1122 11130:3f3bc7f1b6bf
72 72
73 void 73 void
74 gaim_presence_get_buddies(presence) 74 gaim_presence_get_buddies(presence)
75 Gaim::Presence presence 75 Gaim::Presence presence
76 PREINIT: 76 PREINIT:
77 GList *l; 77 const GList *l;
78 PPCODE: 78 PPCODE:
79 for (l = gaim_presence_get_buddies(presence); l != NULL; l = l->next) { 79 for (l = gaim_presence_get_buddies(presence); l != NULL; l = l->next) {
80 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem"))); 80 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
81 } 81 }
82 82
107 107
108 void 108 void
109 gaim_presence_get_statuses(presence) 109 gaim_presence_get_statuses(presence)
110 Gaim::Presence presence 110 Gaim::Presence presence
111 PREINIT: 111 PREINIT:
112 GList *l; 112 const GList *l;
113 PPCODE: 113 PPCODE:
114 for (l = gaim_presence_get_statuses(presence); l != NULL; l = l->next) { 114 for (l = gaim_presence_get_statuses(presence); l != NULL; l = l->next) {
115 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem"))); 115 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
116 } 116 }
117 117
368 368
369 void 369 void
370 gaim_status_type_get_attrs(status_type) 370 gaim_status_type_get_attrs(status_type)
371 Gaim::StatusType status_type 371 Gaim::StatusType status_type
372 PREINIT: 372 PREINIT:
373 GList *l; 373 const GList *l;
374 PPCODE: 374 PPCODE:
375 for (l = gaim_status_type_get_attrs(status_type); l != NULL; l = l->next) { 375 for (l = gaim_status_type_get_attrs(status_type); l != NULL; l = l->next) {
376 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem"))); 376 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
377 } 377 }
378 378