Mercurial > pidgin.yaz
view plugins/perl/common/BuddyList_Chat.xs @ 6550:f1736493aebb
[gaim-migrate @ 7072]
This *should* be a working signal implementation for perl. Watch it crash.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Thu, 21 Aug 2003 08:42:47 +0000 |
parents | fe0294504602 |
children | 12169973c663 |
line wrap: on
line source
#include "module.h" MODULE = Gaim::BuddyList::Chat PACKAGE = Gaim::BuddyList::Chat PREFIX = gaim_chat_ PROTOTYPES: ENABLE void set_alias(chat, alias) Gaim::BuddyList::Chat chat const char *alias CODE: gaim_blist_alias_chat(chat, alias); const char * gaim_chat_get_display_name(chat) Gaim::BuddyList::Chat chat Gaim::BuddyList::Group gaim_blist_chat_get_group(chat) Gaim::BuddyList::Chat chat CODE: RETVAL = gaim_blist_chat_get_group(chat); OUTPUT: RETVAL void gaim_chat_set_setting(chat, key, value) Gaim::BuddyList::Chat chat const char *key const char *value const char * gaim_chat_get_setting(chat, key) Gaim::BuddyList::Chat chat const char *key Gaim::Account get_account(chat) Gaim::BuddyList::Chat chat CODE: RETVAL = chat->account; OUTPUT: RETVAL