215 lines
9.3 KiB
C
215 lines
9.3 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 "tinyscheme/scheme-private.h"
|
||
|
|
#include "script-fu-compat.h"
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Make some PDB procedure names deprecated in ScriptFu.
|
||
|
|
* Until such time as we turn deprecation off and make them obsolete.
|
||
|
|
*
|
||
|
|
* This only makes them deprecated in ScriptFu.
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
/* private */
|
||
|
|
|
||
|
|
static const struct
|
||
|
|
{
|
||
|
|
const gchar *old_name;
|
||
|
|
const gchar *new_name;
|
||
|
|
}
|
||
|
|
compat_procs[] =
|
||
|
|
{
|
||
|
|
/*
|
||
|
|
* deprecations since 2.99
|
||
|
|
*
|
||
|
|
* With respect to ScriptFu,
|
||
|
|
* the old names are *obsolete in the PDB* (as of this writing.)
|
||
|
|
* That is, they don't exist in the PDB with the same signature.
|
||
|
|
* There is no "compatibility" procedure in the PDB.
|
||
|
|
*
|
||
|
|
* With respect to Python using GI, some old names are *NOT* obsolete.
|
||
|
|
* (Where "some" means those dealing with ID.)
|
||
|
|
* I.E. Pika.Image.is_valid() exists but takes a GObject *, not an int ID.
|
||
|
|
*
|
||
|
|
* Original data was constructed more or less by hand, partially automated.
|
||
|
|
*/
|
||
|
|
{ "pika-brightness-contrast" , "pika-drawable-brightness-contrast" },
|
||
|
|
{ "pika-brushes-get-brush" , "pika-context-get-brush" },
|
||
|
|
{ "pika-drawable-is-channel" , "pika-item-id-is-channel" },
|
||
|
|
{ "pika-drawable-is-layer" , "pika-item-id-is-layer" },
|
||
|
|
{ "pika-drawable-is-layer-mask" , "pika-item-id-is-layer-mask" },
|
||
|
|
{ "pika-drawable-is-text-layer" , "pika-item-id-is-text-layer" },
|
||
|
|
{ "pika-drawable-is-valid" , "pika-item-id-is-valid" },
|
||
|
|
{ "pika-drawable-transform-2d" , "pika-item-transform-2d" },
|
||
|
|
{ "pika-drawable-transform-flip" , "pika-item-transform-flip" },
|
||
|
|
{ "pika-drawable-transform-flip-simple" , "pika-item-transform-flip-simple" },
|
||
|
|
{ "pika-drawable-transform-matrix" , "pika-item-transform-matrix" },
|
||
|
|
{ "pika-drawable-transform-perspective" , "pika-item-transform-perspective" },
|
||
|
|
{ "pika-drawable-transform-rotate" , "pika-item-transform-rotate" },
|
||
|
|
{ "pika-drawable-transform-rotate-simple" , "pika-item-transform-rotate-simple" },
|
||
|
|
{ "pika-drawable-transform-scale" , "pika-item-transform-scale" },
|
||
|
|
{ "pika-drawable-transform-shear" , "pika-item-transform-shear" },
|
||
|
|
{ "pika-display-is-valid" , "pika-display-id-is-valid" },
|
||
|
|
{ "pika-image-is-valid" , "pika-image-id-is-valid" },
|
||
|
|
{ "pika-item-is-channel" , "pika-item-id-is-channel" },
|
||
|
|
{ "pika-item-is-drawable" , "pika-item-id-is-drawable" },
|
||
|
|
{ "pika-item-is-layer" , "pika-item-id-is-layer" },
|
||
|
|
{ "pika-item-is-layer-mask" , "pika-item-id-is-layer-mask" },
|
||
|
|
{ "pika-item-is-selection" , "pika-item-id-is-selection" },
|
||
|
|
{ "pika-item-is-text-layer" , "pika-item-id-is-text-layer" },
|
||
|
|
{ "pika-item-is-valid" , "pika-item-id-is-valid" },
|
||
|
|
{ "pika-item-is-vectors" , "pika-item-id-is-vectors" },
|
||
|
|
{ "pika-procedural-db-dump" , "pika-pdb-dump" },
|
||
|
|
{ "pika-procedural-db-get-data" , "pika-pdb-get-data" },
|
||
|
|
{ "pika-procedural-db-set-data" , "pika-pdb-set-data" },
|
||
|
|
{ "pika-procedural-db-get-data-size" , "pika-pdb-get-data-size" },
|
||
|
|
{ "pika-procedural-db-proc-arg" , "pika-pdb-get-proc-argument" },
|
||
|
|
{ "pika-procedural-db-proc-info" , "pika-pdb-get-proc-info" },
|
||
|
|
{ "pika-procedural-db-proc-val" , "pika-pdb-get-proc-return-value" },
|
||
|
|
{ "pika-procedural-db-proc-exists" , "pika-pdb-proc-exists" },
|
||
|
|
{ "pika-procedural-db-query" , "pika-pdb-query" },
|
||
|
|
{ "pika-procedural-db-temp-name" , "pika-pdb-temp-name" },
|
||
|
|
{ "pika-image-get-exported-uri" , "pika-image-get-exported-file" },
|
||
|
|
{ "pika-image-get-imported-uri" , "pika-image-get-imported-file" },
|
||
|
|
{ "pika-image-get-xcf-uri" , "pika-image-get-xcf-file" },
|
||
|
|
{ "pika-image-get-filename" , "pika-image-get-file" },
|
||
|
|
{ "pika-image-set-filename" , "pika-image-set-file" },
|
||
|
|
{ "pika-plugin-menu-register" , "pika-pdb-add-proc-menu-path" },
|
||
|
|
{ "pika-plugin-get-pdb-error-handler" , "pika-plug-in-get-pdb-error-handler" },
|
||
|
|
{ "pika-plugin-help-register" , "pika-plug-in-help-register" },
|
||
|
|
{ "pika-plugin-menu-branch-register" , "pika-plug-in-menu-branch-register" },
|
||
|
|
{ "pika-plugin-set-pdb-error-handler" , "pika-plug-in-set-pdb-error-handler" },
|
||
|
|
{ "pika-plugins-query" , "pika-plug-ins-query" },
|
||
|
|
{ "file-gtm-save" , "file-html-table-save" },
|
||
|
|
{ "python-fu-histogram-export" , "histogram-export" },
|
||
|
|
{ "python-fu-gradient-save-as-css" , "gradient-save-as-css" }
|
||
|
|
};
|
||
|
|
|
||
|
|
static gchar *empty_string = "";
|
||
|
|
|
||
|
|
|
||
|
|
static void
|
||
|
|
define_deprecated_scheme_func (const char *old_name,
|
||
|
|
const char *new_name,
|
||
|
|
const scheme *sc)
|
||
|
|
{
|
||
|
|
gchar *buff;
|
||
|
|
|
||
|
|
/* Creates a definition in Scheme of a function that calls a PDB procedure.
|
||
|
|
*
|
||
|
|
* The magic below that makes it deprecated:
|
||
|
|
* - the "--pika-proc-db-call"
|
||
|
|
* - defining under the old_name but calling the new_name
|
||
|
|
|
||
|
|
* See scheme-wrapper.c, where this was copied from.
|
||
|
|
* But here creates scheme definition of old_name
|
||
|
|
* that calls a PDB procedure of a different name, new_name.
|
||
|
|
*
|
||
|
|
* As functional programming is: eval(define(apply f)).
|
||
|
|
* load_string is more typically called eval().
|
||
|
|
*/
|
||
|
|
buff = g_strdup_printf (" (define (%s . args)"
|
||
|
|
" (apply --pika-proc-db-call \"%s\" args))",
|
||
|
|
old_name, new_name);
|
||
|
|
|
||
|
|
sc->vptr->load_string ((scheme *) sc, buff);
|
||
|
|
|
||
|
|
g_free (buff);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/* public functions */
|
||
|
|
|
||
|
|
/* Define Scheme functions whose name is old name
|
||
|
|
* that call compatible PDB procedures whose name is new name.
|
||
|
|
* Define into the lisp machine.
|
||
|
|
|
||
|
|
* Compatible means: signature same, semantics same.
|
||
|
|
* The new names are not "compatibility" procedures, they are the new procedures.
|
||
|
|
*
|
||
|
|
* This can overwrite existing definitions in the lisp machine.
|
||
|
|
* If the PDB has the old name already
|
||
|
|
* (if a compatibility procedure is defined in the PDB
|
||
|
|
* or the old name exists with a different signature)
|
||
|
|
* and ScriptFu already defined functions for procedures of the PDB,
|
||
|
|
* this will overwrite the ScriptFu definition,
|
||
|
|
* but produce the same overall effect.
|
||
|
|
* The definition here will not call the old name PDB procedure,
|
||
|
|
* but from ScriptFu call the new name PDB procedure.
|
||
|
|
*/
|
||
|
|
void
|
||
|
|
define_compat_procs (scheme *sc)
|
||
|
|
{
|
||
|
|
gint i;
|
||
|
|
|
||
|
|
for (i = 0; i < G_N_ELEMENTS (compat_procs); i++)
|
||
|
|
{
|
||
|
|
define_deprecated_scheme_func (compat_procs[i].old_name,
|
||
|
|
compat_procs[i].new_name,
|
||
|
|
sc);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Return empty string or old_name */
|
||
|
|
/* Used for a warning message */
|
||
|
|
const gchar *
|
||
|
|
deprecated_name_for (const char *new_name)
|
||
|
|
{
|
||
|
|
gint i;
|
||
|
|
const gchar * result = empty_string;
|
||
|
|
|
||
|
|
/* search values of dictionary/map. */
|
||
|
|
for (i = 0; i < G_N_ELEMENTS (compat_procs); i++)
|
||
|
|
{
|
||
|
|
if (strcmp (compat_procs[i].new_name, new_name) == 0)
|
||
|
|
{
|
||
|
|
result = compat_procs[i].old_name;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return result;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Not used.
|
||
|
|
* Keep for future implementation: catch "undefined symbol" from lisp machine.
|
||
|
|
*/
|
||
|
|
gboolean
|
||
|
|
is_deprecated (const char *old_name)
|
||
|
|
{
|
||
|
|
gint i;
|
||
|
|
gboolean result = FALSE;
|
||
|
|
|
||
|
|
/* search keys of dictionary/map. */
|
||
|
|
for (i = 0; i < G_N_ELEMENTS (compat_procs); i++)
|
||
|
|
{
|
||
|
|
if (strcmp (compat_procs[i].old_name, old_name) == 0)
|
||
|
|
{
|
||
|
|
result = TRUE;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return result;
|
||
|
|
}
|
