static int dt_imageio_load_module_format(dt_imageio_module_format_t *module, const char *libname,
const char *plugin_name)
{
module->widget = NULL;
module->parameter_lua_type = LUAA_INVALID_TYPE;
g_strlcpy(module->plugin_name, plugin_name, sizeof(module->plugin_name));
dt_print(DT_DEBUG_CONTROL, "[imageio_load_module] loading format module `%s' from %s\n", plugin_name, libname);
module->module = g_module_open(libname, G_MODULE_BIND_LAZY | G_MODULE_BIND_LOCAL);
if(!module->module) goto error;
int (*version)();
if(!g_module_symbol(module->module, "dt_module_dt_version", (gpointer) & (version))) goto error;
if(version() != dt_version())
{
fprintf(
stderr,
"[imageio_load_module] `%s' is compiled for another version of dt (module %d (%s) != dt %d (%s)) !\n",
libname, abs(version()), version() < 0 ? "debug" : "opt", abs(dt_version()),
dt_version() < 0 ? "debug" : "opt");
goto error;
}
if(!g_module_symbol(module->module, "dt_module_mod_version", (gpointer) & (module->version))) goto error;
if(!g_module_symbol(module->module, "name", (gpointer) & (module->name))) goto error;
if(!g_module_symbol(module->module, "init", (gpointer) & (module->init))) goto error;
if(!g_module_symbol(module->module, "cleanup", (gpointer) & (module->cleanup))) goto error;
if(!g_module_symbol(module->module, "gui_reset", (gpointer) & (module->gui_reset))) goto error;
if(darktable.gui)
{
if(!g_module_symbol(module->module, "gui_init", (gpointer) & (module->gui_init))) goto error;
}
else
{
module->gui_init = _default_format_gui_init;
}
if(!g_module_symbol(module->module, "gui_cleanup", (gpointer) & (module->gui_cleanup))) goto error;
if(!g_module_symbol(module->module, "mime", (gpointer) & (module->mime))) goto error;
if(!g_module_symbol(module->module, "extension", (gpointer) & (module->extension))) goto error;
if(!g_module_symbol(module->module, "dimension", (gpointer) & (module->dimension)))
module->dimension = _default_format_dimension;
if(!g_module_symbol(module->module, "legacy_params", (gpointer) & (module->legacy_params)))
module->legacy_params = NULL;
if(!g_module_symbol(module->module, "params_size", (gpointer) & (module->params_size))) goto error;
if(!g_module_symbol(module->module, "get_params", (gpointer) & (module->get_params))) goto error;
if(!g_module_symbol(module->module, "free_params", (gpointer) & (module->free_params))) goto error;
if(!g_module_symbol(module->module, "set_params", (gpointer) & (module->set_params))) goto error;
if(!g_module_symbol(module->module, "write_image", (gpointer) & (module->write_image))) goto error;
if(!g_module_symbol(module->module, "bpp", (gpointer) & (module->bpp))) goto error;
if(!g_module_symbol(module->module, "flags", (gpointer) & (module->flags)))
module->flags = _default_format_flags;
if(!g_module_symbol(module->module, "levels", (gpointer) & (module->levels)))
module->levels = _default_format_levels;
if(!g_module_symbol(module->module, "read_image", (gpointer) & (module->read_image)))
module->read_image = NULL;
#ifdef USE_LUA
{
char pseudo_type_name[1024];
snprintf(pseudo_type_name, sizeof(pseudo_type_name), "dt_imageio_module_format_data_%s",
module->plugin_name);
luaA_Type my_type
= luaA_type_add(darktable.lua_state.state, pseudo_type_name, module->params_size(module));
module->parameter_lua_type = dt_lua_init_type_type(darktable.lua_state.state, my_type);
luaA_struct_type(darktable.lua_state.state, my_type);
dt_lua_register_format_type(darktable.lua_state.state, module, my_type);
#endif
module->init(module);
#ifdef USE_LUA
lua_pushcfunction(darktable.lua_state.state, dt_lua_type_member_luaautoc);
dt_lua_type_register_struct_type(darktable.lua_state.state, my_type);
}
#endif
return 0;
error:
fprintf(stderr, "[imageio_load_module] failed to open format `%s': %s\n", plugin_name, g_module_error());
if(module->module) g_module_close(module->module);
return 1;
}
static int register_storage(lua_State *L)
{
lua_settop(L, 7);
lua_getfield(L, LUA_REGISTRYINDEX, "dt_lua_storages");
lua_newtable(L);
dt_imageio_module_storage_t *storage = malloc(sizeof(dt_imageio_module_storage_t));
memcpy(storage, &ref_storage, sizeof(dt_imageio_module_storage_t));
storage->gui_data = malloc(sizeof(lua_storage_gui_t));
lua_storage_gui_t *data = storage->gui_data;
const char *plugin_name = luaL_checkstring(L, 1);
lua_pushvalue(L, 1);
lua_setfield(L, -2, "plugin_name");
g_strlcpy(storage->plugin_name, plugin_name, sizeof(storage->plugin_name));
const char *name = luaL_checkstring(L, 2);
lua_pushvalue(L, 2);
lua_setfield(L, -2, "name");
data->name = strdup(name);
data->supported_formats = NULL;
data->widget = NULL;
if(!lua_isnoneornil(L, 3))
{
luaL_checktype(L, 3, LUA_TFUNCTION);
lua_pushvalue(L, 3);
lua_setfield(L, -2, "store");
}
if(lua_isnil(L, 4))
{
storage->finalize_store = NULL;
}
else
{
luaL_checktype(L, 4, LUA_TFUNCTION);
lua_pushvalue(L, 4);
lua_setfield(L, -2, "finalize_store");
}
if(!lua_isnoneornil(L, 5))
{
luaL_checktype(L, 5, LUA_TFUNCTION);
lua_pushvalue(L, 5);
lua_setfield(L, -2, "supported");
}
if(lua_isnil(L, 6))
{
storage->initialize_store = NULL;
}
else
{
luaL_checktype(L, 6, LUA_TFUNCTION);
lua_pushvalue(L, 6);
lua_setfield(L, -2, "initialize_store");
}
if(lua_isnil(L, 7))
{
storage->gui_init = empty_wrapper;
storage->gui_reset = empty_wrapper;
storage->gui_cleanup = empty_wrapper;
}
else
{
lua_widget widget;
luaA_to(L,lua_widget,&widget,7);
dt_lua_widget_bind(L,widget);
data->widget = widget;
}
lua_setfield(L, -2, plugin_name);
char tmp[1024];
snprintf(tmp, sizeof(tmp), "dt_imageio_module_data_pseudo_%s", storage->plugin_name);
luaA_Type type_id = luaA_type_add(L, tmp, storage->params_size(storage));
storage->parameter_lua_type = dt_lua_init_type_type(darktable.lua_state.state, type_id);
luaA_struct_type(darktable.lua_state.state, type_id);
dt_lua_register_storage_type(darktable.lua_state.state, storage, type_id);
GList *it = darktable.imageio->plugins_format;
if(!lua_isnoneornil(L, 5))
{
while(it)
{
lua_pushvalue(L, 5);
dt_imageio_module_format_t *format = (dt_imageio_module_format_t *)it->data;
dt_imageio_module_data_t *sdata = storage->get_params(storage);
dt_imageio_module_data_t *fdata = format->get_params(format);
luaA_push_type(L, storage->parameter_lua_type, sdata);
luaA_push_type(L, format->parameter_lua_type, fdata);
format->free_params(format, fdata);
storage->free_params(storage, sdata);
dt_lua_treated_pcall(L,2,1);
int result = lua_toboolean(L, -1);
lua_pop(L, 1);
if(result)
{
data->supported_formats = g_list_prepend(data->supported_formats, format);
}
it = g_list_next(it);
}
}
else
{
// all formats are supported
while(it)
{
dt_imageio_module_format_t *format = (dt_imageio_module_format_t *)it->data;
data->supported_formats = g_list_prepend(data->supported_formats, format);
it = g_list_next(it);
}
}
storage->gui_init(storage);
if(storage->widget) g_object_ref(storage->widget);
dt_imageio_insert_storage(storage);
return 0;
}
static int
dt_imageio_load_module_storage (dt_imageio_module_storage_t *module, const char *libname, const char *plugin_name)
{
module->widget = NULL;
module->parameter_lua_type = LUAA_INVALID_TYPE;
g_strlcpy(module->plugin_name, plugin_name, sizeof(module->plugin_name));
module->module = g_module_open(libname, G_MODULE_BIND_LAZY);
if(!module->module) goto error;
int (*version)();
if(!g_module_symbol(module->module, "dt_module_dt_version", (gpointer)&(version))) goto error;
if(version() != dt_version())
{
fprintf(stderr, "[imageio_load_module] `%s' is compiled for another version of dt (module %d (%s) != dt %d (%s)) !\n", libname, abs(version()), version() < 0 ? "debug" : "opt", abs(dt_version()), dt_version() < 0 ? "debug" : "opt");
goto error;
}
if(!g_module_symbol(module->module, "name", (gpointer)&(module->name))) goto error;
if(!g_module_symbol(module->module, "gui_reset", (gpointer)&(module->gui_reset))) goto error;
if(darktable.gui)
{
if(!g_module_symbol(module->module, "gui_init", (gpointer)&(module->gui_init))) goto error;
}
else
{
module->gui_init = _default_storage_nop;
}
if(!g_module_symbol(module->module, "gui_cleanup", (gpointer)&(module->gui_cleanup))) goto error;
if(!g_module_symbol(module->module, "init", (gpointer)&(module->init))) goto error;
if(!g_module_symbol(module->module, "store", (gpointer)&(module->store))) goto error;
if(!g_module_symbol(module->module, "params_size", (gpointer)&(module->params_size))) goto error;
if(!g_module_symbol(module->module, "get_params", (gpointer)&(module->get_params))) goto error;
if(!g_module_symbol(module->module, "free_params", (gpointer)&(module->free_params))) goto error;
if(!g_module_symbol(module->module, "initialize_store", (gpointer)&(module->initialize_store))) module->initialize_store = NULL;
if(!g_module_symbol(module->module, "finalize_store", (gpointer)&(module->finalize_store))) module->finalize_store = NULL;
if(!g_module_symbol(module->module, "set_params", (gpointer)&(module->set_params))) goto error;
if(!g_module_symbol(module->module, "supported", (gpointer)&(module->supported))) module->supported = _default_supported;
if(!g_module_symbol(module->module, "dimension", (gpointer)&(module->dimension))) module->dimension = _default_storage_dimension;
if(!g_module_symbol(module->module, "recommended_dimension", (gpointer)&(module->recommended_dimension))) module->recommended_dimension = _default_storage_dimension;
if(!g_module_symbol(module->module, "export_dispatched", (gpointer)&(module->export_dispatched))) module->export_dispatched = _default_storage_nop;
#ifdef USE_LUA
{
char pseudo_type_name[1024];
snprintf(pseudo_type_name,sizeof(pseudo_type_name),"dt_imageio_module_storage_data_%s",module->plugin_name);
luaA_Type my_type = luaA_type_add(darktable.lua_state.state,pseudo_type_name,module->params_size(module));
module->parameter_lua_type = dt_lua_init_type_type(darktable.lua_state.state,my_type);
luaA_struct_type(darktable.lua_state.state,my_type);
dt_lua_register_storage_type(darktable.lua_state.state,module,my_type);
#endif
module->init(module);
#ifdef USE_LUA
lua_pushcfunction(darktable.lua_state.state,dt_lua_type_member_luaautoc);
dt_lua_type_register_struct_type(darktable.lua_state.state,my_type);
}
#endif
return 0;
error:
fprintf(stderr, "[imageio_load_module] failed to open storage `%s': %s\n", plugin_name, g_module_error());
if(module->module) g_module_close(module->module);
return 1;
}
