view plugins/perl/common/BuddyList.xs @ 12786:33ddb29406a1

[gaim-migrate @ 15133] Whitespace, namespacing, and fix a couple functions to correctly class some stuff. committer: Tailor Script <tailor@pidgin.im>
author Etan Reisner <pidgin@unreliablesource.net>
date Mon, 09 Jan 2006 07:54:59 +0000
parents 980c877bd238
children 99c9d4d5597e
line wrap: on
line source

#include "module.h"
#include "../perl-handlers.h"

MODULE = Gaim::BuddyList  PACKAGE = Gaim  PREFIX = gaim_
PROTOTYPES: ENABLE

Gaim::BuddyList
gaim_get_blist()

void
gaim_set_blist(blist)
	Gaim::BuddyList blist

MODULE = Gaim::BuddyList  PACKAGE = Gaim::Find  PREFIX = gaim_find_
PROTOTYPES: ENABLE

Gaim::BuddyList::Buddy
gaim_find_buddy(account, name)
	Gaim::Account account
	const char * name

void
gaim_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")));
	}

gboolean
gaim_group_on_account(group, account)
	Gaim::BuddyList::Group  group
	Gaim::Account account

Gaim::BuddyList::Group
gaim_find_group(name)
	const char *name

MODULE = Gaim::BuddyList  PACKAGE = Gaim::Contact  PREFIX = gaim_contact_
PROTOTYPES: ENABLE

Gaim::BuddyList::Contact
gaim_contact_new();

Gaim::BuddyList::Buddy
gaim_contact_get_priority_buddy(contact)
	Gaim::BuddyList::Contact contact

void
gaim_contact_set_alias(contact, alias)
	Gaim::BuddyList::Contact contact
	const char * alias

const char *
gaim_contact_get_alias(contact)
	Gaim::BuddyList::Contact contact

gboolean
gaim_contact_on_account(contact, account)
	Gaim::BuddyList::Contact contact
	Gaim::Account account

void
gaim_contact_invalidate_priority_buddy(contact)
	Gaim::BuddyList::Contact contact

MODULE = Gaim::BuddyList  PACKAGE = Gaim::BuddyList::Group  PREFIX = gaim_group_
PROTOTYPES: ENABLE

Gaim::BuddyList::Group
gaim_group_new(name)
	const char *name

void
gaim_group_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")));
	}

gboolean
gaim_group_on_account(group, account)
	Gaim::BuddyList::Group  group
	Gaim::Account account

MODULE = Gaim::BuddyList  PACKAGE = Gaim::BuddyList  PREFIX = gaim_blist_
PROTOTYPES: ENABLE

void
gaim_blist_add_contact(contact, group, node)
	Gaim::BuddyList::Contact contact
	Gaim::BuddyList::Group  group
	Gaim::BuddyList::Node node

void
gaim_blist_merge_contact(source, node)
	Gaim::BuddyList::Contact source
	Gaim::BuddyList::Node node

void
gaim_blist_add_group(group, node)
	Gaim::BuddyList::Group  group
	Gaim::BuddyList::Node node

void
gaim_blist_add_buddy(buddy, contact, group, node)
	Gaim::BuddyList::Buddy buddy
	Gaim::BuddyList::Contact contact
	Gaim::BuddyList::Group  group
	Gaim::BuddyList::Node node

void
gaim_blist_remove_buddy(buddy)
	Gaim::BuddyList::Buddy buddy

void
gaim_blist_remove_contact(contact)
	Gaim::BuddyList::Contact contact

void
gaim_blist_remove_chat(chat)
	Gaim::BuddyList::Chat chat

void
gaim_blist_remove_group(group)
	Gaim::BuddyList::Group  group

Gaim::BuddyList::Chat
gaim_blist_find_chat(account, name)
	Gaim::Account account
	const char *name

void
gaim_blist_add_chat(chat, group, node)
	Gaim::BuddyList::Chat chat
	Gaim::BuddyList::Group  group
	Gaim::BuddyList::Node node

Gaim::BuddyList
gaim_blist_new()

void
gaim_blist_show()

void
gaim_blist_destroy();

void
gaim_blist_set_visible(show)
	gboolean show

void
gaim_blist_update_buddy_status(buddy, old_status)
	Gaim::BuddyList::Buddy buddy
	Gaim::Status old_status

void
gaim_blist_update_buddy_icon(buddy)
	Gaim::BuddyList::Buddy buddy

void
gaim_blist_rename_buddy(buddy, name)
	Gaim::BuddyList::Buddy buddy
	const char * name

void
gaim_blist_alias_buddy(buddy, alias)
	Gaim::BuddyList::Buddy buddy
	const char * alias

void
gaim_blist_server_alias_buddy(buddy, alias)
	Gaim::BuddyList::Buddy buddy
	const char * alias

void
gaim_blist_alias_chat(chat, alias)
	Gaim::BuddyList::Chat chat
	const char * alias

void
gaim_blist_rename_group(group, name)
	Gaim::BuddyList::Group  group
	const char * name

void
gaim_blist_add_account(account)
	Gaim::Account account

void
gaim_blist_remove_account(account)
	Gaim::Account account

int
gaim_blist_get_group_size(group, offline)
	Gaim::BuddyList::Group  group
	gboolean offline

int
gaim_blist_get_group_online_count(group)
	Gaim::BuddyList::Group  group

void
gaim_blist_load()

void
gaim_blist_schedule_save()

void
gaim_blist_request_add_group()

void
gaim_blist_node_get_extended_menu(node)
	Gaim::BuddyList::Node node
PREINIT:
	GList *l;
PPCODE:
	for (l = gaim_blist_node_get_extended_menu(node); l != NULL; l = l->next) {
		/* XXX I'm pretty sure this is what should be being used here,
		 * not that it really matters since perl doesn't really have a
		 * way to interact with a GaimBlistNodeAction anyway. */
		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::BuddyList::Node::Action")));
	}

void
gaim_blist_set_ui_ops(ops)
	Gaim::BuddyList::UiOps ops

Gaim::BuddyList::UiOps
gaim_blist_get_ui_ops()

void *
gaim_blist_get_handle()

void
gaim_blist_init()

void
gaim_blist_uninit()

MODULE = Gaim::BuddyList  PACKAGE = Gaim::BuddyList::Node  PREFIX = gaim_blist_node_
PROTOTYPES: ENABLE

void
gaim_blist_node_set_bool(node, key, value)
	Gaim::BuddyList::Node node
	const char * key
	gboolean value

gboolean
gaim_blist_node_get_bool(node, key)
	Gaim::BuddyList::Node node
	const char * key

void
gaim_blist_node_set_int(node, key, value)
	Gaim::BuddyList::Node node
	const char * key
	int value

int
gaim_blist_node_get_int(node, key)
	Gaim::BuddyList::Node node
	const char * key

const char *
gaim_blist_node_get_string(node, key)
	Gaim::BuddyList::Node node
	const char * key

void
gaim_blist_node_remove_setting(node, key)
	Gaim::BuddyList::Node node
	const char * key

void
gaim_blist_node_set_flags(node, flags)
	Gaim::BuddyList::Node node
	Gaim::BuddyList::NodeFlags flags

Gaim::BuddyList::NodeFlags
gaim_blist_node_get_flags(node)
	Gaim::BuddyList::Node node

MODULE = Gaim::BuddyList  PACKAGE = Gaim::Chat  PREFIX = gaim_chat_
PROTOTYPES: ENABLE

Gaim::BuddyList::Group
gaim_chat_get_group(chat)
	Gaim::BuddyList::Chat chat

const char *
gaim_chat_get_name(chat)
	Gaim::BuddyList::Chat chat

Gaim::BuddyList::Chat
gaim_chat_new(account, alias, components)
	Gaim::Account account
	const char * alias
	SV * components
INIT:
	HV * t_HV;
	HE * t_HE;
	SV * t_SV;
	GHashTable * t_GHash;
	I32 len;
	char *t_key, *t_value;
CODE:
	t_HV =  (HV *)SvRV(components);
	t_GHash = g_hash_table_new(NULL, NULL);

	for (t_HE = hv_iternext(t_HV); t_HE != NULL; t_HE = hv_iternext(t_HV) ) {
		t_key = hv_iterkey(t_HE, &len);
		t_SV = *hv_fetch(t_HV, t_key, len, 0);
		t_value = SvPV(t_SV, PL_na);

		g_hash_table_insert(t_GHash, t_key, t_value);
	}

	RETVAL = gaim_chat_new(account, alias, t_GHash);
OUTPUT:
	RETVAL

MODULE = Gaim::BuddyList  PACKAGE = Gaim::Buddy  PREFIX = gaim_buddy_
PROTOTYPES: ENABLE

Gaim::BuddyList::Buddy
gaim_buddy_new(account, screenname, alias)
	Gaim::Account account
	const char *screenname
	const char *alias

void
gaim_buddy_set_icon(buddy, icon)
	Gaim::BuddyList::Buddy buddy
	Gaim::Buddy::Icon icon

Gaim::Account
gaim_buddy_get_account(buddy)
	Gaim::BuddyList::Buddy buddy

Gaim::BuddyList::Group
gaim_buddy_get_group(buddy)
	Gaim::BuddyList::Buddy buddy

const char *
gaim_buddy_get_name(buddy)
	Gaim::BuddyList::Buddy buddy

Gaim::Buddy::Icon
gaim_buddy_get_icon(buddy)
	Gaim::BuddyList::Buddy buddy

Gaim::BuddyList::Contact
gaim_buddy_get_contact(buddy)
	Gaim::BuddyList::Buddy buddy

Gaim::Presence
gaim_buddy_get_presence(buddy)
	Gaim::BuddyList::Buddy buddy

const char *
gaim_buddy_get_alias_only(buddy)
	Gaim::BuddyList::Buddy buddy

const char *
gaim_buddy_get_contact_alias(buddy)
	Gaim::BuddyList::Buddy buddy

const char *
gaim_buddy_get_local_alias(buddy)
	Gaim::BuddyList::Buddy buddy

const char *
gaim_buddy_get_alias(buddy)
	Gaim::BuddyList::Buddy buddy