callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reordered and renamed functions to be consistent. Got rid of file-global

Browse Source 
2008-09-11  Michael Natterer  <mitch@gimp.org>

	* plug-ins/script-fu/scheme-wrapper.[ch]: reordered and renamed
	functions to be consistent. Got rid of file-global "register_scripts"
	variable. Pass more "scheme *sc" pointers around to reduce usage
	or the global variable.

	* plug-ins/script-fu/script-fu-eval.c
	* plug-ins/script-fu/script-fu-scripts.c
	* plug-ins/script-fu/script-fu-server.c
	* plug-ins/script-fu/script-fu.c: changed accordingly.


svn path=/trunk/; revision=26928
This commit is contained in:
Michael Natterer
2008-09-11 18:00:18 +00:00
committed by Michael Natterer
parent af9817b466
commit c76db26367
7 changed files with 267 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ChangeLog
View File

@ -1,3 +1,15 @@
2008-09-11 Michael Natterer <mitch@gimp.org>
* plug-ins/script-fu/scheme-wrapper.[ch]: reordered and renamed
functions to be consistent. Got rid of file-global "register_scripts"
variable. Pass more "scheme *sc" pointers around to reduce usage
or the global variable.
* plug-ins/script-fu/script-fu-eval.c
* plug-ins/script-fu/script-fu-scripts.c
* plug-ins/script-fu/script-fu-server.c
* plug-ins/script-fu/script-fu.c: changed accordingly.
2008-09-11 Michael Natterer <mitch@gimp.org> 2008-09-11 Michael Natterer <mitch@gimp.org>
* app/core/gimp-modules.c (gimp_modules_unload): make a string * app/core/gimp-modules.c (gimp_modules_unload): make a string

455
plug-ins/script-fu/scheme-wrapper.c
View File

@ -23,7 +23,7 @@
#include "config.h" #include "config.h"
#include <string.h> /* memcpy, strcpy, strlen */ #include <string.h>
#include <glib/gstdio.h> #include <glib/gstdio.h>
@ -47,15 +47,35 @@
#include "scheme-wrapper.h" #include "scheme-wrapper.h"
#undef cons #undef cons
struct named_constant static void ts_init_constants (scheme *sc);
static void ts_init_procedures (scheme *sc,
gboolean register_scipts);
static void convert_string (gchar *str);
static pointer script_fu_marshal_procedure_call (scheme *sc,
pointer a);
static void script_fu_marshal_destroy_args (GimpParam *params,
gint n_params);
static pointer script_fu_register_call (scheme *sc,
pointer a);
static pointer script_fu_menu_register_call (scheme *sc,
pointer a);
static pointer script_fu_quit_call (scheme *sc,
pointer a);
static pointer script_fu_nil_call (scheme *sc,
pointer a);
typedef struct
{ {
const gchar *name; const gchar *name;
gint value; gint value;
}; } NamedConstant;
struct named_constant const script_constants[] = static const NamedConstant const script_constants[] =
{ {
/* Useful values from libgimpbase/gimplimits.h */ /* Useful values from libgimpbase/gimplimits.h */
{ "MIN-IMAGE-SIZE", GIMP_MIN_IMAGE_SIZE }, { "MIN-IMAGE-SIZE", GIMP_MIN_IMAGE_SIZE },
@ -108,7 +128,7 @@ struct named_constant const script_constants[] =
* included to keep backwards compatability with * included to keep backwards compatability with
* older scripts used with version 2.0 of GIMP. * older scripts used with version 2.0 of GIMP.
*/ */
struct named_constant const old_constants[] = static const NamedConstant const old_constants[] =
{ {
{ "NORMAL", GIMP_NORMAL_MODE }, { "NORMAL", GIMP_NORMAL_MODE },
{ "DISSOLVE", GIMP_DISSOLVE_MODE }, { "DISSOLVE", GIMP_DISSOLVE_MODE },
@ -190,25 +210,83 @@ static scheme sc;
void void
ts_stdout_output_func (TsOutputType type, tinyscheme_init (const gchar *path,
const char *string, gboolean register_scripts)
int len,
gpointer user_data)
{ {
if (len < 0) /* init the interpreter */
len = strlen (string); if (! scheme_init (&sc))
fprintf (stdout, "%.*s", len, string); {
g_message ("Could not initialize TinyScheme!");
return;
}
scheme_set_input_port_file (&sc, stdin);
scheme_set_output_port_file (&sc, stdout);
ts_register_output_func (ts_stdout_output_func, NULL);
/* Initialize the TinyScheme extensions */
init_ftx (&sc);
script_fu_regex_init (&sc);
/* register in the interpreter the gimp functions and types. */
ts_init_constants (&sc);
ts_init_procedures (&sc, register_scripts);
if (path)
{
GList *dir_list = gimp_path_parse (path, 16, TRUE, NULL);
GList *list;
for (list = dir_list; list; list = g_list_next (list))
{
gchar *filename = g_build_filename (list->data,
"script-fu.init", NULL);
FILE *fin = g_fopen (filename, "rb");
g_free (filename);
if (fin)
{
scheme_load_file (&sc, fin);
fclose (fin);
/* To improve compatibility with older Script-Fu scripts,
* load script-fu-compat.init from the same directory.
*/
filename = g_build_filename (list->data,
"script-fu-compat.init", NULL);
fin = g_fopen (filename, "rb");
g_free (filename);
if (fin)
{
scheme_load_file (&sc, fin);
fclose (fin);
}
break;
}
}
if (list == NULL)
g_printerr ("Unable to read initialization file script-fu.init\n");
gimp_path_free (dir_list);
}
} }
/* Create an SF-RUN-MODE constant for use in scripts.
* It is set to the run mode state determined by GIMP.
*/
void void
ts_gstring_output_func (TsOutputType type, ts_set_run_mode (GimpRunMode run_mode)
const char *string,
int len,
gpointer user_data)
{ {
GString *gstr = (GString *) user_data; pointer symbol;
g_string_append_len (gstr, string, len); symbol = sc.vptr->mk_symbol (&sc, "SF-RUN-MODE");
sc.vptr->scheme_define (&sc, sc.global_env, symbol,
sc.vptr->mk_integer (&sc, run_mode));
sc.vptr->setimmutable (symbol);
} }
void void
@ -254,151 +332,67 @@ ts_get_success_msg (void)
return "Success"; return "Success";
} }
static void init_constants (void);
static void init_procedures (void);
static gboolean register_scripts = FALSE;
void void
tinyscheme_init (const gchar *path, ts_stdout_output_func (TsOutputType type,
gboolean local_register_scripts) const char *string,
int len,
gpointer user_data)
{ {
register_scripts = local_register_scripts; if (len < 0)
len = strlen (string);
/* init the interpreter */ fprintf (stdout, "%.*s", len, string);
if (!scheme_init (&sc))
{
g_message ("Could not initialize TinyScheme!");
return;
}
scheme_set_input_port_file (&sc, stdin);
scheme_set_output_port_file (&sc, stdout);
ts_register_output_func (ts_stdout_output_func, NULL);
/* Initialize the TinyScheme extensions */
init_ftx (&sc);
script_fu_regex_init (&sc);
/* register in the interpreter the gimp functions and types. */
init_constants ();
init_procedures ();
if (path)
{
GList *dir_list = gimp_path_parse (path, 16, TRUE, NULL);
GList *list;
for (list = dir_list; list; list = g_list_next (list))
{
gchar *filename = g_build_filename (list->data,
"script-fu.init", NULL);
FILE *fin = g_fopen (filename, "rb");
g_free (filename);
if (fin)
{
scheme_load_file (&sc, fin);
fclose (fin);
/* To improve compatibility with older Script-Fu scripts,
* load script-fu-compat.init from the same directory.
*/
filename = g_build_filename (list->data,
"script-fu-compat.init", NULL);
fin = g_fopen (filename, "rb");
g_free (filename);
if (fin)
{
scheme_load_file (&sc, fin);
fclose (fin);
}
break;
}
}
if (list == NULL)
g_printerr ("Unable to read initialization file script-fu.init\n");
gimp_path_free (dir_list);
}
} }
void void
tinyscheme_deinit (void) ts_gstring_output_func (TsOutputType type,
const char *string,
int len,
gpointer user_data)
{ {
scheme_deinit (&sc); GString *gstr = (GString *) user_data;
g_string_append_len (gstr, string, len);
} }
/* Create an SF-RUN-MODE constant for use in scripts. */
/* It is set to the run mode state determined by GIMP. */
void
set_run_mode_constant (GimpRunMode run_mode)
{
pointer symbol;
symbol = sc.vptr->mk_symbol (&sc, "SF-RUN-MODE");
sc.vptr->scheme_define (&sc, sc.global_env, symbol,
sc.vptr->mk_integer (&sc, run_mode));
sc.vptr->setimmutable (symbol);
}
static void convert_string (gchar *str);
static pointer script_fu_marshal_procedure_call (scheme *sc,
pointer a);
static void script_fu_marshal_destroy_args (GimpParam *params,
gint n_params);
static pointer script_fu_register_call (scheme *sc,
pointer a);
static pointer script_fu_menu_register_call (scheme *sc,
pointer a);
static pointer script_fu_quit_call (scheme *sc,
pointer a);
/* private functions */
/* /*
* Below can be found the functions responsible for registering the * Below can be found the functions responsible for registering the
* gimp functions and types against the scheme interpreter. * gimp functions and types against the scheme interpreter.
*/ */
static void static void
init_constants (void) ts_init_constants (scheme *sc)
{ {
const gchar **enum_type_names; const gchar **enum_type_names;
gint n_enum_type_names; gint n_enum_type_names;
gint i; gint i;
pointer symbol; pointer symbol;
symbol = sc.vptr->mk_symbol (&sc, "gimp-directory"); symbol = sc->vptr->mk_symbol (sc, "gimp-directory");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_string (&sc, gimp_directory ())); sc->vptr->mk_string (sc, gimp_directory ()));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
symbol = sc.vptr->mk_symbol (&sc, "gimp-data-directory"); symbol = sc->vptr->mk_symbol (sc, "gimp-data-directory");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_string (&sc, gimp_data_directory ())); sc->vptr->mk_string (sc, gimp_data_directory ()));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
symbol = sc.vptr->mk_symbol (&sc, "gimp-plug-in-directory"); symbol = sc->vptr->mk_symbol (sc, "gimp-plug-in-directory");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_string (&sc, gimp_plug_in_directory ())); sc->vptr->mk_string (sc, gimp_plug_in_directory ()));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
symbol = sc.vptr->mk_symbol (&sc, "gimp-locale-directory"); symbol = sc->vptr->mk_symbol (sc, "gimp-locale-directory");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_string (&sc, gimp_locale_directory ())); sc->vptr->mk_string (sc, gimp_locale_directory ()));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
symbol = sc.vptr->mk_symbol (&sc, "gimp-sysconf-directory"); symbol = sc->vptr->mk_symbol (sc, "gimp-sysconf-directory");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_string (&sc, gimp_sysconf_directory ())); sc->vptr->mk_string (sc, gimp_sysconf_directory ()));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
enum_type_names = gimp_enums_get_type_names (&n_enum_type_names); enum_type_names = gimp_enums_get_type_names (&n_enum_type_names);
@ -418,10 +412,10 @@ init_constants (void)
scheme_name = g_strdup (value->value_name + strlen ("GIMP_")); scheme_name = g_strdup (value->value_name + strlen ("GIMP_"));
convert_string (scheme_name); convert_string (scheme_name);
symbol = sc.vptr->mk_symbol (&sc, scheme_name); symbol = sc->vptr->mk_symbol (sc, scheme_name);
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_integer (&sc, value->value)); sc->vptr->mk_integer (sc, value->value));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
g_free (scheme_name); g_free (scheme_name);
} }
@ -433,47 +427,48 @@ init_constants (void)
/* Constants used in the register block of scripts */ /* Constants used in the register block of scripts */
for (i = 0; script_constants[i].name != NULL; ++i) for (i = 0; script_constants[i].name != NULL; ++i)
{ {
symbol = sc.vptr->mk_symbol (&sc, script_constants[i].name); symbol = sc->vptr->mk_symbol (sc, script_constants[i].name);
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_integer (&sc, sc->vptr->mk_integer (sc,
script_constants[i].value)); script_constants[i].value));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
} }
/* Define string constant for use in building paths to files/directories */ /* Define string constant for use in building paths to files/directories */
symbol = sc.vptr->mk_symbol (&sc, "DIR-SEPARATOR"); symbol = sc->vptr->mk_symbol (sc, "DIR-SEPARATOR");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_string (&sc, G_DIR_SEPARATOR_S)); sc->vptr->mk_string (sc, G_DIR_SEPARATOR_S));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
/* These constants are deprecated and will be removed at a later date. */ /* These constants are deprecated and will be removed at a later date. */
symbol = sc.vptr->mk_symbol (&sc, "gimp-dir"); symbol = sc->vptr->mk_symbol (sc, "gimp-dir");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_string (&sc, gimp_directory () )); sc->vptr->mk_string (sc, gimp_directory () ));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
symbol = sc.vptr->mk_symbol (&sc, "gimp-data-dir"); symbol = sc->vptr->mk_symbol (sc, "gimp-data-dir");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_string (&sc, gimp_data_directory () )); sc->vptr->mk_string (sc, gimp_data_directory () ));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
symbol = sc.vptr->mk_symbol (&sc, "gimp-plugin-dir"); symbol = sc->vptr->mk_symbol (sc, "gimp-plugin-dir");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_string (&sc, gimp_plug_in_directory () )); sc->vptr->mk_string (sc, gimp_plug_in_directory () ));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
for (i = 0; old_constants[i].name != NULL; ++i) for (i = 0; old_constants[i].name != NULL; ++i)
{ {
symbol = sc.vptr->mk_symbol (&sc, old_constants[i].name); symbol = sc->vptr->mk_symbol (sc, old_constants[i].name);
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_integer (&sc, sc->vptr->mk_integer (sc,
old_constants[i].value)); old_constants[i].value));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
} }
} }
static void static void
init_procedures (void) ts_init_procedures (scheme *sc,
gboolean register_scripts)
{ {
gchar **proc_list; gchar **proc_list;
gchar *proc_blurb; gchar *proc_blurb;
@ -492,35 +487,39 @@ init_procedures (void)
pointer symbol; pointer symbol;
#if USE_DL #if USE_DL
symbol = sc.vptr->mk_symbol (&sc,"load-extension"); symbol = sc->vptr->mk_symbol (sc,"load-extension");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_foreign_func (&sc, scm_load_ext)); sc->vptr->mk_foreign_func (sc, scm_load_ext));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
#endif #endif
symbol = sc.vptr->mk_symbol (&sc, "script-fu-register"); symbol = sc->vptr->mk_symbol (sc, "script-fu-register");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_foreign_func (&sc, sc->vptr->mk_foreign_func (sc,
script_fu_register_call)); register_scripts ?
sc.vptr->setimmutable(symbol); script_fu_register_call :
script_fu_nil_call));
sc->vptr->setimmutable (symbol);
symbol = sc.vptr->mk_symbol (&sc, "script-fu-menu-register"); symbol = sc->vptr->mk_symbol (sc, "script-fu-menu-register");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_foreign_func (&sc, sc->vptr->mk_foreign_func (sc,
script_fu_menu_register_call)); register_scripts ?
sc.vptr->setimmutable(symbol); script_fu_menu_register_call :
script_fu_nil_call));
sc->vptr->setimmutable (symbol);
symbol = sc.vptr->mk_symbol (&sc, "script-fu-quit"); symbol = sc->vptr->mk_symbol (sc, "script-fu-quit");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_foreign_func (&sc, script_fu_quit_call)); sc->vptr->mk_foreign_func (sc, script_fu_quit_call));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
/* register the database execution procedure */ /* register the database execution procedure */
symbol = sc.vptr->mk_symbol (&sc, "gimp-proc-db-call"); symbol = sc->vptr->mk_symbol (sc, "gimp-proc-db-call");
sc.vptr->scheme_define (&sc, sc.global_env, symbol, sc->vptr->scheme_define (sc, sc->global_env, symbol,
sc.vptr->mk_foreign_func (&sc, sc->vptr->mk_foreign_func (sc,
script_fu_marshal_procedure_call)); script_fu_marshal_procedure_call));
sc.vptr->setimmutable(symbol); sc->vptr->setimmutable (symbol);
gimp_procedural_db_query (".*", ".*", ".*", ".*", ".*", ".*", ".*", gimp_procedural_db_query (".*", ".*", ".*", ".*", ".*", ".*", ".*",
&num_procs, &proc_list); &num_procs, &proc_list);
@ -538,37 +537,38 @@ init_procedures (void)
&proc_type, &proc_type,
&nparams, &nreturn_vals, &nparams, &nreturn_vals,
&params, &return_vals)) &params, &return_vals))
{ {
/* Build a define that will call the foreign function */ /* Build a define that will call the foreign function.
/* The Scheme statement was suggested by Simon Budig */ * The Scheme statement was suggested by Simon Budig.
if (nparams == 0) */
{ if (nparams == 0)
buff = g_strdup_printf (" (define (%s)" {
" (gimp-proc-db-call \"%s\"))", buff = g_strdup_printf (" (define (%s)"
proc_list[i], proc_list[i]); " (gimp-proc-db-call \"%s\"))",
} proc_list[i], proc_list[i]);
else }
{ else
buff = g_strdup_printf (" (define %s (lambda x" {
" (apply gimp-proc-db-call (cons \"%s\" x))))", buff = g_strdup_printf (" (define %s (lambda x"
proc_list[i], proc_list[i]); " (apply gimp-proc-db-call (cons \"%s\" x))))",
} proc_list[i], proc_list[i]);
}
/* Execute the 'define' */ /* Execute the 'define' */
sc.vptr->load_string (&sc, buff); sc->vptr->load_string (sc, buff);
g_free (buff); g_free (buff);
/* free the queried information */ /* free the queried information */
g_free (proc_blurb); g_free (proc_blurb);
g_free (proc_help); g_free (proc_help);
g_free (proc_author); g_free (proc_author);
g_free (proc_copyright); g_free (proc_copyright);
g_free (proc_date); g_free (proc_date);
gimp_destroy_paramdefs (params, nparams); gimp_destroy_paramdefs (params, nparams);
gimp_destroy_paramdefs (return_vals, nreturn_vals); gimp_destroy_paramdefs (return_vals, nreturn_vals);
} }
g_free (proc_list[i]); g_free (proc_list[i]);
} }
@ -1759,20 +1759,14 @@ static pointer
script_fu_register_call (scheme *sc, script_fu_register_call (scheme *sc,
pointer a) pointer a)
{ {
if (register_scripts) return script_fu_add_script (sc, a);
return script_fu_add_script (sc, a);
else
return sc->NIL;
} }
static pointer static pointer
script_fu_menu_register_call (scheme *sc, script_fu_menu_register_call (scheme *sc,
pointer a) pointer a)
{ {
if (register_scripts) return script_fu_add_menu (sc, a);
return script_fu_add_menu (sc, a);
else
return sc->NIL;
} }
static pointer static pointer
@ -1785,3 +1779,10 @@ script_fu_quit_call (scheme *sc,
return sc->NIL; return sc->NIL;
} }
static pointer
script_fu_nil_call (scheme *sc,
pointer a)
{
return sc->NIL;
}

42
plug-ins/script-fu/scheme-wrapper.h
View File

@ -16,35 +16,33 @@
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/ */
#ifndef SCHEME_WRAPPER_H #ifndef __SCHEME_WRAPPER_H__
#define SCHEME_WRAPPER_H #define __SCHEME_WRAPPER_H__
#include "tinyscheme/scheme.h" #include "tinyscheme/scheme.h"
void ts_stdout_output_func (TsOutputType type, void tinyscheme_init (const gchar *path,
const char *string, gboolean register_scripts);
int len,
gpointer user_data);
void ts_gstring_output_func (TsOutputType type, void ts_set_run_mode (GimpRunMode run_mode);
const char *string,
int len,
gpointer user_data);
void ts_set_print_flag (gint); void ts_set_print_flag (gint print_flag);
void ts_print_welcome (void); void ts_print_welcome (void);
const gchar * ts_get_success_msg (void); const gchar * ts_get_success_msg (void);
void tinyscheme_init (const gchar *path, void ts_interpret_stdin (void);
gboolean local_register_scripts);
void tinyscheme_deinit (void);
void set_run_mode_constant (GimpRunMode run_mode);
void ts_interpret_stdin (void);
/* if the return value is 0, success. error otherwise. */ /* if the return value is 0, success. error otherwise. */
gint ts_interpret_string (const gchar *); gint ts_interpret_string (const gchar *expr);
#endif /* SCHEME_WRAPPER_H */ void ts_stdout_output_func (TsOutputType type,
const char *string,
int len,
gpointer user_data);
void ts_gstring_output_func (TsOutputType type,
const char *string,
int len,
gpointer user_data);
#endif /* __SCHEME_WRAPPER_H__ */

2
plug-ins/script-fu/script-fu-eval.c
View File

@ -44,7 +44,7 @@ script_fu_eval_run (const gchar *name,
run_mode = params[0].data.d_int32; run_mode = params[0].data.d_int32;
set_run_mode_constant (run_mode); ts_set_run_mode (run_mode);
switch (run_mode) switch (run_mode)
{ {

5
plug-ins/script-fu/script-fu-scripts.c
View File

@ -627,7 +627,8 @@ script_fu_add_script (scheme *sc,
} }
pointer pointer
script_fu_add_menu (scheme *sc, pointer a) script_fu_add_menu (scheme *sc,
pointer a)
{ {
SFScript *script; SFScript *script;
SFMenu *menu; SFMenu *menu;
@ -926,7 +927,7 @@ script_fu_script_proc (const gchar *name,
{ {
GimpRunMode run_mode = params[0].data.d_int32; GimpRunMode run_mode = params[0].data.d_int32;
set_run_mode_constant (run_mode); ts_set_run_mode (run_mode);
switch (run_mode) switch (run_mode)
{ {

3
plug-ins/script-fu/script-fu-server.c
View File

@ -199,7 +199,8 @@ script_fu_server_run (const gchar *name,
GimpRunMode run_mode; GimpRunMode run_mode;
run_mode = params[0].data.d_int32; run_mode = params[0].data.d_int32;
set_run_mode_constant (run_mode);
ts_set_run_mode (run_mode);
switch (run_mode) switch (run_mode)
{ {

2
plug-ins/script-fu/script-fu.c
View File

@ -197,7 +197,7 @@ script_fu_run (const gchar *name,
} }
if (param != NULL) if (param != NULL)
set_run_mode_constant ((GimpRunMode) param[0].data.d_int32); ts_set_run_mode ((GimpRunMode) param[0].data.d_int32);
/* Load all of the available scripts */ /* Load all of the available scripts */
script_fu_find_scripts (path); script_fu_find_scripts (path);