Adding upstream version 2.10.36.upstream/2.10.36

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 1293 insertions, 0 deletions

diff --git a/app/plug-in/gimppluginprocedure.c b/app/plug-in/gimppluginprocedure.c
new file mode 100644
index 0000000..db7d240
--- /dev/null
+++ b/app/plug-in/gimppluginprocedure.c
@@ -0,0 +1,1293 @@
+/* GIMP - The GNU Image Manipulation Program
+ * Copyright (C) 1995 Spencer Kimball and Peter Mattis
+ *
+ * gimppluginprocedure.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 <gegl.h>
+#include <gdk-pixbuf/gdk-pixbuf.h>
+
+#include "libgimpbase/gimpbase.h"
+
+#include "plug-in-types.h"
+
+#include "gegl/gimp-babl-compat.h"
+
+#include "core/gimp.h"
+#include "core/gimp-memsize.h"
+#include "core/gimpdrawable.h"
+#include "core/gimpmarshal.h"
+#include "core/gimpparamspecs.h"
+
+#include "file/file-utils.h"
+
+#define __YES_I_NEED_GIMP_PLUG_IN_MANAGER_CALL__
+#include "gimppluginmanager-call.h"
+
+#include "gimppluginerror.h"
+#include "gimppluginprocedure.h"
+#include "plug-in-menu-path.h"
+
+#include "gimp-intl.h"
+
+
+enum
+{
+  MENU_PATH_ADDED,
+  LAST_SIGNAL
+};
+
+
+static void     gimp_plug_in_procedure_finalize        (GObject        *object);
+
+static gint64   gimp_plug_in_procedure_get_memsize     (GimpObject     *object,
+                                                        gint64         *gui_size);
+
+static gchar  * gimp_plug_in_procedure_get_description (GimpViewable   *viewable,
+                                                        gchar         **tooltip);
+
+static const gchar * gimp_plug_in_procedure_get_label  (GimpProcedure  *procedure);
+static const gchar * gimp_plug_in_procedure_get_menu_label
+                                                       (GimpProcedure  *procedure);
+static const gchar * gimp_plug_in_procedure_get_blurb  (GimpProcedure  *procedure);
+static const gchar * gimp_plug_in_procedure_get_help_id(GimpProcedure  *procedure);
+static gboolean   gimp_plug_in_procedure_get_sensitive (GimpProcedure  *procedure,
+                                                        GimpObject     *object,
+                                                        const gchar  **tooltip);
+static GimpValueArray * gimp_plug_in_procedure_execute (GimpProcedure  *procedure,
+                                                        Gimp           *gimp,
+                                                        GimpContext    *context,
+                                                        GimpProgress   *progress,
+                                                        GimpValueArray *args,
+                                                        GError        **error);
+static void     gimp_plug_in_procedure_execute_async   (GimpProcedure  *procedure,
+                                                        Gimp           *gimp,
+                                                        GimpContext    *context,
+                                                        GimpProgress   *progress,
+                                                        GimpValueArray *args,
+                                                        GimpObject     *display);
+
+static GFile  * gimp_plug_in_procedure_real_get_file   (GimpPlugInProcedure *procedure);
+
+static gboolean gimp_plug_in_procedure_validate_args   (GimpPlugInProcedure *proc,
+                                                        Gimp                *gimp,
+                                                        GimpValueArray      *args,
+                                                        GError             **error);
+
+
+G_DEFINE_TYPE (GimpPlugInProcedure, gimp_plug_in_procedure,
+               GIMP_TYPE_PROCEDURE)
+
+#define parent_class gimp_plug_in_procedure_parent_class
+
+static guint gimp_plug_in_procedure_signals[LAST_SIGNAL] = { 0 };
+
+
+static void
+gimp_plug_in_procedure_class_init (GimpPlugInProcedureClass *klass)
+{
+  GObjectClass       *object_class      = G_OBJECT_CLASS (klass);
+  GimpObjectClass    *gimp_object_class = GIMP_OBJECT_CLASS (klass);
+  GimpViewableClass  *viewable_class    = GIMP_VIEWABLE_CLASS (klass);
+  GimpProcedureClass *proc_class        = GIMP_PROCEDURE_CLASS (klass);
+
+  gimp_plug_in_procedure_signals[MENU_PATH_ADDED] =
+    g_signal_new ("menu-path-added",
+                  G_TYPE_FROM_CLASS (klass),
+                  G_SIGNAL_RUN_FIRST,
+                  G_STRUCT_OFFSET (GimpPlugInProcedureClass, menu_path_added),
+                  NULL, NULL,
+                  gimp_marshal_VOID__STRING,
+                  G_TYPE_NONE, 1,
+                  G_TYPE_STRING);
+
+  object_class->finalize            = gimp_plug_in_procedure_finalize;
+
+  gimp_object_class->get_memsize    = gimp_plug_in_procedure_get_memsize;
+
+  viewable_class->default_icon_name = "system-run";
+  viewable_class->get_description   = gimp_plug_in_procedure_get_description;
+
+  proc_class->get_label             = gimp_plug_in_procedure_get_label;
+  proc_class->get_menu_label        = gimp_plug_in_procedure_get_menu_label;
+  proc_class->get_blurb             = gimp_plug_in_procedure_get_blurb;
+  proc_class->get_help_id           = gimp_plug_in_procedure_get_help_id;
+  proc_class->get_sensitive         = gimp_plug_in_procedure_get_sensitive;
+  proc_class->execute               = gimp_plug_in_procedure_execute;
+  proc_class->execute_async         = gimp_plug_in_procedure_execute_async;
+
+  klass->get_file                   = gimp_plug_in_procedure_real_get_file;
+  klass->menu_path_added            = NULL;
+}
+
+static void
+gimp_plug_in_procedure_init (GimpPlugInProcedure *proc)
+{
+  GIMP_PROCEDURE (proc)->proc_type = GIMP_PLUGIN;
+
+  proc->icon_data_length = -1;
+}
+
+static void
+gimp_plug_in_procedure_finalize (GObject *object)
+{
+  GimpPlugInProcedure *proc = GIMP_PLUG_IN_PROCEDURE (object);
+
+  g_object_unref (proc->file);
+  g_free (proc->menu_label);
+
+  g_list_free_full (proc->menu_paths, (GDestroyNotify) g_free);
+
+  g_free (proc->label);
+  g_free (proc->help_id);
+
+  g_free (proc->icon_data);
+  g_free (proc->image_types);
+  g_free (proc->image_types_tooltip);
+
+  g_free (proc->extensions);
+  g_free (proc->prefixes);
+  g_free (proc->magics);
+  g_free (proc->mime_types);
+
+  g_slist_free_full (proc->extensions_list, (GDestroyNotify) g_free);
+  g_slist_free_full (proc->prefixes_list, (GDestroyNotify) g_free);
+  g_slist_free_full (proc->magics_list, (GDestroyNotify) g_free);
+  g_slist_free_full (proc->mime_types_list, (GDestroyNotify) g_free);
+
+  g_free (proc->thumb_loader);
+
+  G_OBJECT_CLASS (parent_class)->finalize (object);
+}
+
+static gint64
+gimp_plug_in_procedure_get_memsize (GimpObject *object,
+                                    gint64     *gui_size)
+{
+  GimpPlugInProcedure *proc    = GIMP_PLUG_IN_PROCEDURE (object);
+  gint64               memsize = 0;
+  GList               *list;
+  GSList              *slist;
+
+  memsize += gimp_g_object_get_memsize (G_OBJECT (proc->file));
+  memsize += gimp_string_get_memsize (proc->menu_label);
+
+  for (list = proc->menu_paths; list; list = g_list_next (list))
+    memsize += sizeof (GList) + gimp_string_get_memsize (list->data);
+
+  switch (proc->icon_type)
+    {
+    case GIMP_ICON_TYPE_ICON_NAME:
+    case GIMP_ICON_TYPE_IMAGE_FILE:
+      memsize += gimp_string_get_memsize ((const gchar *) proc->icon_data);
+      break;
+
+    case GIMP_ICON_TYPE_INLINE_PIXBUF:
+      memsize += proc->icon_data_length;
+      break;
+    }
+
+  memsize += gimp_string_get_memsize (proc->extensions);
+  memsize += gimp_string_get_memsize (proc->prefixes);
+  memsize += gimp_string_get_memsize (proc->magics);
+  memsize += gimp_string_get_memsize (proc->mime_types);
+  memsize += gimp_string_get_memsize (proc->thumb_loader);
+
+  for (slist = proc->extensions_list; slist; slist = g_slist_next (slist))
+    memsize += sizeof (GSList) + gimp_string_get_memsize (slist->data);
+
+  for (slist = proc->prefixes_list; slist; slist = g_slist_next (slist))
+    memsize += sizeof (GSList) + gimp_string_get_memsize (slist->data);
+
+  for (slist = proc->magics_list; slist; slist = g_slist_next (slist))
+    memsize += sizeof (GSList) + gimp_string_get_memsize (slist->data);
+
+  for (slist = proc->mime_types_list; slist; slist = g_slist_next (slist))
+    memsize += sizeof (GSList) + gimp_string_get_memsize (slist->data);
+
+  return memsize + GIMP_OBJECT_CLASS (parent_class)->get_memsize (object,
+                                                                  gui_size);
+}
+
+static gchar *
+gimp_plug_in_procedure_get_description (GimpViewable  *viewable,
+                                        gchar        **tooltip)
+{
+  GimpProcedure *procedure = GIMP_PROCEDURE (viewable);
+
+  if (tooltip)
+    *tooltip = g_strdup (gimp_procedure_get_blurb (procedure));
+
+  return g_strdup (gimp_procedure_get_label (procedure));
+}
+
+static const gchar *
+gimp_plug_in_procedure_get_label (GimpProcedure *procedure)
+{
+  GimpPlugInProcedure *proc = GIMP_PLUG_IN_PROCEDURE (procedure);
+  const gchar         *path;
+  gchar               *stripped;
+  gchar               *ellipsis;
+  gchar               *label;
+
+  if (proc->label)
+    return proc->label;
+
+  if (proc->menu_label)
+    path = dgettext (gimp_plug_in_procedure_get_locale_domain (proc),
+                     proc->menu_label);
+  else if (proc->menu_paths)
+    path = dgettext (gimp_plug_in_procedure_get_locale_domain (proc),
+                     proc->menu_paths->data);
+  else
+    return NULL;
+
+  stripped = gimp_strip_uline (path);
+
+  if (proc->menu_label)
+    label = g_strdup (stripped);
+  else
+    label = g_path_get_basename (stripped);
+
+  g_free (stripped);
+
+  ellipsis = strstr (label, "...");
+
+  if (! ellipsis)
+    ellipsis = strstr (label, "\342\200\246" /* U+2026 HORIZONTAL ELLIPSIS */);
+
+  if (ellipsis && ellipsis == (label + strlen (label) - 3))
+    *ellipsis = '\0';
+
+  proc->label = label;
+
+  return proc->label;
+}
+
+static const gchar *
+gimp_plug_in_procedure_get_menu_label (GimpProcedure *procedure)
+{
+  GimpPlugInProcedure *proc = GIMP_PLUG_IN_PROCEDURE (procedure);
+
+  if (proc->menu_label)
+    {
+      return dgettext (gimp_plug_in_procedure_get_locale_domain (proc),
+                       proc->menu_label);
+    }
+  else if (proc->menu_paths)
+    {
+      const gchar *translated;
+
+      translated = dgettext (gimp_plug_in_procedure_get_locale_domain (proc),
+                             proc->menu_paths->data);
+
+      translated = strrchr (translated, '/');
+
+      if (translated)
+        return translated + 1;
+    }
+
+  return GIMP_PROCEDURE_CLASS (parent_class)->get_menu_label (procedure);
+}
+
+static const gchar *
+gimp_plug_in_procedure_get_blurb (GimpProcedure *procedure)
+{
+  GimpPlugInProcedure *proc = GIMP_PLUG_IN_PROCEDURE (procedure);
+
+  /*  do not to pass the empty string to gettext()  */
+  if (procedure->blurb && strlen (procedure->blurb))
+    return dgettext (gimp_plug_in_procedure_get_locale_domain (proc),
+                     procedure->blurb);
+
+  return NULL;
+}
+
+static const gchar *
+gimp_plug_in_procedure_get_help_id (GimpProcedure *procedure)
+{
+  GimpPlugInProcedure *proc = GIMP_PLUG_IN_PROCEDURE (procedure);
+  const gchar         *domain;
+
+  if (proc->help_id)
+    return proc->help_id;
+
+  domain = gimp_plug_in_procedure_get_help_domain (proc);
+
+  if (domain)
+    proc->help_id = g_strconcat (domain, "?", gimp_object_get_name (proc), NULL);
+  else
+    proc->help_id = g_strdup (gimp_object_get_name (proc));
+
+  return proc->help_id;
+}
+
+static gboolean
+gimp_plug_in_procedure_get_sensitive (GimpProcedure  *procedure,
+                                      GimpObject     *object,
+                                      const gchar   **tooltip)
+{
+  GimpPlugInProcedure *proc       = GIMP_PLUG_IN_PROCEDURE (procedure);
+  GimpDrawable        *drawable;
+  GimpImageType        image_type = -1;
+  gboolean             sensitive  = FALSE;
+
+  g_return_val_if_fail (object == NULL || GIMP_IS_DRAWABLE (object), FALSE);
+
+  drawable = GIMP_DRAWABLE (object);
+
+  if (drawable)
+    {
+      const Babl *format = gimp_drawable_get_format (drawable);
+
+      image_type = gimp_babl_format_get_image_type (format);
+    }
+
+  switch (image_type)
+    {
+    case GIMP_RGB_IMAGE:
+      sensitive = proc->image_types_val & GIMP_PLUG_IN_RGB_IMAGE;
+      break;
+    case GIMP_RGBA_IMAGE:
+      sensitive = proc->image_types_val & GIMP_PLUG_IN_RGBA_IMAGE;
+      break;
+    case GIMP_GRAY_IMAGE:
+      sensitive = proc->image_types_val & GIMP_PLUG_IN_GRAY_IMAGE;
+      break;
+    case GIMP_GRAYA_IMAGE:
+      sensitive = proc->image_types_val & GIMP_PLUG_IN_GRAYA_IMAGE;
+      break;
+    case GIMP_INDEXED_IMAGE:
+      sensitive = proc->image_types_val & GIMP_PLUG_IN_INDEXED_IMAGE;
+      break;
+    case GIMP_INDEXEDA_IMAGE:
+      sensitive = proc->image_types_val & GIMP_PLUG_IN_INDEXEDA_IMAGE;
+      break;
+    default:
+      break;
+    }
+
+  if (! sensitive)
+    *tooltip = proc->image_types_tooltip;
+
+  return sensitive ? TRUE : FALSE;
+}
+
+static GimpValueArray *
+gimp_plug_in_procedure_execute (GimpProcedure  *procedure,
+                                Gimp           *gimp,
+                                GimpContext    *context,
+                                GimpProgress   *progress,
+                                GimpValueArray *args,
+                                GError        **error)
+{
+  GimpPlugInProcedure *plug_in_procedure = GIMP_PLUG_IN_PROCEDURE (procedure);
+  GError              *pdb_error         = NULL;
+
+  if (! gimp_plug_in_procedure_validate_args (plug_in_procedure, gimp,
+                                              args, &pdb_error))
+    {
+      GimpValueArray *return_vals;
+
+      return_vals = gimp_procedure_get_return_values (procedure, FALSE,
+                                                      pdb_error);
+      g_propagate_error (error, pdb_error);
+
+      return return_vals;
+    }
+
+  if (procedure->proc_type == GIMP_INTERNAL)
+    return GIMP_PROCEDURE_CLASS (parent_class)->execute (procedure, gimp,
+                                                         context, progress,
+                                                         args, error);
+
+  return gimp_plug_in_manager_call_run (gimp->plug_in_manager,
+                                        context, progress,
+                                        GIMP_PLUG_IN_PROCEDURE (procedure),
+                                        args, TRUE, NULL);
+}
+
+static void
+gimp_plug_in_procedure_execute_async (GimpProcedure  *procedure,
+                                      Gimp           *gimp,
+                                      GimpContext    *context,
+                                      GimpProgress   *progress,
+                                      GimpValueArray *args,
+                                      GimpObject     *display)
+{
+  GimpPlugInProcedure *plug_in_procedure = GIMP_PLUG_IN_PROCEDURE (procedure);
+  GError              *error             = NULL;
+
+  if (gimp_plug_in_procedure_validate_args (plug_in_procedure, gimp,
+                                            args, &error))
+    {
+      GimpValueArray *return_vals;
+
+      return_vals = gimp_plug_in_manager_call_run (gimp->plug_in_manager,
+                                                   context, progress,
+                                                   plug_in_procedure,
+                                                   args, FALSE, display);
+
+      if (return_vals)
+        {
+          gimp_plug_in_procedure_handle_return_values (plug_in_procedure,
+                                                       gimp, progress,
+                                                       return_vals);
+          gimp_value_array_unref (return_vals);
+        }
+    }
+  else
+    {
+      gimp_message_literal (gimp, G_OBJECT (progress), GIMP_MESSAGE_ERROR,
+                            error->message);
+      g_error_free (error);
+    }
+}
+
+static GFile *
+gimp_plug_in_procedure_real_get_file (GimpPlugInProcedure *procedure)
+{
+  return procedure->file;
+}
+
+static gboolean
+gimp_plug_in_procedure_validate_args (GimpPlugInProcedure *proc,
+                                      Gimp                *gimp,
+                                      GimpValueArray      *args,
+                                      GError             **error)
+{
+  if (proc->file_proc && proc->handles_uri)
+    {
+      /*  for file procedures that handle URIs, make sure that the
+       *  passed string actually is an URI, not just a file path
+       *  (bug 758685)
+       */
+      GimpProcedure *procedure = GIMP_PROCEDURE (proc);
+      GValue        *uri_value = NULL;
+
+      if ((procedure->num_args   >= 3)                     &&
+          (procedure->num_values >= 1)                     &&
+          GIMP_IS_PARAM_SPEC_INT32    (procedure->args[0]) &&
+          G_IS_PARAM_SPEC_STRING      (procedure->args[1]) &&
+          G_IS_PARAM_SPEC_STRING      (procedure->args[2]) &&
+          GIMP_IS_PARAM_SPEC_IMAGE_ID (procedure->values[0]))
+        {
+          uri_value = gimp_value_array_index (args, 1);
+        }
+      else if ((procedure->num_args >= 5)                          &&
+               GIMP_IS_PARAM_SPEC_INT32       (procedure->args[0]) &&
+               GIMP_IS_PARAM_SPEC_IMAGE_ID    (procedure->args[1]) &&
+               GIMP_IS_PARAM_SPEC_DRAWABLE_ID (procedure->args[2]) &&
+               G_IS_PARAM_SPEC_STRING         (procedure->args[3]) &&
+               G_IS_PARAM_SPEC_STRING         (procedure->args[4]))
+        {
+          uri_value = gimp_value_array_index (args, 3);
+        }
+
+      if (uri_value)
+        {
+          GFile *file;
+
+          file = file_utils_filename_to_file (gimp,
+                                              g_value_get_string (uri_value),
+                                              error);
+
+          if (! file)
+            return FALSE;
+
+          g_value_take_string (uri_value, g_file_get_uri (file));
+          g_object_unref (file);
+        }
+    }
+
+  return TRUE;
+}
+
+
+/*  public functions  */
+
+GimpProcedure *
+gimp_plug_in_procedure_new (GimpPDBProcType  proc_type,
+                            GFile           *file)
+{
+  GimpPlugInProcedure *proc;
+
+  g_return_val_if_fail (proc_type == GIMP_PLUGIN ||
+                        proc_type == GIMP_EXTENSION, NULL);
+  g_return_val_if_fail (G_IS_FILE (file), NULL);
+
+  proc = g_object_new (GIMP_TYPE_PLUG_IN_PROCEDURE, NULL);
+
+  proc->file = g_object_ref (file);
+
+  GIMP_PROCEDURE (proc)->proc_type = proc_type;
+
+  return GIMP_PROCEDURE (proc);
+}
+
+GimpPlugInProcedure *
+gimp_plug_in_procedure_find (GSList      *list,
+                             const gchar *proc_name)
+{
+  GSList *l;
+
+  for (l = list; l; l = g_slist_next (l))
+    {
+      GimpObject *object = l->data;
+
+      if (! strcmp (proc_name, gimp_object_get_name (object)))
+        return GIMP_PLUG_IN_PROCEDURE (object);
+    }
+
+  return NULL;
+}
+
+GFile *
+gimp_plug_in_procedure_get_file (GimpPlugInProcedure *proc)
+{
+  g_return_val_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc), NULL);
+
+  return GIMP_PLUG_IN_PROCEDURE_GET_CLASS (proc)->get_file (proc);
+}
+
+void
+gimp_plug_in_procedure_set_locale_domain (GimpPlugInProcedure *proc,
+                                          const gchar         *locale_domain)
+{
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  proc->locale_domain = locale_domain ? g_quark_from_string (locale_domain) : 0;
+}
+
+const gchar *
+gimp_plug_in_procedure_get_locale_domain (GimpPlugInProcedure *proc)
+{
+  g_return_val_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc), NULL);
+
+  return g_quark_to_string (proc->locale_domain);
+}
+
+void
+gimp_plug_in_procedure_set_help_domain (GimpPlugInProcedure *proc,
+                                        const gchar         *help_domain)
+{
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  proc->help_domain = help_domain ? g_quark_from_string (help_domain) : 0;
+}
+
+const gchar *
+gimp_plug_in_procedure_get_help_domain (GimpPlugInProcedure *proc)
+{
+  g_return_val_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc), NULL);
+
+  return g_quark_to_string (proc->help_domain);
+}
+
+gboolean
+gimp_plug_in_procedure_add_menu_path (GimpPlugInProcedure  *proc,
+                                      const gchar          *menu_path,
+                                      GError              **error)
+{
+  GimpProcedure *procedure;
+  gchar         *basename = NULL;
+  const gchar   *required = NULL;
+  gchar         *p;
+  gchar         *mapped_path;
+
+  g_return_val_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc), FALSE);
+  g_return_val_if_fail (menu_path != NULL, FALSE);
+  g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
+
+  procedure = GIMP_PROCEDURE (proc);
+
+  p = strchr (menu_path, '>');
+  if (p == NULL || (*(++p) && *p != '/'))
+    {
+      basename = g_path_get_basename (gimp_file_get_utf8_name (proc->file));
+
+      g_set_error (error, GIMP_PLUG_IN_ERROR, GIMP_PLUG_IN_FAILED,
+                   "Plug-in \"%s\"\n(%s)\n"
+                   "attempted to install procedure \"%s\"\n"
+                   "in the invalid menu location \"%s\".\n"
+                   "The menu path must look like either \"<Prefix>\" "
+                   "or \"<Prefix>/path/to/item\".",
+                   basename, gimp_file_get_utf8_name (proc->file),
+                   gimp_object_get_name (proc),
+                   menu_path);
+      goto failure;
+    }
+
+  if (g_str_has_prefix (menu_path, "<Toolbox>") ||
+      g_str_has_prefix (menu_path, "<Image>"))
+    {
+      if ((procedure->num_args < 1) ||
+          ! GIMP_IS_PARAM_SPEC_INT32 (procedure->args[0]))
+        {
+          required = "INT32";
+          goto failure;
+        }
+    }
+  else if (g_str_has_prefix (menu_path, "<Layers>"))
+    {
+      if ((procedure->num_args < 3)                             ||
+          ! GIMP_IS_PARAM_SPEC_INT32       (procedure->args[0]) ||
+          ! GIMP_IS_PARAM_SPEC_IMAGE_ID    (procedure->args[1]) ||
+          ! (G_TYPE_FROM_INSTANCE (procedure->args[2])
+                               == GIMP_TYPE_PARAM_LAYER_ID ||
+             G_TYPE_FROM_INSTANCE (procedure->args[2])
+                               == GIMP_TYPE_PARAM_DRAWABLE_ID))
+        {
+          required = "INT32, IMAGE, (LAYER | DRAWABLE)";
+          goto failure;
+        }
+    }
+  else if (g_str_has_prefix (menu_path, "<Channels>"))
+    {
+      if ((procedure->num_args < 3)                             ||
+          ! GIMP_IS_PARAM_SPEC_INT32       (procedure->args[0]) ||
+          ! GIMP_IS_PARAM_SPEC_IMAGE_ID    (procedure->args[1]) ||
+          ! (G_TYPE_FROM_INSTANCE (procedure->args[2])
+                               == GIMP_TYPE_PARAM_CHANNEL_ID ||
+             G_TYPE_FROM_INSTANCE (procedure->args[2])
+                               == GIMP_TYPE_PARAM_DRAWABLE_ID))
+        {
+          required = "INT32, IMAGE, (CHANNEL | DRAWABLE)";
+          goto failure;
+        }
+    }
+  else if (g_str_has_prefix (menu_path, "<Vectors>"))
+    {
+      if ((procedure->num_args < 3)                            ||
+          ! GIMP_IS_PARAM_SPEC_INT32      (procedure->args[0]) ||
+          ! GIMP_IS_PARAM_SPEC_IMAGE_ID   (procedure->args[1]) ||
+          ! GIMP_IS_PARAM_SPEC_VECTORS_ID (procedure->args[2]))
+        {
+          required = "INT32, IMAGE, VECTORS";
+          goto failure;
+        }
+    }
+  else if (g_str_has_prefix (menu_path, "<Colormap>"))
+    {
+      if ((procedure->num_args < 2)                            ||
+          ! GIMP_IS_PARAM_SPEC_INT32      (procedure->args[0]) ||
+          ! GIMP_IS_PARAM_SPEC_IMAGE_ID   (procedure->args[1]))
+        {
+          required = "INT32, IMAGE";
+          goto failure;
+        }
+    }
+  else if (g_str_has_prefix (menu_path, "<Load>"))
+    {
+      if ((procedure->num_args < 3)                       ||
+          ! GIMP_IS_PARAM_SPEC_INT32 (procedure->args[0]) ||
+          ! G_IS_PARAM_SPEC_STRING   (procedure->args[1]) ||
+          ! G_IS_PARAM_SPEC_STRING   (procedure->args[2]))
+        {
+          required = "INT32, STRING, STRING";
+          goto failure;
+        }
+
+      if ((procedure->num_values < 1) ||
+          ! GIMP_IS_PARAM_SPEC_IMAGE_ID (procedure->values[0]))
+        {
+          required = "IMAGE";
+          goto failure;
+        }
+    }
+  else if (g_str_has_prefix (menu_path, "<Save>"))
+    {
+      if ((procedure->num_args < 5)                             ||
+          ! GIMP_IS_PARAM_SPEC_INT32       (procedure->args[0]) ||
+          ! GIMP_IS_PARAM_SPEC_IMAGE_ID    (procedure->args[1]) ||
+          ! GIMP_IS_PARAM_SPEC_DRAWABLE_ID (procedure->args[2]) ||
+          ! G_IS_PARAM_SPEC_STRING         (procedure->args[3]) ||
+          ! G_IS_PARAM_SPEC_STRING         (procedure->args[4]))
+        {
+          required = "INT32, IMAGE, DRAWABLE, STRING, STRING";
+          goto failure;
+        }
+    }
+  else if (g_str_has_prefix (menu_path, "<Brushes>")        ||
+           g_str_has_prefix (menu_path, "<Dynamics>")       ||
+           g_str_has_prefix (menu_path, "<MyPaintBrushes>") ||
+           g_str_has_prefix (menu_path, "<Gradients>")      ||
+           g_str_has_prefix (menu_path, "<Palettes>")       ||
+           g_str_has_prefix (menu_path, "<Patterns>")       ||
+           g_str_has_prefix (menu_path, "<ToolPresets>")    ||
+           g_str_has_prefix (menu_path, "<Fonts>")          ||
+           g_str_has_prefix (menu_path, "<Buffers>"))
+    {
+      if ((procedure->num_args < 1) ||
+          ! GIMP_IS_PARAM_SPEC_INT32 (procedure->args[0]))
+        {
+          required = "INT32";
+          goto failure;
+        }
+    }
+  else
+    {
+      basename = g_path_get_basename (gimp_file_get_utf8_name (proc->file));
+
+      g_set_error (error, GIMP_PLUG_IN_ERROR, GIMP_PLUG_IN_FAILED,
+                   "Plug-in \"%s\"\n(%s)\n"
+                   "attempted to install procedure \"%s\" "
+                   "in the invalid menu location \"%s\".\n"
+                   "Use either \"<Image>\", "
+                   "\"<Layers>\", \"<Channels>\", \"<Vectors>\", "
+                   "\"<Colormap>\", \"<Brushes>\", \"<Dynamics>\", "
+                   "\"<MyPaintBrushes>\", \"<Gradients>\", \"<Palettes>\", "
+                   "\"<Patterns>\", \"<ToolPresets>\", \"<Fonts>\" "
+                   "or \"<Buffers>\".",
+                   basename, gimp_file_get_utf8_name (proc->file),
+                   gimp_object_get_name (proc),
+                   menu_path);
+      goto failure;
+    }
+
+  g_free (basename);
+
+  mapped_path = plug_in_menu_path_map (menu_path, NULL);
+
+  proc->menu_paths = g_list_append (proc->menu_paths, mapped_path);
+
+  g_signal_emit (proc, gimp_plug_in_procedure_signals[MENU_PATH_ADDED], 0,
+                 mapped_path);
+
+  return TRUE;
+
+ failure:
+  if (required)
+    {
+      gchar *prefix = g_strdup (menu_path);
+
+      p = strchr (prefix, '>') + 1;
+      *p = '\0';
+
+      basename = g_path_get_basename (gimp_file_get_utf8_name (proc->file));
+
+      g_set_error (error, GIMP_PLUG_IN_ERROR, GIMP_PLUG_IN_FAILED,
+                   "Plug-in \"%s\"\n(%s)\n\n"
+                   "attempted to install %s procedure \"%s\" "
+                   "which does not take the standard %s plug-in's "
+                   "arguments: (%s).",
+                   basename, gimp_file_get_utf8_name (proc->file),
+                   prefix, gimp_object_get_name (proc), prefix,
+                   required);
+
+      g_free (prefix);
+    }
+
+  g_free (basename);
+
+  return FALSE;
+}
+
+void
+gimp_plug_in_procedure_set_icon (GimpPlugInProcedure *proc,
+                                 GimpIconType         icon_type,
+                                 const guint8        *icon_data,
+                                 gint                 icon_data_length)
+{
+  guint8 *data_copy = NULL;
+
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  switch (icon_type)
+    {
+    case GIMP_ICON_TYPE_ICON_NAME:
+      data_copy = (guint8 *) g_strdup ((gchar *) icon_data);
+      break;
+
+    case GIMP_ICON_TYPE_INLINE_PIXBUF:
+      data_copy = g_memdup (icon_data, icon_data_length);
+      break;
+
+    case GIMP_ICON_TYPE_IMAGE_FILE:
+      data_copy = (guint8 *) g_strdup ((gchar *) icon_data);
+      break;
+
+    default:
+      g_return_if_reached ();
+    }
+
+  gimp_plug_in_procedure_take_icon (proc, icon_type,
+                                    data_copy, icon_data_length);
+}
+
+void
+gimp_plug_in_procedure_take_icon (GimpPlugInProcedure *proc,
+                                  GimpIconType         icon_type,
+                                  guint8              *icon_data,
+                                  gint                 icon_data_length)
+{
+  const gchar *icon_name   = NULL;
+  GdkPixbuf   *icon_pixbuf = NULL;
+  GError      *error       = NULL;
+
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  if (proc->icon_data)
+    {
+      g_free (proc->icon_data);
+      proc->icon_data_length = -1;
+      proc->icon_data        = NULL;
+    }
+
+  proc->icon_type = icon_type;
+
+  switch (proc->icon_type)
+    {
+    case GIMP_ICON_TYPE_ICON_NAME:
+      proc->icon_data_length = -1;
+      proc->icon_data        = icon_data;
+
+      icon_name = (const gchar *) proc->icon_data;
+      break;
+
+    case GIMP_ICON_TYPE_INLINE_PIXBUF:
+      proc->icon_data_length = icon_data_length;
+      proc->icon_data        = icon_data;
+
+      icon_pixbuf = gdk_pixbuf_new_from_inline (proc->icon_data_length,
+                                                proc->icon_data, TRUE, &error);
+      break;
+
+    case GIMP_ICON_TYPE_IMAGE_FILE:
+      proc->icon_data_length = -1;
+      proc->icon_data        = icon_data;
+
+      icon_pixbuf = gdk_pixbuf_new_from_file ((gchar *) proc->icon_data,
+                                              &error);
+      break;
+    }
+
+  if (! icon_pixbuf && error)
+    {
+      g_printerr ("gimp_plug_in_procedure_take_icon: %s\n", error->message);
+      g_clear_error (&error);
+    }
+
+  gimp_viewable_set_icon_name (GIMP_VIEWABLE (proc), icon_name);
+  g_object_set (proc, "icon-pixbuf", icon_pixbuf, NULL);
+
+  if (icon_pixbuf)
+    g_object_unref (icon_pixbuf);
+}
+
+static GimpPlugInImageType
+image_types_parse (const gchar *name,
+                   const gchar *image_types)
+{
+  const gchar         *type_spec = image_types;
+  GimpPlugInImageType  types     = 0;
+
+  /*  If the plug_in registers with image_type == NULL or "", return 0
+   *  By doing so it won't be touched by plug_in_set_menu_sensitivity()
+   */
+  if (! image_types)
+    return types;
+
+  while (*image_types)
+    {
+      while (*image_types &&
+             ((*image_types == ' ') ||
+              (*image_types == '\t') ||
+              (*image_types == ',')))
+        image_types++;
+
+      if (*image_types)
+        {
+          if (g_str_has_prefix (image_types, "RGBA"))
+            {
+              types |= GIMP_PLUG_IN_RGBA_IMAGE;
+              image_types += strlen ("RGBA");
+            }
+          else if (g_str_has_prefix (image_types, "RGB*"))
+            {
+              types |= GIMP_PLUG_IN_RGB_IMAGE | GIMP_PLUG_IN_RGBA_IMAGE;
+              image_types += strlen ("RGB*");
+            }
+          else if (g_str_has_prefix (image_types, "RGB"))
+            {
+              types |= GIMP_PLUG_IN_RGB_IMAGE;
+              image_types += strlen ("RGB");
+            }
+          else if (g_str_has_prefix (image_types, "GRAYA"))
+            {
+              types |= GIMP_PLUG_IN_GRAYA_IMAGE;
+              image_types += strlen ("GRAYA");
+            }
+          else if (g_str_has_prefix (image_types, "GRAY*"))
+            {
+              types |= GIMP_PLUG_IN_GRAY_IMAGE | GIMP_PLUG_IN_GRAYA_IMAGE;
+              image_types += strlen ("GRAY*");
+            }
+          else if (g_str_has_prefix (image_types, "GRAY"))
+            {
+              types |= GIMP_PLUG_IN_GRAY_IMAGE;
+              image_types += strlen ("GRAY");
+            }
+          else if (g_str_has_prefix (image_types, "INDEXEDA"))
+            {
+              types |= GIMP_PLUG_IN_INDEXEDA_IMAGE;
+              image_types += strlen ("INDEXEDA");
+            }
+          else if (g_str_has_prefix (image_types, "INDEXED*"))
+            {
+              types |= GIMP_PLUG_IN_INDEXED_IMAGE | GIMP_PLUG_IN_INDEXEDA_IMAGE;
+              image_types += strlen ("INDEXED*");
+            }
+          else if (g_str_has_prefix (image_types, "INDEXED"))
+            {
+              types |= GIMP_PLUG_IN_INDEXED_IMAGE;
+              image_types += strlen ("INDEXED");
+            }
+          else if (g_str_has_prefix (image_types, "*"))
+            {
+              types |= (GIMP_PLUG_IN_RGB_IMAGE     | GIMP_PLUG_IN_RGBA_IMAGE  |
+                        GIMP_PLUG_IN_GRAY_IMAGE    | GIMP_PLUG_IN_GRAYA_IMAGE |
+                        GIMP_PLUG_IN_INDEXED_IMAGE | GIMP_PLUG_IN_INDEXEDA_IMAGE);
+              image_types += strlen ("*");
+            }
+          else
+            {
+              g_printerr ("%s: image-type contains unrecognizable parts:"
+                          "'%s'\n", name, type_spec);
+
+              /* skip to next token */
+              while (*image_types &&
+                     *image_types != ' '  &&
+                     *image_types != '\t' &&
+                     *image_types != ',')
+                {
+                  image_types++;
+                }
+            }
+        }
+    }
+
+  return types;
+}
+
+void
+gimp_plug_in_procedure_set_image_types (GimpPlugInProcedure *proc,
+                                        const gchar         *image_types)
+{
+  GList *types = NULL;
+
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  if (proc->image_types)
+    g_free (proc->image_types);
+
+  proc->image_types     = g_strdup (image_types);
+  proc->image_types_val = image_types_parse (gimp_object_get_name (proc),
+                                             proc->image_types);
+
+  g_clear_pointer (&proc->image_types_tooltip, g_free);
+
+  if (proc->image_types_val &
+      (GIMP_PLUG_IN_RGB_IMAGE | GIMP_PLUG_IN_RGBA_IMAGE))
+    {
+      if ((proc->image_types_val & GIMP_PLUG_IN_RGB_IMAGE) &&
+          (proc->image_types_val & GIMP_PLUG_IN_RGBA_IMAGE))
+        {
+          types = g_list_prepend (types, _("RGB"));
+        }
+      else if (proc->image_types_val & GIMP_PLUG_IN_RGB_IMAGE)
+        {
+          types = g_list_prepend (types, _("RGB without alpha"));
+        }
+      else
+        {
+          types = g_list_prepend (types, _("RGB with alpha"));
+        }
+    }
+
+  if (proc->image_types_val &
+      (GIMP_PLUG_IN_GRAY_IMAGE | GIMP_PLUG_IN_GRAYA_IMAGE))
+    {
+      if ((proc->image_types_val & GIMP_PLUG_IN_GRAY_IMAGE) &&
+          (proc->image_types_val & GIMP_PLUG_IN_GRAYA_IMAGE))
+        {
+          types = g_list_prepend (types, _("Grayscale"));
+        }
+      else if (proc->image_types_val & GIMP_PLUG_IN_GRAY_IMAGE)
+        {
+          types = g_list_prepend (types, _("Grayscale without alpha"));
+        }
+      else
+        {
+          types = g_list_prepend (types, _("Grayscale with alpha"));
+        }
+    }
+
+  if (proc->image_types_val &
+      (GIMP_PLUG_IN_INDEXED_IMAGE | GIMP_PLUG_IN_INDEXEDA_IMAGE))
+    {
+      if ((proc->image_types_val & GIMP_PLUG_IN_INDEXED_IMAGE) &&
+          (proc->image_types_val & GIMP_PLUG_IN_INDEXEDA_IMAGE))
+        {
+          types = g_list_prepend (types, _("Indexed"));
+        }
+      else if (proc->image_types_val & GIMP_PLUG_IN_INDEXED_IMAGE)
+        {
+          types = g_list_prepend (types, _("Indexed without alpha"));
+        }
+      else
+        {
+          types = g_list_prepend (types, _("Indexed with alpha"));
+        }
+    }
+
+  if (types)
+    {
+      GString *string;
+      GList   *list;
+
+      types = g_list_reverse (types);
+
+      string = g_string_new (gimp_procedure_get_blurb (GIMP_PROCEDURE (proc)));
+
+      g_string_append (string, "\n\n");
+      g_string_append (string, _("This plug-in only works on the "
+                                 "following layer types:"));
+      g_string_append (string, "\n");
+
+      for (list = types; list; list = g_list_next (list))
+        {
+          g_string_append (string, list->data);
+
+          if (list->next)
+            g_string_append (string, ", ");
+          else
+            g_string_append (string, ".");
+        }
+
+      g_list_free (types);
+
+      proc->image_types_tooltip = g_string_free (string, FALSE);
+    }
+}
+
+static GSList *
+extensions_parse (gchar *extensions)
+{
+  GSList *list = NULL;
+
+  /*  extensions can be NULL.  Avoid calling strtok if it is.  */
+  if (extensions)
+    {
+      gchar *extension;
+      gchar *next_token;
+
+      /*  work on a copy  */
+      extensions = g_strdup (extensions);
+
+      next_token = extensions;
+      extension = strtok (next_token, " \t,");
+
+      while (extension)
+        {
+          list = g_slist_prepend (list, g_strdup (extension));
+          extension = strtok (NULL, " \t,");
+        }
+
+      g_free (extensions);
+    }
+
+  return g_slist_reverse (list);
+}
+
+void
+gimp_plug_in_procedure_set_file_proc (GimpPlugInProcedure *proc,
+                                      const gchar         *extensions,
+                                      const gchar         *prefixes,
+                                      const gchar         *magics)
+{
+  GSList *list;
+
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  proc->file_proc = TRUE;
+
+  /*  extensions  */
+
+  if (proc->extensions != extensions)
+    {
+      if (proc->extensions)
+        g_free (proc->extensions);
+
+      proc->extensions = g_strdup (extensions);
+    }
+
+  if (proc->extensions_list)
+    g_slist_free_full (proc->extensions_list, (GDestroyNotify) g_free);
+
+  proc->extensions_list = extensions_parse (proc->extensions);
+
+  /*  prefixes  */
+
+  if (proc->prefixes != prefixes)
+    {
+      if (proc->prefixes)
+        g_free (proc->prefixes);
+
+      proc->prefixes = g_strdup (prefixes);
+    }
+
+  if (proc->prefixes_list)
+    g_slist_free_full (proc->prefixes_list, (GDestroyNotify) g_free);
+
+  proc->prefixes_list = extensions_parse (proc->prefixes);
+
+  /* don't allow "file:" to be registered as prefix */
+  for (list = proc->prefixes_list; list; list = g_slist_next (list))
+    {
+      const gchar *prefix = list->data;
+
+      if (prefix && strcmp (prefix, "file:") == 0)
+        {
+          g_free (list->data);
+          proc->prefixes_list = g_slist_delete_link (proc->prefixes_list, list);
+          break;
+        }
+    }
+
+  /*  magics  */
+
+  if (proc->magics != magics)
+    {
+      if (proc->magics)
+        g_free (proc->magics);
+
+      proc->magics = g_strdup (magics);
+    }
+
+  if (proc->magics_list)
+    g_slist_free_full (proc->magics_list, (GDestroyNotify) g_free);
+
+  proc->magics_list = extensions_parse (proc->magics);
+}
+
+void
+gimp_plug_in_procedure_set_priority (GimpPlugInProcedure *proc,
+                                     gint                 priority)
+{
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  proc->priority = priority;
+}
+
+void
+gimp_plug_in_procedure_set_mime_types (GimpPlugInProcedure *proc,
+                                       const gchar         *mime_types)
+{
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  if (proc->mime_types != mime_types)
+    {
+      if (proc->mime_types)
+        g_free (proc->mime_types);
+
+      proc->mime_types = g_strdup (mime_types);
+    }
+
+  if (proc->mime_types_list)
+    g_slist_free_full (proc->mime_types_list, (GDestroyNotify) g_free);
+
+  proc->mime_types_list = extensions_parse (proc->mime_types);
+}
+
+void
+gimp_plug_in_procedure_set_handles_uri (GimpPlugInProcedure *proc)
+{
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  proc->handles_uri = TRUE;
+}
+
+void
+gimp_plug_in_procedure_set_handles_raw (GimpPlugInProcedure *proc)
+{
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  proc->handles_raw = TRUE;
+}
+
+void
+gimp_plug_in_procedure_set_thumb_loader (GimpPlugInProcedure *proc,
+                                         const gchar         *thumb_loader)
+{
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+
+  if (proc->thumb_loader)
+    g_free (proc->thumb_loader);
+
+  proc->thumb_loader = g_strdup (thumb_loader);
+}
+
+void
+gimp_plug_in_procedure_handle_return_values (GimpPlugInProcedure *proc,
+                                             Gimp                *gimp,
+                                             GimpProgress        *progress,
+                                             GimpValueArray      *return_vals)
+{
+  g_return_if_fail (GIMP_IS_PLUG_IN_PROCEDURE (proc));
+  g_return_if_fail (return_vals != NULL);
+
+  if (gimp_value_array_length (return_vals) == 0 ||
+      G_VALUE_TYPE (gimp_value_array_index (return_vals, 0)) !=
+      GIMP_TYPE_PDB_STATUS_TYPE)
+    {
+      return;
+    }
+
+  switch (g_value_get_enum (gimp_value_array_index (return_vals, 0)))
+    {
+    case GIMP_PDB_SUCCESS:
+      break;
+
+    case GIMP_PDB_CALLING_ERROR:
+      if (gimp_value_array_length (return_vals) > 1 &&
+          G_VALUE_HOLDS_STRING (gimp_value_array_index (return_vals, 1)))
+        {
+          gimp_message (gimp, G_OBJECT (progress), GIMP_MESSAGE_ERROR,
+                        _("Calling error for '%s':\n"
+                          "%s"),
+                        gimp_procedure_get_label (GIMP_PROCEDURE (proc)),
+                        g_value_get_string (gimp_value_array_index (return_vals, 1)));
+        }
+      break;
+
+    case GIMP_PDB_EXECUTION_ERROR:
+      if (gimp_value_array_length (return_vals) > 1 &&
+          G_VALUE_HOLDS_STRING (gimp_value_array_index (return_vals, 1)))
+        {
+          gimp_message (gimp, G_OBJECT (progress), GIMP_MESSAGE_ERROR,
+                        _("Execution error for '%s':\n"
+                          "%s"),
+                        gimp_procedure_get_label (GIMP_PROCEDURE (proc)),
+                        g_value_get_string (gimp_value_array_index (return_vals, 1)));
+        }
+      break;
+    }
+}