plugins/perl/common/Account.xs

branch
gaim
changeset 20470
77693555855f
parent 13071
b98e72d4089a
parent 20469
b2836a24d81e
child 20471
1966704b3e42
--- a/plugins/perl/common/Account.xs	Mon Apr 16 00:43:53 2007 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,313 +0,0 @@
-#include "module.h"
-
-MODULE = Gaim::Account  PACKAGE = Gaim::Account  PREFIX = gaim_account_
-PROTOTYPES: ENABLE
-
-Gaim::Presence
-gaim_account_get_presence(account)
-	Gaim::Account account
-
-Gaim::Account
-gaim_account_new(class, username, protocol_id)
-	const char * username
-	const char * protocol_id
-    C_ARGS:
-	username, protocol_id
-
-void
-gaim_account_destroy(account)
-	Gaim::Account account
-
-void
-gaim_account_connect(account)
-	Gaim::Account account
-
-void
-gaim_account_register(account)
-	Gaim::Account account
-
-void
-gaim_account_disconnect(account)
-	Gaim::Account account
-
-void
-gaim_account_request_change_password(account)
-	Gaim::Account account
-
-void
-gaim_account_request_change_user_info(account)
-	Gaim::Account account
-
-void
-gaim_account_set_username(account, username)
-	Gaim::Account account
-	const char * username
-
-void
-gaim_account_set_password(account, password)
-	Gaim::Account account
-	const char * password
-
-void
-gaim_account_set_alias(account, alias)
-	Gaim::Account account
-	const char * alias
-
-void
-gaim_account_set_user_info(account, user_info)
-	Gaim::Account account
-	const char *user_info
-
-void
-gaim_account_set_buddy_icon(account, icon)
-	Gaim::Account account
-	const char *icon
-
-void
-gaim_account_set_connection(account, gc)
-	Gaim::Account account
-	Gaim::Connection gc
-
-void
-gaim_account_set_remember_password(account, value)
-	Gaim::Account account
-	gboolean value
-
-void
-gaim_account_set_check_mail(account, value)
-	Gaim::Account account
-	gboolean value
-
-void
-gaim_account_set_proxy_info(account, info)
-	Gaim::Account account
-	Gaim::ProxyInfo info
-
-void
-gaim_account_set_status(account, status_id, active)
-	Gaim::Account account
-	const char *status_id
-	gboolean active
-CODE:
-	gaim_account_set_status(account, status_id, active);
-
-void
-gaim_account_set_status_types(account, status_types)
-	Gaim::Account account
-	SV * status_types
-PREINIT:
-	GList *t_GL;
-	int i, t_len;
-PPCODE:
-	t_GL = NULL;
-	t_len = av_len((AV *)SvRV(status_types));
-
-	for (i = 0; i < t_len; i++) {
-		STRLEN t_sl;
-		t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(status_types), i, 0), t_sl));
-	}
-	gaim_account_set_status_types(account, t_GL);
-
-void
-gaim_account_clear_settings(account)
-	Gaim::Account account
-
-void
-gaim_account_set_int(account, name, value)
-	Gaim::Account account
-	const char *name
-	int value
-
-gboolean
-gaim_account_is_connected(account)
-	Gaim::Account account
-
-const char *
-gaim_account_get_username(account)
-	Gaim::Account account
-
-const char *
-gaim_account_get_password(account)
-	Gaim::Account account
-
-const char *
-gaim_account_get_alias(account)
-	Gaim::Account account
-
-const char *
-gaim_account_get_user_info(account)
-	Gaim::Account account
-
-const char *
-gaim_account_get_buddy_icon(account)
-	Gaim::Account account
-
-const char *
-gaim_account_get_protocol_id(account)
-	Gaim::Account account
-
-const char *
-gaim_account_get_protocol_name(account)
-	Gaim::Account account
-
-Gaim::Connection
-gaim_account_get_connection(account)
-	Gaim::Account account
-
-gboolean
-gaim_account_get_remember_password(account)
-	Gaim::Account account
-
-gboolean
-gaim_account_get_check_mail(account)
-	Gaim::Account account
-
-Gaim::ProxyInfo
-gaim_account_get_proxy_info(account)
-	Gaim::Account account
-
-Gaim::Status
-gaim_account_get_active_status(account)
-	Gaim::Account account
-
-void
-gaim_account_get_status_types(account)
-	Gaim::Account account
-PREINIT:
-	const GList *l;
-PPCODE:
-	for (l = gaim_account_get_status_types(account); l != NULL; l = l->next) {
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::StatusType")));
-	}
-
-Gaim::Log
-gaim_account_get_log(account)
-	Gaim::Account account
-
-void
-gaim_account_destroy_log(account)
-	Gaim::Account account
-
-void
-gaim_account_add_buddies(account, list)
-	Gaim::Account account
-	SV * list
-PREINIT:
-	GList *t_GL;
-	int i, t_len;
-PPCODE:
-	t_GL = NULL;
-	t_len = av_len((AV *)SvRV(list));
-
-	for (i = 0; i < t_len; i++) {
-		STRLEN t_sl;
-		t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(list), i, 0), t_sl));
-	}
-	gaim_account_add_buddies(account, t_GL);
-
-void
-gaim_account_add_buddy(account, buddy)
-	Gaim::Account account
-	Gaim::BuddyList::Buddy	buddy
-
-void
-gaim_account_change_password(account, a, b)
-	Gaim::Account account
-	const char *	a
-	const char *	b
-
-void
-gaim_account_remove_buddies(account, A, B)
-	Gaim::Account account
-	SV * A
-	SV * B
-PREINIT:
-	GList *t_GL1, *t_GL2;
-	int i, t_len;
-PPCODE:
-	t_GL1 = NULL;
-	t_len = av_len((AV *)SvRV(A));
-
-	for (i = 0; i < t_len; i++) {
-		STRLEN t_sl;
-		t_GL1 = g_list_append(t_GL1, SvPV(*av_fetch((AV *)SvRV(A), i, 0), t_sl));
-	}
-
-	t_GL2 = NULL;
-	t_len = av_len((AV *)SvRV(B));
-
-	for (i = 0; i < t_len; i++) {
-		STRLEN t_sl;
-		t_GL2 = g_list_append(t_GL2, SvPV(*av_fetch((AV *)SvRV(B), i, 0), t_sl));
-	}
-	gaim_account_remove_buddies(account, t_GL1, t_GL2);
-
-void
-gaim_account_remove_buddy(account, buddy, group)
-	Gaim::Account account
-	Gaim::BuddyList::Buddy buddy
-	Gaim::BuddyList::Group group
-
-void
-gaim_account_remove_group(account, group)
-	Gaim::Account account
-	Gaim::BuddyList::Group group
-
-MODULE = Gaim::Account  PACKAGE = Gaim::Accounts  PREFIX = gaim_accounts_
-PROTOTYPES: ENABLE
-
-void
-gaim_accounts_add(account)
-	Gaim::Account account
-
-void
-gaim_accounts_remove(account)
-	Gaim::Account account
-
-void
-gaim_accounts_delete(account)
-	Gaim::Account account
-
-void
-gaim_accounts_reorder(account, new_index)
-	Gaim::Account account
-	size_t new_index
-
-void
-gaim_accounts_get_all()
-PREINIT:
-	GList *l;
-PPCODE:
-	for (l = gaim_accounts_get_all(); l != NULL; l = l->next) {
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Account")));
-	}
-
-void
-gaim_accounts_get_all_active()
-PREINIT:
-	GList *l;
-PPCODE:
-	for (l = gaim_accounts_get_all_active(); l != NULL; l = l->next) {
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Account")));
-	}
-
-Gaim::Account
-gaim_accounts_find(name, protocol)
-	const char * name
-	const char * protocol
-
-void
-gaim_accounts_set_ui_ops(ops)
-	Gaim::Account::UiOps ops
-
-Gaim::Account::UiOps
-gaim_accounts_get_ui_ops()
-
-void
-gaim_accounts_get_handle()
-
-void
-gaim_accounts_init()
-
-void
-gaim_accounts_uninit()

mercurial