view plugins/perl/common/BuddyList.xs @ 11015:45ceaa1ccc6e

[gaim-migrate @ 12884] (10:37:16) rizzo: wtf that silc ft patch still not in (10:38:45) LSchiere2: rizzo: what are you talking about (10:39:03) rizzo: gaim silc won't build against silc 1.0 (10:39:16) rizzo: has been an issue since gaim 1.3.0 (10:39:29) LSchiere2: I don't recall the patch (10:39:32) rizzo: http://www.gentoo.org/cgi-bin/viewcvs.cgi/*checkout*/net-im/gaim/files/gaim-1.3.0-silc-ft.patch (10:39:41) rizzo: I thought I got it from you guys (10:39:46) LSchiere2: is it in our tracker? (10:39:51) rizzo: I don't see it (10:40:05) ***rizzo digs up his bug (10:40:57) rizzo: LSchiere2: I think pekka emailed it to -packagers list (10:41:01) rizzo: http://bugs.gentoo.org/show_bug.cgi?id=92251 (10:41:33) rizzo: from his email: (10:41:33) rizzo: Enclosed a small patch that makes the Gaim compile with SILC Toolkit 1.0. (10:41:33) rizzo: We had unfortunate timing when I released 1.0 at the same time you (10:41:33) rizzo: released Gaim 1.3 so I didn't have time to make the patch for 1.3. (10:41:33) rizzo: Anyway, the patch removes code that really isn't supposed to even be (10:41:33) rizzo: there... committer: Tailor Script <[e-mail]>

#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(account, buddy, group)
	Gaim::Account account
	Gaim::BuddyList::Buddy buddy
	Gaim::BuddyList::Group group
CODE:
	gaim_blist_add_buddy(buddy, NULL, group, NULL);
	serv_add_buddy(gaim_account_get_connection(account), buddy);

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;
PPCODE:
	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")));
		}
	}

void *
handle()
CODE:
	RETVAL = gaim_blist_get_handle();
OUTPUT:
	RETVAL