plugins/perl/common/BuddyList_Chat.xs

Tue, 22 Jun 2004 04:21:54 +0000

author
Tim Ringenbach <marv@pidgin.im>
date
Tue, 22 Jun 2004 04:21:54 +0000
changeset 9342
b0b10a2e182c
parent 9285
9cedf5d26577
child 10775
216d130df74c
permissions
-rw-r--r--

[gaim-migrate @ 10150]
I've been meaning to implement this for a while. And still am.
But I'll add its service to enum now, since that's harmless.

#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
CODE:
	RETVAL = gaim_chat_get_display_name(chat);
OUTPUT:
	RETVAL

Gaim::BuddyList::Group
gaim_chat_get_group(chat)
	Gaim::BuddyList::Chat chat
CODE:
	RETVAL = gaim_chat_get_group(chat);
OUTPUT:
	RETVAL

Gaim::Account
get_account(chat)
	Gaim::BuddyList::Chat chat
CODE:
	RETVAL = chat->account;
OUTPUT:
	RETVAL

mercurial