plugins/perl/common/SavedStatuses.xs

Sun, 22 Jan 2006 05:17:38 +0000

author
Etan Reisner <deryni@pidgin.im>
date
Sun, 22 Jan 2006 05:17:38 +0000
changeset 12984
efb5a11f13b2
parent 12790
550cb08cdbe2
child 13502
68e09f7ab38f
permissions
-rw-r--r--

[gaim-migrate @ 15337]
Perl plugins now have ids. Not having them was causing crashes with the
dependent plugin unloading stuff. Some fixes to that code in a minute.

#include "module.h"

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:
	const GList *l;
PPCODE:
	for (l = gaim_savedstatuses_get_all(); l != NULL; l = l->next) {
		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::SavedStatus")));
	}

void *
gaim_savedstatuses_get_handle()

void
gaim_savedstatuses_init()

void
gaim_savedstatuses_uninit()

mercurial