Mercurial > pidgin.yaz
view plugins/perl/common/BuddyList_Group.xs @ 10467:cbbf5af9e520
[gaim-migrate @ 11747]
Stupid mistake. Hopefully this will enable SecurID for real.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Mon, 03 Jan 2005 05:08:03 +0000 |
parents | 7a8aa87164ae |
children |
line wrap: on
line source
#include "module.h" MODULE = Gaim::BuddyList::Group PACKAGE = Gaim::BuddyList::Group PREFIX = gaim_group_ PROTOTYPES: ENABLE Gaim::BuddyList::Group new(name) const char *name CODE: RETVAL = gaim_group_new(name); OUTPUT: RETVAL void rename(group, new_name) Gaim::BuddyList::Group group const char *new_name CODE: gaim_blist_rename_group(group, new_name); void get_accounts(group) Gaim::BuddyList::Group group PREINIT: GSList *l; PPCODE: for (l = gaim_group_get_accounts(group); l != NULL; l = l->next) XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Account"))); int get_size(group, offline) Gaim::BuddyList::Group group gboolean offline CODE: RETVAL = gaim_blist_get_group_size(group, offline); OUTPUT: RETVAL const char * get_name(group) Gaim::BuddyList::Group group CODE: RETVAL = group->name; OUTPUT: RETVAL int get_online_count(group) Gaim::BuddyList::Group group CODE: RETVAL = gaim_blist_get_group_online_count(group); OUTPUT: RETVAL void buddies(group) Gaim::BuddyList::Group group PREINIT: GaimBlistNode *node; GaimBlistNode *contact; GaimBlistNode *_group = (GaimBlistNode *)group; PPCODE: for (contact = _group->child; contact != NULL; contact = contact->next) { for (node = contact->child; node != NULL; node = node->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(node, "Gaim::BuddyList::Buddy"))); } }