use
vars
qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD @EXPORT_FAIL)
;
@ISA
=
qw(Exporter)
;
@EXPORT
=
qw(gimp_install_extension gimp_install_plug_in)
;
@EXPORT_OK
= ();
sub
gimp_install_extension($$$$$$$$;$) {
my
$params
= [[
&Gimp::PARAM_INT32
,
"run_mode"
,
"Interactive, [non-interactive]"
]];
push
(
@$params
,
@$_
[8])
if
$_
[8];
Gimp::gimp_install_procedure(
$_
[0],
$_
[1],
$_
[2],
$_
[3],
$_
[4],
$_
[5],
$_
[6],
$_
[7],
&Gimp::PROC_EXTENSION
,
$params
, []);
}
sub
gimp_install_plug_in($$$$$$$$;$) {
my
$params
= [[
&Gimp::PARAM_INT32
,
"run_mode"
,
"Interactive, [non-interactive]"
],
[
&Gimp::PARAM_IMAGE
,
"image"
,
"Input image"
],
[
&Gimp::PARAM_DRAWABLE
,
"drawable"
,
"Input drawable"
]];
push
(
@$params
,
@$_
[8])
if
$_
[8];
Gimp::gimp_install_procedure(
$_
[0],
$_
[1],
$_
[2],
$_
[3],
$_
[4],
$_
[5],
$_
[6],
$_
[7],
&Gimp::PROC_PLUG_IN
,
$params
, []);
}
1;