#!perl -w
+use strict;
use ExtUtils::MakeMaker;
use Cwd;
use Config;
use File::Spec;
+use Getopt::Long;
+use ExtUtils::Manifest qw(maniread);
+use ExtUtils::Liblist;
+use vars qw(%formats $VERBOSE $INCPATH $LIBPATH $NOLOG $DEBUG_MALLOC $MANUAL $CFLAGS $LFLAGS $DFLAGS);
+use lib 'inc';
+use Devel::CheckLib;
+
+# EU::MM runs Makefile.PL all in the same process, so sub-modules will
+# see this
+our $BUILDING_IMAGER = 1;
#
# IM_INCPATH colon seperated list of paths to extra include paths
# IM_CFLAGS Extra flags to pass to the compiler
# IM_LFLAGS Extra flags to pass to the linker
# IM_DFLAGS Extra flags to pass to the preprocessor
-# IM_SUPPRESS_PROMPT Suppress the prompt asking about gif support
+my $KEEP_FILES = $ENV{IMAGER_KEEP_FILES};
getenv(); # get environment variables
+
+my $lext=$Config{'so'}; # Get extensions of libraries
+my $aext=$Config{'_a'};
+
+my $help; # display help if set
+my @enable; # list of drivers to enable
+my @disable; # or list of drivers to disable
+my @incpaths; # places to look for headers
+my @libpaths; # places to look for libraries
+my $coverage; # build for coverage testing
+my $assert; # build with assertions
+GetOptions("help" => \$help,
+ "enable=s" => \@enable,
+ "disable=s" => \@disable,
+ "incpath=s", \@incpaths,
+ "libpath=s" => \@libpaths,
+ "verbose|v" => \$VERBOSE,
+ "nolog" => \$NOLOG,
+ 'coverage' => \$coverage,
+ "assert|a" => \$assert);
+
+setenv();
+
+if ($ENV{AUTOMATED_TESTING}) {
+ $assert = 1;
+}
+
+if ($VERBOSE) {
+ print "Verbose mode\n";
+ require Data::Dumper;
+ import Data::Dumper qw(Dumper);
+}
+
+if ($help) {
+ usage();
+}
+
+my @defines;
+
+if ($NOLOG) { print "Logging not compiled into module\n"; }
+else {
+ push @defines, [ IMAGER_LOG => 1, "Logging system" ];
+}
+
+if ($assert) {
+ push @defines, [ IM_ASSERT => 1, "im_assert() are effective" ];
+}
+
+if ($DEBUG_MALLOC) {
+ push @defines, [ IMAGER_DEBUG_MALLOC => 1, "Use Imager's DEBUG malloc()" ];
+ print "Malloc debugging enabled\n";
+}
+
+if (@enable && @disable) {
+ print STDERR "Only --enable or --disable can be used, not both, try --help\n";
+ exit 1;
+}
+
+my %definc;
+my %deflib;
+my @incs; # all the places to look for headers
+my @libs; # all the places to look for libraries
+
init(); # initialize global data
pathcheck(); # Check if directories exist
+if (exists $ENV{IM_ENABLE}) {
+ my %en = map { $_, 1 } split ' ', $ENV{IM_ENABLE};
+ for my $key (keys %formats) {
+ delete $formats{$key} unless $en{$key};
+ }
+}
+if (@enable) {
+ my %en = map { $_ => 1 } map { split /,/ } @enable;
+ for my $key (keys %formats) {
+ delete $formats{$key} unless $en{$key};
+ }
+}
+elsif (@disable) {
+ delete @formats{map { split /,/ } @disable};
+}
+
# Pick what libraries are used
if ($MANUAL) {
manual();
} else {
automatic();
- if (exists $ENV{IM_ENABLE}) {
- my %en = map { $_, 1 } split ' ', $ENV{IM_ENABLE};
- for my $key (keys %formats) {
- delete $formats{$key} unless $en{$key};
- }
- }
}
-# Make sure there isn't a clash between the gif libraries.
-gifcheck();
-
my $lib_cflags = '';
-for $frm(values %formats) {
- $F_DEFINE .= ' -D'.$frm->{def};
- $F_LIBS .= ' ' .$frm->{libfiles};
+my $lib_lflags = '';
+my $F_LIBS = '';
+my $F_OBJECT = '';
+for my $frmkey (sort { $formats{$a}{order} <=> $formats{$b}{order} } keys %formats) {
+ my $frm = $formats{$frmkey};
+ push @defines, [ $frm->{def}, 1, "$frmkey available" ];
$F_OBJECT .= ' ' .$frm->{objfiles};
- $lib_cflags .= ' ' .$frm->{cflags} if $frm->{cflags};
+ if ($frm->{cflags}) {
+ $lib_cflags .= ' ' .$frm->{cflags};
+ ++$definc{$_} for map { /^-I(.*)$/ ? ($1) : () }
+ grep /^-I./, split ' ', $frm->{cflags};
+ }
+ if ($frm->{lflags}) {
+ $lib_lflags .= ' ' . $frm->{lflags};
+ }
+ else {
+ $F_LIBS .= ' ' .$frm->{libfiles};
+ }
+
}
-$F_INC = join ' ', map "-I$_", map / / ? qq{"$_"} : $_,
- grep !exists $definc{$_}, @incs;
-$F_LIBS = join(' ',map "-L$_", map / / ? qq{"$_"} : $_, @libs) . $F_LIBS;
+my $F_INC = join ' ', map "-I$_", map / / ? qq{"$_"} : $_,
+ grep !$definc{$_}, @incs;
+$F_LIBS = join(' ',map "-L$_", map / / ? qq{"$_"} : $_,
+ grep !$deflib{$_}++, @libs) . $F_LIBS;
-$OSLIBS = '';
-$OSDEF = "-DOS_$^O";
+my $OSLIBS = '';
+my $OSDEF = "-DOS_$^O";
if ($^O eq 'hpux') { $OSLIBS .= ' -ldld'; }
if (defined $Config{'d_dlsymun'}) { $OSDEF .= ' -DDLSYMUN'; }
-@objs = qw(Imager.o draw.o polygon.o image.o io.o iolayer.o
- log.o gaussian.o conv.o pnm.o raw.o feat.o font.o
- filters.o dynaload.o stackmach.o datatypes.o
- regmach.o trans2.o quant.o error.o convert.o
- map.o tags.o palimg.o maskimg.o img16.o rotate.o
- bmp.o tga.o rgb.o color.o fills.o imgdouble.o);
-
-%opts=(
- 'NAME' => 'Imager',
- 'VERSION_FROM' => 'Imager.pm',
- 'LIBS' => "$LFLAGS -lm $OSLIBS $F_LIBS",
- 'DEFINE' => "$F_DEFINE $EXTDEF $OSDEF $CFLAGS",
- 'INC' => "$lib_cflags $DFLAGS $F_INC",
- 'OBJECT' => join(' ', @objs, $F_OBJECT),
- clean => { FILES=>'testout' },
- );
-
-if ($ExtUtils::MakeMaker::VERSION > 6.06) {
+my @objs = qw(Imager.o draw.o polygon.o image.o io.o iolayer.o
+ log.o gaussian.o conv.o pnm.o raw.o feat.o font.o combine.o
+ filters.o dynaload.o stackmach.o datatypes.o
+ regmach.o trans2.o quant.o error.o convert.o
+ map.o tags.o palimg.o maskimg.o img16.o rotate.o
+ bmp.o tga.o color.o fills.o imgdouble.o limits.o hlines.o
+ imext.o scale.o rubthru.o render.o paste.o compose.o flip.o);
+
+my %opts=(
+ 'NAME' => 'Imager',
+ 'VERSION_FROM' => 'Imager.pm',
+ 'LIBS' => "$LFLAGS -lm $lib_lflags $OSLIBS $F_LIBS",
+ 'DEFINE' => "$OSDEF $CFLAGS",
+ 'INC' => "$lib_cflags $DFLAGS $F_INC",
+ 'OBJECT' => join(' ', @objs, $F_OBJECT),
+ clean => { FILES=>'testout rubthru.c scale.c conv.c filters.c gaussian.c render.c rubthru.c' },
+ PM => gen_PM(),
+ PREREQ_PM => { 'Test::More' => 0.47 },
+ );
+
+if ($coverage) {
+ if ($Config{gccversion}) {
+ push @ARGV, 'OPTIMIZE=-ftest-coverage -fprofile-arcs';
+ #$opts{dynamic_lib} = { OTHERLDFLAGS => '-ftest-coverage -fprofile-arcs' };
+ }
+ else {
+ die "Don't know the coverage C flags for your compiler\n";
+ }
+}
+
+# eval to prevent warnings about versions with _ in them
+my $MM_ver = eval $ExtUtils::MakeMaker::VERSION;
+if ($MM_ver > 6.06) {
$opts{AUTHOR} = 'Tony Cook <tony@imager.perl.org>, Arnar M. Hrafnkelsson';
$opts{ABSTRACT} = 'Perl extension for Generating 24 bit Images';
}
-if ($ExtUtils::MakeMaker::VERSION > 6.10) {
- $opts{NO_META} = 1;
+
+if ($MM_ver >= 6.46) {
+ $opts{META_MERGE} =
+ {
+ recommends =>
+ {
+ "Parse::RecDescent" => 0
+ },
+ license => "perl",
+ dynamic_config => 1,
+ no_index =>
+ {
+ directory =>
+ [
+ "PNG",
+ "GIF",
+ "TIFF",
+ "JPEG",
+ "W32",
+ "FT2",
+ ],
+ },
+ resources =>
+ {
+ homepage => "http://imager.perl.org/",
+ repository =>
+ {
+ url => "git://git.imager.perl.org/imager.git",
+ web => "http://git.imager.perl.org/imager.git",
+ type => "git",
+ },
+ bugtracker =>
+ {
+ web => "http://rt.cpan.org/NoAuth/Bugs.html?Dist=Imager",
+ mailto => 'bug-Imager@rt.cpan.org',
+ },
+ },
+ };
}
+make_imconfig(\@defines);
+
if ($VERBOSE) { print Dumper(\%opts); }
mkdir('testout',0777); # since we cannot include it in the archive.
+
+-d "probe" and rmdir "probe";
+
WriteMakefile(%opts);
exit;
sub MY::postamble {
+ my $self = shift;
+ my $perl = $self->{PERLRUN} ? '$(PERLRUN)' : '$(PERL)';
+ my $mani = maniread;
+
+ my @ims = grep /\.im$/, keys %$mani;
'
dyntest.$(MYEXTLIB) : dynfilt/Makefile
cd dynfilt && $(MAKE) $(PASTHRU)
lib/Imager/Regops.pm : regmach.h regops.perl
$(PERL) regops.perl regmach.h lib/Imager/Regops.pm
-';
+
+imconfig.h : Makefile.PL
+ $(ECHO) "imconfig.h out-of-date with respect to $?"
+ $(PERLRUN) Makefile.PL
+ $(ECHO) "==> Your Makefile has been rebuilt - re-run your make command <=="
+'.qq!
+lib/Imager/APIRef.pod : \$(C_FILES) \$(H_FILES) apidocs.perl
+ $perl apidocs.perl lib/Imager/APIRef.pod
+
+!.join('', map _im_rule($perl, $_), @ims)
+
+}
+
+sub _im_rule {
+ my ($perl, $im) = @_;
+
+ (my $c = $im) =~ s/\.im$/.c/;
+ return <<MAKE;
+
+$c: $im lib/Imager/Preprocess.pm
+ $perl -Ilib -MImager::Preprocess -epreprocess $im $c
+
+MAKE
+
}
# manual configuration of helper libraries
SWX:
if ($formats{$frm}{docs}) { print "\n",$formats{$frm}{docs},"\n\n"; }
print "Enable $frm support: ";
- $gz = <STDIN>;
+ my $gz = <STDIN>;
chomp($gz);
if ($gz =~ m/^(y|yes|n|no)/i) {
$gz=substr(lc($gz),0,1);
# automatic configuration of helper libraries
sub automatic {
- for $frm(keys %formats) {
+ print "Automatic probing:\n" if $VERBOSE;
+ for my $frm (sort { $formats{$a}{order} <=> $formats{$b}{order} } keys %formats) {
delete $formats{$frm} if !checkformat($frm);
}
}
-sub gifcheck {
- if ($formats{'gif'} and $formats{'ungif'}) {
- print "ungif and gif can not coexist - removing ungif support\n";
- delete $formats{'ungif'};
- }
-
- RETR:
- if (($formats{'gif'} or $formats{'ungif'}) && !$ENV{IM_SUPPRESS_PROMPT}) {
- print <<EOFF;
-
-You have libgif or libungif installed. They are both known to have
-bugs. Imager can crash or display other strange behaviour after
-reading or writing gif images. Some of the gif tests can even fail
-since they stress some parts of the buggy code.
-
-libungif 4.1.2 and later is safe. giflib 4.1.3 needs at least one
-patch to have all the bugs fixed, see README for details.
-
-Of course it's possible your operating system distributor has patched
-all of these problems and you have nothing to worry about.
-
-Do you want to remove gif support? [Y/n]
-EOFF
- my $resp = <STDIN>;
- chomp($resp);
- if ($resp ne "n") {
- delete $formats{'gif'};
- delete $formats{'ungif'};
- return;
- }
- }
-
- for my $frm (qw(gif ungif)) {
- checkformat($frm) if ($MANUAL and $formats{$frm});
- }
-
- my @dirs;
- for my $frm (grep $formats{$_}, qw(gif ungif)) {
- push(@dirs, @{$formats{$frm}{incdir}}) if $formats{$frm}{incdir};
- }
- my $minor = 0;
- my $major = 0;
- FILES: for my $dir (@dirs) {
- my $h = "$dir/gif_lib.h";
- open H, "< $h" or next;
- while (<H>) {
- if (/GIF_LIB_VERSION\s+"\s*version\s*(\d+)\.(\d+)/i) {
- $major = $1;
- $minor = $2;
- close H;
- last FILES;
- }
- }
- close H;
- }
-
- # we need the version in a #ifdefable form
-
- $F_DEFINE .= "-DIM_GIFMAJOR=$major -DIM_GIFMINOR=$minor";
-}
-
-
-sub gd {
- my($path,$chk)=@_;
+# sub gifcheck {
+# if ($formats{'gif'} and $formats{'ungif'}) {
+# print "ungif and gif can not coexist - removing ungif support\n";
+# delete $formats{'ungif'};
+# }
+
+# for my $frm (qw(gif ungif)) {
+# checkformat($frm) if ($MANUAL and $formats{$frm});
+# }
+
+# my @dirs;
+# for my $frm (grep $formats{$_}, qw(gif ungif)) {
+# push(@dirs, @{$formats{$frm}{incdir}}) if $formats{$frm}{incdir};
+# }
+# my $minor = 0;
+# my $major = 0;
+# FILES: for my $dir (@dirs) {
+# my $h = "$dir/gif_lib.h";
+# open H, "< $h" or next;
+# while (<H>) {
+# if (/GIF_LIB_VERSION\s+"\s*version\s*(\d+)\.(\d+)/i) {
+# $major = $1;
+# $minor = $2;
+# close H;
+# last FILES;
+# }
+# }
+# close H;
+# }
+
+# # we need the version in a #ifdefable form
+
+# push @defines, [ IM_GIFMAJOR => $major, "Parsed giflib version" ];
+# push @defines, [ IM_GIFMINOR => $minor ];
+# push @defines, [ IM_NO_SET_GIF_VERSION => 1, "Disable EGifSetGifVersion" ]
+# if $no_gif_set_version;
+# }
+
+
+sub grep_directory {
+ my($path, $chk)=@_;
# print "checking path $path\n";
if ( !opendir(DH,$path) ) {
return map $path, @l;
}
+sub _probe_default {
+ my ($format, $frm) = @_;
-sub checkformat {
- my $frm=shift;
+ my $lib_check=$formats{$frm}{'libcheck'};
+ my $inc_check=$formats{$frm}{'inccheck'};
- my $code = $formats{$frm}{'code'};
- if ($code) {
- return 1 if $code->($formats{$frm}, $frm);
+ if ($lib_check) {
+ my @l;
+ for my $lp (@libs) {
+ push(@l, grep_directory($lp,$lib_check));
+ }
+
+ my @i;
+ for my $ip (@incs) {
+ push(@i, $ip) if $inc_check->($ip,$frm);
+ }
+
+ printf("%10s: includes %s - libraries %s\n",$frm,(@i?'found':'not found'),(@l?'found':'not found'));
+ $formats{$frm}{incdir} = \@i;
+ $formats{$frm}{libdir} = \@l;
+ return 1 if scalar(@i && @l);
+ }
+ else {
+ printf("%10s: not available\n", $frm);
}
- my $libchk=$formats{$frm}{'libcheck'};
- my $incchk=$formats{$frm}{'inccheck'};
+ return 0;
+}
- my @l;
- for my $lp (@libs) {
- push(@l, gd($lp,$libchk));
+sub checkformat {
+ my $frm=shift;
+
+ print " checkformat($frm)\n" if $VERBOSE;
+
+ my $format = $formats{$frm};
+
+ my @probes;
+ if (my $code = $format->{'code'}) {
+ if (ref $code eq 'ARRAY') {
+ push @probes, @$code;
+ }
+ else {
+ push @probes, $code;
+ }
}
+ push @probes, \&_probe_default;
- my @i;
- for my $ip (@incs) {
- push(@i, gd($ip,$incchk));
+ print " Calling probe function\n" if $VERBOSE;
+ my $found;
+ for my $func (@probes) {
+ if ($func->($format, $frm)) {
+ ++$found;
+ last;
+ }
}
- printf("%10s: includes %s - libraries %s\n",$frm,(@i?'found':'not found'),(@l?'found':'not found'));
- $formats{$frm}{incdir} = \@i;
- $formats{$frm}{libdir} = \@l;
- return scalar(@i && @l);
-}
+ $found or return;
+ if ($format->{postcheck}) {
+ print " Calling postcheck function\n" if $VERBOSE;
+ $format->{postcheck}->($format, $frm)
+ or return;
+ }
+ return 1;
+}
sub pathcheck {
if ($VERBOSE) {
print "\nLibrary paths:\n";
- for (@incs) { print $_,"\n"; }
+ for (@libs) { print $_,"\n"; }
}
@libs=grep { -d $_ && -r _ && -x _ or ( print(" $_ doesnt exist or is unaccessible - removed.\n"),0) } @libs;
print "\ndone.\n";
sub init {
- @definc{'/usr/include'}=();
- @incs=(split(/\Q$Config{path_sep}/, $INCPATH));
+ my @definc = qw(/usr/include);
+ @definc{@definc}=(1) x @definc;
+ @incs=
+ (
+ split(/\Q$Config{path_sep}/, $INCPATH),
+ map _tilde_expand($_), map { split /\Q$Config{path_sep}/ } @incpaths
+ );
if ($Config{locincpth}) {
push @incs, grep -d, split ' ', $Config{locincpth};
}
if ($^O =~ /win32/i && $Config{cc} =~ /\bcl\b/i) {
push(@incs, split /;/, $ENV{INCLUDE}) if exists $ENV{INCLUDE};
}
+ if ($Config{incpath}) {
+ push @incs, grep -d, split /\Q$Config{path_sep}/, $Config{incpath};
+ }
push @incs, grep -d,
qw(/sw/include
/usr/include/freetype2
/usr/local/include/freetype2
/usr/local/include/freetype1/freetype
- /usr/include /usr/local/include /usr/include/freetype
+ /usr/include /usr/local/include /usr/include/freetype
/usr/local/include/freetype);
+ if ($Config{ccflags}) {
+ my @hidden = map { /^-I(.*)$/ ? ($1) : () } split ' ', $Config{ccflags};
+ push @incs, @hidden;
+ @definc{@hidden} = (1) x @hidden;
+ }
- @libs= split(/\Q$Config{path_sep}/,$LIBPATH);
+ @libs= ( split(/\Q$Config{path_sep}/,$LIBPATH),
+ map _tilde_expand($_), map { split /\Q$Config{path_sep}/} @libpaths );
if ($Config{loclibpth}) {
push @libs, grep -d, split ' ', $Config{loclibpth};
}
+
push @libs, grep -d, qw(/sw/lib), split(/ /, $Config{'libpth'});
+ push @libs, grep -d, split / /, $Config{libspath} if $Config{libspath};
if ($^O =~ /win32/i && $Config{cc} =~ /\bcl\b/i) {
push(@libs, split /;/, $ENV{LIB}) if exists $ENV{LIB};
}
if ($^O eq 'cygwin') {
push(@libs, '/usr/lib/w32api') if -d '/usr/lib/w32api';
- push(@incs, '/usr/include/w32api') if -d '/usr/lib/w32api';
+ push(@incs, '/usr/include/w32api') if -d '/usr/include/w32api';
}
-
- my $lext=$Config{'so'}; # Get extensions of libraries
- my $aext=$Config{'_a'};
-
- $formats{'jpeg'}={
- order=>'21',
- def=>'HAVE_LIBJPEG',
- inccheck=>sub { $_[0] eq 'jpeglib.h' },
- libcheck=>sub { $_[0] eq "libjpeg$aext" or $_ eq "libjpeg.$lext" },
- libfiles=>'-ljpeg',
- objfiles=>'jpeg.o',
- docs=>q{
- In order to use jpeg with this module you need to have libjpeg
- installed on your computer}
- };
-
- $formats{'tiff'}={
- order=>'23',
- def=>'HAVE_LIBTIFF',
- inccheck=>sub { $_[0] eq 'tiffio.h' },
- libcheck=>sub { $_[0] eq "libtiff$aext" or $_ eq "libtiff.$lext" },
- libfiles=>'-ltiff',
- objfiles=>'tiff.o',
- docs=>q{
- In order to use tiff with this module you need to have libtiff
- installed on your computer}
- };
-
- $formats{'png'}={
- order=>'22',
- def=>'HAVE_LIBPNG',
- inccheck=>sub { $_[0] eq 'png.h' },
- libcheck=>sub { $_[0] eq "libpng$aext" or $_[0] eq "libpng.$lext" },
- libfiles=>'-lpng -lz',
- objfiles=>'png.o',
- docs=>q{
- Png stands for Portable Network Graphics and is intended as
- a replacement for gif on the web. It is patent free and
- is recommended by the w3c, you need libpng to use these formats},
- code => \&png_probe,
- };
-
- $formats{'gif'}={
- order=>'20',
- def=>'HAVE_LIBGIF',
- inccheck=>sub { $_[0] eq 'gif_lib.h' },
- libcheck=>sub { $_[0] eq "libgif$aext" or $_[0] eq "libgif.$lext" },
- libfiles=>'-lgif',
- objfiles=>'gif.o',
- docs=>q{
- gif is the de facto standard for webgraphics at the moment,
- it does have some patent problems. If you have giflib and
- are not in violation with the unisys patent you should use
- this instead of the 'ungif' option. Note that they cannot
- be in use at the same time}
- };
-
- $formats{'ungif'}={
- order=>'21',
- def=>'HAVE_LIBGIF',
- inccheck=>sub { $_[0] eq 'gif_lib.h' },
- libcheck=>sub { $_[0] eq "libungif$aext" or $_[0] eq "libungif.$lext" },
- libfiles=>'-lungif',
- objfiles=>'gif.o',
- docs=>q{
- gif is the de facto standard for webgraphics at the moment,
- it does have some patent problems. If you have libungif and
- want to create images free from LZW patented compression you
- should use this option instead of the 'gif' option}
- };
-
- $formats{'T1-fonts'}={
- order=>'30',
- def=>'HAVE_LIBT1',
- inccheck=>sub { $_[0] eq 't1lib.h' },
- libcheck=>sub { $_[0] eq "libt1$aext" or $_[0] eq "libt1.$lext" },
- libfiles=>'-lt1',
- objfiles=>'',
- docs=>q{
- postscript t1 fonts are scalable fonts. They can include
- ligatures and kerning information and generally yield good
- visual quality. We depend on libt1 to rasterize the fonts
- for use in images.}
+ if ($Config{ldflags}) {
+ # some builds of perl put -Ldir into ldflags without putting it in
+ # loclibpth, let's extract them
+ my @hidden = grep -d, map { /^-L(.*)$/ ? ($1) : () }
+ split ' ', $Config{ldflags};
+ push @libs, @hidden;
+ # don't mark them as seen - EU::MM will remove any libraries
+ # it can't find and it doesn't look for -L in ldflags
+ #@deflib{@hidden} = @hidden;
+ }
+ push @libs, grep -d, qw(/usr/local/lib);
+
+# $formats{'jpeg'}={
+# order=>'21',
+# def=>'HAVE_LIBJPEG',
+# inccheck=>sub { -e catfile($_[0], 'jpeglib.h') },
+# libcheck=>sub { $_[0] eq "libjpeg$aext" or $_ eq "libjpeg.$lext" },
+# libfiles=>'-ljpeg',
+# objfiles=>'jpeg.o',
+# docs=>q{
+# In order to use jpeg with this module you need to have libjpeg
+# installed on your computer}
+# };
+
+# $formats{'tiff'}={
+# order=>'23',
+# def=>'HAVE_LIBTIFF',
+# inccheck=>sub { -e catfile($_[0], 'tiffio.h') },
+# libcheck=>sub { $_[0] eq "libtiff$aext" or $_ eq "libtiff.$lext" },
+# libfiles=>'-ltiff',
+# objfiles=>'tiff.o',
+# docs=>q{
+# In order to use tiff with this module you need to have libtiff
+# installed on your computer},
+# postcheck => \&postcheck_tiff,
+# };
+
+# $formats{'png'}={
+# order=>'22',
+# def=>'HAVE_LIBPNG',
+# inccheck=>sub { -e catfile($_[0], 'png.h') },
+# libcheck=>sub { $_[0] eq "libpng$aext" or $_[0] eq "libpng.$lext" },
+# libfiles=>$^O eq 'MSWin32' ? '-lpng -lzlib' : '-lpng -lz',
+# objfiles=>'png.o',
+# docs=>q{
+# Png stands for Portable Network Graphics and is intended as
+# a replacement for gif on the web. It is patent free and
+# is recommended by the w3c, you need libpng to use these formats},
+# code => \&png_probe,
+# };
+
+# $formats{'gif'}={
+# order=>'20',
+# def=>'HAVE_LIBGIF',
+# inccheck=>sub { -e catfile($_[0], 'gif_lib.h') },
+# libcheck=>sub { $_[0] eq "libgif$aext" or $_[0] eq "libgif.$lext" },
+# libfiles=>'-lgif',
+# objfiles=>'gif.o',
+# docs=>q{
+# gif is the de facto standard for webgraphics at the moment,
+# it does have some patent problems. If you have giflib and
+# are not in violation with the unisys patent you should use
+# this instead of the 'ungif' option. Note that they cannot
+# be in use at the same time}
+# };
+
+# $formats{'ungif'}={
+# order=>'21',
+# def=>'HAVE_LIBGIF',
+# inccheck=>sub { -e catfile($_[0], 'gif_lib.h') },
+# libcheck=>sub { $_[0] eq "libungif$aext" or $_[0] eq "libungif.$lext" },
+# libfiles=>'-lungif',
+# objfiles=>'gif.o',
+# docs=>q{
+# gif is the de facto standard for webgraphics at the moment,
+# it does have some patent problems. If you have libungif and
+# want to create images free from LZW patented compression you
+# should use this option instead of the 'gif' option}
+# };
+
+# $formats{'T1-fonts'}={
+# order=>'30',
+# def=>'HAVE_LIBT1',
+# inccheck=>sub { -e catfile($_[0], 't1lib.h') },
+# libcheck=>sub { $_[0] eq "libt1$aext" or $_[0] eq "libt1.$lext" },
+# libfiles=>'-lt1',
+# objfiles=>'',
+# docs=>q{
+# postscript t1 fonts are scalable fonts. They can include
+# ligatures and kerning information and generally yield good
+# visual quality. We depend on libt1 to rasterize the fonts
+# for use in images.}
+# };
+
+ $formats{'TT-fonts'}=
+ {
+ order=>'31',
+ def=>'HAVE_LIBTT',
+ inccheck=>sub { -e catfile($_[0], 'freetype.h')
+ && !-e catfile($_[0], 'fterrors.h') },
+ libcheck=>sub { $_[0] eq "libttf$aext" or $_[0] eq "libttf.$lext" },
+ libfiles=>'-lttf',
+ objfiles=>'',
+ code => \&freetype1_probe,
+ docs=>q{
+Truetype fonts are scalable fonts. They can include
+kerning and hinting information and generally yield good
+visual quality esp on low resultions. The freetype library is
+used to rasterize for us. The only drawback is that there
+are alot of badly designed fonts out there.}
};
+# $formats{'w32'} = {
+# order=>40,
+# def=>'HAVE_WIN32',
+# inccheck=>sub { -e catfile($_[0], 'windows.h') },
+# libcheck=>sub { lc $_[0] eq 'gdi32.lib'
+# || lc $_[0] eq 'libgdi32.a' },
+# libfiles=>$^O eq 'cygwin' ? '-lgdi32' : '',
+# objfiles=>'win32.o',
+# docs => <<DOCS
+# Uses the Win32 GDI for rendering text.
+
+# This currently only works on under normal Win32 and cygwin.
+# DOCS
+# };
+# $formats{'freetype2'} =
+# {
+# order=>'29',
+# def=>'HAVE_FT2',
+# # we always use a probe function
+# #inccheck=>sub { -e catfile($_[0], 'ft2build.h') },
+# #libcheck=>sub { $_[0] eq "libfreetype$aext" or $_[0] eq "libfreetype.$lext" },
+# libfiles=>'-lfreetype',
+# objfiles=>'freetyp2.o',
+# docs=><<DOCS,
+# Freetype 2 supports both Truetype and Type 1 fonts, both of which are
+# scalable. It also supports a variety of other fonts.
+# DOCS
+# code =>
+# [
+# \&freetype2_probe_ftconfig,
+# \&freetype2_probe_scan
+# ],
+# };
- $formats{'TT-fonts'}={
- order=>'31',
- def=>'HAVE_LIBTT',
- inccheck=>sub { $_[0] eq 'freetype.h' },
- libcheck=>sub { $_[0] eq "libttf$aext" or $_[0] eq "libttf.$lext" },
- libfiles=>'-lttf',
- objfiles=>'',
- docs=>q{
- Truetype fonts are scalable fonts. They can include
- kerning and hinting information and generally yield good
- visual quality esp on low resultions. The freetype library is
- used to rasterize for us. The only drawback is that there
- are alot of badly designed fonts out there.}
- };
- $formats{'w32'} = {
- order=>40,
- def=>'HAVE_WIN32',
- inccheck=>sub { lc $_[0] eq 'windows.h' },
- libcheck=>sub { lc $_[0] eq 'gdi32.lib'
- || lc $_[0] eq 'libgdi32.a' },
- libfiles=>$^O eq 'cygwin' ? '-lgdi32' : '',
- objfiles=>'win32.o',
- docs => <<DOCS
-Uses the Win32 GDI for rendering text.
-
-This currently only works on under normal Win32 and cygwin.
-DOCS
- };
- $formats{'freetype2'} = {
- order=>'29',
- def=>'HAVE_FT2',
- inccheck=>sub { lc $_[0] eq 'ft2build.h' },
- libcheck=>sub { $_[0] eq "libfreetype$aext" or $_[0] eq "libfreetype.$lext" },
- libfiles=>'-lfreetype',
- objfiles=>'freetyp2.o',
- docs=><<DOCS,
-Freetype 2 supports both Truetype and Type 1 fonts, both of which are
-scalable.
-DOCS
- code => \&freetype2_probe,
- };
# Make fix indent
for (keys %formats) { $formats{$_}->{docs} =~ s/^\s+/ /mg; }
}
IM_LFLAGS
IM_DFLAGS);
- if ($VERBOSE) { print "Verbose mode\n"; require Data::Dumper; import Data::Dumper qw(Dumper);}
+}
- if ($NOLOG) { print "Logging not compiled into module\n"; }
- else { $EXTDEF.=' -DIMAGER_LOG'; }
+# populate the environment so that sub-modules get the same info
+sub setenv {
+ $ENV{IM_VERBOSE} = 1 if $VERBOSE;
+ $ENV{IM_INCPATH} = join $Config{path_sep}, @incpaths if @incpaths;
+ $ENV{IM_LIBPATH} = join $Config{path_sep}, @libpaths if @libpaths;
+}
- if ($DEBUG_MALLOC) {
- $EXTDEF.=' -DIMAGER_DEBUG_MALLOC';
- print "Malloc debugging enabled\n";
+sub make_imconfig {
+ my ($defines) = @_;
+
+ open CONFIG, "> imconfig.h"
+ or die "Cannot create imconfig.h: $!\n";
+ print CONFIG <<EOS;
+/* This file is automatically generated by Makefile.PL.
+ Don't edit this file, since any changes will be lost */
+
+#ifndef IMAGER_IMCONFIG_H
+#define IMAGER_IMCONFIG_H
+EOS
+ for my $define (@$defines) {
+ if ($define->[2]) {
+ print CONFIG "\n/*\n $define->[2]\n*/\n\n";
+ }
+ print CONFIG "#define $define->[0] $define->[1]\n";
}
-
+ print CONFIG "\n#endif\n";
+ close CONFIG;
}
-# probes for freetype2 by trying to run freetype-config
-sub freetype2_probe {
+# # use pkg-config to probe for libraries
+# # works around the junk that pkg-config dumps on FreeBSD
+# sub _pkg_probe {
+# my ($pkg) = @_;
+
+# is_exe('pkg-config') or return;
+
+# my $redir = $^O eq 'MSWin32' ? '' : '2>/dev/null';
+
+# !system("pkg-config $pkg --exists $redir");
+# }
+
+# probes for freetype1 by scanning @incs for the includes and
+# @libs for the libs. This is done separately because freetype's headers
+# are stored in a freetype or freetype1 directory under PREFIX/include.
+#
+# we could find the files with the existing mechanism, but it won't set
+# -I flags correctly.
+#
+# This could be extended to freetype2 too, but freetype-config catches
+# that
+sub freetype1_probe {
my ($frm, $frmkey) = @_;
- is_exe('freetype-config') or return;
+ my $found_inc;
+ INCS:
+ for my $inc (@incs) {
+ for my $subdir (qw/freetype freetype1/) {
+ my $path = File::Spec->catfile($inc, $subdir, 'freetype.h');
+ -e $path or next;
+ $path = File::Spec->catfile($inc, $subdir, 'fterrors.h');
+ -e $path and next;
+
+ $found_inc = File::Spec->catdir($inc, $subdir);
+ last INCS;
+ }
+ }
- my $cflags = `freetype-config --cflags`
- and !$? or return;
- chomp $cflags;
-
- $frm->{cflags} = $cflags;
- my $lflags = `freetype-config --libs`
- and !$? or return;
- chomp $lflags;
- $frm->{libfiles} = $lflags;
+ my $found_lib;
+ LIBS:
+ for my $lib (@libs) {
+ my $a_path = File::Spec->catfile($lib, "libttf$aext");
+ my $l_path = File::Spec->catfile($lib, "libttf.$lext");
+ if (-e $a_path || -e $l_path) {
+ $found_lib = $lib;
+ last LIBS;
+ }
+ }
+
+ return unless $found_inc && $found_lib;
+ printf("%10s: includes %s - libraries %s\n", $frmkey,
+ ($found_inc ? 'found' : 'not found'),
+ ($found_lib ? 'found' : 'not found'));
- printf "%10s: configured via freetype-config\n", $frmkey;
+ $frm->{cflags} = "-I$found_inc";
+ $frm->{libfiles} = "-lttf";
return 1;
}
+# probes for freetype2 by trying to run freetype-config
+# sub freetype2_probe_ftconfig {
+# my ($frm, $frmkey) = @_;
+
+# is_exe('freetype-config') or return;
+
+# my $cflags = `freetype-config --cflags`
+# and !$? or return;
+# chomp $cflags;
+
+# my $lflags = `freetype-config --libs`
+# and !$? or return;
+# chomp $lflags;
+
+# # before 2.1.5 freetype-config --cflags could output
+# # the -I options in the wrong order, causing a conflict with
+# # freetype1.x installed with the same --prefix
+# #
+# # can happen iff:
+# # - both -Iprefix/include and -Iprefix/include/freetype2 are in cflags
+# # in that order
+# # - freetype 1.x headers are in prefix/include/freetype
+# my @incdirs = map substr($_, 2), grep /^-I/, split ' ', $cflags;
+# if (@incdirs == 2
+# && $incdirs[1] eq "$incdirs[0]/freetype2"
+# && -e "$incdirs[0]/freetype/freetype.h"
+# && -e "$incdirs[0]/freetype/fterrid.h") {
+# print "** freetype-config provided -I options out of order, correcting\n"
+# if $VERBOSE;
+# $cflags = join(' ', grep(!/-I/, split ' ', $cflags),
+# map "-I$_", reverse @incdirs);
+# }
+# $frm->{cflags} = $cflags;
+# $frm->{lflags} = $lflags;
+
+# printf "%10s: configured via freetype-config\n", $frmkey;
+
+# return 1;
+# }
+
+# attempt to probe for freetype2 by scanning directories
+# we can't use the normal scan since we need to find the directory
+# containing most of the includes
+# sub freetype2_probe_scan {
+# my ($frm, $frmkey) = @_;
+
+# my $found_inc;
+# my $found_inc2;
+# INCS:
+# for my $inc (@incs) {
+# my $path = File::Spec->catfile($inc, 'ft2build.h');
+# -e $path or next;
+
+# # try to find what it's including
+# my $ftheader;
+# open FT2BUILD, "< $path"
+# or next;
+# while (<FT2BUILD>) {
+# if (m!^\s*\#\s*include\s+<([\w/.]+)>!
+# || m!^\s*\#\s*include\s+"([\w/.]+)"!) {
+# $ftheader = $1;
+# last;
+# }
+# }
+# close FT2BUILD;
+# $ftheader
+# or next;
+# # non-Unix installs put this directly under the same directory in
+# # theory
+# if (-e File::Spec->catfile($inc, $ftheader)) {
+# $found_inc = $inc;
+# last INCS;
+# }
+# for my $subdir (qw/freetype2 freetype/) {
+# $path = File::Spec->catfile($inc, $subdir, 'fterrors.h');
+# -e $path and next;
+
+# $found_inc = $inc;
+# $found_inc2 = File::Spec->catdir($inc, $subdir);
+# last INCS;
+# }
+# }
+
+# my $found_lib;
+# LIBS:
+# for my $lib (@libs) {
+# my $a_path = File::Spec->catfile($lib, "libfreetype$aext");
+# my $l_path = File::Spec->catfile($lib, "libfreetype.$lext");
+# if (-e $a_path || -e $l_path) {
+# $found_lib = $lib;
+# last LIBS;
+# }
+# }
+
+# printf("%10s: includes %s - libraries %s\n", $frmkey,
+# ($found_inc ? 'found' : 'not found'),
+# ($found_lib ? 'found' : 'not found'));
+
+# return unless $found_inc && $found_lib;
+
+# $frm->{cflags} = _make_I($found_inc);
+# $frm->{cflags} .= " " . _make_I($found_inc2) if $found_inc2;
+# $frm->{libfiles} = "-lfreetype";
+
+# return 1;
+# }
+
+sub _make_I {
+ my ($inc_dir) = @_;
+
+ $definc{$inc_dir}
+ and return '';
+
+ $inc_dir =~ / / ? qq!-I"$inc_dir"! : "-I$inc_dir";
+}
+
# probes for libpng via pkg-config
-sub png_probe {
- my ($frm, $frmkey) = @_;
+# sub png_probe {
+# my ($frm, $frmkey) = @_;
- is_exe('pkg-config') or return;
+# is_exe('pkg-config') or return;
- my $cflags;
- my $config;
- for my $check_conf (qw(libpng libpng12 libpng10)) {
- $cflags = `pkg-config $check_conf --cflags`;
- if ($cflags && !$?) {
- $config = $check_conf;
- last;
- }
- }
- $config or return;
+# my $config;
+# for my $check_conf (qw(libpng libpng12 libpng10)) {
+# if (_pkg_probe($check_conf)) {
+# $config = $check_conf;
+# last;
+# }
+# }
+# $config or return;
- my $lflags = `pkg-config $config --libs`
- and !$? or return;
+# my $cflags = `pkg-config $config --cflags`
+# and !$? or return;
- chomp $cflags;
- chomp $lflags;
- $frm->{cflags} = $cflags;
- $frm->{libfiles} = $lflags;
+# my $lflags = `pkg-config $config --libs`
+# and !$? or return;
- printf "%10s: configured via `pkg-config $config ...`\n", $frmkey;
+# chomp $cflags;
+# chomp $lflags;
+# $frm->{cflags} = $cflags;
+# $frm->{lflags} = $lflags;
- return 1;
-}
+# printf "%10s: configured via `pkg-config $config ...`\n", $frmkey;
+
+# return 1;
+# }
sub catfile {
return File::Spec->catfile(@_);
}
-sub is_exe {
- my ($name) = @_;
+# sub is_exe {
+# my ($name) = @_;
+
+# my @exe_suffix = $Config{_exe};
+# if ($^O eq 'MSWin32') {
+# push @exe_suffix, qw/.bat .cmd/;
+# }
+
+# for my $dir (File::Spec->path) {
+# for my $suffix (@exe_suffix) {
+# -x catfile($dir, "$name$suffix")
+# and return 1;
+# }
+# }
+
+# return;
+# }
+
+sub usage {
+ print STDERR <<EOS;
+Usage: $0 [--enable feature1,feature2,...] [other options]
+ $0 [--disable feature1,feature2,...] [other options]
+ $0 --help
+Possible feature names are:
+ T1-fonts TT-fonts freetype2
+Other options:
+ --verbose | -v
+ Verbose library probing (or set IM_VERBOSE in the environment)
+ --nolog
+ Disable logging (or set IM_NOLOG in the environment)
+ --incpath dir
+ Add to the include search path
+ --libpath dir
+ Add to the library search path
+ --coverage
+ Build for coverage testing.
+ --assert
+ Build with assertions active.
+EOS
+ exit 1;
+
+}
+
+# generate the PM MM argument
+# I'd prefer to modify the public version, but there doesn't seem to be
+# a public API to do that
+sub gen_PM {
+ my %pm;
+ my $instbase = '$(INST_LIBDIR)';
+
+ # first the basics, .pm and .pod files
+ $pm{"Imager.pm"} = "$instbase/Imager.pm";
+
+ my $mani = maniread();
+
+ for my $filename (keys %$mani) {
+ if ($filename =~ m!^lib/! && $filename =~ /\.(pm|pod)$/) {
+ (my $work = $filename) =~ s/^lib//;
+ $pm{$filename} = $instbase . $work;
+ }
+ }
+
+ # need the typemap
+ $pm{typemap} = $instbase . '/Imager/typemap';
+
+ # and the core headers
+ for my $filename (keys %$mani) {
+ if ($filename =~ /^\w+\.h$/) {
+ $pm{$filename} = $instbase . '/Imager/include/' . $filename;
+ }
+ }
+
+ # and the generated header
+ $pm{"imconfig.h"} = $instbase . '/Imager/include/imconfig.h';
+
+ \%pm;
+}
+
+my $home;
+sub _tilde_expand {
+ my ($path) = @_;
- for my $dir (File::Spec->path) {
- -x catfile($dir, "$name$Config{_exe}")
- and return 1;
+ if ($path =~ m!^~[/\\]!) {
+ defined $home or $home = $ENV{HOME};
+ if (!defined $home && $^O eq 'MSWin32'
+ && defined $ENV{HOMEDRIVE} && defined $ENV{HOMEPATH}) {
+ $home = $ENV{HOMEDRIVE} . $ENV{HOMEPATH};
+ }
+ unless (defined $home) {
+ $home = eval { (getpwuid($<))[7] };
+ }
+ defined $home or die "You supplied $path, but I can't find your home directory\n";
+ $path =~ s/^~//;
+ $path = File::Spec->catdir($home, $path);
}
- return;
+ $path;
}
+
+# sub postcheck_tiff {
+# my ($format, $frm) = @_;
+
+# -d "probe" or mkdir "probe";
+
+# my $tiffver_name = "probe/tiffver.txt";
+
+# my $lib;
+# if ($Config{cc} =~ /\b(cl|bcc)\b/) {
+# $lib = "libtiff";
+# }
+# else {
+# $lib = "tiff";
+# }
+
+# # setup LD_RUN_PATH to match link time
+# my $lopts = join " " , map("-L$_", @{$format->{libdir}}), " -ltiff";
+# my ($extra, $bs_load, $ld_load, $ld_run_path) =
+# ExtUtils::Liblist->ext($lopts, $VERBOSE);
+# local $ENV{LD_RUN_PATH};
+
+# if ($ld_run_path) {
+# print "Setting LD_RUN_PATH=$ld_run_path for TIFF probe\n" if $VERBOSE;
+# $ENV{LD_RUN_PATH} = $ld_run_path;
+# }
+
+# my $good =
+# eval {
+# assert_lib
+# (
+# debug => $VERBOSE,
+# incpath => $format->{incdir},
+# libpath => $format->{libdir},
+# lib => $lib,
+# header => [ qw(stdio.h tiffio.h) ],
+# function => <<FUNCTION,
+# {
+# const char *vers = TIFFGetVersion();
+# FILE *f = fopen("$tiffver_name", "wb");
+# if (!f)
+# return 1;
+# fputs(vers, f);
+# if (fclose(f))
+# return 1;
+# return 0;
+# }
+# FUNCTION
+# );
+# 1;
+# };
+
+# unless ($good && -s $tiffver_name
+# && open(VERS, "< $tiffver_name")) {
+# unlink $tiffver_name unless $KEEP_FILES;
+# print <<EOS;
+# **tiff: cannot determine libtiff version number
+# tiff: DISABLED
+# EOS
+# return;
+# }
+
+# # version file seems to be there, load it up
+# my $ver_str = do { local $/; <VERS> };
+# close VERS;
+# unlink $tiffver_name unless $KEEP_FILES;
+
+# my ($version) = $ver_str =~ /(\d+\.\d+\.\d+)/;
+
+# if ($version eq '3.9.0') {
+# print <<EOS;
+# **tiff: libtiff 3.9.0 introduced a serious bug, please install 3.9.1
+# tiff: DISABLED
+# EOS
+# return;
+# }
+
+# return 1;
+# }
+
+# This isn't a module, but some broken tools, like
+# Module::Depends::Instrusive insist on treating it like one.
+#
+# http://rt.cpan.org/Public/Bug/Display.html?id=21229
+
+1;
projects / imager.git / blobdiff