Mercurial > pidgin
view libpurple/plugins/perl/common/Prefs.xs @ 24044:1f92d4aa8f3b
Return FALSE when a perl plugin cannot be loaded.
author | Sadrul Habib Chowdhury <imadil@gmail.com> |
---|---|
date | Mon, 01 Sep 2008 16:45:01 +0000 |
parents | ae3263bfd3f5 |
children | 08b65145276a |
line wrap: on
line source
#include "module.h" #include "../perl-handlers.h" MODULE = Purple::Prefs PACKAGE = Purple::Prefs PREFIX = purple_prefs_ PROTOTYPES: ENABLE BOOT: { HV *stash = gv_stashpv("Purple::Pref::Type", 1); static const constiv *civ, const_iv[] = { #define const_iv(name) {#name, (IV)PURPLE_PREF_##name} const_iv(NONE), const_iv(BOOLEAN), const_iv(INT), const_iv(STRING), const_iv(STRING_LIST), const_iv(PATH), const_iv(PATH_LIST), }; for (civ = const_iv + sizeof(const_iv) / sizeof(const_iv[0]); civ-- > const_iv; ) newCONSTSUB(stash, (char *)civ->name, newSViv(civ->iv)); } void purple_prefs_add_bool(name, value) const char *name gboolean value void purple_prefs_add_int(name, value) const char *name int value void purple_prefs_add_none(name) const char *name void purple_prefs_add_string(name, value) const char *name const char *value void purple_prefs_add_string_list(name, value) const char *name SV *value PREINIT: GList *t_GL; int i, t_len; PPCODE: t_GL = NULL; t_len = av_len((AV *)SvRV(value)); for (i = 0; i < t_len; i++) t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0))); purple_prefs_add_string_list(name, t_GL); g_list_free(t_GL); void purple_prefs_add_path(name, value) const char *name const char *value void purple_prefs_add_path_list(name, value) const char *name SV *value PREINIT: GList *t_GL; int i, t_len; PPCODE: t_GL = NULL; t_len = av_len((AV *)SvRV(value)); for (i = 0; i < t_len; i++) t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0))); purple_prefs_add_path_list(name, t_GL); g_list_free(t_GL); void purple_prefs_destroy() guint purple_prefs_connect_callback(plugin, name, callback, data = 0); Purple::Plugin plugin const char *name SV *callback SV *data CODE: RETVAL = purple_perl_prefs_connect_callback(plugin, name, callback, data); OUTPUT: RETVAL void purple_prefs_disconnect_by_handle(plugin) Purple::Plugin plugin CODE: purple_perl_pref_cb_clear_for_plugin(plugin); void purple_prefs_disconnect_callback(callback_id) guint callback_id CODE: purple_perl_prefs_disconnect_callback(callback_id); gboolean purple_prefs_exists(name) const char *name const char * purple_prefs_get_path(name) const char *name void purple_prefs_get_path_list(name) const char *name PREINIT: GList *l; PPCODE: for (l = purple_prefs_get_path_list(name); l != NULL; l = g_list_delete_link(l, l)) { XPUSHs(sv_2mortal(newSVpv(l->data, 0))); g_free(l->data); } gboolean purple_prefs_get_bool(name) const char *name Purple::Handle purple_prefs_get_handle() int purple_prefs_get_int(name) const char *name const char * purple_prefs_get_string(name) const char *name void purple_prefs_get_string_list(name) const char *name PREINIT: GList *l; PPCODE: for (l = purple_prefs_get_string_list(name); l != NULL; l = g_list_delete_link(l, l)) { XPUSHs(sv_2mortal(newSVpv(l->data, 0))); g_free(l->data); } Purple::PrefType purple_prefs_get_type(name) const char *name gboolean purple_prefs_load() void purple_prefs_remove(name) const char *name void purple_prefs_rename(oldname, newname) const char *oldname const char *newname void purple_prefs_rename_boolean_toggle(oldname, newname) const char *oldname const char *newname void purple_prefs_set_bool(name, value) const char *name gboolean value void purple_prefs_set_generic(name, value) const char *name gpointer value void purple_prefs_set_int(name, value) const char *name int value void purple_prefs_set_string(name, value) const char *name const char *value void purple_prefs_set_string_list(name, value) const char *name SV *value PREINIT: GList *t_GL; int i, t_len; PPCODE: t_GL = NULL; t_len = av_len((AV *)SvRV(value)); for (i = 0; i < t_len; i++) t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0))); purple_prefs_set_string_list(name, t_GL); g_list_free(t_GL); void purple_prefs_set_path(name, value) const char *name const char *value void purple_prefs_set_path_list(name, value) const char *name SV *value PREINIT: GList *t_GL; int i, t_len; PPCODE: t_GL = NULL; t_len = av_len((AV *)SvRV(value)); for (i = 0; i < t_len; i++) t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(value), i, 0))); purple_prefs_set_path_list(name, t_GL); g_list_free(t_GL); void purple_prefs_trigger_callback(name) const char *name void purple_prefs_get_children_names(name) const char *name PREINIT: GList *l; PPCODE: for (l = purple_prefs_get_children_names(name); l != NULL; l = g_list_delete_link(l, l)) { XPUSHs(sv_2mortal(newSVpv(l->data, 0))); g_free(l->data); } void purple_prefs_update_old()