AlderconeStudio/PIKApp
AlderconeStudio
/
PIKApp
0
0
Fork 0
Code Issues 1 Pull Requests Packages Projects Releases 1 Wiki Activity
PIKApp/app/plug-in/pikapluginmanager-restore.c

1037 lines
33 KiB
C
Raw Normal View History

Initial checkin of Pika from heckimp
2023-09-26 00:35:21 +02:00
/* PIKA - Photo and Image Kooker Application
* a rebranding of The GNU Image Manipulation Program (created with heckimp)
* A derived work which may be trivial. However, any changes may be (C)2023 by Aldercone Studio
*
* Original copyright, applying to most contents (license remains unchanged):
* Copyright (C) 1995-2002 Spencer Kimball, Peter Mattis, and others
*
* pikapluginmanager-restore.c
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <https://www.gnu.org/licenses/>.
*/
#include "config.h"
#include <string.h>
#include <gdk-pixbuf/gdk-pixbuf.h>
#include <gegl.h>
#include "libpikabase/pikabase.h"
#include "libpikaconfig/pikaconfig.h"
#include "plug-in-types.h"
#include "config/pikacoreconfig.h"
#include "core/pika.h"
#include "core/pika-utils.h"
#include "pdb/pikapdb.h"
#include "pdb/pikapdbcontext.h"
#include "pikainterpreterdb.h"
#include "pikaplugindef.h"
#include "pikapluginmanager.h"
#define __YES_I_NEED_PIKA_PLUG_IN_MANAGER_CALL__
#include "pikapluginmanager-call.h"
#include "pikapluginmanager-file.h"
#include "pikapluginmanager-help-domain.h"
#include "pikapluginmanager-restore.h"
#include "pikapluginprocedure.h"
#include "plug-in-rc.h"
#include "pika-intl.h"
static void pika_plug_in_manager_search (PikaPlugInManager *manager,
PikaInitStatusFunc status_callback);
static void pika_plug_in_manager_search_directory (PikaPlugInManager *manager,
GFile *directory);
static GFile * pika_plug_in_manager_get_pluginrc (PikaPlugInManager *manager);
static void pika_plug_in_manager_read_pluginrc (PikaPlugInManager *manager,
GFile *file,
PikaInitStatusFunc status_callback);
static void pika_plug_in_manager_query_new (PikaPlugInManager *manager,
PikaContext *context,
PikaInitStatusFunc status_callback);
static void pika_plug_in_manager_init_plug_ins (PikaPlugInManager *manager,
PikaContext *context,
PikaInitStatusFunc status_callback);
static void pika_plug_in_manager_run_extensions (PikaPlugInManager *manager,
PikaContext *context,
PikaInitStatusFunc status_callback);
static void pika_plug_in_manager_add_from_file (PikaPlugInManager *manager,
GFile *file,
guint64 mtime);
static void pika_plug_in_manager_add_from_rc (PikaPlugInManager *manager,
PikaPlugInDef *plug_in_def);
static void pika_plug_in_manager_add_to_db (PikaPlugInManager *manager,
PikaContext *context,
PikaPlugInProcedure *proc);
static void pika_plug_in_manager_sort_file_procs (PikaPlugInManager *manager);
static gint pika_plug_in_manager_file_proc_compare (gconstpointer a,
gconstpointer b,
gpointer data);
void
pika_plug_in_manager_restore (PikaPlugInManager *manager,
PikaContext *context,
PikaInitStatusFunc status_callback)
{
Pika *pika;
GFile *pluginrc;
GSList *list;
GError *error = NULL;
g_return_if_fail (PIKA_IS_PLUG_IN_MANAGER (manager));
g_return_if_fail (PIKA_IS_CONTEXT (context));
g_return_if_fail (status_callback != NULL);
pika = manager->pika;
/* need a PikaPDBContext for calling pika_plug_in_manager_run_foo() */
context = pika_pdb_context_new (pika, context, TRUE);
/* search for binaries in the plug-in directory path */
pika_plug_in_manager_search (manager, status_callback);
/* read the pluginrc file for cached data */
pluginrc = pika_plug_in_manager_get_pluginrc (manager);
pika_plug_in_manager_read_pluginrc (manager, pluginrc, status_callback);
/* query any plug-ins that changed since we last wrote out pluginrc */
pika_plug_in_manager_query_new (manager, context, status_callback);
/* initialize the plug-ins */
pika_plug_in_manager_init_plug_ins (manager, context, status_callback);
/* add the procedures to manager->plug_in_procedures */
for (list = manager->plug_in_defs; list; list = list->next)
{
PikaPlugInDef *plug_in_def = list->data;
GSList *list2;
for (list2 = plug_in_def->procedures; list2; list2 = list2->next)
{
pika_plug_in_manager_add_procedure (manager, list2->data);
}
}
/* write the pluginrc file if necessary */
if (manager->write_pluginrc)
{
if (pika->be_verbose)
g_print ("Writing '%s'\n", pika_file_get_utf8_name (pluginrc));
if (! plug_in_rc_write (manager->plug_in_defs, pluginrc, &error))
{
pika_message_literal (pika,
NULL, PIKA_MESSAGE_ERROR, error->message);
g_clear_error (&error);
}
manager->write_pluginrc = FALSE;
}
g_object_unref (pluginrc);
/* create help domain lists */
for (list = manager->plug_in_defs; list; list = list->next)
{
PikaPlugInDef *plug_in_def = list->data;
if (plug_in_def->help_domain_name)
pika_plug_in_manager_add_help_domain (manager,
plug_in_def->file,
plug_in_def->help_domain_name,
plug_in_def->help_domain_uri);
}
/* we're done with the plug-in-defs */
g_slist_free_full (manager->plug_in_defs, (GDestroyNotify) g_object_unref);
manager->plug_in_defs = NULL;
/* add the plug-in procs to the procedure database */
for (list = manager->plug_in_procedures; list; list = list->next)
{
pika_plug_in_manager_add_to_db (manager, context, list->data);
}
/* sort the load, save and export procedures, make the raw handler list */
pika_plug_in_manager_sort_file_procs (manager);
pika_plug_in_manager_run_extensions (manager, context, status_callback);
g_object_unref (context);
}
/* search for binaries in the plug-in directory path */
static void
pika_plug_in_manager_search (PikaPlugInManager *manager,
PikaInitStatusFunc status_callback)
{
const gchar *path_str;
GList *path;
GList *list;
#ifdef G_OS_WIN32
const gchar *pathext = g_getenv ("PATHEXT");
/* On Windows, we need to add the known file extensions in PATHEXT. */
if (pathext)
{
gchar *exts;
exts = pika_interpreter_db_get_extensions (manager->interpreter_db);
if (exts)
{
gchar *value;
value = g_strconcat (pathext, G_SEARCHPATH_SEPARATOR_S, exts, NULL);
g_setenv ("PATHEXT", value, TRUE);
g_free (value);
g_free (exts);
}
}
#endif /* G_OS_WIN32 */
status_callback (_("Loading extension plug-ins"), "", 0.0);
g_object_get (manager->pika->extension_manager,
"plug-in-paths", &path,
NULL);
for (list = path; list; list = g_list_next (list))
{
if (pika_file_is_executable (list->data))
{
guint64 mtime;
GFileInfo *info;
info = g_file_query_info (list->data, G_FILE_ATTRIBUTE_TIME_MODIFIED,
G_FILE_QUERY_INFO_NONE, NULL, NULL);
mtime = g_file_info_get_attribute_uint64 (info,
G_FILE_ATTRIBUTE_TIME_MODIFIED);
pika_plug_in_manager_add_from_file (manager, list->data, mtime);
g_object_unref (info);
}
}
status_callback (_("Searching plug-ins"), "", 0.0);
/* Give automatic tests a chance to use plug-ins from the build
* dir
*/
path_str = g_getenv ("PIKA_TESTING_PLUGINDIRS");
if (! path_str)
path_str = manager->pika->config->plug_in_path;
path = pika_config_path_expand_to_files (path_str, NULL);
for (list = path; list; list = g_list_next (list))
{
pika_plug_in_manager_search_directory (manager, list->data);
}
g_list_free_full (path, (GDestroyNotify) g_object_unref);
}
static void
pika_plug_in_manager_search_directory (PikaPlugInManager *manager,
GFile *directory)
{
GFileEnumerator *enumerator;
enumerator = g_file_enumerate_children (directory,
G_FILE_ATTRIBUTE_STANDARD_NAME ","
G_FILE_ATTRIBUTE_STANDARD_IS_HIDDEN ","
G_FILE_ATTRIBUTE_TIME_MODIFIED,
G_FILE_QUERY_INFO_NONE,
NULL, NULL);
if (enumerator)
{
GFileInfo *info;
while ((info = g_file_enumerator_next_file (enumerator, NULL, NULL)))
{
GFile *child;
Import newer upstream.
2023-09-26 01:54:03 +02:00
if (g_file_info_get_attribute_boolean (info, G_FILE_ATTRIBUTE_STANDARD_IS_HIDDEN))
Initial checkin of Pika from heckimp
2023-09-26 00:35:21 +02:00
{
g_object_unref (info);
continue;
}
child = g_file_enumerator_get_child (enumerator, info);
if (g_file_query_file_type (child,
G_FILE_QUERY_INFO_NONE,
NULL) == G_FILE_TYPE_DIRECTORY)
{
/* Search in subdirectory the first executable file with
* the same name as the directory (except extension).
* We don't search recursively, but only at a single
* level and assume that there can be only 1 plugin
* inside a directory.
*/
GFileEnumerator *enumerator2;
enumerator2 = g_file_enumerate_children (child,
G_FILE_ATTRIBUTE_STANDARD_NAME ","
G_FILE_ATTRIBUTE_STANDARD_IS_HIDDEN ","
G_FILE_ATTRIBUTE_TIME_MODIFIED,
G_FILE_QUERY_INFO_NONE,
NULL, NULL);
if (enumerator2)
{
GFileInfo *info2;
while ((info2 = g_file_enumerator_next_file (enumerator2, NULL, NULL)))
{
GFile *child2;
gchar *file_name;
char *ext;
Import newer upstream.
2023-09-26 01:54:03 +02:00
if (g_file_info_get_attribute_boolean (info2, G_FILE_ATTRIBUTE_STANDARD_IS_HIDDEN))
Initial checkin of Pika from heckimp
2023-09-26 00:35:21 +02:00
{
g_object_unref (info2);
continue;
}
child2 = g_file_enumerator_get_child (enumerator2, info2);
file_name = g_strdup (g_file_info_get_name (info2));
ext = strrchr (file_name, '.');
if (ext)
*ext = '\0';
if (g_strcmp0 (file_name, g_file_info_get_name (info)) == 0 &&
pika_file_is_executable (child2))
{
guint64 mtime;
mtime = g_file_info_get_attribute_uint64 (info2,
G_FILE_ATTRIBUTE_TIME_MODIFIED);
pika_plug_in_manager_add_from_file (manager, child2, mtime);
g_free (file_name);
g_object_unref (child2);
g_object_unref (info2);
break;
}
g_free (file_name);
g_object_unref (child2);
g_object_unref (info2);
}
g_object_unref (enumerator2);
}
}
else if (pika_file_is_executable (child))
{
if (g_getenv ("PIKA_TESTING_PLUGINDIRS"))
{
guint64 mtime;
mtime = g_file_info_get_attribute_uint64 (info,
G_FILE_ATTRIBUTE_TIME_MODIFIED);
pika_plug_in_manager_add_from_file (manager, child, mtime);
}
else
{
g_printerr (_("Skipping potential plug-in '%s': "
"plug-ins must be installed in subdirectories.\n"),
g_file_peek_path (child));
}
}
else
{
g_printerr (_("Skipping unknown file '%s' in plug-in directory.\n"),
g_file_peek_path (child));
}
g_object_unref (child);
g_object_unref (info);
}
g_object_unref (enumerator);
}
}
static GFile *
pika_plug_in_manager_get_pluginrc (PikaPlugInManager *manager)
{
Pika *pika = manager->pika;
GFile *pluginrc;
if (pika->config->plug_in_rc_path)
{
gchar *path = pika_config_path_expand (pika->config->plug_in_rc_path,
TRUE, NULL);
if (g_path_is_absolute (path))
pluginrc = g_file_new_for_path (path);
else
pluginrc = pika_directory_file (path, NULL);
g_free (path);
}
else
{
pluginrc = pika_directory_file ("pluginrc", NULL);
}
return pluginrc;
}
/* read the pluginrc file for cached data */
static void
pika_plug_in_manager_read_pluginrc (PikaPlugInManager *manager,
GFile *pluginrc,
PikaInitStatusFunc status_callback)
{
GSList *rc_defs;
GError *error = NULL;
status_callback (_("Resource configuration"),
pika_file_get_utf8_name (pluginrc), 0.0);
if (manager->pika->be_verbose)
g_print ("Parsing '%s'\n", pika_file_get_utf8_name (pluginrc));
rc_defs = plug_in_rc_parse (manager->pika, pluginrc, &error);
if (rc_defs)
{
GSList *list;
for (list = rc_defs; list; list = g_slist_next (list))
pika_plug_in_manager_add_from_rc (manager, list->data); /* consumes list->data */
g_slist_free (rc_defs);
}
else if (error)
{
if (error->code != PIKA_CONFIG_ERROR_OPEN_ENOENT)
pika_message_literal (manager->pika, NULL, PIKA_MESSAGE_ERROR,
error->message);
g_clear_error (&error);
}
}
/* query any plug-ins that changed since we last wrote out pluginrc */
static void
pika_plug_in_manager_query_new (PikaPlugInManager *manager,
PikaContext *context,
PikaInitStatusFunc status_callback)
{
GSList *list;
gint n_plugins;
status_callback (_("Querying new Plug-ins"), "", 0.0);
for (list = manager->plug_in_defs, n_plugins = 0; list; list = list->next)
{
PikaPlugInDef *plug_in_def = list->data;
if (manager->pika->query_all)
pika_plug_in_def_set_needs_query (plug_in_def, TRUE);
if (plug_in_def->needs_query)
n_plugins++;
}
if (n_plugins)
{
gint nth;
manager->write_pluginrc = TRUE;
for (list = manager->plug_in_defs, nth = 0; list; list = list->next)
{
PikaPlugInDef *plug_in_def = list->data;
if (plug_in_def->needs_query)
{
gchar *basename;
basename =
g_path_get_basename (pika_file_get_utf8_name (plug_in_def->file));
status_callback (NULL, basename,
(gdouble) nth++ / (gdouble) n_plugins);
g_free (basename);
if (manager->pika->be_verbose)
g_print ("Querying plug-in: '%s'\n",
pika_file_get_utf8_name (plug_in_def->file));
pika_plug_in_manager_call_query (manager, context, plug_in_def);
}
}
}
status_callback (NULL, "", 1.0);
}
/* initialize the plug-ins */
static void
pika_plug_in_manager_init_plug_ins (PikaPlugInManager *manager,
PikaContext *context,
PikaInitStatusFunc status_callback)
{
GSList *list;
gint n_plugins;
status_callback (_("Initializing Plug-ins"), "", 0.0);
for (list = manager->plug_in_defs, n_plugins = 0; list; list = list->next)
{
PikaPlugInDef *plug_in_def = list->data;
if (plug_in_def->has_init)
n_plugins++;
}
if (n_plugins)
{
gint nth;
for (list = manager->plug_in_defs, nth = 0; list; list = list->next)
{
PikaPlugInDef *plug_in_def = list->data;
if (plug_in_def->has_init)
{
gchar *basename;
basename =
g_path_get_basename (pika_file_get_utf8_name (plug_in_def->file));
status_callback (NULL, basename,
(gdouble) nth++ / (gdouble) n_plugins);
g_free (basename);
if (manager->pika->be_verbose)
g_print ("Initializing plug-in: '%s'\n",
pika_file_get_utf8_name (plug_in_def->file));
pika_plug_in_manager_call_init (manager, context, plug_in_def);
}
}
}
status_callback (NULL, "", 1.0);
}
/* run automatically started extensions */
static void
pika_plug_in_manager_run_extensions (PikaPlugInManager *manager,
PikaContext *context,
PikaInitStatusFunc status_callback)
{
Pika *pika = manager->pika;
GSList *list;
GList *extensions = NULL;
gint n_extensions;
/* build list of automatically started extensions */
for (list = manager->plug_in_procedures; list; list = list->next)
{
PikaPlugInProcedure *proc = list->data;
if (proc->file &&
PIKA_PROCEDURE (proc)->proc_type == PIKA_PDB_PROC_TYPE_EXTENSION &&
PIKA_PROCEDURE (proc)->num_args == 0)
{
extensions = g_list_prepend (extensions, proc);
}
}
extensions = g_list_reverse (extensions);
n_extensions = g_list_length (extensions);
/* run the available extensions */
if (extensions)
{
GList *list;
gint nth;
status_callback (_("Starting Extensions"), "", 0.0);
for (list = extensions, nth = 0; list; list = g_list_next (list), nth++)
{
PikaPlugInProcedure *proc = list->data;
PikaValueArray *args;
GError *error = NULL;
if (pika->be_verbose)
g_print ("Starting extension: '%s'\n", pika_object_get_name (proc));
status_callback (NULL, pika_object_get_name (proc),
(gdouble) nth / (gdouble) n_extensions);
args = pika_value_array_new (0);
pika_procedure_execute_async (PIKA_PROCEDURE (proc),
pika, context, NULL,
args, NULL, &error);
pika_value_array_unref (args);
if (error)
{
pika_message_literal (pika, NULL, PIKA_MESSAGE_ERROR,
error->message);
g_clear_error (&error);
}
}
g_list_free (extensions);
status_callback (NULL, "", 1.0);
}
}
/**
* pika_plug_in_manager_ignore_plugin_basename:
* @basename: Basename to test with
*
* Checks the environment variable
* PIKA_TESTING_PLUGINDIRS_BASENAME_IGNORES for file basenames.
*
* Returns: %TRUE if @basename was in PIKA_TESTING_PLUGINDIRS_BASENAME_IGNORES
**/
static gboolean
pika_plug_in_manager_ignore_plugin_basename (const gchar *plugin_basename)
{
const gchar *ignore_basenames_string;
GList *ignore_basenames;
GList *iter;
gboolean ignore = FALSE;
ignore_basenames_string = g_getenv ("PIKA_TESTING_PLUGINDIRS_BASENAME_IGNORES");
ignore_basenames = pika_path_parse (ignore_basenames_string,
256 /*max_paths*/,
FALSE /*check*/,
NULL /*check_failed*/);
for (iter = ignore_basenames; iter; iter = g_list_next (iter))
{
const gchar *ignore_basename = iter->data;
if (g_ascii_strcasecmp (ignore_basename, plugin_basename) == 0)
{
ignore = TRUE;
break;
}
}
pika_path_free (ignore_basenames);
return ignore;
}
static void
pika_plug_in_manager_add_from_file (PikaPlugInManager *manager,
GFile *file,
guint64 mtime)
{
PikaPlugInDef *plug_in_def;
GSList *list;
gchar *filename;
gchar *basename;
filename = g_file_get_path (file);
basename = g_path_get_basename (filename);
g_free (filename);
/* When we scan build dirs for plug-ins, there will be some
* executable files that are not plug-ins that we want to ignore,
* for example plug-ins/common/mkgen.pl if
* PIKA_TESTING_PLUGINDIRS=plug-ins/common
*/
if (pika_plug_in_manager_ignore_plugin_basename (basename))
{
g_free (basename);
return;
}
for (list = manager->plug_in_defs; list; list = list->next)
{
gchar *path;
gchar *plug_in_name;
plug_in_def = list->data;
path = g_file_get_path (plug_in_def->file);
plug_in_name = g_path_get_basename (path);
g_free (path);
if (g_ascii_strcasecmp (basename, plug_in_name) == 0)
{
g_printerr ("Skipping duplicate plug-in: '%s'\n",
pika_file_get_utf8_name (file));
g_free (plug_in_name);
g_free (basename);
return;
}
g_free (plug_in_name);
}
g_free (basename);
plug_in_def = pika_plug_in_def_new (file);
pika_plug_in_def_set_mtime (plug_in_def, mtime);
pika_plug_in_def_set_needs_query (plug_in_def, TRUE);
manager->plug_in_defs = g_slist_prepend (manager->plug_in_defs, plug_in_def);
}
static void
pika_plug_in_manager_add_from_rc (PikaPlugInManager *manager,
PikaPlugInDef *plug_in_def)
{
GSList *list;
gchar *path1;
gchar *basename1;
g_return_if_fail (PIKA_IS_PLUG_IN_MANAGER (manager));
g_return_if_fail (plug_in_def != NULL);
g_return_if_fail (plug_in_def->file != NULL);
path1 = g_file_get_path (plug_in_def->file);
if (! g_path_is_absolute (path1))
{
g_warning ("plug_ins_def_add_from_rc: filename not absolute (skipping)");
g_object_unref (plug_in_def);
g_free (path1);
return;
}
basename1 = g_path_get_basename (path1);
/* Check if the entry mentioned in pluginrc matches an executable
* found in the plug_in_path.
*/
for (list = manager->plug_in_defs; list; list = list->next)
{
PikaPlugInDef *ondisk_plug_in_def = list->data;
gchar *path2;
gchar *basename2;
path2 = g_file_get_path (ondisk_plug_in_def->file);
basename2 = g_path_get_basename (path2);
g_free (path2);
if (! strcmp (basename1, basename2))
{
if (g_file_equal (plug_in_def->file,
ondisk_plug_in_def->file) &&
(plug_in_def->mtime == ondisk_plug_in_def->mtime))
{
/* Use pluginrc entry, deleting on-disk entry */
list->data = plug_in_def;
g_object_unref (ondisk_plug_in_def);
}
else
{
/* Use on-disk entry, deleting pluginrc entry */
g_object_unref (plug_in_def);
}
g_free (basename2);
g_free (basename1);
g_free (path1);
return;
}
g_free (basename2);
}
g_free (basename1);
g_free (path1);
manager->write_pluginrc = TRUE;
if (manager->pika->be_verbose)
{
g_printerr ("pluginrc lists '%s', but it wasn't found\n",
pika_file_get_utf8_name (plug_in_def->file));
}
g_object_unref (plug_in_def);
}
static void
pika_plug_in_manager_add_to_db (PikaPlugInManager *manager,
PikaContext *context,
PikaPlugInProcedure *proc)
{
pika_pdb_register_procedure (manager->pika->pdb, PIKA_PROCEDURE (proc));
if (proc->file_proc)
{
if (proc->image_types)
{
pika_plug_in_procedure_set_file_proc (proc,
proc->extensions,
proc->prefixes,
NULL);
pika_plug_in_manager_add_save_procedure (manager, proc);
}
else
{
pika_plug_in_procedure_set_file_proc (proc,
proc->extensions,
proc->prefixes,
proc->magics);
pika_plug_in_manager_add_load_procedure (manager, proc);
}
}
else if (proc->batch_interpreter)
{
pika_plug_in_manager_add_batch_procedure (manager, proc);
}
}
static void
pika_plug_in_manager_sort_file_procs (PikaPlugInManager *manager)
{
PikaCoreConfig *config = manager->pika->config;
GFile *config_plug_in = NULL;
GFile *raw_plug_in = NULL;
GSList *list;
manager->load_procs =
g_slist_sort_with_data (manager->load_procs,
pika_plug_in_manager_file_proc_compare,
GINT_TO_POINTER (FALSE));
manager->save_procs =
g_slist_sort_with_data (manager->save_procs,
pika_plug_in_manager_file_proc_compare,
GINT_TO_POINTER (FALSE));
manager->export_procs =
g_slist_sort_with_data (manager->export_procs,
pika_plug_in_manager_file_proc_compare,
GINT_TO_POINTER (FALSE));
g_clear_pointer (&manager->display_load_procs, g_slist_free);
g_clear_pointer (&manager->display_save_procs, g_slist_free);
g_clear_pointer (&manager->display_export_procs, g_slist_free);
manager->display_load_procs = g_slist_copy (manager->load_procs);
manager->display_save_procs = g_slist_copy (manager->save_procs);
manager->display_export_procs = g_slist_copy (manager->export_procs);
manager->display_load_procs =
g_slist_sort_with_data (manager->display_load_procs,
pika_plug_in_manager_file_proc_compare,
GINT_TO_POINTER (TRUE));
manager->display_save_procs =
g_slist_sort_with_data (manager->display_save_procs,
pika_plug_in_manager_file_proc_compare,
GINT_TO_POINTER (TRUE));
manager->display_export_procs =
g_slist_sort_with_data (manager->display_export_procs,
pika_plug_in_manager_file_proc_compare,
GINT_TO_POINTER (TRUE));
g_clear_pointer (&manager->raw_load_procs, g_slist_free);
g_clear_pointer (&manager->display_raw_load_procs, g_slist_free);
if (config->import_raw_plug_in)
{
/* remember the configured raw loader, unless it's the placeholder */
if (! strstr (config->import_raw_plug_in, "file-raw-placeholder"))
config_plug_in =
pika_file_new_for_config_path (config->import_raw_plug_in,
NULL);
}
/* make the list of raw loaders, and remember the one configured in
* config if found
*/
for (list = manager->load_procs; list; list = g_slist_next (list))
{
PikaPlugInProcedure *file_proc = list->data;
if (file_proc->handles_raw)
{
GFile *file;
manager->raw_load_procs = g_slist_prepend (manager->raw_load_procs,
file_proc);
file = pika_plug_in_procedure_get_file (file_proc);
if (! raw_plug_in &&
config_plug_in &&
g_file_equal (config_plug_in, file))
{
raw_plug_in = file;
}
}
}
manager->raw_load_procs = g_slist_reverse (manager->raw_load_procs);
manager->display_raw_load_procs = g_slist_copy (manager->raw_load_procs);
manager->display_raw_load_procs =
g_slist_sort_with_data (manager->display_raw_load_procs,
pika_plug_in_manager_file_proc_compare,
GINT_TO_POINTER (TRUE));
if (config_plug_in)
g_object_unref (config_plug_in);
/* if no raw loader was configured, or the configured raw loader
* wasn't found, default to the first loader that is not the
* placeholder, if any
*/
if (! raw_plug_in && manager->raw_load_procs)
{
gchar *path;
for (list = manager->raw_load_procs; list; list = g_slist_next (list))
{
PikaPlugInProcedure *file_proc = list->data;
raw_plug_in = pika_plug_in_procedure_get_file (file_proc);
path = pika_file_get_config_path (raw_plug_in, NULL);
if (! strstr (path, "file-raw-placeholder"))
break;
g_free (path);
path = NULL;
raw_plug_in = NULL;
}
if (! raw_plug_in)
{
raw_plug_in =
pika_plug_in_procedure_get_file (manager->raw_load_procs->data);
path = pika_file_get_config_path (raw_plug_in, NULL);
}
g_object_set (config,
"import-raw-plug-in", path,
NULL);
g_free (path);
}
list = manager->load_procs;
while (list)
{
PikaPlugInProcedure *file_proc = list->data;
list = g_slist_next (list);
/* finally, remove all raw loaders except the configured one from
* the list of load_procs
*/
if (file_proc->handles_raw &&
! g_file_equal (pika_plug_in_procedure_get_file (file_proc),
raw_plug_in))
{
manager->load_procs =
g_slist_remove (manager->load_procs, file_proc);
manager->display_load_procs =
g_slist_remove (manager->display_load_procs, file_proc);
}
/* Remove generic (non-image) loaders from the display loader
* list. */
if (file_proc->generic_file_proc)
manager->display_load_procs =
g_slist_remove (manager->display_load_procs, file_proc);
}
}
static gint
pika_plug_in_manager_file_proc_compare (gconstpointer a,
gconstpointer b,
gpointer data)
{
PikaPlugInProcedure *proc_a = PIKA_PLUG_IN_PROCEDURE (a);
PikaPlugInProcedure *proc_b = PIKA_PLUG_IN_PROCEDURE (b);
gboolean display = GPOINTER_TO_INT (data);
const gchar *label_a;
const gchar *label_b;
if (g_str_has_prefix (pika_file_get_utf8_name (proc_a->file),
"pika-xcf"))
{
if (! g_str_has_prefix (pika_file_get_utf8_name (proc_b->file),
"pika-xcf"))
{
return -1;
}
}
else if (g_str_has_prefix (pika_file_get_utf8_name (proc_b->file),
"pika-xcf"))
{
return 1;
}
if (! display && proc_a->priority != proc_b->priority)
return proc_a->priority - proc_b->priority;
label_a = pika_procedure_get_label (PIKA_PROCEDURE (proc_a));
label_b = pika_procedure_get_label (PIKA_PROCEDURE (proc_b));
if (label_a)
{
if (label_b)
{
gint comp = g_utf8_collate (label_a, label_b);
if (comp)
return comp;
}
else
{
return -1;
}
}
else if (label_b)
{
return 1;
}
return strcmp (pika_object_get_name (proc_a), pika_object_get_name (proc_b));
}