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

Modified Files: ChangeLog app/Makefile.am app/channel.c

Browse Source 
Modified Files:
 	ChangeLog app/Makefile.am app/channel.c app/drawable_cmds.c
 	app/drawable_cmds.h app/gimage_cmds.c app/gimage_cmds.h
 	app/gimpdrawable.c app/gimpdrawable.h app/gimpdrawableP.h
 	app/gimpimage.c app/gimpimage.h app/gimpimageP.h
 	app/internal_procs.c app/layer.c app/plug_in.c
 	app/procedural_db.c app/procedural_db.h libgimp/Makefile.am
 	libgimp/gimp.c libgimp/gimp.h libgimp/gimpdrawable.c
 	libgimp/gimpenums.h libgimp/gimpimage.c libgimp/gimpprotocol.c
 	libgimp/gimpprotocol.h plug-ins/dbbrowser/dbbrowser_utils.c
 	plug-ins/script-fu/script-fu.c plug-ins/tiff/tiff.c
 Added Files:
 	app/parasite.c app/parasite.h app/parasiteF.h app/parasiteP.h
 	app/parasite_cmds.c app/parasite_cmds.h libgimp/gimpparasite.c
 	libgimp/gimpparasite.h

   	Allow plug-ins (and scripts) to attach arbitrary data
	(parasites) to images, layers and channels that can be read
	back at a later time.
This commit is contained in:
jaycox
1998-10-08 08:15:21 +00:00
parent 6217c7ee4b
commit e2a601d444
85 changed files with 3085 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -354,13 +354,14 @@ init_procedures ()
static void
init_constants ()
{
GParam *return_vals;
GParam *return_vals = NULL;
gint nreturn_vals;
return_vals = gimp_run_procedure ("gimp_gimprc_query",
&nreturn_vals,
PARAM_STRING, "gimp_data_dir",
PARAM_END);
if (return_vals[0].data.d_status == STATUS_SUCCESS)
setvar (cintern ("gimp-data-dir"), strcons (-1, return_vals[1].data.d_string), NIL);
gimp_destroy_params (return_vals, nreturn_vals);
@ -767,6 +768,36 @@ marshall_proc_db_call (LISP a)
case PARAM_PATH:
return my_err ("Paths are currently unsupported as arguments", car (a));
break;
case PARAM_PARASITE:
if (!TYPEP (car (a), tc_cons))
success = FALSE;
if (success)
{
args[i].type = PARAM_PARASITE;
/* parasite->creator */
intermediate_val = car (a);
memcpy(args[i].data.d_parasite.creator,
get_c_string (car (intermediate_val)), 4);
/* parasite->type */
intermediate_val = cdr (intermediate_val);
memcpy(args[i].data.d_parasite.type,
get_c_string (car (intermediate_val)), 4);
/* parasite->flags */
intermediate_val = cdr (intermediate_val);
args[i].data.d_parasite.flags = get_c_long ( (intermediate_val));
/* parasite->size */
intermediate_val = cdr (intermediate_val);
args[i].data.d_parasite.size = (car (intermediate_val))->storage_as.string.dim;
/* parasite->data */
args[i].data.d_parasite.data = (void*) (car (intermediate_val))->storage_as.string.data;
}
break;
case PARAM_STATUS:
return my_err ("Status is for return types, not arguments", car (a));
break;
@ -917,6 +948,22 @@ marshall_proc_db_call (LISP a)
case PARAM_PATH:
return my_err ("Paths are currently unsupported as return values", NIL);
break;
case PARAM_PARASITE:
{
LISP creator, type, flags, data;
creator = strcons (4, values[i + 1].data.d_parasite.creator);
type = strcons (4, values[i + 1].data.d_parasite.type);
flags = flocons (values[i + 1].data.d_parasite.flags);
data = arcons (tc_byte_array, values[i+1].data.d_parasite.size, 0);
memcpy(data->storage_as.string.data,
values[i+1].data.d_parasite.data,
values[i+1].data.d_parasite.size);
intermediate_val = cons (creator, cons(type, cons(flags,
cons(data, NIL))));
return_val = cons (intermediate_val, return_val);
}
break;
case PARAM_STATUS:
return my_err ("Procedural database execution returned multiple status values", NIL);
break;