From b4a3d3cb49861ba70136e3fa58ab0c3e90cae8b3 Mon Sep 17 00:00:00 2001 From: Not Zed Date: Wed, 25 May 2005 10:51:00 +0000 Subject: implement the mono loader as a plugin itself. 2005-05-25 Not Zed * mono-plugin.c: implement the mono loader as a plugin itself. svn path=/trunk/; revision=29411 --- plugins/mono/ChangeLog | 4 + plugins/mono/Makefile.am | 16 ++ plugins/mono/mono-plugin.c | 200 ++++++++++++++++++++++++ plugins/mono/mono-plugin.h | 28 ++++ plugins/mono/org-gnome-evolution-mono.eplug.xml | 16 ++ 5 files changed, 264 insertions(+) create mode 100644 plugins/mono/Makefile.am create mode 100644 plugins/mono/mono-plugin.c create mode 100644 plugins/mono/mono-plugin.h create mode 100644 plugins/mono/org-gnome-evolution-mono.eplug.xml (limited to 'plugins/mono') diff --git a/plugins/mono/ChangeLog b/plugins/mono/ChangeLog index 4a630d355d..11f7ce36ff 100644 --- a/plugins/mono/ChangeLog +++ b/plugins/mono/ChangeLog @@ -1,3 +1,7 @@ +2005-05-25 Not Zed + + * mono-plugin.c: implement the mono loader as a plugin itself. + 2005-05-17 Not Zed * Evolution.cs: added initial e_error wrapper. diff --git a/plugins/mono/Makefile.am b/plugins/mono/Makefile.am new file mode 100644 index 0000000000..6cb849c126 --- /dev/null +++ b/plugins/mono/Makefile.am @@ -0,0 +1,16 @@ +INCLUDES = \ + -I$(top_srcdir) \ + $(E_UTIL_CFLAGS) + +@EVO_PLUGIN_RULE@ + +plugin_DATA = org-gnome-evolution-mono.eplug +plugin_LTLIBRARIES = liborg-gnome-evolution-mono.la + +liborg_gnome_evolution_mono_la_SOURCES = mono-plugin.c +liborg_gnome_evolution_mono_la_LDFLAGS = -module -avoid-version + +EXTRA_DIST = org-gnome-evolution-mono.eplug.xml + +BUILT_SOURCES = $(plugin_DATA) +CLEANFILES = $(BUILT_SOURCES) diff --git a/plugins/mono/mono-plugin.c b/plugins/mono/mono-plugin.c new file mode 100644 index 0000000000..d09b8326b0 --- /dev/null +++ b/plugins/mono/mono-plugin.c @@ -0,0 +1,200 @@ + +#include +#include +#include + +#include "mono-plugin.h" + +#include +#include +#include +#include +#include + +#define d(x) + +static MonoDomain *domain; + +/* ********************************************************************** */ +static void *epm_parent_class; + +typedef struct _EPluginMonoPrivate { + MonoAssembly *assembly; + MonoClass *klass; + MonoObject *plugin; + GHashTable *methods; +} EPluginMonoPrivate; + +#define epm ((EPluginMono *)ep) + +static char * +get_xml_prop(xmlNodePtr node, const char *id) +{ + char *p = xmlGetProp(node, id); + char *out = NULL; + + if (p) { + out = g_strdup(p); + xmlFree(p); + } + + return out; +} + +/* + Two approaches: + You can have a Evolution.Plugin implementation which has every callback as methods on it. + Or you can just use static methods for everything. + + All methods take a single (structured) argument. +*/ + +static void * +epm_invoke(EPlugin *ep, const char *name, void *data) +{ + EPluginMonoPrivate *p = epm->priv; + MonoMethodDesc *d; + MonoMethod *m; + MonoObject *x = NULL, *res; + void **params; + + /* we need to do this every time since we may be called from any thread for some uses */ + mono_thread_attach(domain); + + if (p->assembly == NULL) { + p->assembly = mono_domain_assembly_open(domain, epm->location); + if (p->assembly == NULL) { + g_warning("can't load assembly '%s'", epm->location); + return NULL; + } + + if (epm->handler == NULL + || (p->klass = mono_class_from_name(mono_assembly_get_image(p->assembly), "", epm->handler)) == NULL) { + d(printf("Using static callbacks only")); + } else { + p->plugin = mono_object_new(domain, p->klass); + /* could conceivably init with some context too */ + mono_runtime_object_init(p->plugin); + } + } + + m = g_hash_table_lookup(p->methods, name); + if (m == NULL) { + if (p->klass) { + d(printf("looking up method '%s' in class\n", name)); + /* class method */ + d = mono_method_desc_new(name, FALSE); + if (d == NULL) { + g_warning("Can't create method descriptor for '%s'", name); + return NULL; + } + + m = mono_method_desc_search_in_class(d, p->klass); + if (m == NULL) { + g_warning("Can't find method callback '%s'", name); + return NULL; + } + } else { + d(printf("looking up static method '%s'\n", name)); + /* static method */ + d = mono_method_desc_new(name, FALSE); + if (d == NULL) { + g_warning("Can't create method descriptor for '%s'", name); + return NULL; + } + + m = mono_method_desc_search_in_image(d, mono_assembly_get_image(p->assembly)); + if (m == NULL) { + g_warning("Can't find method callback '%s'", name); + return NULL; + } + } + + g_hash_table_insert(p->methods, g_strdup(name), m); + } + + params = g_malloc0(sizeof(*params)*1); + params[0] = &data; + res = mono_runtime_invoke(m, p->plugin, params, &x); + /* do i need to free params?? */ + + if (x) + mono_print_unhandled_exception(x); + + if (res) { + void **p = mono_object_unbox(res); + d(printf("mono method returned '%p' %ld\n", *p, (long int)*p)); + return *p; + } else + return NULL; +} + +static int +epm_construct(EPlugin *ep, xmlNodePtr root) +{ + if (((EPluginClass *)epm_parent_class)->construct(ep, root) == -1) + return -1; + + epm->location = get_xml_prop(root, "location"); + epm->handler = get_xml_prop(root, "handler"); + + if (epm->location == NULL) + return -1; + + return 0; +} + +static void +epm_finalise(GObject *o) +{ + EPlugin *ep = (EPlugin *)o; + EPluginMonoPrivate *p = epm->priv; + + g_free(epm->location); + g_free(epm->handler); + + g_hash_table_foreach(p->methods, (GHFunc)g_free, NULL); + g_hash_table_destroy(p->methods); + + g_free(epm->priv); + + ((GObjectClass *)epm_parent_class)->finalize(o); +} + +static void +epm_class_init(EPluginClass *klass) +{ + ((GObjectClass *)klass)->finalize = epm_finalise; + klass->construct = epm_construct; + klass->invoke = epm_invoke; + klass->type = "mono"; +} + +static void +epm_init(GObject *o) +{ + EPlugin *ep = (EPlugin *)o; + + epm->priv = g_malloc0(sizeof(*epm->priv)); + epm->priv->methods = g_hash_table_new(g_str_hash, g_str_equal); +} + +void * +org_gnome_evolution_mono_get_type(void *a, void *b) +{ + static GType type = 0; + + if (!type) { + static const GTypeInfo info = { + sizeof(EPluginMonoClass), NULL, NULL, (GClassInitFunc) epm_class_init, NULL, NULL, + sizeof(EPluginMono), 0, (GInstanceInitFunc) epm_init, + }; + + epm_parent_class = g_type_class_ref(e_plugin_get_type()); + type = g_type_register_static(e_plugin_get_type(), "EPluginMono", &info, 0); + domain = mono_jit_init("Evolution"); + mono_thread_attach(domain); + } + + return GUINT_TO_POINTER(type); +} diff --git a/plugins/mono/mono-plugin.h b/plugins/mono/mono-plugin.h new file mode 100644 index 0000000000..76e459f743 --- /dev/null +++ b/plugins/mono/mono-plugin.h @@ -0,0 +1,28 @@ + +#ifndef _ORG_GNOME_EVOLUTION_MONO_H +#define _ORG_GNOME_EVOLUTION_MONO_H + +#include "e-util/e-plugin.h" + +/* ********************************************************************** */ +/* This is ALL private */ + +typedef struct _EPluginMono EPluginMono; +typedef struct _EPluginMonoClass EPluginMonoClass; + +struct _EPluginMono { + EPlugin plugin; + + struct _EPluginMonoPrivate *priv; + + char *location; /* location */ + char *handler; /* handler class */ +}; + +struct _EPluginMonoClass { + EPluginClass plugin_class; +}; + +void *org_gnome_evolution_mono_get_type(void *a, void *b); + +#endif /* ! _ORG_GNOME_EVOLUTION_MONO_H */ diff --git a/plugins/mono/org-gnome-evolution-mono.eplug.xml b/plugins/mono/org-gnome-evolution-mono.eplug.xml new file mode 100644 index 0000000000..cdd12fc307 --- /dev/null +++ b/plugins/mono/org-gnome-evolution-mono.eplug.xml @@ -0,0 +1,16 @@ + + + + <_description>A plugin which implements mono plugins. + + + + + + + + -- cgit v1.2.3