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

[gaim-migrate @ 13174] Some new xsubs for the perl interpreter and a work around to get it all working again. committer: Tailor Script <[e-mail]>

#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()