annotate libgaim/plugins/perl/common/Account.xs @ 15066:e53cceebebb3

[gaim-migrate @ 17849] Update the Perl HOWTO to include working samples and various other fixes. In order to actually do this, I had to also make some fixes to the perl bindings. committer: Tailor Script <[e-mail]>

#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_enabled(account, ui, value)
    Gaim::Account account
    const char *ui
    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, NULL);

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

gboolean
gaim_account_get_enabled(account, ui)
    Gaim::Account account
    const char *ui

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, create)
    Gaim::Account account
    gboolean create

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 *list, *iter;
PPCODE:
    list = gaim_accounts_get_all_active();
    for (iter = list; iter != NULL; iter = iter->next) {
        XPUSHs(sv_2mortal(gaim_perl_bless_object(iter->data, "Gaim::Account")));
    }
    g_list_free(list);

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

Gaim::Handle
gaim_accounts_get_handle()

void
gaim_accounts_init()

void
gaim_accounts_uninit()