427 lines
13 KiB
C
427 lines
13 KiB
C
|
/* 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 Spencer Kimball and Peter Mattis
|
||
|
|
*
|
||
|
|
* 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 <gegl.h>
|
||
|
|
#include <gtk/gtk.h>
|
||
|
|
|
||
|
|
#include "libpikabase/pikabase.h"
|
||
|
|
|
||
|
|
#include "actions-types.h"
|
||
|
|
|
||
|
|
#include "core/pika.h"
|
||
|
|
#include "core/pikaimage.h"
|
||
|
|
#include "core/pikadrawable.h"
|
||
|
|
#include "core/pikaparamspecs.h"
|
||
|
|
#include "core/pikaprogress.h"
|
||
|
|
|
||
|
|
#include "pdb/pikaprocedure.h"
|
||
|
|
|
||
|
|
#include "display/pikadisplay.h"
|
||
|
|
|
||
|
|
#include "procedure-commands.h"
|
||
|
|
|
||
|
|
|
||
|
|
static inline gboolean
|
||
|
|
PIKA_IS_PARAM_SPEC_RUN_MODE (GParamSpec *pspec)
|
||
|
|
{
|
||
|
|
return (G_IS_PARAM_SPEC_ENUM (pspec) &&
|
||
|
|
pspec->value_type == PIKA_TYPE_RUN_MODE);
|
||
|
|
}
|
||
|
|
|
||
|
|
PikaValueArray *
|
||
|
|
procedure_commands_get_run_mode_arg (PikaProcedure *procedure)
|
||
|
|
{
|
||
|
|
PikaValueArray *args;
|
||
|
|
gint n_args = 0;
|
||
|
|
|
||
|
|
args = pika_procedure_get_arguments (procedure);
|
||
|
|
|
||
|
|
/* initialize the first argument */
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_RUN_MODE (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
g_value_set_enum (pika_value_array_index (args, n_args),
|
||
|
|
PIKA_RUN_INTERACTIVE);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (n_args > 0)
|
||
|
|
pika_value_array_truncate (args, n_args);
|
||
|
|
|
||
|
|
return args;
|
||
|
|
}
|
||
|
|
|
||
|
|
PikaValueArray *
|
||
|
|
procedure_commands_get_data_args (PikaProcedure *procedure,
|
||
|
|
PikaObject *object)
|
||
|
|
{
|
||
|
|
PikaValueArray *args;
|
||
|
|
gint n_args = 0;
|
||
|
|
|
||
|
|
args = pika_procedure_get_arguments (procedure);
|
||
|
|
|
||
|
|
/* initialize the first argument */
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_RUN_MODE (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
g_value_set_enum (pika_value_array_index (args, n_args),
|
||
|
|
PIKA_RUN_INTERACTIVE);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
G_IS_PARAM_SPEC_STRING (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
if (object)
|
||
|
|
{
|
||
|
|
g_value_set_string (pika_value_array_index (args, n_args),
|
||
|
|
pika_object_get_name (object));
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
g_warning ("Uh-oh, no active data object for the plug-in!");
|
||
|
|
pika_value_array_unref (args);
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (n_args > 0)
|
||
|
|
pika_value_array_truncate (args, n_args);
|
||
|
|
|
||
|
|
return args;
|
||
|
|
}
|
||
|
|
|
||
|
|
PikaValueArray *
|
||
|
|
procedure_commands_get_image_args (PikaProcedure *procedure,
|
||
|
|
PikaImage *image)
|
||
|
|
{
|
||
|
|
PikaValueArray *args;
|
||
|
|
gint n_args = 0;
|
||
|
|
|
||
|
|
args = pika_procedure_get_arguments (procedure);
|
||
|
|
|
||
|
|
/* initialize the first argument */
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_RUN_MODE (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
g_value_set_enum (pika_value_array_index (args, n_args),
|
||
|
|
PIKA_RUN_INTERACTIVE);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_IMAGE (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
if (image)
|
||
|
|
{
|
||
|
|
g_value_set_object (pika_value_array_index (args, n_args), image);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
g_warning ("Uh-oh, no active image for the plug-in!");
|
||
|
|
pika_value_array_unref (args);
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (n_args)
|
||
|
|
pika_value_array_truncate (args, n_args);
|
||
|
|
|
||
|
|
return args;
|
||
|
|
}
|
||
|
|
|
||
|
|
PikaValueArray *
|
||
|
|
procedure_commands_get_items_args (PikaProcedure *procedure,
|
||
|
|
PikaImage *image,
|
||
|
|
GList *items_list)
|
||
|
|
{
|
||
|
|
PikaValueArray *args;
|
||
|
|
gint n_args = 0;
|
||
|
|
|
||
|
|
args = pika_procedure_get_arguments (procedure);
|
||
|
|
|
||
|
|
/* initialize the first argument */
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_RUN_MODE (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
g_value_set_enum (pika_value_array_index (args, n_args),
|
||
|
|
PIKA_RUN_INTERACTIVE);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_IMAGE (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
if (image)
|
||
|
|
{
|
||
|
|
g_value_set_object (pika_value_array_index (args, n_args), image);
|
||
|
|
n_args++;
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_ITEM (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
if (items_list)
|
||
|
|
{
|
||
|
|
g_printerr ("%s: plug-in procedures expecting a single item are deprecated!\n",
|
||
|
|
G_STRFUNC);
|
||
|
|
g_value_set_object (pika_value_array_index (args, n_args),
|
||
|
|
items_list->data);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
g_warning ("Uh-oh, no selected items for the plug-in!");
|
||
|
|
pika_value_array_unref (args);
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if (pika_value_array_length (args) > n_args + 1 &&
|
||
|
|
G_IS_PARAM_SPEC_INT (procedure->args[n_args]) &&
|
||
|
|
PIKA_IS_PARAM_SPEC_OBJECT_ARRAY (procedure->args[n_args + 1]))
|
||
|
|
{
|
||
|
|
PikaItem **items = NULL;
|
||
|
|
gint n_items;
|
||
|
|
|
||
|
|
n_items = g_list_length (items_list);
|
||
|
|
|
||
|
|
g_value_set_int (pika_value_array_index (args, n_args++),
|
||
|
|
n_items);
|
||
|
|
|
||
|
|
if (items_list)
|
||
|
|
{
|
||
|
|
GList *iter;
|
||
|
|
gint i;
|
||
|
|
|
||
|
|
items = g_new (PikaItem *, n_items);
|
||
|
|
for (iter = items_list, i = 0; iter; iter = iter->next, i++)
|
||
|
|
items[i] = iter->data;
|
||
|
|
}
|
||
|
|
|
||
|
|
pika_value_set_object_array (pika_value_array_index (args, n_args++),
|
||
|
|
PIKA_TYPE_ITEM,
|
||
|
|
(GObject **) items, n_items);
|
||
|
|
|
||
|
|
g_free (items);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (n_args)
|
||
|
|
pika_value_array_truncate (args, n_args);
|
||
|
|
|
||
|
|
return args;
|
||
|
|
}
|
||
|
|
|
||
|
|
PikaValueArray *
|
||
|
|
procedure_commands_get_display_args (PikaProcedure *procedure,
|
||
|
|
PikaDisplay *display,
|
||
|
|
PikaObject *settings)
|
||
|
|
{
|
||
|
|
PikaValueArray *args;
|
||
|
|
gint n_args = 0;
|
||
|
|
|
||
|
|
args = pika_procedure_get_arguments (procedure);
|
||
|
|
|
||
|
|
/* initialize the first argument */
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_RUN_MODE (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
g_value_set_enum (pika_value_array_index (args, n_args),
|
||
|
|
PIKA_RUN_INTERACTIVE);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_DISPLAY (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
if (display)
|
||
|
|
{
|
||
|
|
g_value_set_object (pika_value_array_index (args, n_args), display);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
g_warning ("Uh-oh, no active display for the plug-in!");
|
||
|
|
pika_value_array_unref (args);
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_IMAGE (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
PikaImage *image = display ? pika_display_get_image (display) : NULL;
|
||
|
|
|
||
|
|
if (image)
|
||
|
|
{
|
||
|
|
GList *drawables_list = pika_image_get_selected_drawables (image);
|
||
|
|
|
||
|
|
g_value_set_object (pika_value_array_index (args, n_args), image);
|
||
|
|
n_args++;
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
PIKA_IS_PARAM_SPEC_DRAWABLE (procedure->args[n_args]))
|
||
|
|
{
|
||
|
|
if (drawables_list)
|
||
|
|
{
|
||
|
|
g_printerr ("%s: plug-in procedures expecting a single drawable are deprecated!\n",
|
||
|
|
G_STRFUNC);
|
||
|
|
g_value_set_object (pika_value_array_index (args, n_args),
|
||
|
|
drawables_list->data);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
g_warning ("Uh-oh, no selected drawables for the plug-in!");
|
||
|
|
|
||
|
|
pika_value_array_unref (args);
|
||
|
|
g_list_free (drawables_list);
|
||
|
|
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if (pika_value_array_length (args) > n_args + 1 &&
|
||
|
|
G_IS_PARAM_SPEC_INT (procedure->args[n_args]) &&
|
||
|
|
PIKA_IS_PARAM_SPEC_OBJECT_ARRAY (procedure->args[n_args + 1]))
|
||
|
|
{
|
||
|
|
PikaDrawable **drawables = NULL;
|
||
|
|
gint n_drawables;
|
||
|
|
|
||
|
|
n_drawables = g_list_length (drawables_list);
|
||
|
|
|
||
|
|
g_value_set_int (pika_value_array_index (args, n_args++),
|
||
|
|
n_drawables);
|
||
|
|
|
||
|
|
if (drawables_list)
|
||
|
|
{
|
||
|
|
GList *iter;
|
||
|
|
gint i;
|
||
|
|
|
||
|
|
drawables = g_new (PikaDrawable *, n_drawables);
|
||
|
|
for (iter = drawables_list, i = 0; iter; iter = iter->next, i++)
|
||
|
|
drawables[i] = iter->data;
|
||
|
|
}
|
||
|
|
|
||
|
|
pika_value_set_object_array (pika_value_array_index (args, n_args++),
|
||
|
|
PIKA_TYPE_DRAWABLE,
|
||
|
|
(GObject **) drawables, n_drawables);
|
||
|
|
|
||
|
|
g_free (drawables);
|
||
|
|
}
|
||
|
|
g_list_free (drawables_list);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > n_args &&
|
||
|
|
g_type_is_a (G_PARAM_SPEC_VALUE_TYPE (procedure->args[n_args]),
|
||
|
|
PIKA_TYPE_OBJECT))
|
||
|
|
{
|
||
|
|
g_value_set_object (pika_value_array_index (args, n_args), settings);
|
||
|
|
n_args++;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (n_args)
|
||
|
|
pika_value_array_truncate (args, n_args);
|
||
|
|
|
||
|
|
return args;
|
||
|
|
}
|
||
|
|
|
||
|
|
gboolean
|
||
|
|
procedure_commands_run_procedure (PikaProcedure *procedure,
|
||
|
|
Pika *pika,
|
||
|
|
PikaProgress *progress,
|
||
|
|
PikaValueArray *args)
|
||
|
|
{
|
||
|
|
PikaValueArray *return_vals;
|
||
|
|
GError *error = NULL;
|
||
|
|
|
||
|
|
g_return_val_if_fail (PIKA_IS_PROCEDURE (procedure), FALSE);
|
||
|
|
g_return_val_if_fail (PIKA_IS_PIKA (pika), FALSE);
|
||
|
|
g_return_val_if_fail (progress == NULL || PIKA_IS_PROGRESS (progress), FALSE);
|
||
|
|
g_return_val_if_fail (args != NULL, FALSE);
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > 0 &&
|
||
|
|
PIKA_IS_PARAM_SPEC_RUN_MODE (procedure->args[0]))
|
||
|
|
g_value_set_enum (pika_value_array_index (args, 0),
|
||
|
|
PIKA_RUN_NONINTERACTIVE);
|
||
|
|
|
||
|
|
return_vals = pika_procedure_execute (procedure, pika,
|
||
|
|
pika_get_user_context (pika),
|
||
|
|
progress, args,
|
||
|
|
&error);
|
||
|
|
pika_value_array_unref (return_vals);
|
||
|
|
|
||
|
|
if (error)
|
||
|
|
{
|
||
|
|
pika_message_literal (pika,
|
||
|
|
G_OBJECT (progress), PIKA_MESSAGE_ERROR,
|
||
|
|
error->message);
|
||
|
|
g_clear_error (&error);
|
||
|
|
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
gboolean
|
||
|
|
procedure_commands_run_procedure_async (PikaProcedure *procedure,
|
||
|
|
Pika *pika,
|
||
|
|
PikaProgress *progress,
|
||
|
|
PikaRunMode run_mode,
|
||
|
|
PikaValueArray *args,
|
||
|
|
PikaDisplay *display)
|
||
|
|
{
|
||
|
|
GError *error = NULL;
|
||
|
|
|
||
|
|
g_return_val_if_fail (PIKA_IS_PROCEDURE (procedure), FALSE);
|
||
|
|
g_return_val_if_fail (PIKA_IS_PIKA (pika), FALSE);
|
||
|
|
g_return_val_if_fail (progress == NULL || PIKA_IS_PROGRESS (progress), FALSE);
|
||
|
|
g_return_val_if_fail (display == NULL || PIKA_IS_DISPLAY (display), FALSE);
|
||
|
|
g_return_val_if_fail (args != NULL, FALSE);
|
||
|
|
|
||
|
|
if (pika_value_array_length (args) > 0 &&
|
||
|
|
PIKA_IS_PARAM_SPEC_RUN_MODE (procedure->args[0]))
|
||
|
|
g_value_set_enum (pika_value_array_index (args, 0),
|
||
|
|
run_mode);
|
||
|
|
|
||
|
|
pika_procedure_execute_async (procedure, pika,
|
||
|
|
pika_get_user_context (pika),
|
||
|
|
progress, args,
|
||
|
|
display, &error);
|
||
|
|
|
||
|
|
if (error)
|
||
|
|
{
|
||
|
|
pika_message_literal (pika,
|
||
|
|
G_OBJECT (progress), PIKA_MESSAGE_ERROR,
|
||
|
|
error->message);
|
||
|
|
g_clear_error (&error);
|
||
|
|
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
