Commit 422168e1 authored by Marc Lehmann's avatar Marc Lehmann

see plug-ins/perl/Changes

parent e3c27c97
Revision history for Gimp-Perl extension.
1.047 Wed Nov 11 02:47:12 CET 1998
- passing arguments on the commandline works again
(formerly all arguments were treated as integers)
- added the PDB extension to the distribution (alpha!)
- added tex-to-float and alpha2color.pl plug-ins
- fixed some memory leaks (the remaining ones are in the Gimp ;)
1.046 Thu Nov 5 01:53:34 CET 1998
- the syntax really gets tricky - references to INT32 and similar
......
......@@ -12,7 +12,7 @@ use base qw(DynaLoader);
require DynaLoader;
$VERSION = 1.046;
$VERSION = 1.047;
@_param = qw(
PARAM_BOUNDARY PARAM_CHANNEL PARAM_COLOR PARAM_DISPLAY PARAM_DRAWABLE
......
......@@ -702,7 +702,7 @@ convert_sv2gimp (char *croak_str, GParam *arg, SV *sv)
return 1;
}
/* only free array pointers, but not actual array values. */
/* do not free actual string or parasite data */
static void
destroy_params (GParam *arg, int count)
{
......@@ -723,6 +723,24 @@ destroy_params (GParam *arg, int count)
g_free (arg);
}
#ifdef GIMP_HAVE_DESTROY_PARAMDEFS
#define destroy_paramdefs gimp_destroy_paramdefs
#else
static void
destroy_paramdefs (GParamDef *arg, int count)
{
int i;
for (i = 0; i < count; i++)
{
g_free (arg[i].name);
g_free (arg[i].description);
}
g_free (arg);
}
#endif
/* first check wether the procedure exists at all. */
static void try_call (char *name, int req)
{
......@@ -995,8 +1013,8 @@ _gimp_procedure_available(proc_name)
g_free (proc_author);
g_free (proc_copyright);
g_free (proc_date);
g_free (params);
g_free (return_vals);
destroy_paramdefs (params, nparams);
destroy_paramdefs (return_vals, nreturn_vals);
RETVAL = TRUE;
}
else
......@@ -1049,7 +1067,7 @@ gimp_call_procedure (proc_name, ...)
if (nparams)
args = (GParam *) g_new (GParam, nparams);
for(;items;)
{
j = 0;
......@@ -1154,8 +1172,8 @@ gimp_call_procedure (proc_name, ...)
if (values)
gimp_destroy_params (values, nreturn_vals);
g_free (return_vals);
g_free (params);
destroy_paramdefs (params, nparams);
destroy_paramdefs (return_vals, nreturn_vals);
if (croak_str[0])
croak (croak_str);
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment