--- 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()