Mercurial > pidgin.yaz
view plugins/perl/common/BuddyList.xs @ 6543:4d45f1eb0a7b
[gaim-migrate @ 7065]
Crashes are bad.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Thu, 21 Aug 2003 03:29:33 +0000 |
parents | fe0294504602 |
children | a87b9c7d199e |
line wrap: on
line source
#include "module.h" MODULE = Gaim::BuddyList PACKAGE = Gaim::BuddyList PREFIX = gaim_blist_ PROTOTYPES: ENABLE void gaim_blist_set_visible(show) gboolean show void add_buddy(buddy, group) Gaim::BuddyList::Buddy buddy Gaim::BuddyList::Group group CODE: gaim_blist_add_buddy(buddy, group, NULL); void add_group(group) Gaim::BuddyList::Group group CODE: gaim_blist_add_group(group, NULL); void add_chat(chat, group) Gaim::BuddyList::Chat chat Gaim::BuddyList::Group group CODE: gaim_blist_add_chat(chat, group, NULL); void gaim_blist_remove_buddy(buddy) Gaim::BuddyList::Buddy buddy void gaim_blist_remove_group(group) Gaim::BuddyList::Group group void gaim_blist_remove_chat(chat) Gaim::BuddyList::Chat chat Gaim::BuddyList::Buddy find_buddy(account, name) Gaim::Account account const char *name CODE: RETVAL = gaim_find_buddy(account, name); OUTPUT: RETVAL void find_buddies(account, name) Gaim::Account account const char *name PREINIT: GSList *l; PPCODE: for (l = gaim_find_buddies(account, name); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::BuddyList::Buddy"))); } g_slist_free(l); Gaim::BuddyList::Group find_group(name) const char *name CODE: RETVAL = gaim_find_group(name); OUTPUT: RETVAL Gaim::BuddyList::Chat gaim_blist_find_chat(account, name) Gaim::Account account const char *name void groups() PREINIT: GaimBlistNode *node; CODE: if (gaim_get_blist() != NULL) { for (node = gaim_get_blist()->root; node != NULL; node = node->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(node, "Gaim::BuddyList::Group"))); } }