Mercurial > pidgin

view plugins/perl/common/SavedStatuses.xs @ 11118:134d0001983d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13174] Some new xsubs for the perl interpreter and a work around to get it all working again. committer: Tailor Script <tailor@pidgin.im>
author John H. Kelm <johnkelm@gmail.com>
date Mon, 18 Jul 2005 13:37:38 +0000
parents
children 3f3bc7f1b6bf
line wrap: on
line source


#include "module.h"

/* TODO


void *
gaim_savedstatuses_get_handle()

*/

MODULE = Gaim::SavedStatus  PACKAGE = Gaim::SavedStatus  PREFIX = gaim_savedstatus_
PROTOTYPES: ENABLE


gboolean 
gaim_savedstatus_delete(title)
	const char *title

Gaim::SavedStatus
gaim_savedstatus_find(title)
	const char *title

const char *
gaim_savedstatus_get_message(saved_status)
	Gaim::SavedStatus saved_status

const char *
gaim_savedstatus_get_title(saved_status)
	Gaim::SavedStatus saved_status

Gaim::StatusPrimitive
gaim_savedstatus_get_type(saved_status)
	Gaim::SavedStatus saved_status

Gaim::SavedStatus
gaim_savedstatus_new(title, type)
	const char *title
	Gaim::StatusPrimitive type

void 
gaim_savedstatus_set_message(status, message)
	Gaim::SavedStatus status
	const char *message

MODULE = Gaim::SavedStatus  PACKAGE = Gaim::SavedStatuses  PREFIX = gaim_savedstatuses_
PROTOTYPES: ENABLE

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


void 
gaim_savedstatuses_init()
 

void 
gaim_savedstatuses_uninit()