annotate plugins/perl/common/Status.xs @ 11170:0e9e2b923d09

[gaim-migrate @ 13271] Fixed some bugs and made some additions to the XSUBS. Added some of my test scripts which are incomplete, but mostly functional. GaimPluginPrefs and GaimGtkPluginPrefs--using evals to do the Gtk widgets with gtk2-perl--work. Plugin actions can now be added, but only one for now. committer: Tailor Script <[e-mail]>

#include "module.h"

/* TODO


void 
gaim_status_type_add_attrs(status_type, id, name, value, gaim_status_type_add_attrs)
	Gaim::StatusType status_type
	const char *id
	const char *name
	Gaim::Value value
	...
	
	
Gaim::StatusType
gaim_status_type_new_with_attrs(primitive, id, name, saveable, user_settable, independent, attr_id, attr_name, attr_value, gaim_status_type_new_with_attrs)
	Gaim::StatusPrimitive primitive
	const char *id
	const char *name
	gboolean saveable
	gboolean user_settable
	gboolean independent
	const char *attr_id
	const char *attr_name
	Gaim::Value attr_value
	...

void 
gaim_presence_add_list(presence, source_list)
	Gaim::Presence presence
	SV *source_list
PREINIT:
	GList *t_GL;
	int i, t_len;
PPCODE:
	t_GL = NULL;
	t_len = av_len((AV *)SvRV(source_list));

	for (i = 0; i < t_len; i++) {
		STRLEN t_sl;
		t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(source_list), i, 0), t_sl));
	}
	gaim_presence_add_list(presence, t_GL);
	
*/

/***************************XS Code Status.xs**************************/
MODULE = Gaim::Status  PACKAGE = Gaim::Presence  PREFIX = gaim_presence_
PROTOTYPES: ENABLE

void 
gaim_presence_add_status(presence, status)
	Gaim::Presence presence
	Gaim::Status status

gint 
gaim_presence_compare(presence1, presence2)
	Gaim::Presence presence1
	Gaim::Presence presence2

void 
gaim_presence_destroy(presence)
	Gaim::Presence presence

Gaim::Account
gaim_presence_get_account(presence)
	Gaim::Presence presence

Gaim::Status
gaim_presence_get_active_status(presence)
	Gaim::Presence presence

void
gaim_presence_get_buddies(presence)
	Gaim::Presence presence
PREINIT:
	const GList *l;
PPCODE:
	for (l = gaim_presence_get_buddies(presence); l != NULL; l = l->next) {
		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
	}

const char *
gaim_presence_get_chat_user(presence)
	Gaim::Presence presence

Gaim::PresenceContext
gaim_presence_get_context(presence)
	Gaim::Presence presence

Gaim::Conversation
gaim_presence_get_conversation(presence)
	Gaim::Presence presence

time_t 
gaim_presence_get_idle_time(presence)
	Gaim::Presence presence

time_t 
gaim_presence_get_login_time(presence)
	Gaim::Presence presence

Gaim::Status
gaim_presence_get_status(presence, status_id)
	Gaim::Presence presence
	const char *status_id

void
gaim_presence_get_statuses(presence)
	Gaim::Presence presence
PREINIT:
	const GList *l;
PPCODE:
	for (l = gaim_presence_get_statuses(presence); l != NULL; l = l->next) {
		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
	}

unsigned int 
gaim_presence_get_warning_level(presence)
	Gaim::Presence presence

gboolean 
gaim_presence_is_available(presence)
	Gaim::Presence presence

gboolean 
gaim_presence_is_idle(presence)
	Gaim::Presence presence

gboolean 
gaim_presence_is_online(presence)
	Gaim::Presence presence

gboolean 
gaim_presence_is_status_active(presence, status_id)
	Gaim::Presence presence
	const char *status_id

gboolean 
gaim_presence_is_status_primitive_active(presence, primitive)
	Gaim::Presence presence
	Gaim::StatusPrimitive primitive

Gaim::Presence
gaim_presence_new(context)
	Gaim::PresenceContext context

Gaim::Presence
gaim_presence_new_for_account(account)
	Gaim::Account account

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

Gaim::Presence
gaim_presence_new_for_conv(conv)
	Gaim::Conversation conv

void 
gaim_presence_remove_buddy(presence, buddy)
	Gaim::Presence presence
	Gaim::BuddyList::Buddy buddy

void 
gaim_presence_set_idle(presence, idle, idle_time)
	Gaim::Presence presence
	gboolean idle
	time_t idle_time

void 
gaim_presence_set_login_time(presence, login_time)
	Gaim::Presence presence
	time_t login_time

void 
gaim_presence_set_status_active(presence, status_id, active)
	Gaim::Presence presence
	const char *status_id
	gboolean active

void 
gaim_presence_set_warning_level(presence, level)
	Gaim::Presence presence
	unsigned int level

void 
gaim_presence_switch_status(presence, status_id)
	Gaim::Presence presence
	const char *status_id

const char *
gaim_primitive_get_id_from_type(type)
	Gaim::StatusPrimitive type

const char *
gaim_primitive_get_name_from_type(type)
	Gaim::StatusPrimitive type

Gaim::StatusPrimitive
gaim_primitive_get_type_from_id(id)
	const char *id

MODULE = Gaim::Status  PACKAGE = Gaim::Status PREFIX = gaim_status_
PROTOTYPES: ENABLE

void 
gaim_status_attr_destroy(attr)
	Gaim::StatusAttr attr

const char *
gaim_status_attr_get_id(attr)
	Gaim::StatusAttr attr

const char *
gaim_status_attr_get_name(attr)
	Gaim::StatusAttr attr

Gaim::Value
gaim_status_attr_get_value_type(attr)
	Gaim::StatusAttr attr

Gaim::StatusAttr
gaim_status_attr_new(id, name, value_type)
	const char *id
	const char *name
	Gaim::Value value_type

gint 
gaim_status_compare(status1, status2)
	Gaim::Status status1
	Gaim::Status status2

void 
gaim_status_destroy(status)
	Gaim::Status status

gboolean 
gaim_status_get_attr_boolean(status, id)
	Gaim::Status status
	const char *id

int 
gaim_status_get_attr_int(status, id)
	Gaim::Status status
	const char *id

const char *
gaim_status_get_attr_string(status, id)
	Gaim::Status status
	const char *id

Gaim::Value
gaim_status_get_attr_value(status, id)
	Gaim::Status status
	const char *id

void *
gaim_status_get_handle()


const char *
gaim_status_get_id(status)
	Gaim::Status status

const char *
gaim_status_get_name(status)
	Gaim::Status status

Gaim::Presence
gaim_status_get_presence(status)
	Gaim::Status status

Gaim::StatusType
gaim_status_get_type(status)
	Gaim::Status status

void 
gaim_status_init()
 

gboolean 
gaim_status_is_active(status)
	Gaim::Status status

gboolean 
gaim_status_is_available(status)
	Gaim::Status status

gboolean 
gaim_status_is_exclusive(status)
	Gaim::Status status

gboolean 
gaim_status_is_independent(status)
	Gaim::Status status

gboolean 
gaim_status_is_online(status)
	Gaim::Status status

Gaim::Status
gaim_status_new(status_type, presence)
	Gaim::StatusType status_type
	Gaim::Presence presence

void 
gaim_status_set_active(status, active)
	Gaim::Status status
	gboolean active

void 
gaim_status_set_active_with_attrs(status, active, args)
	Gaim::Status status
	gboolean active
	va_list args

void 
gaim_status_set_attr_boolean(status, id, value)
	Gaim::Status status
	const char *id
	gboolean value

void 
gaim_status_set_attr_string(status, id, value)
	Gaim::Status status
	const char *id
	const char *value

void 
gaim_status_type_add_attr(status_type, id, name, value)
	Gaim::StatusType status_type
	const char *id
	const char *name
	Gaim::Value value


void 
gaim_status_type_add_attrs_vargs(status_type, args)
	Gaim::StatusType status_type
	va_list args

void 
gaim_status_type_destroy(status_type)
	Gaim::StatusType status_type

Gaim::StatusType
gaim_status_type_find_with_id(status_types, id)
	SV *status_types
	const char *id
PREINIT:
	GList *t_GL;
	int i, t_len;
CODE:
	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));
	}
	RETVAL = (GaimStatusType *)gaim_status_type_find_with_id(t_GL, id);
OUTPUT:
	RETVAL
	
Gaim::StatusAttr
gaim_status_type_get_attr(status_type, id)
	Gaim::StatusType status_type
	const char *id

void
gaim_status_type_get_attrs(status_type)
	Gaim::StatusType status_type
PREINIT:
	const GList *l;
PPCODE:
	for (l = gaim_status_type_get_attrs(status_type); l != NULL; l = l->next) {
		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
	}
	
const char *
gaim_status_type_get_id(status_type)
	Gaim::StatusType status_type

const char *
gaim_status_type_get_name(status_type)
	Gaim::StatusType status_type

const char *
gaim_status_type_get_primary_attr(type)
	Gaim::StatusType type

Gaim::StatusPrimitive
gaim_status_type_get_primitive(status_type)
	Gaim::StatusType status_type

gboolean 
gaim_status_type_is_available(status_type)
	Gaim::StatusType status_type

gboolean 
gaim_status_type_is_exclusive(status_type)
	Gaim::StatusType status_type

gboolean 
gaim_status_type_is_independent(status_type)
	Gaim::StatusType status_type

gboolean 
gaim_status_type_is_saveable(status_type)
	Gaim::StatusType status_type

gboolean 
gaim_status_type_is_user_settable(status_type)
	Gaim::StatusType status_type

Gaim::StatusType
gaim_status_type_new(primitive, id, name, user_settable)
	Gaim::StatusPrimitive primitive
	const char *id
	const char *name
	gboolean user_settable

Gaim::StatusType
gaim_status_type_new_full(primitive, id, name, saveable, user_settable, independent)
	Gaim::StatusPrimitive primitive
	const char *id
	const char *name
	gboolean saveable
	gboolean user_settable
	gboolean independent

void 
gaim_status_type_set_primary_attr(status_type, attr_id)
	Gaim::StatusType status_type
	const char *attr_id

void 
gaim_status_uninit()