plugins/perl/common/BuddyList.xs

changeset 10632
42c80df526f0
parent 10631
de1e21808029
child 11118
36db35a9da56
equal deleted inserted replaced
10631:de1e21808029 10632:42c80df526f0
63 "Gaim::BuddyList::Buddy"))); 63 "Gaim::BuddyList::Buddy")));
64 } 64 }
65 65
66 g_slist_free(l); 66 g_slist_free(l);
67 67
68 void
69 get_buddies(account)
70 Gaim::Account account
71 PREINIT:
72 GSList *l;
73 PPCODE:
74 for (l = gaim_get_account_buddies(account); l != NULL; l = l->next)
75 {
76 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data,
77 "Gaim::BuddyList::Buddy")));
78 }
79
80 g_slist_free(l);
81
82 Gaim::BuddyList::Group 68 Gaim::BuddyList::Group
83 find_group(name) 69 find_group(name)
84 const char *name 70 const char *name
85 CODE: 71 CODE:
86 RETVAL = gaim_find_group(name); 72 RETVAL = gaim_find_group(name);

mercurial