Mercurial > pidgin
view plugins/perl/common/Plugin.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 | 0e9e2b923d09 |
children | 4cf2094256b0 |
line wrap: on
line source
#include "module.h" MODULE = Gaim::Plugin PACKAGE = Gaim::Plugin PREFIX = gaim_plugin_ PROTOTYPES: ENABLE void gaim_plugin_destroy(plugin) Gaim::Plugin plugin void gaim_plugin_ipc_unregister(plugin, command) Gaim::Plugin plugin const char *command void gaim_plugin_ipc_unregister_all(plugin) Gaim::Plugin plugin gboolean gaim_plugin_is_loaded(plugin) Gaim::Plugin plugin gboolean gaim_plugin_load(plugin) Gaim::Plugin plugin Gaim::Plugin gaim_plugin_new(native, path) gboolean native const char *path Gaim::Plugin gaim_plugin_probe(filename) const char *filename gboolean gaim_plugin_register(plugin) Gaim::Plugin plugin gboolean gaim_plugin_reload(plugin) Gaim::Plugin plugin gboolean gaim_plugin_unload(plugin) Gaim::Plugin plugin MODULE = Gaim::Plugin PACKAGE = Gaim::Plugins PREFIX = gaim_plugins_ PROTOTYPES: ENABLE void gaim_plugins_add_search_path(path) const char *path void gaim_plugins_destroy_all() gboolean gaim_plugins_enabled() Gaim::Plugin gaim_plugins_find_with_basename(basename) const char *basename Gaim::Plugin gaim_plugins_find_with_filename(filename) const char *filename Gaim::Plugin gaim_plugins_find_with_id(id) const char *id Gaim::Plugin gaim_plugins_find_with_name(name) const char *name void gaim_plugins_get_all() PREINIT: GList *l; PPCODE: for (l = gaim_plugins_get_all(); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::PTR"))); } void * gaim_plugins_get_handle() void gaim_plugins_get_loaded() PREINIT: GList *l; PPCODE: for (l = gaim_plugins_get_loaded(); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::PTR"))); } void gaim_plugins_get_protocols() PREINIT: GList *l; PPCODE: for (l = gaim_plugins_get_protocols(); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::PTR"))); } void gaim_plugins_init() void gaim_plugins_load_saved(key) const char *key void gaim_plugins_probe(ext) const char *ext void gaim_plugins_uninit() void gaim_plugins_unload_all()