/* 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;

          if (g_file_info_get_attribute_boolean (info, G_FILE_ATTRIBUTE_STANDARD_IS_HIDDEN))
            {
              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;

                      if (g_file_info_get_attribute_boolean (info2, G_FILE_ATTRIBUTE_STANDARD_IS_HIDDEN))
                        {
                          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 might be some
   * executable files that are not plug-ins that we want to ignore,
   * for example back with autotools, there used to be a file
   * plug-ins/common/mkgen.pl if PIKA_TESTING_PLUGINDIRS=plug-ins/common
   * Such files should be listed in PIKA_TESTING_PLUGINDIRS_BASENAME_IGNORES
   */
  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));
}