mirror of
https://gitlab.gnome.org/GNOME/gimp.git
synced 2025-07-04 01:43:24 +00:00
5cc3becf16
Changes are mostly to the dir structures and build system for ScriptFu. Some changes to the outer plugin source to call the library. Why: so that other executables (future gimp-scheme-interpreter, or a future separated script-fu-server) can exist in separate directories, and share the library in memory (when built shared.) Whether the library is built shared and installed on its own (versus static and not installed) is a compile time option (both automake LibTool and meson abstract it away) The default is shared and installed, say as libgimp-scriptfu-3.0.so. Installed alongside other shared libraries (e.g. wherever libgimp is installed) to simplify packaging. A preliminary refactoring which helps enable MR gimp!647
141 lines
3.5 KiB
C
141 lines
3.5 KiB
C
|
|
/* GIMP - The GNU Image Manipulation Program
|
|
* 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 <libgimp/gimp.h>
|
|
/* FIXME script-fu-types.h refers to GtkAdjustment. */
|
|
#include <libgimp/gimpui.h>
|
|
|
|
#include "script-fu-lib.h"
|
|
|
|
#include "script-fu-types.h" /* SFScript */
|
|
#include "scheme-wrapper.h" /* tinyscheme_init etc, */
|
|
#include "script-fu-scripts.h" /* script_fu_find_scripts */
|
|
#include "script-fu-interface.h" /* script_fu_interface_is_active */
|
|
|
|
|
|
/*
|
|
* The purpose here is a small, clean API to the exported functions of the library,
|
|
* hiding internal types of the library
|
|
* and hiding functions not static but not exported.
|
|
*
|
|
* Some are simple delegation to scheme_wrapper functions,
|
|
* but others adapt
|
|
* and some call functions not in scheme_wrapper.c
|
|
*/
|
|
|
|
|
|
/*
|
|
* Return whether extension-script-fu has an open dialog.
|
|
* extension-script-fu is a single process.
|
|
* It cannot have concurrent dialogs open in the GIMP app.
|
|
*
|
|
* Other plugins implementing PLUGIN type PDB procedures
|
|
* in their own process (e.g. gimp-scheme-interpreter) do not need this.
|
|
*/
|
|
gboolean
|
|
script_fu_extension_is_busy (void)
|
|
{
|
|
return script_fu_interface_is_active ();
|
|
}
|
|
|
|
/*
|
|
* Find files at given paths, load them into the interpreter,
|
|
* and register them as PDB procs of type TEMPORARY,
|
|
* owned by the PDB proc of type PLUGIN for the given plugin.
|
|
*/
|
|
void
|
|
script_fu_find_and_register_scripts ( GimpPlugIn *plugin,
|
|
GList *paths)
|
|
{
|
|
script_fu_find_scripts (plugin, paths);
|
|
}
|
|
|
|
void
|
|
script_fu_init_embedded_interpreter ( GList *paths,
|
|
gboolean allow_register,
|
|
GimpRunMode run_mode)
|
|
{
|
|
tinyscheme_init (paths, allow_register);
|
|
ts_set_run_mode (run_mode);
|
|
}
|
|
|
|
void
|
|
script_fu_set_print_flag (gboolean should_print)
|
|
{
|
|
ts_set_print_flag (should_print);
|
|
}
|
|
|
|
/*
|
|
* Make tinyscheme begin writing output to given gstring.
|
|
*/
|
|
void
|
|
script_fu_redirect_output_to_gstr (GString *output)
|
|
{
|
|
ts_register_output_func (ts_gstring_output_func, output);
|
|
}
|
|
|
|
void
|
|
script_fu_redirect_output_to_stdout (void)
|
|
{
|
|
ts_register_output_func (ts_stdout_output_func, NULL);
|
|
}
|
|
|
|
void
|
|
script_fu_print_welcome (void)
|
|
{
|
|
ts_print_welcome ();
|
|
}
|
|
|
|
gboolean
|
|
script_fu_interpret_string (const gchar *text)
|
|
{
|
|
/*converting from enum to boolean */
|
|
return (gboolean) ts_interpret_string (text);
|
|
}
|
|
|
|
void
|
|
script_fu_set_run_mode (GimpRunMode run_mode)
|
|
{
|
|
ts_set_run_mode (run_mode);
|
|
}
|
|
|
|
const gchar *
|
|
script_fu_get_success_msg (void)
|
|
{
|
|
return ts_get_success_msg ();
|
|
}
|
|
|
|
void
|
|
script_fu_run_read_eval_print_loop (void)
|
|
{
|
|
ts_interpret_stdin ();
|
|
}
|
|
|
|
void
|
|
script_fu_register_quit_callback (void (*func) (void))
|
|
{
|
|
ts_register_quit_callback (func);
|
|
}
|
|
|
|
void
|
|
script_fu_register_post_command_callback (void (*func) (void))
|
|
{
|
|
ts_register_post_command_callback (func);
|
|
}
|