static void finalize_store_wrapper(struct dt_imageio_module_storage_t *self, dt_imageio_module_data_t *data)
{
dt_lua_lock();
lua_State *L = darktable.lua_state.state;
lua_getfield(L, LUA_REGISTRYINDEX, "dt_lua_storages");
lua_getfield(L, -1, self->plugin_name);
lua_getfield(L, -1, "finalize_store");
if(lua_isnil(L, -1))
{
lua_pop(L, 3);
dt_lua_unlock();
return;
}
luaA_push_type(L, self->parameter_lua_type, data);
lua_storage_t *d = (lua_storage_t *)data;
push_lua_data(L,d);
dt_lua_goto_subtable(L,"files");
push_lua_data(L,d);
dt_lua_goto_subtable(L,"extra");
dt_lua_treated_pcall(L,3,0);
lua_pop(L, 2);
dt_lua_unlock();
}
void dt_lua_init(lua_State*L,const char *lua_command)
{
/*
Note to reviewers
this is the only place where lua code is run without the lua lock.
At this point, no user script has been called,
so we are completely thread-safe. no need to lock
This is also the only place where lua code is run with the gdk lock
held, but this is not a problem because it is very brief, user calls
are delegated to a secondary job
*/
char tmp_path[PATH_MAX];
// init the lua environment
lua_CFunction* cur_type = init_funcs;
while(*cur_type)
{
(*cur_type)(L);
cur_type++;
}
// build the table containing the configuration info
lua_getglobal(L,"package");
dt_lua_goto_subtable(L,"loaded");
lua_pushstring(L,"darktable");
dt_lua_push_darktable_lib(L);
lua_settable(L,-3);
lua_pop(L,1);
lua_getglobal(L,"package");
lua_getfield(L,-1,"path");
lua_pushstring(L,";");
dt_loc_get_datadir(tmp_path, sizeof(tmp_path));
lua_pushstring(L,tmp_path);
lua_pushstring(L,"/lua/?.lua");
lua_pushstring(L,";");
dt_loc_get_user_config_dir(tmp_path, sizeof(tmp_path));
lua_pushstring(L,tmp_path);
lua_pushstring(L,"/lua/?.lua");
lua_concat(L,7);
lua_setfield(L,-2,"path");
lua_pop(L,1);
dt_job_t *job = dt_control_job_create(&run_early_script, "lua: run initial script");
dt_control_job_set_params(job, g_strdup(lua_command));
if(darktable.gui)
{
dt_control_add_job(darktable.control, DT_JOB_QUEUE_USER_BG, job);
}
else
{
run_early_script(job);
dt_control_job_dispose(job);
}
}
void dt_lua_register_storage_typeid(lua_State* L, dt_imageio_module_storage_t* module, luaA_Type type_id)
{
dt_lua_register_type_callback_list_typeid(L,type_id,storage_index,NULL,storage_fields_name);
luaL_getmetatable(L,luaA_type_name(type_id));
lua_pushlightuserdata(L,module);
lua_setfield(L,-2,"__associated_object");
lua_pushstring(L,"storage");
lua_setfield(L,-2,"__module_type");
lua_pop(L,1); // pop the metatable
// add to the table
dt_lua_push_darktable_lib(L);
dt_lua_goto_subtable(L,"modules");
dt_lua_goto_subtable(L,"storage");
lua_getmetatable(L,-1);
lua_getfield(L,-1,"__luaA_Type");
luaA_Type storage_table_type = luaL_checkint(L,-1);
dt_lua_register_type_callback_typeid(L,storage_table_type,get_storage_params,NULL,module->plugin_name,NULL);
lua_pop(L,3);
};
void dt_lua_init(lua_State *L, const char *lua_command)
{
char tmp_path[PATH_MAX] = { 0 };
// init the lua environment
lua_CFunction *cur_type = init_funcs;
while(*cur_type)
{
(*cur_type)(L);
cur_type++;
}
assert(lua_gettop(L)
== 0); // if you are here, you have probably added an initialisation function that is not stack clean
// build the table containing the configuration info
lua_getglobal(L, "package");
dt_lua_goto_subtable(L, "loaded");
lua_pushstring(L, "darktable");
dt_lua_push_darktable_lib(L);
lua_settable(L, -3);
lua_pop(L, 1);
lua_getglobal(L, "package");
lua_getfield(L, -1, "path");
lua_pushstring(L, ";");
dt_loc_get_datadir(tmp_path, sizeof(tmp_path));
lua_pushstring(L, tmp_path);
lua_pushstring(L, "/lua/?.lua");
lua_pushstring(L, ";");
dt_loc_get_user_config_dir(tmp_path, sizeof(tmp_path));
lua_pushstring(L, tmp_path);
lua_pushstring(L, "/lua/?.lua");
lua_concat(L, 7);
lua_setfield(L, -2, "path");
lua_pop(L, 1);
lua_pushcfunction(L,run_early_script);
lua_pushstring(L,lua_command);
if(darktable.gui)
{
dt_lua_do_chunk_later(L,1);
}
else
{
dt_lua_do_chunk_silent(L,1,0);
}
// allow other threads to wake up and do their job
dt_lua_unlock();
}
void dt_lua_init(lua_State*L,const int init_gui)
{
char tmp_path[PATH_MAX];
// init the lua environment
lua_CFunction* cur_type = init_funcs;
while(*cur_type)
{
(*cur_type)(L);
cur_type++;
}
dt_lua_push_darktable_lib(L);
// build the table containing the configuration info
lua_getglobal(L,"package");
dt_lua_goto_subtable(L,"loaded");
lua_pushstring(L,"darktable");
dt_lua_push_darktable_lib(L);
lua_settable(L,-3);
lua_pop(L,1);
lua_getglobal(L,"package");
lua_getfield(L,-1,"path");
lua_pushstring(L,";");
dt_loc_get_datadir(tmp_path, PATH_MAX);
lua_pushstring(L,tmp_path);
lua_pushstring(L,"/lua/?.lua");
lua_pushstring(L,";");
dt_loc_get_user_config_dir(tmp_path, PATH_MAX);
lua_pushstring(L,tmp_path);
lua_pushstring(L,"/lua/?.lua");
lua_concat(L,7);
lua_setfield(L,-2,"path");
lua_pop(L,1);
if(init_gui)
{
// run global init script
dt_loc_get_datadir(tmp_path, PATH_MAX);
g_strlcat(tmp_path,"/rc.lua",PATH_MAX);
dt_lua_dofile(darktable.lua_state,tmp_path);
// run user init script
dt_loc_get_user_config_dir(tmp_path, PATH_MAX);
g_strlcat(tmp_path,"/rc.lua",PATH_MAX);
dt_lua_dofile(darktable.lua_state,tmp_path);
}
}
int dt_lua_init_modules(lua_State *L)
{
dt_lua_push_darktable_lib(L);
dt_lua_goto_subtable(L,"modules");
dt_lua_init_singleton(L,"format_table");
lua_setfield(L,-2,"format");
dt_lua_init_singleton(L,"module_table");
lua_setfield(L,-2,"storage");
lua_pop(L,1);
return 0;
}
int dt_lua_init_preferences(lua_State * L)
{
dt_lua_push_darktable_lib(L);
dt_lua_goto_subtable(L,"preferences");
lua_pushcfunction(L,register_pref);
lua_setfield(L,-2,"register");
lua_pushcfunction(L,read_pref);
lua_setfield(L,-2,"read");
lua_pushcfunction(L,write_pref);
lua_setfield(L,-2,"write");
lua_pop(L,1);
return 0;
}
int dt_lua_init_configuration(lua_State*L){
char tmp_path[PATH_MAX];
dt_lua_push_darktable_lib(L);
dt_lua_goto_subtable(L,"configuration");
// build the table containing the configuration info
lua_pushstring(L,"tmp_dir");
dt_loc_get_tmp_dir(tmp_path, PATH_MAX);
lua_pushstring(L,tmp_path);
lua_settable(L,-3);
lua_pushstring(L,"config_dir");
dt_loc_get_user_config_dir(tmp_path, PATH_MAX);
lua_pushstring(L,tmp_path);
lua_settable(L,-3);
lua_pushstring(L,"cache_dir");
dt_loc_get_user_cache_dir(tmp_path, PATH_MAX);
lua_pushstring(L,tmp_path);
lua_settable(L,-3);
lua_pushstring(L,"version");
lua_pushstring(darktable.lua_state,PACKAGE_VERSION);
lua_settable(L,-3);
lua_pushstring(L,"verbose");
lua_pushboolean(L,darktable.unmuted & DT_DEBUG_LUA);
lua_settable(L,-3);
lua_pushstring(L,"has_gui");
lua_pushboolean(L,darktable.gui != NULL);
lua_settable(L,-3);
lua_pop(L,-1); //remove the configuration table from the stack
return 0;
}
int dt_lua_init_gettext(lua_State *L)
{
dt_lua_push_darktable_lib(L);
dt_lua_goto_subtable(L,"gettext");
lua_pushcfunction(L,lua_gettext);
lua_setfield(L,-2,"gettext");
lua_pushcfunction(L,lua_dgettext);
lua_setfield(L,-2,"dgettext");
//lua_pushcfunction(L,lua_dcgettext);
//lua_setfield(L,-2,"dcgettext");
lua_pushcfunction(L,lua_ngettext);
lua_setfield(L,-2,"ngettext");
lua_pushcfunction(L,lua_dngettext);
lua_setfield(L,-2,"dngettext");
//lua_pushcfunction(L,lua_dcngettext);
//lua_setfield(L,-2,"dcngettext");
lua_pushcfunction(L,lua_bindtextdomain);
lua_setfield(L,-2,"bindtextdomain");
lua_pop(L,1);
return 0;
}
int dt_lua_init_configuration(lua_State*L)
{
char tmp_path[PATH_MAX];
dt_lua_push_darktable_lib(L);
dt_lua_goto_subtable(L,"configuration");
// build the table containing the configuration info
lua_pushstring(L,"tmp_dir");
dt_loc_get_tmp_dir(tmp_path, PATH_MAX);
lua_pushstring(L,tmp_path);
lua_settable(L,-3);
lua_pushstring(L,"config_dir");
dt_loc_get_user_config_dir(tmp_path, PATH_MAX);
lua_pushstring(L,tmp_path);
lua_settable(L,-3);
lua_pushstring(L,"cache_dir");
dt_loc_get_user_cache_dir(tmp_path, PATH_MAX);
lua_pushstring(L,tmp_path);
lua_settable(L,-3);
lua_pushstring(L,"version");
lua_pushstring(L,PACKAGE_VERSION);
lua_settable(L,-3);
lua_pushstring(L,"verbose");
lua_pushboolean(L,darktable.unmuted & DT_DEBUG_LUA);
lua_settable(L,-3);
lua_pushstring(L,"has_gui");
lua_pushboolean(L,darktable.gui != NULL);
lua_settable(L,-3);
lua_pushstring(L,"api_version_major");
lua_pushnumber(L,API_VERSION_MAJOR);
lua_settable(L,-3);
lua_pushstring(L,"api_version_minor");
lua_pushnumber(L,API_VERSION_MINOR);
lua_settable(L,-3);
lua_pushstring(L,"api_version_patch");
lua_pushnumber(L,API_VERSION_PATCH);
lua_settable(L,-3);
lua_pushstring(L,"api_version_suffix");
lua_pushstring(L,API_VERSION_SUFFIX);
lua_settable(L,-3);
lua_pushstring(L,"api_version_string");
if (strcmp(API_VERSION_SUFFIX, "") == 0) {
lua_pushfstring(L,"%d.%d.%d",API_VERSION_MAJOR,API_VERSION_MINOR,API_VERSION_PATCH);
} else {
lua_pushfstring(L,"%d.%d.%d-%s",API_VERSION_MAJOR,API_VERSION_MINOR,API_VERSION_PATCH,API_VERSION_SUFFIX);
}
lua_settable(L,-3);
lua_pop(L,1); //remove the configuration table from the stack
return 0;
}
static int store_wrapper(struct dt_imageio_module_storage_t *self, struct dt_imageio_module_data_t *self_data,
const int imgid, dt_imageio_module_format_t *format, dt_imageio_module_data_t *fdata,
const int num, const int total, const gboolean high_quality, const gboolean upscale)
{
/* construct a temporary file name */
char tmpdir[PATH_MAX] = { 0 };
gboolean from_cache = FALSE;
dt_loc_get_tmp_dir(tmpdir, sizeof(tmpdir));
char dirname[PATH_MAX] = { 0 };
dt_image_full_path(imgid, dirname, sizeof(dirname), &from_cache);
dt_image_path_append_version(imgid, dirname, sizeof(dirname));
gchar *filename = g_path_get_basename(dirname);
gchar *end = g_strrstr(filename, ".") + 1;
g_strlcpy(end, format->extension(fdata), sizeof(dirname) - (end - dirname));
gchar *complete_name = g_build_filename(tmpdir, filename, (char *)NULL);
if(dt_imageio_export(imgid, complete_name, format, fdata, high_quality, upscale, FALSE, self, self_data, num, total) != 0)
{
fprintf(stderr, "[%s] could not export to file: `%s'!\n", self->name(self), complete_name);
g_free(complete_name);
g_free(filename);
return 1;
}
lua_storage_t *d = (lua_storage_t *)self_data;
dt_lua_lock();
lua_State *L = darktable.lua_state.state;
push_lua_data(L,d);
dt_lua_goto_subtable(L,"files");
luaA_push(L, dt_lua_image_t, &(imgid));
lua_pushstring(L, complete_name);
lua_settable(L, -3);
lua_pop(L,1);
lua_getfield(L, LUA_REGISTRYINDEX, "dt_lua_storages");
lua_getfield(L, -1, self->plugin_name);
lua_getfield(L, -1, "store");
if(lua_isnil(L, -1))
{
lua_pop(L, 3);
dt_lua_unlock();
g_free(filename);
return 0;
}
luaA_push_type(L, self->parameter_lua_type, self_data);
luaA_push(L, dt_lua_image_t, &imgid);
luaA_push_type(L, format->parameter_lua_type, fdata);
lua_pushstring(L, complete_name);
lua_pushnumber(L, num);
lua_pushnumber(L, total);
lua_pushboolean(L, high_quality);
push_lua_data(L,d);
dt_lua_goto_subtable(L,"extra");
dt_lua_treated_pcall(L,8,0);
lua_pop(L, 2);
dt_lua_unlock();
g_free(filename);
return false;
}
// FIXME: return 0 on success and 1 on error!
static int initialize_store_wrapper(struct dt_imageio_module_storage_t *self, dt_imageio_module_data_t *data,
dt_imageio_module_format_t **format, dt_imageio_module_data_t **fdata,
GList **images, const gboolean high_quality, const gboolean upscale)
{
dt_lua_lock();
lua_State *L = darktable.lua_state.state;
lua_getfield(L, LUA_REGISTRYINDEX, "dt_lua_storages");
lua_getfield(L, -1, self->plugin_name);
lua_getfield(L, -1, "initialize_store");
if(lua_isnil(L, -1))
{
lua_pop(L, 3);
dt_lua_unlock();
return 1;
}
luaA_push_type(L, self->parameter_lua_type, data);
luaA_push_type(L, (*format)->parameter_lua_type, *fdata);
GList *imgids = *images;
lua_newtable(L);
while(imgids)
{
luaA_push(L, dt_lua_image_t, &(imgids->data));
luaL_ref(L, -2);
imgids = g_list_next(imgids);
}
lua_pushboolean(L, high_quality);
lua_storage_t *d = (lua_storage_t *)data;
push_lua_data(L,d);
dt_lua_goto_subtable(L,"extra");
dt_lua_treated_pcall(L,5,1);
if(!lua_isnoneornil(L, -1))
{
g_list_free(*images);
if(lua_type(L,-1) != LUA_TTABLE)
{
dt_print(DT_DEBUG_LUA, "LUA ERROR initialization function of storage did not return nil or table\n");
dt_lua_unlock();
return 1;
}
GList *new_images = NULL;
lua_pushnil(L);
while(lua_next(L, -2))
{
dt_lua_image_t imgid;
luaA_to(L, dt_lua_image_t, &imgid, -1);
new_images = g_list_prepend(new_images, GINT_TO_POINTER(imgid));
lua_pop(L, 1);
}
new_images = g_list_reverse(new_images);
*images = new_images;
}
lua_pop(L, 3);
dt_lua_unlock();
return 0;
}
int dt_lua_init_configuration(lua_State *L)
{
char tmp_path[PATH_MAX] = { 0 };
dt_lua_push_darktable_lib(L);
dt_lua_goto_subtable(L, "configuration");
// build the table containing the configuration info
lua_pushstring(L, "tmp_dir");
dt_loc_get_tmp_dir(tmp_path, sizeof(tmp_path));
lua_pushstring(L, tmp_path);
lua_settable(L, -3);
lua_pushstring(L, "config_dir");
dt_loc_get_user_config_dir(tmp_path, sizeof(tmp_path));
lua_pushstring(L, tmp_path);
lua_settable(L, -3);
lua_pushstring(L, "cache_dir");
dt_loc_get_user_cache_dir(tmp_path, sizeof(tmp_path));
lua_pushstring(L, tmp_path);
lua_settable(L, -3);
lua_pushstring(L, "version");
lua_pushstring(L, darktable_package_version);
lua_settable(L, -3);
lua_pushstring(L, "verbose");
lua_pushboolean(L, darktable.unmuted & DT_DEBUG_LUA);
lua_settable(L, -3);
lua_pushstring(L, "has_gui");
lua_pushboolean(L, darktable.gui != NULL);
lua_settable(L, -3);
lua_pushstring(L, "api_version_major");
lua_pushinteger(L, LUA_API_VERSION_MAJOR);
lua_settable(L, -3);
lua_pushstring(L, "api_version_minor");
lua_pushinteger(L, LUA_API_VERSION_MINOR);
lua_settable(L, -3);
lua_pushstring(L, "api_version_patch");
lua_pushinteger(L, LUA_API_VERSION_PATCH);
lua_settable(L, -3);
lua_pushstring(L, "api_version_suffix");
lua_pushstring(L, LUA_API_VERSION_SUFFIX);
lua_settable(L, -3);
lua_pushstring(L, "api_version_string");
if(LUA_API_VERSION_SUFFIX[0] == '\0')
{
lua_pushfstring(L, "%d.%d.%d", LUA_API_VERSION_MAJOR, LUA_API_VERSION_MINOR, LUA_API_VERSION_PATCH);
}
else
{
lua_pushfstring(L, "%d.%d.%d-%s", LUA_API_VERSION_MAJOR, LUA_API_VERSION_MINOR, LUA_API_VERSION_PATCH,
LUA_API_VERSION_SUFFIX);
}
lua_settable(L, -3);
lua_pushstring(L, "check_version");
lua_pushcfunction(L, check_version);
lua_settable(L, -3);
luaA_enum(L, lua_os_type);
luaA_enum_value_name(L, lua_os_type, os_windows, "windows");
luaA_enum_value_name(L, lua_os_type, os_macos, "macos");
luaA_enum_value_name(L, lua_os_type, os_linux, "linux");
luaA_enum_value_name(L, lua_os_type, os_unix, "unix");
lua_pushstring(L, "running_os");
luaA_push(L, lua_os_type, &cur_os);
lua_settable(L, -3);
lua_pop(L, 1); // remove the configuration table from the stack
return 0;
}
