From 4c3595e41c0e6955f667cbcfc43c0e9c3c99136e Mon Sep 17 00:00:00 2001 From: David Robillard Date: Wed, 23 Feb 2011 07:33:14 +0000 Subject: Support for wrapping Qt4 UIs for Gtk2 hosts and vice versa via modules. Qt4 in Gtk2 is tested working (Float in Ingen). Gtk2 in Qt4 is untested (and thus unlikely to work yet). git-svn-id: http://svn.drobilla.net/lad/trunk/suil@3016 a436a847-0d15-0410-975c-d299462d15a1 --- src/instance.c | 111 ++++++++++++++++++++++++++++++++++++++++++++++++--------- 1 file changed, 95 insertions(+), 16 deletions(-) (limited to 'src/instance.c') diff --git a/src/instance.c b/src/instance.c index 74d0948..a56a11f 100644 --- a/src/instance.c +++ b/src/instance.c @@ -25,14 +25,78 @@ #include +#include "suil-config.h" #include "suil_internal.h" +#define NS_UI "http://lv2plug.in/ns/extensions/ui#" +#define GTK2_UI_URI NS_UI "GtkUI" +#define QT4_UI_URI NS_UI "Qt4UI" + SUIL_API bool suil_ui_type_supported(const char* host_type_uri, const char* ui_type_uri) { - return !strcmp(ui_type_uri, "http://lv2plug.in/ns/extensions/ui#GtkUI"); + return (!strcmp(host_type_uri, GTK2_UI_URI) + || !strcmp(host_type_uri, QT4_UI_URI)) + && (!strcmp(ui_type_uri, GTK2_UI_URI) + || !strcmp(ui_type_uri, QT4_UI_URI)); +} + +struct _SuilModule { + SuilWrapInitFunc init; + SuilWrapFunc wrap; +}; + +typedef struct _SuilModule* SuilModule; + +static SuilModule +get_wrap_module(const char* host_type_uri, + const char* ui_type_uri) +{ + if (!strcmp(host_type_uri, ui_type_uri)) { + return NULL; + } + + const char* module_name = NULL; + if (!strcmp(host_type_uri, QT4_UI_URI) + && !strcmp(ui_type_uri, GTK2_UI_URI)) { + module_name = "libsuil_gtk2_in_qt4"; + } else if (!strcmp(host_type_uri, GTK2_UI_URI) + && !strcmp(ui_type_uri, QT4_UI_URI)) { + module_name = "libsuil_qt4_in_gtk2"; + } + + if (!module_name) { + SUIL_ERRORF("Unable to wrap UI type <%s> as type <%s>\n", + ui_type_uri, host_type_uri); + return NULL; + } + + const size_t path_len = strlen(SUIL_MODULE_DIR) + + strlen(module_name) + + strlen(SUIL_MODULE_EXT) + + 2; + + char* const path = calloc(path_len, 1); + snprintf(path, path_len, "%s%s%s%s", + SUIL_MODULE_DIR, SUIL_DIR_SEP, module_name, SUIL_MODULE_EXT); + + // Open wrap module + dlerror(); + void* lib = dlopen(path, RTLD_NOW); + if (!lib) { + SUIL_ERRORF("Unable to open wrap module %s\n", path); + return NULL; + } + + SuilModule module = (SuilModule)malloc(sizeof(struct _SuilModule)); + module->init = (SuilWrapInitFunc)suil_dlfunc(lib, "suil_wrap_init"); + module->wrap = (SuilWrapFunc)suil_dlfunc(lib, "suil_wrap"); + + free(path); + + return module; } SUIL_API @@ -92,30 +156,33 @@ suil_instance_new(SuilUIs uis, return NULL; } - // Create empty local features array if necessary - const bool local_features = (features == NULL); - if (local_features) { - features = malloc(sizeof(LV2_Feature)); - ((LV2_Feature**)features)[0] = NULL; + // Use empty local features array if necessary + const LV2_Feature* local_features[1]; + local_features[0] = NULL; + if (!features) { + features = (const LV2_Feature* const*)&local_features; + } + + SuilModule module = get_wrap_module(type_uri, ui->type_uri); + if (module) { + module->init(type_uri, ui->type_uri, features); } // Instantiate UI struct _SuilInstance* instance = malloc(sizeof(struct _SuilInstance)); - instance->lib_handle = lib; - instance->descriptor = descriptor; - instance->handle = descriptor->instantiate( + instance->lib_handle = lib; + instance->descriptor = descriptor; + instance->host_widget = NULL; + instance->ui_widget = NULL; + instance->handle = descriptor->instantiate( descriptor, uis->plugin_uri, ui->bundle_path, write_function, controller, - &instance->widget, + &instance->ui_widget, features); - if (local_features) { - free((LV2_Feature**)features); - } - // Failed to find or instantiate UI if (!instance || !instance->handle) { SUIL_ERRORF("Failed to instantiate UI <%s> in %s\n", @@ -126,13 +193,25 @@ suil_instance_new(SuilUIs uis, } // Got a handle, but failed to create a widget (buggy UI) - if (!instance->widget) { + if (!instance->ui_widget) { SUIL_ERRORF("Widget creation failed for UI <%s> in %s\n", ui->uri, ui->binary_path); suil_instance_free(instance); return NULL; } + if (module) { + if (module->wrap(type_uri, ui->type_uri, instance)) { + SUIL_ERRORF("Failed to wrap UI <%s> in type <%s>\n", + ui->uri, type_uri); + suil_instance_free(instance); + return NULL; + } + } else { + instance->host_widget = instance->ui_widget; + } + + return instance; } @@ -151,7 +230,7 @@ SUIL_API LV2UI_Widget suil_instance_get_widget(SuilInstance instance) { - return instance->widget; + return instance->host_widget; } SUIL_API -- cgit v1.2.1