Mercurial > pidgin
view plugins/perl/common/SavedStatuses.xs @ 11290:b284c703d398
[gaim-migrate @ 13490]
Did some house cleaning on the code finished up some of the "TODO" stuff
that was left over from when I originally did the XSUBs. Furthermore,
the dynamically loaded Perl package problems should be corrected now that
the context is set before one of the concurrent perl interpreters is run.
committer: Tailor Script <tailor@pidgin.im>
author | John H. Kelm <johnkelm@gmail.com> |
---|---|
date | Thu, 18 Aug 2005 01:35:14 +0000 |
parents | 3f3bc7f1b6bf |
children | 651972254c7a |
line wrap: on
line source
#include "module.h" MODULE = Gaim::SavedStatus PACKAGE = Gaim::SavedStatus PREFIX = gaim_savedstatus_ PROTOTYPES: ENABLE void * gaim_savedstatuses_get_handle() 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::ListItem"))); } void gaim_savedstatuses_init() void gaim_savedstatuses_uninit()