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

991 lines
28 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 Spencer Kimball and Peter Mattis
*
* pikaplugin.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"
#ifndef _WIN32
#define _GNU_SOURCE
#endif
#include <errno.h>
#include <signal.h>
#include <stdlib.h>
#include <string.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#ifdef HAVE_SYS_WAIT_H
#include <sys/wait.h>
#endif
#ifdef HAVE_SYS_PARAM_H
#include <sys/param.h>
#endif
#include <gdk-pixbuf/gdk-pixbuf.h>
#include <gegl.h>
#if defined(G_OS_WIN32) || defined(G_WITH_CYGWIN)
#define STRICT
#include <windows.h>
#include <process.h>
#ifdef G_OS_WIN32
#include <fcntl.h>
#include <io.h>
#ifndef pipe
#define pipe(fds) _pipe(fds, 4096, _O_BINARY)
#endif
#endif
#ifdef G_WITH_CYGWIN
#define O_TEXT 0x0100 /* text file */
#define _O_TEXT 0x0100 /* text file */
#define O_BINARY 0x0200 /* binary file */
#define _O_BINARY 0x0200 /* binary file */
#endif
#endif /* G_OS_WIN32 || G_WITH_CYGWIN */
#include "libpikabase/pikabase.h"
#include "libpikabase/pikaprotocol.h"
#include "libpikabase/pikawire.h"
#include "plug-in-types.h"
#include "core/pika.h"
#include "core/pika-spawn.h"
#include "core/pikaprogress.h"
#include "pdb/pikapdbcontext.h"
#include "pikaenvirontable.h"
#include "pikainterpreterdb.h"
#include "pikaplugin.h"
#include "pikaplugin-message.h"
#include "pikaplugin-progress.h"
#include "pikaplugindebug.h"
#include "pikaplugindef.h"
#include "pikapluginmanager.h"
#include "pikapluginmanager-help-domain.h"
#include "pikatemporaryprocedure.h"
#include "pika-intl.h"
static void pika_plug_in_finalize (GObject *object);
static gboolean pika_plug_in_recv_message (GIOChannel *channel,
GIOCondition cond,
gpointer data);
static gboolean pika_plug_in_write (GIOChannel *channel,
const guint8 *buf,
gulong count,
gpointer data);
static gboolean pika_plug_in_flush (GIOChannel *channel,
gpointer data);
#if defined G_OS_WIN32 && defined WIN32_32BIT_DLL_FOLDER
static void pika_plug_in_set_dll_directory (const gchar *path);
#endif
#ifndef G_OS_WIN32
static void pika_plug_in_close_waitpid (GPid pid,
gint status,
PikaPlugIn *plug_in);
#endif
G_DEFINE_TYPE (PikaPlugIn, pika_plug_in, PIKA_TYPE_OBJECT)
#define parent_class pika_plug_in_parent_class
static void
pika_plug_in_class_init (PikaPlugInClass *klass)
{
GObjectClass *object_class = G_OBJECT_CLASS (klass);
object_class->finalize = pika_plug_in_finalize;
/* initialize the pika protocol library and set the read and
* write handlers.
*/
gp_init ();
pika_wire_set_writer (pika_plug_in_write);
pika_wire_set_flusher (pika_plug_in_flush);
}
static void
pika_plug_in_init (PikaPlugIn *plug_in)
{
plug_in->manager = NULL;
plug_in->file = NULL;
plug_in->call_mode = PIKA_PLUG_IN_CALL_NONE;
plug_in->open = FALSE;
plug_in->hup = FALSE;
plug_in->pid = 0;
plug_in->my_read = NULL;
plug_in->my_write = NULL;
plug_in->his_read = NULL;
plug_in->his_write = NULL;
plug_in->input_id = 0;
plug_in->write_buffer_index = 0;
plug_in->temp_procedures = NULL;
plug_in->ext_main_loop = NULL;
plug_in->temp_proc_frames = NULL;
plug_in->plug_in_def = NULL;
}
static void
pika_plug_in_finalize (GObject *object)
{
PikaPlugIn *plug_in = PIKA_PLUG_IN (object);
g_clear_object (&plug_in->file);
pika_plug_in_proc_frame_dispose (&plug_in->main_proc_frame, plug_in);
G_OBJECT_CLASS (parent_class)->finalize (object);
}
static gboolean
pika_plug_in_recv_message (GIOChannel *channel,
GIOCondition cond,
gpointer data)
{
PikaPlugIn *plug_in = data;
gboolean got_message = FALSE;
#ifdef G_OS_WIN32
/* Workaround for GLib bug #137968: sometimes we are called for no
* reason...
*/
if (cond == 0)
return TRUE;
#endif
if (plug_in->my_read == NULL)
return TRUE;
g_object_ref (plug_in);
if (cond & (G_IO_IN | G_IO_PRI))
{
PikaWireMessage msg;
memset (&msg, 0, sizeof (PikaWireMessage));
if (! pika_wire_read_msg (plug_in->my_read, &msg, plug_in))
{
pika_plug_in_close (plug_in, TRUE);
}
else
{
pika_plug_in_handle_message (plug_in, &msg);
pika_wire_destroy (&msg);
got_message = TRUE;
}
}
if (cond & (G_IO_ERR | G_IO_HUP))
{
if (cond & G_IO_HUP)
plug_in->hup = TRUE;
if (plug_in->open)
pika_plug_in_close (plug_in, TRUE);
}
if (! got_message)
{
PikaPlugInProcFrame *frame = pika_plug_in_get_proc_frame (plug_in);
PikaProgress *progress = frame ? frame->progress : NULL;
pika_message (plug_in->manager->pika, G_OBJECT (progress),
PIKA_MESSAGE_ERROR,
_("Plug-in crashed: \"%s\"\n(%s)\n\n"
"The dying plug-in may have messed up PIKA's internal "
"state. You may want to save your images and restart "
"PIKA to be on the safe side."),
pika_object_get_name (plug_in),
pika_file_get_utf8_name (plug_in->file));
}
g_object_unref (plug_in);
return TRUE;
}
static gboolean
pika_plug_in_write (GIOChannel *channel,
const guint8 *buf,
gulong count,
gpointer data)
{
PikaPlugIn *plug_in = data;
gulong bytes;
while (count > 0)
{
if ((plug_in->write_buffer_index + count) >= WRITE_BUFFER_SIZE)
{
bytes = WRITE_BUFFER_SIZE - plug_in->write_buffer_index;
memcpy (&plug_in->write_buffer[plug_in->write_buffer_index],
buf, bytes);
plug_in->write_buffer_index += bytes;
if (! pika_wire_flush (channel, plug_in))
return FALSE;
}
else
{
bytes = count;
memcpy (&plug_in->write_buffer[plug_in->write_buffer_index],
buf, bytes);
plug_in->write_buffer_index += bytes;
}
buf += bytes;
count -= bytes;
}
return TRUE;
}
static gboolean
pika_plug_in_flush (GIOChannel *channel,
gpointer data)
{
PikaPlugIn *plug_in = data;
if (plug_in->write_buffer_index > 0)
{
GIOStatus status;
GError *error = NULL;
gint count;
gsize bytes;
count = 0;
while (count != plug_in->write_buffer_index)
{
do
{
bytes = 0;
status = g_io_channel_write_chars (channel,
&plug_in->write_buffer[count],
(plug_in->write_buffer_index - count),
&bytes,
&error);
}
while (status == G_IO_STATUS_AGAIN);
if (status != G_IO_STATUS_NORMAL)
{
if (error)
{
g_warning ("%s: plug_in_flush(): error: %s",
pika_filename_to_utf8 (g_get_prgname ()),
error->message);
g_error_free (error);
}
else
{
g_warning ("%s: plug_in_flush(): error",
pika_filename_to_utf8 (g_get_prgname ()));
}
return FALSE;
}
count += bytes;
}
plug_in->write_buffer_index = 0;
}
return TRUE;
}
#if defined G_OS_WIN32 && defined WIN32_32BIT_DLL_FOLDER
static void
pika_plug_in_set_dll_directory (const gchar *path)
{
LPWSTR w_path;
const gchar *install_dir;
gchar *bin_dir;
LPWSTR w_bin_dir;
DWORD BinaryType;
w_path = NULL;
w_bin_dir = NULL;
install_dir = pika_installation_directory ();
if (path &&
(w_path = g_utf8_to_utf16 (path, -1, NULL, NULL, NULL)) &&
GetBinaryTypeW (w_path, &BinaryType) &&
BinaryType == SCS_32BIT_BINARY)
bin_dir = g_build_filename (install_dir, WIN32_32BIT_DLL_FOLDER, NULL);
else
bin_dir = g_build_filename (install_dir, "bin", NULL);
w_bin_dir = g_utf8_to_utf16 (bin_dir, -1, NULL, NULL, NULL);
if (w_bin_dir)
{
SetDllDirectoryW (w_bin_dir);
g_free (w_bin_dir);
}
g_free (bin_dir);
g_free (w_path);
}
#endif
#ifndef G_OS_WIN32
static void
pika_plug_in_close_waitpid (GPid pid,
gint status,
PikaPlugIn *plug_in)
{
GError *error = NULL;
if (plug_in->manager->pika->be_verbose &&
! g_spawn_check_wait_status (status, &error))
{
g_printerr ("Process for plug-in '%s' terminated with error: %s\n",
pika_object_get_name (plug_in),
error->message);
}
g_clear_error (&error);
g_spawn_close_pid (pid);
}
#endif
/* public functions */
PikaPlugIn *
pika_plug_in_new (PikaPlugInManager *manager,
PikaContext *context,
PikaProgress *progress,
PikaPlugInProcedure *procedure,
GFile *file)
{
PikaPlugIn *plug_in;
g_return_val_if_fail (PIKA_IS_PLUG_IN_MANAGER (manager), NULL);
g_return_val_if_fail (PIKA_IS_PDB_CONTEXT (context), NULL);
g_return_val_if_fail (progress == NULL || PIKA_IS_PROGRESS (progress), NULL);
g_return_val_if_fail (procedure == NULL ||
PIKA_IS_PLUG_IN_PROCEDURE (procedure), NULL);
g_return_val_if_fail (file == NULL || G_IS_FILE (file), NULL);
g_return_val_if_fail ((procedure != NULL || file != NULL) &&
! (procedure != NULL && file != NULL), NULL);
plug_in = g_object_new (PIKA_TYPE_PLUG_IN, NULL);
if (! file)
file = pika_plug_in_procedure_get_file (procedure);
pika_object_take_name (PIKA_OBJECT (plug_in),
g_path_get_basename (pika_file_get_utf8_name (file)));
plug_in->manager = manager;
plug_in->file = g_object_ref (file);
pika_plug_in_proc_frame_init (&plug_in->main_proc_frame,
context, progress, procedure);
return plug_in;
}
gboolean
pika_plug_in_open (PikaPlugIn *plug_in,
PikaPlugInCallMode call_mode,
gboolean synchronous)
{
gchar *progname;
gint my_read[2];
gint my_write[2];
gchar **envp;
const gchar *args[10];
gchar **argv;
gint argc;
gchar protocol_version[8];
gchar *interp, *interp_arg;
gchar *his_read_fd, *his_write_fd;
const gchar *mode;
gchar *stm;
GError *error = NULL;
gboolean debug;
guint debug_flag;
guint spawn_flags;
g_return_val_if_fail (PIKA_IS_PLUG_IN (plug_in), FALSE);
g_return_val_if_fail (plug_in->call_mode == PIKA_PLUG_IN_CALL_NONE, FALSE);
/* Open two pipes. (Bidirectional communication).
*/
if ((pipe (my_read) == -1) || (pipe (my_write) == -1))
{
pika_message (plug_in->manager->pika, NULL, PIKA_MESSAGE_ERROR,
"Unable to run plug-in \"%s\"\n(%s)\n\npipe() failed: %s",
pika_object_get_name (plug_in),
pika_file_get_utf8_name (plug_in->file),
g_strerror (errno));
return FALSE;
}
#if defined(G_WITH_CYGWIN)
/* Set to binary mode */
setmode (my_read[0], _O_BINARY);
setmode (my_write[0], _O_BINARY);
setmode (my_read[1], _O_BINARY);
setmode (my_write[1], _O_BINARY);
#endif
/* Prevent the plug-in from inheriting our end of the pipes */
pika_spawn_set_cloexec (my_read[0]);
pika_spawn_set_cloexec (my_write[1]);
#ifdef G_OS_WIN32
plug_in->my_read = g_io_channel_win32_new_fd (my_read[0]);
plug_in->my_write = g_io_channel_win32_new_fd (my_write[1]);
plug_in->his_read = g_io_channel_win32_new_fd (my_write[0]);
plug_in->his_write = g_io_channel_win32_new_fd (my_read[1]);
#else
plug_in->my_read = g_io_channel_unix_new (my_read[0]);
plug_in->my_write = g_io_channel_unix_new (my_write[1]);
plug_in->his_read = g_io_channel_unix_new (my_write[0]);
plug_in->his_write = g_io_channel_unix_new (my_read[1]);
#endif
g_io_channel_set_encoding (plug_in->my_read, NULL, NULL);
g_io_channel_set_encoding (plug_in->my_write, NULL, NULL);
g_io_channel_set_encoding (plug_in->his_read, NULL, NULL);
g_io_channel_set_encoding (plug_in->his_write, NULL, NULL);
g_io_channel_set_buffered (plug_in->my_read, FALSE);
g_io_channel_set_buffered (plug_in->my_write, FALSE);
g_io_channel_set_buffered (plug_in->his_read, FALSE);
g_io_channel_set_buffered (plug_in->his_write, FALSE);
g_io_channel_set_close_on_unref (plug_in->my_read, TRUE);
g_io_channel_set_close_on_unref (plug_in->my_write, TRUE);
g_io_channel_set_close_on_unref (plug_in->his_read, TRUE);
g_io_channel_set_close_on_unref (plug_in->his_write, TRUE);
/* Remember the file descriptors for the pipes.
*/
his_read_fd = g_strdup_printf ("%d",
g_io_channel_unix_get_fd (plug_in->his_read));
his_write_fd = g_strdup_printf ("%d",
g_io_channel_unix_get_fd (plug_in->his_write));
switch (call_mode)
{
case PIKA_PLUG_IN_CALL_QUERY:
mode = "-query";
debug_flag = PIKA_DEBUG_WRAP_QUERY;
break;
case PIKA_PLUG_IN_CALL_INIT:
mode = "-init";
debug_flag = PIKA_DEBUG_WRAP_INIT;
break;
case PIKA_PLUG_IN_CALL_RUN:
mode = "-run";
debug_flag = PIKA_DEBUG_WRAP_RUN;
break;
default:
pika_assert_not_reached ();
}
stm = g_strdup_printf ("%d", plug_in->manager->pika->stack_trace_mode);
progname = g_file_get_path (plug_in->file);
interp = pika_interpreter_db_resolve (plug_in->manager->interpreter_db,
progname, &interp_arg);
argc = 0;
if (interp)
args[argc++] = interp;
if (interp_arg)
args[argc++] = interp_arg;
g_snprintf (protocol_version, sizeof (protocol_version),
"%d", PIKA_PROTOCOL_VERSION);
args[argc++] = progname;
args[argc++] = "-pika";
args[argc++] = protocol_version;
args[argc++] = his_read_fd;
args[argc++] = his_write_fd;
args[argc++] = mode;
args[argc++] = stm;
args[argc++] = NULL;
argv = (gchar **) args;
envp = pika_environ_table_get_envp (plug_in->manager->environ_table);
spawn_flags = (G_SPAWN_LEAVE_DESCRIPTORS_OPEN |
G_SPAWN_DO_NOT_REAP_CHILD |
G_SPAWN_CHILD_INHERITS_STDIN);
debug = FALSE;
if (plug_in->manager->debug)
{
gchar **debug_argv = pika_plug_in_debug_argv (plug_in->manager->debug,
progname,
debug_flag, args);
if (debug_argv)
{
debug = TRUE;
argv = debug_argv;
spawn_flags |= G_SPAWN_SEARCH_PATH;
}
}
/* Fork another process. We'll remember the process id so that we
* can later use it to kill the filter if necessary.
*/
#if defined G_OS_WIN32 && defined WIN32_32BIT_DLL_FOLDER
pika_plug_in_set_dll_directory (argv[0]);
#endif
if (! pika_spawn_async (argv, envp, spawn_flags, &plug_in->pid, &error))
{
pika_message (plug_in->manager->pika, NULL, PIKA_MESSAGE_ERROR,
"Unable to run plug-in \"%s\"\n(%s)\n\n%s",
pika_object_get_name (plug_in),
pika_file_get_utf8_name (plug_in->file),
error->message);
g_clear_error (&error);
goto cleanup;
}
g_clear_pointer (&plug_in->his_read, g_io_channel_unref);
g_clear_pointer (&plug_in->his_write, g_io_channel_unref);
if (! synchronous)
{
GSource *source;
source = g_io_create_watch (plug_in->my_read,
G_IO_IN | G_IO_PRI | G_IO_ERR | G_IO_HUP);
g_source_set_callback (source,
(GSourceFunc) pika_plug_in_recv_message, plug_in,
NULL);
g_source_set_can_recurse (source, TRUE);
plug_in->input_id = g_source_attach (source, NULL);
g_source_unref (source);
}
plug_in->open = TRUE;
plug_in->call_mode = call_mode;
pika_plug_in_manager_add_open_plug_in (plug_in->manager, plug_in);
cleanup:
#if defined G_OS_WIN32 && defined WIN32_32BIT_DLL_FOLDER
pika_plug_in_set_dll_directory (NULL);
#endif
if (debug)
g_free (argv);
g_free (his_read_fd);
g_free (his_write_fd);
g_free (stm);
g_free (interp);
g_free (interp_arg);
g_free (progname);
return plug_in->open;
}
void
pika_plug_in_close (PikaPlugIn *plug_in,
gboolean kill_it)
{
g_return_if_fail (PIKA_IS_PLUG_IN (plug_in));
g_return_if_fail (plug_in->open);
plug_in->open = FALSE;
if (plug_in->pid)
{
#ifndef G_OS_WIN32
gint status;
#endif
/* Ask the filter to exit gracefully,
but not if it is closed because of a broken pipe. */
if (kill_it && ! plug_in->hup)
{
gp_quit_write (plug_in->my_write, plug_in);
/* give the plug-in some time (10 ms) */
g_usleep (10000);
}
/* If necessary, kill the filter. */
#ifndef G_OS_WIN32
if (kill_it)
{
if (plug_in->manager->pika->be_verbose)
g_print ("Terminating plug-in: '%s'\n",
pika_file_get_utf8_name (plug_in->file));
/* If the plug-in opened a process group, kill the group instead
* of only the plug-in, so we kill the plug-in's children too
*/
if (getpgid (0) != getpgid (plug_in->pid))
status = kill (- plug_in->pid, SIGKILL);
else
status = kill (plug_in->pid, SIGKILL);
/* Wait for the process to exit. This will happen
* immediately as it was just killed.
*/
waitpid (plug_in->pid, &status, 0);
}
else
{
/*
* If we don't kill it, it means the plug-in ended normally
* hence its process should just return without problem. And
* this is the case nearly all the time. Yet I had this one
* case where the process would never return (even though the
* plug-in returned with a result and no errors) and a
* waitpid() would block the main process forever.
* Thus use instead a child watch source. My idea was that in
* the rare case when the child process doesn't return, it is
* better to leave a zombie than freeze the core. As it turns
* out, doing this even made the broken process exit (does
* g_child_watch_add_full() do something better than
* waitpid()?).
*/
g_object_ref (plug_in);
g_child_watch_add_full (G_PRIORITY_LOW, plug_in->pid,
(GChildWatchFunc) pika_plug_in_close_waitpid,
plug_in, (GDestroyNotify) g_object_unref);
}
#else /* G_OS_WIN32 */
if (kill_it)
{
/* Trying to avoid TerminateProcess (does mostly work).
* Otherwise some of our needed DLLs may get into an
* unstable state (see Win32 API docs).
*/
DWORD dwExitCode = STILL_ACTIVE;
DWORD dwTries = 10;
while (dwExitCode == STILL_ACTIVE &&
GetExitCodeProcess ((HANDLE) plug_in->pid, &dwExitCode) &&
(dwTries > 0))
{
Sleep (10);
dwTries--;
}
if (dwExitCode == STILL_ACTIVE)
{
if (plug_in->manager->pika->be_verbose)
g_print ("Terminating plug-in: '%s'\n",
pika_file_get_utf8_name (plug_in->file));
TerminateProcess ((HANDLE) plug_in->pid, 0);
}
}
g_spawn_close_pid (plug_in->pid);
#endif /* G_OS_WIN32 */
plug_in->pid = 0;
}
/* Remove the input handler. */
if (plug_in->input_id)
{
g_source_remove (plug_in->input_id);
plug_in->input_id = 0;
}
/* Close the pipes. */
g_clear_pointer (&plug_in->my_read, g_io_channel_unref);
g_clear_pointer (&plug_in->my_write, g_io_channel_unref);
g_clear_pointer (&plug_in->his_read, g_io_channel_unref);
g_clear_pointer (&plug_in->his_write, g_io_channel_unref);
pika_wire_clear_error ();
while (plug_in->temp_proc_frames)
{
PikaPlugInProcFrame *proc_frame = plug_in->temp_proc_frames->data;
#ifdef PIKA_UNSTABLE
g_printerr ("plug-in '%s' aborted before sending its "
"temporary procedure return values\n",
pika_object_get_name (plug_in));
#endif
if (proc_frame->main_loop &&
g_main_loop_is_running (proc_frame->main_loop))
{
g_main_loop_quit (proc_frame->main_loop);
}
/* pop the frame here, because normally this only happens in
* pika_plug_in_handle_temp_proc_return(), which can't
* be called after plug_in_close()
*/
pika_plug_in_proc_frame_pop (plug_in);
}
if (plug_in->main_proc_frame.main_loop &&
g_main_loop_is_running (plug_in->main_proc_frame.main_loop))
{
#ifdef PIKA_UNSTABLE
g_printerr ("plug-in '%s' aborted before sending its "
"procedure return values\n",
pika_object_get_name (plug_in));
#endif
g_main_loop_quit (plug_in->main_proc_frame.main_loop);
}
if (plug_in->ext_main_loop &&
g_main_loop_is_running (plug_in->ext_main_loop))
{
#ifdef PIKA_UNSTABLE
g_printerr ("extension '%s' aborted before sending its "
"extension_ack message\n",
pika_object_get_name (plug_in));
#endif
g_main_loop_quit (plug_in->ext_main_loop);
}
/* Unregister any temporary procedures. */
while (plug_in->temp_procedures)
pika_plug_in_remove_temp_proc (plug_in, plug_in->temp_procedures->data);
pika_plug_in_manager_remove_open_plug_in (plug_in->manager, plug_in);
}
PikaPlugInProcFrame *
pika_plug_in_get_proc_frame (PikaPlugIn *plug_in)
{
g_return_val_if_fail (PIKA_IS_PLUG_IN (plug_in), NULL);
if (plug_in->temp_proc_frames)
return plug_in->temp_proc_frames->data;
else
return &plug_in->main_proc_frame;
}
PikaPlugInProcFrame *
pika_plug_in_proc_frame_push (PikaPlugIn *plug_in,
PikaContext *context,
PikaProgress *progress,
PikaTemporaryProcedure *procedure)
{
PikaPlugInProcFrame *proc_frame;
g_return_val_if_fail (PIKA_IS_PLUG_IN (plug_in), NULL);
g_return_val_if_fail (PIKA_IS_PDB_CONTEXT (context), NULL);
g_return_val_if_fail (progress == NULL || PIKA_IS_PROGRESS (progress), NULL);
g_return_val_if_fail (PIKA_IS_TEMPORARY_PROCEDURE (procedure), NULL);
proc_frame = pika_plug_in_proc_frame_new (context, progress,
PIKA_PLUG_IN_PROCEDURE (procedure));
plug_in->temp_proc_frames = g_list_prepend (plug_in->temp_proc_frames,
proc_frame);
return proc_frame;
}
void
pika_plug_in_proc_frame_pop (PikaPlugIn *plug_in)
{
PikaPlugInProcFrame *proc_frame;
g_return_if_fail (PIKA_IS_PLUG_IN (plug_in));
g_return_if_fail (plug_in->temp_proc_frames != NULL);
proc_frame = (PikaPlugInProcFrame *) plug_in->temp_proc_frames->data;
pika_plug_in_proc_frame_unref (proc_frame, plug_in);
plug_in->temp_proc_frames = g_list_remove (plug_in->temp_proc_frames,
proc_frame);
}
void
pika_plug_in_main_loop (PikaPlugIn *plug_in)
{
PikaPlugInProcFrame *proc_frame;
g_return_if_fail (PIKA_IS_PLUG_IN (plug_in));
g_return_if_fail (plug_in->temp_proc_frames != NULL);
proc_frame = (PikaPlugInProcFrame *) plug_in->temp_proc_frames->data;
g_return_if_fail (proc_frame->main_loop == NULL);
proc_frame->main_loop = g_main_loop_new (NULL, FALSE);
g_main_loop_run (proc_frame->main_loop);
g_clear_pointer (&proc_frame->main_loop, g_main_loop_unref);
}
void
pika_plug_in_main_loop_quit (PikaPlugIn *plug_in)
{
PikaPlugInProcFrame *proc_frame;
g_return_if_fail (PIKA_IS_PLUG_IN (plug_in));
g_return_if_fail (plug_in->temp_proc_frames != NULL);
proc_frame = (PikaPlugInProcFrame *) plug_in->temp_proc_frames->data;
g_return_if_fail (proc_frame->main_loop != NULL);
g_main_loop_quit (proc_frame->main_loop);
}
const gchar *
pika_plug_in_get_undo_desc (PikaPlugIn *plug_in)
{
PikaPlugInProcFrame *proc_frame;
const gchar *undo_desc = NULL;
g_return_val_if_fail (PIKA_IS_PLUG_IN (plug_in), NULL);
proc_frame = pika_plug_in_get_proc_frame (plug_in);
if (proc_frame && proc_frame->procedure)
undo_desc = pika_procedure_get_label (proc_frame->procedure);
return undo_desc ? undo_desc : pika_object_get_name (plug_in);
}
void
pika_plug_in_add_temp_proc (PikaPlugIn *plug_in,
PikaTemporaryProcedure *proc)
{
PikaPlugInProcedure *overridden;
const gchar *help_domain;
g_return_if_fail (PIKA_IS_PLUG_IN (plug_in));
g_return_if_fail (PIKA_IS_TEMPORARY_PROCEDURE (proc));
overridden = pika_plug_in_procedure_find (plug_in->temp_procedures,
pika_object_get_name (proc));
if (overridden)
pika_plug_in_remove_temp_proc (plug_in,
PIKA_TEMPORARY_PROCEDURE (overridden));
help_domain = pika_plug_in_manager_get_help_domain (plug_in->manager,
plug_in->file,
NULL);
pika_plug_in_procedure_set_help_domain (PIKA_PLUG_IN_PROCEDURE (proc),
help_domain);
plug_in->temp_procedures = g_slist_prepend (plug_in->temp_procedures,
g_object_ref (proc));
pika_plug_in_manager_add_temp_proc (plug_in->manager, proc);
}
void
pika_plug_in_remove_temp_proc (PikaPlugIn *plug_in,
PikaTemporaryProcedure *proc)
{
g_return_if_fail (PIKA_IS_PLUG_IN (plug_in));
g_return_if_fail (PIKA_IS_TEMPORARY_PROCEDURE (proc));
plug_in->temp_procedures = g_slist_remove (plug_in->temp_procedures, proc);
pika_plug_in_manager_remove_temp_proc (plug_in->manager, proc);
g_object_unref (proc);
}
void
pika_plug_in_set_error_handler (PikaPlugIn *plug_in,
PikaPDBErrorHandler handler)
{
PikaPlugInProcFrame *proc_frame;
g_return_if_fail (PIKA_IS_PLUG_IN (plug_in));
proc_frame = pika_plug_in_get_proc_frame (plug_in);
if (proc_frame)
proc_frame->error_handler = handler;
}
PikaPDBErrorHandler
pika_plug_in_get_error_handler (PikaPlugIn *plug_in)
{
PikaPlugInProcFrame *proc_frame;
g_return_val_if_fail (PIKA_IS_PLUG_IN (plug_in),
PIKA_PDB_ERROR_HANDLER_INTERNAL);
proc_frame = pika_plug_in_get_proc_frame (plug_in);
if (proc_frame)
return proc_frame->error_handler;
return PIKA_PDB_ERROR_HANDLER_INTERNAL;
}