plugins/perl/common/Plugin.xs

Fri, 29 Jul 2005 13:38:00 +0000

author
John H. Kelm <johnkelm@gmail.com>
date
Fri, 29 Jul 2005 13:38:00 +0000
changeset 11170
d8941580d87f
parent 11118
36db35a9da56
child 11290
136722ebf145
permissions
-rw-r--r--

[gaim-migrate @ 13271]
Fixed some bugs and made some additions to the XSUBS. Added some of my test scripts which are incomplete, but mostly functional. GaimPluginPrefs and GaimGtkPluginPrefs--using evals to do the Gtk widgets with gtk2-perl--work. Plugin actions can now be added, but only one for now.

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

mercurial