--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/libpurple/plugins/mono/loader/mono.c Sat Jan 20 02:32:10 2007 +0000
@@ -0,0 +1,235 @@
+/*
+ * Mono Plugin Loader
+ *
+ * -- Thanks to the perl plugin loader for all the great tips ;-)
+ *
+ * Eoin Coffey
+ */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include "internal.h"
+#include "debug.h"
+#include "plugin.h"
+#include "version.h"
+#include "mono-helper.h"
+
+#define MONO_PLUGIN_ID "core-mono"
+
+/******************************************************************************
+ * Loader Stuff
+ *****************************************************************************/
+/* probes the given plugin to determine if its a plugin */
+static gboolean probe_mono_plugin(GaimPlugin *plugin)
+{
+ MonoAssembly *assm;
+ MonoMethod *m = NULL;
+ MonoMethod *info_method = NULL;
+ MonoObject *plugin_info;
+ gboolean found_load = FALSE, found_unload = FALSE, found_destroy = FALSE, found_info = FALSE;
+ gpointer iter = NULL;
+
+ GaimPluginInfo *info;
+ GaimMonoPlugin *mplug;
+
+ char *file = plugin->path;
+
+ assm = mono_domain_assembly_open(ml_get_domain(), file);
+
+ if (!assm) {
+ return FALSE;
+ }
+
+ gaim_debug(GAIM_DEBUG_INFO, "mono", "Probing plugin\n");
+
+ if (ml_is_api_dll(mono_assembly_get_image(assm))) {
+ gaim_debug(GAIM_DEBUG_INFO, "mono", "Found our GaimAPI.dll\n");
+ return FALSE;
+ }
+
+ info = g_new0(GaimPluginInfo, 1);
+ mplug = g_new0(GaimMonoPlugin, 1);
+
+ mplug->signal_data = NULL;
+
+ mplug->assm = assm;
+
+ mplug->klass = ml_find_plugin_class(mono_assembly_get_image(mplug->assm));
+ if (!mplug->klass) {
+ gaim_debug(GAIM_DEBUG_ERROR, "mono", "no plugin class in \'%s\'\n", file);
+ return FALSE;
+ }
+
+ mplug->obj = mono_object_new(ml_get_domain(), mplug->klass);
+ if (!mplug->obj) {
+ gaim_debug(GAIM_DEBUG_ERROR, "mono", "obj not valid\n");
+ return FALSE;
+ }
+
+ mono_runtime_object_init(mplug->obj);
+
+ while ((m = mono_class_get_methods(mplug->klass, &iter))) {
+ if (strcmp(mono_method_get_name(m), "Load") == 0) {
+ mplug->load = m;
+ found_load = TRUE;
+ } else if (strcmp(mono_method_get_name(m), "Unload") == 0) {
+ mplug->unload = m;
+ found_unload = TRUE;
+ } else if (strcmp(mono_method_get_name(m), "Destroy") == 0) {
+ mplug->destroy = m;
+ found_destroy = TRUE;
+ } else if (strcmp(mono_method_get_name(m), "Info") == 0) {
+ info_method = m;
+ found_info = TRUE;
+ }
+ }
+
+ if (!(found_load && found_unload && found_destroy && found_info)) {
+ gaim_debug(GAIM_DEBUG_ERROR, "mono", "did not find the required methods\n");
+ return FALSE;
+ }
+
+ plugin_info = ml_invoke(info_method, mplug->obj, NULL);
+
+ /* now that the methods are filled out we can populate
+ the info struct with all the needed info */
+
+ info->name = ml_get_prop_string(plugin_info, "Name");
+ info->version = ml_get_prop_string(plugin_info, "Version");
+ info->summary = ml_get_prop_string(plugin_info, "Summary");
+ info->description = ml_get_prop_string(plugin_info, "Description");
+ info->author = ml_get_prop_string(plugin_info, "Author");
+ info->homepage = ml_get_prop_string(plugin_info, "Homepage");
+
+ info->magic = GAIM_PLUGIN_MAGIC;
+ info->major_version = GAIM_MAJOR_VERSION;
+ info->minor_version = GAIM_MINOR_VERSION;
+ info->type = GAIM_PLUGIN_STANDARD;
+
+ /* this plugin depends on us; duh */
+ info->dependencies = g_list_append(info->dependencies, MONO_PLUGIN_ID);
+ mplug->plugin = plugin;
+
+ plugin->info = info;
+ info->extra_info = mplug;
+
+ ml_add_plugin(mplug);
+
+ return gaim_plugin_register(plugin);
+}
+
+/* Loads a Mono Plugin by calling 'load' in the class */
+static gboolean load_mono_plugin(GaimPlugin *plugin)
+{
+ GaimMonoPlugin *mplug;
+
+ gaim_debug(GAIM_DEBUG_INFO, "mono", "Loading plugin\n");
+
+ mplug = (GaimMonoPlugin*)plugin->info->extra_info;
+
+ ml_invoke(mplug->load, mplug->obj, NULL);
+
+ return TRUE;
+}
+
+/* Unloads a Mono Plugin by calling 'unload' in the class */
+static gboolean unload_mono_plugin(GaimPlugin *plugin)
+{
+ GaimMonoPlugin *mplug;
+
+ gaim_debug(GAIM_DEBUG_INFO, "mono", "Unloading plugin\n");
+
+ mplug = (GaimMonoPlugin*)plugin->info->extra_info;
+
+ gaim_signals_disconnect_by_handle((gpointer)mplug->klass);
+ g_list_foreach(mplug->signal_data, (GFunc)g_free, NULL);
+ g_list_free(mplug->signal_data);
+ mplug->signal_data = NULL;
+
+ ml_invoke(mplug->unload, mplug->obj, NULL);
+
+ return TRUE;
+}
+
+static void destroy_mono_plugin(GaimPlugin *plugin)
+{
+ GaimMonoPlugin *mplug;
+
+ gaim_debug(GAIM_DEBUG_INFO, "mono", "Destroying plugin\n");
+
+ mplug = (GaimMonoPlugin*)plugin->info->extra_info;
+
+ ml_invoke(mplug->destroy, mplug->obj, NULL);
+
+ if (plugin->info) {
+ g_free(plugin->info->name);
+ g_free(plugin->info->version);
+ g_free(plugin->info->summary);
+ g_free(plugin->info->description);
+ g_free(plugin->info->author);
+ g_free(plugin->info->homepage);
+ }
+
+ if (mplug) {
+ if (mplug->assm) {
+ mono_assembly_close(mplug->assm);
+ }
+
+ g_free(mplug);
+ mplug = NULL;
+ }
+}
+
+/******************************************************************************
+ * Plugin Stuff
+ *****************************************************************************/
+static void plugin_destroy(GaimPlugin *plugin)
+{
+ ml_uninit();
+}
+
+static GaimPluginLoaderInfo loader_info =
+{
+ NULL,
+ probe_mono_plugin,
+ load_mono_plugin,
+ unload_mono_plugin,
+ destroy_mono_plugin
+};
+
+static GaimPluginInfo info =
+{
+ GAIM_PLUGIN_MAGIC,
+ GAIM_MAJOR_VERSION,
+ GAIM_MINOR_VERSION,
+ GAIM_PLUGIN_LOADER,
+ NULL,
+ 0,
+ NULL,
+ GAIM_PRIORITY_DEFAULT,
+ MONO_PLUGIN_ID,
+ N_("Mono Plugin Loader"),
+ VERSION,
+ N_("Loads .NET plugins with Mono."),
+ N_("Loads .NET plugins with Mono."),
+ "Eoin Coffey <ecoffey@simla.colostate.edu>",
+ GAIM_WEBSITE,
+ NULL,
+ NULL,
+ plugin_destroy,
+ NULL,
+ &loader_info,
+ NULL,
+ NULL
+};
+
+static void init_plugin(GaimPlugin *plugin)
+{
+ ml_init();
+
+ loader_info.exts = g_list_append(loader_info.exts, "dll");
+}
+
+GAIM_INIT_PLUGIN(mono, init_plugin, info)