Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
GNOME
GIMP
Commits
21a8854a
Commit
21a8854a
authored
Sep 14, 1999
by
Marc Lehmann
Browse files
see plug-ins/perl/Changes
parent
c36d8e2b
Changes
15
Expand all
Hide whitespace changes
Inline
Side-by-side
plug-ins/perl/Changes
View file @
21a8854a
Revision history for Gimp-Perl extension.
- added examples/avi (avi load/save plug-in, uncompressed 24 bit).
- possible fix for another installation horror problem.
- fixed a longstanding bug (?): not every class had a DESTROY, so
the AUTOLOAD tried to resolve DESTROY after gimp_close had been
...
...
@@ -8,6 +9,7 @@ Revision history for Gimp-Perl extension.
- updated PDB Explorer a bit, still broken.
- almost full i18n of gimp-perl. A de translation is available.
- save_image was kinda broken for jpeg and gif at least.
- implemented more robust DESTROY and Lib:: connection handling.
- put help window into a scrolledwindow, as to a suggestion by Jens
Lauterbach. Karlsruhe rules!
...
...
plug-ins/perl/Gimp.pm
View file @
21a8854a
...
...
@@ -503,11 +503,14 @@ sub AUTOLOAD {
croak
__
"
function/macro
\"
$name
\"
not found in
$class
";
}
# better have a destroy method here, than fall into nirvana later
sub
DESTROY
{
}
sub
_pseudoclass
{
my
(
$class
,
@prefixes
)
=
@_
;
unshift
(
@prefixes
,"");
*
{"
Gimp::
$class
\
::AUTOLOAD
"}
=
\
&AUTOLOAD
;
*
{"
Gimp::
$class
\
::DESTROY
"}
=
sub
{};
*
{"
Gimp::
$class
\
::DESTROY
"}
=
sub
{
};
push
(
@
{"
$class
\
::ISA
"}
,
"
Gimp::
$class
");
push
(
@
{"
Gimp::
$class
\
::PREFIXES
"}
,
@prefixes
);
@prefixes
=
@
{"
Gimp::
$class
\
::PREFIXES
"};
push
(
@
{"
$class
\
::PREFIXES
"}
,
@prefixes
);
@prefixes
=
@
{"
$class
\
::PREFIXES
"};
...
...
plug-ins/perl/Gimp.xs
View file @
21a8854a
...
...
@@ -150,3 +150,117 @@ BOOT:
#endif
}
MODULE = Gimp PACKAGE = Gimp::RAW
# some raw byte/bit-manipulation, use PDL instead
void
reverse_v_inplace (datasv, bpl)
SV * datasv
IV bpl
CODE:
char *line, *data, *end;
STRLEN h;
data = SvPV (datasv, h); h /= bpl;
end = data + (h-1) * bpl;
New (0, line, bpl, char);
while (data < end)
{
Move (data, line, bpl, char);
Move (end, data, bpl, char);
Move (line, end, bpl, char);
data += bpl;
end -= bpl;
}
Safefree (line);
OUTPUT:
datasv
void
convert_32_24_inplace (datasv)
SV * datasv
CODE:
STRLEN dc;
char *data, *src, *dst, *end;
data = SvPV (datasv, dc); end = data + dc;
for (src = dst = data; src < end; )
{
*dst++ = *src++;
*dst++ = *src++;
*dst++ = *src++;
*src++;
}
SvCUR_set (datasv, dst - data);
OUTPUT:
datasv
void
convert_24_15_inplace (datasv)
SV * datasv
CODE:
STRLEN dc;
char *data, *src, *dst, *end;
U16 m31d255[256];
for (dc = 256; dc--; )
m31d255[dc] = (dc*31+15)/255;
data = SvPV (datasv, dc); end = data + dc;
for (src = dst = data; src < end; )
{
unsigned int r = *(U8 *)src++;
unsigned int g = *(U8 *)src++;
unsigned int b = *(U8 *)src++;
U16 rgb = m31d255[r]<<10 | m31d255[g]<<5 | m31d255[b];
*dst++ = rgb & 0xff;
*dst++ = rgb >> 8;
}
SvCUR_set (datasv, dst - data);
OUTPUT:
datasv
void
convert_15_24_inplace (datasv)
SV * datasv
CODE:
STRLEN dc, de;
char *data, *src, *dst;
U8 m255d31[32];
for (dc = 32; dc--; )
m255d31[dc] = (dc*255+127)/31;
data = SvPV (datasv, dc); dc &= ~1;
de = dc + (dc >> 1);
SvGROW (datasv, de);
SvCUR_set (datasv, de);
data = SvPV (datasv, de); src = data + dc;
dst = data + de;
while (src != dst)
{
U16 rgb = *(U8 *)--src << 8 | *(U8 *)--src;
*(U8 *)--dst = m255d31[ rgb & 0x001f ];
*(U8 *)--dst = m255d31[(rgb & 0x03e0) >> 5];
*(U8 *)--dst = m255d31[(rgb & 0x7c00) >> 10];
}
OUTPUT:
datasv
plug-ins/perl/Gimp/Fu.pm
View file @
21a8854a
...
...
@@ -344,7 +344,7 @@ Gimp::on_query {
my
%x
=
@_
;
values
%x
;
}
for
(
@params
)
{
for
(
@
$
params
)
{
$_
->
[
0
]
=
Gimp::
PARAM_INT32
if
$_
->
[
0
]
==
PF_TOGGLE
;
$_
->
[
0
]
=
Gimp::
PARAM_STRING
if
$_
->
[
0
]
==
PF_FONT
;
$_
->
[
0
]
=
Gimp::
PARAM_STRING
if
$_
->
[
0
]
==
PF_BRUSH
;
...
...
plug-ins/perl/Gimp/Lib.xs
View file @
21a8854a
...
...
@@ -1349,6 +1349,7 @@ gimp_main(...)
gimp_is_initialized = 1;
RETVAL = gimp_main (argc, argv);
gimp_is_initialized = 0;
/*exit (0);*/ /*D*//* shit, some memory problem here, so just exit */
}
OUTPUT:
RETVAL
...
...
@@ -1399,6 +1400,9 @@ _gimp_procedure_available(proc_name)
int nreturn_vals;
GParamDef *params;
GParamDef *return_vals;
if (!gimp_is_initialized)
croak ("_gimp_procedure_available called without an active connection");
if (gimp_query_procedure (proc_name, &proc_blurb, &proc_help, &proc_author,
&proc_copyright, &proc_date, &proc_type, &nparams, &nreturn_vals,
...
...
@@ -1438,6 +1442,9 @@ gimp_query_procedure(proc_name)
GParamDef *params;
GParamDef *return_vals;
if (!gimp_is_initialized)
croak ("gimp_query_procedure called without an active connection");
if (gimp_query_procedure (proc_name, &proc_blurb, &proc_help, &proc_author,
&proc_copyright, &proc_date, &proc_type, &nparams, &nreturn_vals,
¶ms, &return_vals) == TRUE)
...
...
@@ -1475,6 +1482,9 @@ gimp_call_procedure (proc_name, ...)
GParamDef *return_vals;
int i=0, j=0; /* work around bogus warning. */
if (!gimp_is_initialized)
croak ("gimp_call_procedure(%s,...) called without an active connection", proc_name);
if (trace)
trace_init ();
...
...
plug-ins/perl/MANIFEST
View file @
21a8854a
...
...
@@ -116,6 +116,7 @@ examples/burst
examples/map_to_gradient
examples/fire
examples/povray
examples/avi
pxgettext
po/gimp-perl.pot
po/de.po
plug-ins/perl/Makefile.PL
View file @
21a8854a
...
...
@@ -13,7 +13,7 @@ $|=1;
repdup centerguide stampify goldenmean triangle billboard mirrorsplit
oneliners randomart1 pixelmap glowing_steel frame_reshuffle frame_filter
logulator miff gimpmagick guide_remove guides_to_selection burst map_to_gradient
fire povray
fire povray
avi
)
;
if
(
$ARGV
[
0
]
ne
"
--writemakefile
")
{
...
...
plug-ins/perl/configure
View file @
21a8854a
...
...
@@ -549,8 +549,10 @@ if test -z "$IN_GIMP"; then
echo
Please
do
NOT call configure directly, rather run
echo
perl Makefile.PL
echo
as you would
do
with any other perl extension...
echo
"This time I'll be doing it for you!"
echo
exit
1
perl Makefile.PL
exit
fi
...
...
@@ -589,7 +591,7 @@ do
# Extract the first word of "$ac_prog", so it can be a program name with args.
set
dummy
$ac_prog
;
ac_word
=
$2
echo
$ac_n
"checking for
$ac_word
""...
$ac_c
"
1>&6
echo
"configure:59
3
: checking for
$ac_word
"
>
&5
echo
"configure:59
5
: checking for
$ac_word
"
>
&5
if
eval
"test
\"
`
echo
'$''{'
ac_cv_path_GIMP
'+set}'
`
\"
= set"
;
then
echo
$ac_n
"(cached)
$ac_c
"
1>&6
else
...
...
@@ -666,7 +668,7 @@ fi
# Extract the first word of "gimptool", so it can be a program name with args.
set
dummy gimptool
;
ac_word
=
$2
echo
$ac_n
"checking for
$ac_word
""...
$ac_c
"
1>&6
echo
"configure:67
0
: checking for
$ac_word
"
>
&5
echo
"configure:67
2
: checking for
$ac_word
"
>
&5
if
eval
"test
\"
`
echo
'$''{'
ac_cv_path_GIMPTOOL
'+set}'
`
\"
= set"
;
then
echo
$ac_n
"(cached)
$ac_c
"
1>&6
else
...
...
@@ -701,7 +703,7 @@ fi
min_gimp_version
=
1.0.4
echo
$ac_n
"checking for GIMP - version >=
$min_gimp_version
""...
$ac_c
"
1>&6
echo
"configure:70
5
: checking for GIMP - version >=
$min_gimp_version
"
>
&5
echo
"configure:70
7
: checking for GIMP - version >=
$min_gimp_version
"
>
&5
no_gimp
=
""
if
test
"
$GIMPTOOL
"
=
"no"
;
then
no_gimp
=
yes
...
...
@@ -734,7 +736,7 @@ echo "configure:705: checking for GIMP - version >= $min_gimp_version" >&5
echo
$ac_n
"cross compiling; assumed OK...
$ac_c
"
else
cat
>
conftest.
$ac_ext
<<
EOF
#line 7
38
"configure"
#line 7
40
"configure"
#include "confdefs.h"
#include <stdio.h>
...
...
@@ -783,7 +785,7 @@ int main ()
EOF
if
{
(
eval echo
configure:78
7
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
&&
(
./conftest
;
exit
)
2>/dev/null
if
{
(
eval echo
configure:78
9
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
&&
(
./conftest
;
exit
)
2>/dev/null
then
:
else
...
...
@@ -817,7 +819,7 @@ fi
CFLAGS
=
"
$CFLAGS
$GIMP_CFLAGS
"
LIBS
=
"
$LIBS
$GIMP_LIBS
"
cat
>
conftest.
$ac_ext
<<
EOF
#line 82
1
"configure"
#line 82
3
"configure"
#include "confdefs.h"
#include <stdio.h>
...
...
@@ -827,7 +829,7 @@ int main() {
return 0;
; return 0; }
EOF
if
{
(
eval echo
configure:83
1
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
;
then
if
{
(
eval echo
configure:83
3
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
;
then
rm
-rf
conftest
*
echo
"*** The test program compiled, but did not run. This usually means"
echo
"*** that the run-time linker is not finding GIMP or finding the wrong"
...
...
@@ -918,7 +920,7 @@ fi
# Extract the first word of "glib-config", so it can be a program name with args.
set
dummy glib-config
;
ac_word
=
$2
echo
$ac_n
"checking for
$ac_word
""...
$ac_c
"
1>&6
echo
"configure:92
2
: checking for
$ac_word
"
>
&5
echo
"configure:92
4
: checking for
$ac_word
"
>
&5
if
eval
"test
\"
`
echo
'$''{'
ac_cv_path_GLIB_CONFIG
'+set}'
`
\"
= set"
;
then
echo
$ac_n
"(cached)
$ac_c
"
1>&6
else
...
...
@@ -953,7 +955,7 @@ fi
min_glib_version
=
1.2.0
echo
$ac_n
"checking for GLIB - version >=
$min_glib_version
""...
$ac_c
"
1>&6
echo
"configure:95
7
: checking for GLIB - version >=
$min_glib_version
"
>
&5
echo
"configure:95
9
: checking for GLIB - version >=
$min_glib_version
"
>
&5
no_glib
=
""
if
test
"
$GLIB_CONFIG
"
=
"no"
;
then
no_glib
=
yes
...
...
@@ -976,7 +978,7 @@ echo "configure:957: checking for GLIB - version >= $min_glib_version" >&5
echo
$ac_n
"cross compiling; assumed OK...
$ac_c
"
else
cat
>
conftest.
$ac_ext
<<
EOF
#line 98
0
"configure"
#line 98
2
"configure"
#include "confdefs.h"
#include <glib.h>
...
...
@@ -1052,7 +1054,7 @@ main ()
}
EOF
if
{
(
eval echo
configure:105
6
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
&&
(
./conftest
;
exit
)
2>/dev/null
if
{
(
eval echo
configure:105
8
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
&&
(
./conftest
;
exit
)
2>/dev/null
then
:
else
...
...
@@ -1086,7 +1088,7 @@ fi
CFLAGS
=
"
$CFLAGS
$GLIB_CFLAGS
"
LIBS
=
"
$LIBS
$GLIB_LIBS
"
cat
>
conftest.
$ac_ext
<<
EOF
#line 109
0
"configure"
#line 109
2
"configure"
#include "confdefs.h"
#include <glib.h>
...
...
@@ -1096,7 +1098,7 @@ int main() {
return ((glib_major_version) || (glib_minor_version) || (glib_micro_version));
; return 0; }
EOF
if
{
(
eval echo
configure:110
0
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
;
then
if
{
(
eval echo
configure:110
2
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
;
then
rm
-rf
conftest
*
echo
"*** The test program compiled, but did not run. This usually means"
echo
"*** that the run-time linker is not finding GLIB or finding the wrong"
...
...
@@ -1138,7 +1140,7 @@ rm -f conftest*
ac_gimp_save_CPPFLAGS
=
"
$CPPFLAGS
"
CPPFLAGS
=
"
$CPPFLAGS
$GIMP_CFLAGS
"
echo
$ac_n
"checking how to run the C preprocessor""...
$ac_c
"
1>&6
echo
"configure:114
2
: checking how to run the C preprocessor"
>
&5
echo
"configure:114
4
: checking how to run the C preprocessor"
>
&5
# On Suns, sometimes $CPP names a directory.
if
test
-n
"
$CPP
"
&&
test
-d
"
$CPP
"
;
then
CPP
=
...
...
@@ -1153,13 +1155,13 @@ else
# On the NeXT, cc -E runs the code through the compiler's parser,
# not just through cpp.
cat
>
conftest.
$ac_ext
<<
EOF
#line 115
7
"configure"
#line 115
9
"configure"
#include "confdefs.h"
#include <assert.h>
Syntax Error
EOF
ac_try
=
"
$ac_cpp
conftest.
$ac_ext
>/dev/null 2>conftest.out"
{
(
eval echo
configure:116
3
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
{
(
eval echo
configure:116
5
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
ac_err
=
`
grep
-v
'^ *+'
conftest.out |
grep
-v
"^conftest.
${
ac_ext
}
\$
"
`
if
test
-z
"
$ac_err
"
;
then
:
...
...
@@ -1170,13 +1172,13 @@ else
rm
-rf
conftest
*
CPP
=
"
${
CC
-cc
}
-E -traditional-cpp"
cat
>
conftest.
$ac_ext
<<
EOF
#line 117
4
"configure"
#line 117
6
"configure"
#include "confdefs.h"
#include <assert.h>
Syntax Error
EOF
ac_try
=
"
$ac_cpp
conftest.
$ac_ext
>/dev/null 2>conftest.out"
{
(
eval echo
configure:118
0
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
{
(
eval echo
configure:118
2
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
ac_err
=
`
grep
-v
'^ *+'
conftest.out |
grep
-v
"^conftest.
${
ac_ext
}
\$
"
`
if
test
-z
"
$ac_err
"
;
then
:
...
...
@@ -1187,13 +1189,13 @@ else
rm
-rf
conftest
*
CPP
=
"
${
CC
-cc
}
-nologo -E"
cat
>
conftest.
$ac_ext
<<
EOF
#line 119
1
"configure"
#line 119
3
"configure"
#include "confdefs.h"
#include <assert.h>
Syntax Error
EOF
ac_try
=
"
$ac_cpp
conftest.
$ac_ext
>/dev/null 2>conftest.out"
{
(
eval echo
configure:119
7
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
{
(
eval echo
configure:119
9
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
ac_err
=
`
grep
-v
'^ *+'
conftest.out |
grep
-v
"^conftest.
${
ac_ext
}
\$
"
`
if
test
-z
"
$ac_err
"
;
then
:
...
...
@@ -1218,7 +1220,7 @@ fi
echo
"
$ac_t
""
$CPP
"
1>&6
cat
>
conftest.
$ac_ext
<<
EOF
#line 122
2
"configure"
#line 122
4
"configure"
#include "confdefs.h"
#include <libgimp/gimp.h>
EOF
...
...
@@ -1236,17 +1238,17 @@ for ac_hdr in libgimp/gimpmodule.h libintl.h
do
ac_safe
=
`
echo
"
$ac_hdr
"
|
sed
'y%./+-%__p_%'
`
echo
$ac_n
"checking for
$ac_hdr
""...
$ac_c
"
1>&6
echo
"configure:124
0
: checking for
$ac_hdr
"
>
&5
echo
"configure:124
2
: checking for
$ac_hdr
"
>
&5
if
eval
"test
\"
`
echo
'$''{'
ac_cv_header_
$ac_safe
'+set}'
`
\"
= set"
;
then
echo
$ac_n
"(cached)
$ac_c
"
1>&6
else
cat
>
conftest.
$ac_ext
<<
EOF
#line 124
5
"configure"
#line 124
7
"configure"
#include "confdefs.h"
#include <
$ac_hdr
>
EOF
ac_try
=
"
$ac_cpp
conftest.
$ac_ext
>/dev/null 2>conftest.out"
{
(
eval echo
configure:125
0
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
{
(
eval echo
configure:125
2
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
ac_err
=
`
grep
-v
'^ *+'
conftest.out |
grep
-v
"^conftest.
${
ac_ext
}
\$
"
`
if
test
-z
"
$ac_err
"
;
then
rm
-rf
conftest
*
...
...
@@ -1278,17 +1280,17 @@ for ac_hdr in unistd.h
do
ac_safe
=
`
echo
"
$ac_hdr
"
|
sed
'y%./+-%__p_%'
`
echo
$ac_n
"checking for
$ac_hdr
""...
$ac_c
"
1>&6
echo
"configure:128
2
: checking for
$ac_hdr
"
>
&5
echo
"configure:128
4
: checking for
$ac_hdr
"
>
&5
if
eval
"test
\"
`
echo
'$''{'
ac_cv_header_
$ac_safe
'+set}'
`
\"
= set"
;
then
echo
$ac_n
"(cached)
$ac_c
"
1>&6
else
cat
>
conftest.
$ac_ext
<<
EOF
#line 128
7
"configure"
#line 128
9
"configure"
#include "confdefs.h"
#include <
$ac_hdr
>
EOF
ac_try
=
"
$ac_cpp
conftest.
$ac_ext
>/dev/null 2>conftest.out"
{
(
eval echo
configure:129
2
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
{
(
eval echo
configure:129
4
:
\"
$ac_try
\"
)
1>&5
;
(
eval
$ac_try
)
2>&5
;
}
ac_err
=
`
grep
-v
'^ *+'
conftest.out |
grep
-v
"^conftest.
${
ac_ext
}
\$
"
`
if
test
-z
"
$ac_err
"
;
then
rm
-rf
conftest
*
...
...
@@ -1320,12 +1322,12 @@ CONFIG_H="config.h"
for
ac_func
in
vsnprintf
do
echo
$ac_n
"checking for
$ac_func
""...
$ac_c
"
1>&6
echo
"configure:132
4
: checking for
$ac_func
"
>
&5
echo
"configure:132
6
: checking for
$ac_func
"
>
&5
if
eval
"test
\"
`
echo
'$''{'
ac_cv_func_
$ac_func
'+set}'
`
\"
= set"
;
then
echo
$ac_n
"(cached)
$ac_c
"
1>&6
else
cat
>
conftest.
$ac_ext
<<
EOF
#line 13
29
"configure"
#line 13
31
"configure"
#include "confdefs.h"
/* System header to define __stub macros and hopefully few prototypes,
which can conflict with char
$ac_func
(); below. */
...
...
@@ -1348,7 +1350,7 @@ $ac_func();
; return 0; }
EOF
if
{
(
eval echo
configure:135
2
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
;
then
if
{
(
eval echo
configure:135
4
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
;
then
rm
-rf
conftest
*
eval
"ac_cv_func_
$ac_func
=yes"
else
...
...
@@ -1404,12 +1406,12 @@ fi
for
ac_func
in
_exit
do
echo
$ac_n
"checking for
$ac_func
""...
$ac_c
"
1>&6
echo
"configure:140
8
: checking for
$ac_func
"
>
&5
echo
"configure:14
1
0: checking for
$ac_func
"
>
&5
if
eval
"test
\"
`
echo
'$''{'
ac_cv_func_
$ac_func
'+set}'
`
\"
= set"
;
then
echo
$ac_n
"(cached)
$ac_c
"
1>&6
else
cat
>
conftest.
$ac_ext
<<
EOF
#line 141
3
"configure"
#line 141
5
"configure"
#include "confdefs.h"
/* System header to define __stub macros and hopefully few prototypes,
which can conflict with char
$ac_func
(); below. */
...
...
@@ -1432,7 +1434,7 @@ $ac_func();
; return 0; }
EOF
if
{
(
eval echo
configure:143
6
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
;
then
if
{
(
eval echo
configure:143
8
:
\"
$ac_link
\"
)
1>&5
;
(
eval
$ac_link
)
2>&5
;
}
&&
test
-s
conftest
${
ac_exeext
}
;
then
rm
-rf
conftest
*
eval
"ac_cv_func_
$ac_func
=yes"
else
...
...
@@ -1460,8 +1462,8 @@ done
INTLLIBS
=
MSGFMT
=
:
INTLLIBS
=
-lintl
MSGFMT
=
msgfmt
...
...
plug-ins/perl/configure.in
View file @
21a8854a
...
...
@@ -6,8 +6,10 @@ if test -z "$IN_GIMP"; then
echo Please do NOT call configure directly, rather run
echo perl Makefile.PL
echo as you would do with any other perl extension...
echo "This time I'll be doing it for you!"
echo
exit 1
perl Makefile.PL
exit
fi
AC_PREFIX_DEFAULT($prefix)dnl from Makefile.PL
...
...
@@ -50,8 +52,8 @@ CONFIG_H="config.h"
sinclude(configure.frag)
INTLLIBS=
MSGFMT=
:
INTLLIBS=
-lintl
MSGFMT=
msgfmt
AC_SUBST(INTLLIBS)
AC_SUBST(MSGFMT)
...
...
plug-ins/perl/examples/avi
0 → 100755
View file @
21a8854a
#!/usr/bin/perl
# pcg@goof.com
# a simpleminded uncompressed avi load/save plug-in
use
Gimp
1.14
;
use
Gimp::
Fu
;
use
Fcntl
;
# Gimp::set_trace(TRACE_ALL);
# start a hunk
sub
push_hunk
($)
{
print
FILE
$_
[
0
],
"
\xff\xff\xff\xff
";
push
@hunks
,
tell
FILE
;
}
# fixup latest hunk
sub
pop_hunk
{
my
$end
=
tell
FILE
;
my
$len
=
pop
@hunks
;
seek
FILE
,
$len
-
4
,
0
;
print
FILE
pack
"
V
",
$end
-
$len
;
seek
FILE
,
$end
,
0
;
}
register
"
file_avi_save
",
"
save image as uncompressed avi
",
"
Saves images in the 24 bit uncompressed AVI format used by windows software
",
"
Marc Lehmann
",
"
Marc Lehmann <pcg
\@
goof.com>
",
"
1999-09-15
",
"
<Save>/AVI
",
"
RGB
",
[
[
PF_RADIO
,
"
depth
",
"
format (currently always 0)
",
24
,
["
24bpp
"
=>
24
,
"
15bpp
"
=>
15
]],
[
PF_RADIO
,
"
compression
",
"
compression (currently always 0)
",
0
,
[
none
=>
0
]],
[
PF_BOOL
,
"
index
",
"
write an index hunk (required by some software)
",
1
],
],
sub
{
my
(
$img
,
$drawable
,
$filename
,
$raw_filename
,
$depth
,
$compression
,
$index
)
=
@_
;
sysopen
FILE
,
$filename
,
O_CREAT
|
O_TRUNC
|
O_WRONLY
or
die
"
Unable to open '
$filename
' for writing: $!
\n
";
my
$us_frame
=
eval
{
$img
->
find_parasite
("
gimp-interframe-delay
")
->
data
}
||
100000
;
#Gimp->tile_cache_ntiles($img->width / Gimp->tile_width + 3); coredumps!
my
(
$width
,
$height
)
=
(
$img
->
width
,
$img
->
height
);
my
@layers
=
$img
->
get_layers
;
for
(
@layers
)
{
die
"
all layers must have the same size as the image
\n
"
if
$width
!=
$_
->
width
or
$height
!=
$_
->
height
;
}
$depth
=
16
if
$depth
==
15
;
$img
->
selection_all
;
my
$framesize
=
(
$width*$height*$depth
)
>>
3
;
my
$idx1
;
init
Progress
"
Saving '
$filename
' as AVI...
";
push_hunk
"
RIFF
";
print
FILE
"
AVI
";
push_hunk
"
LIST
";
print
FILE
"
hdrl
";
push_hunk
"
avih
";
print
FILE
pack
"
V*
",
$us_frame
,
$framesize
*
1_000_000
/
$us_frame
,
0
,
0
,
scalar
@layers
,
0
,
1
,
$framesize
,
$width
,
$height
,
0
,
0
,
0
,
0
;
pop_hunk
;
push_hunk
"
LIST
";
print
FILE
"
strl
";
push_hunk
"
strh
";
print
FILE
pack
"
A4 V11 V2
",
"
vids
",
0
,
0
,
0
,
0
,
$us_frame
,
1_000_000
,
0
,
scalar
@layers
,
$framesize
,
0
,
0
,
0
,
0
;
pop_hunk
;
push_hunk
"
strf
";
print
FILE
pack
"
V3 v2 V6
",
40
,
# ??
$width
,
$height
,
1
,
$depth
,
0
,