[imager.git] / Makefile.PL

#!perl -w
use ExtUtils::MakeMaker;
use Cwd;
use Config;
use File::Spec;
use Getopt::Long;

#
# IM_INCPATH      colon seperated list of paths to extra include paths
# IM_LIBPATH      colon seperated list of paths to extra library paths
#
# IM_VERBOSE      turns on verbose mode for the library finding and such
# IM_MANUAL       to manually select which libraries are used and which not
# IM_ENABLE       to programmatically select which libraries are used
#                 and which are not
# IM_NOLOG        if true logging will not be compiled into the module
# IM_DEBUG_MALLOC if true malloc debbuging will be compiled into the module
#                 do not use IM_DEBUG_MALLOC in production - this slows
#                 everything down by alot
# 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 $help;
my @enable;
my @disable;
my @incpaths;
my @libpaths;
my $noprobe;
GetOptions("help" => \$help,
           "enable=s" => \@enable,
           "disable=s" => \@disable,
           "incpath=s", \@incpaths,
           "libpath=s" => \@libpaths,
           "noprobe" => \$noprobe);

if ($help) {
  usage();
}

if (@enable && @disable) {
  print STDERR "Only --enable or --disable can be used, not both, try --help\n";
  exit 1;
}

getenv();     # get environment variables
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};
}

my @defines;

# Pick what libraries are used
if ($MANUAL) {
  manual();
} else {
  automatic();
}

# Make sure there isn't a clash between the gif libraries.
gifcheck();

my $lib_cflags = '';
for my $frmkey (keys %formats) {
  my $frm = $formats{$frmkey};
  push @defines, [ $frm->{def}, 1, "$frmkey available" ];
  $F_LIBS   .= ' '  .$frm->{libfiles};
  $F_OBJECT .= ' '  .$frm->{objfiles};
  $lib_cflags   .= ' '  .$frm->{cflags} if $frm->{cflags};
}

$F_INC  = join ' ', map "-I$_", map / / ? qq{"$_"} : $_, 
  grep !exists $definc{$_}, @incs;
$F_LIBS = join(' ',map "-L$_", map / / ? qq{"$_"} : $_, @libs) . $F_LIBS;

$OSLIBS = '';
$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'       => "$OSDEF $CFLAGS",
       'INC'          => "$lib_cflags $DFLAGS $F_INC",
       'OBJECT'       => join(' ', @objs, $F_OBJECT),
       clean          => { FILES=>'testout' },
      );

if ($ExtUtils::MakeMaker::VERSION > 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;
}

make_imconfig(\@defines);

if ($VERBOSE) { print Dumper(\%opts); }
mkdir('testout',0777); # since we cannot include it in the archive.
WriteMakefile(%opts);

exit;


sub MY::postamble {
'
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 <=="
';
}

# manual configuration of helper libraries

sub manual {
  print <<EOF;

      Please answer the following questions about
      which formats are avaliable on your computer

press <return> to continue
EOF

  <STDIN>; # eat one return

  for my $frm(sort { $formats{$b}{order} <=> $formats{$a}{order} } keys %formats) {
  SWX:
    if ($formats{$frm}{docs}) { print "\n",$formats{$frm}{docs},"\n\n"; }
    print "Enable $frm support: ";
    $gz = <STDIN>;
    chomp($gz);
    if ($gz =~ m/^(y|yes|n|no)/i) {
      $gz=substr(lc($gz),0,1);
      if ($gz eq 'n') {
	delete $formats{$frm};
      }
    } else { goto SWX; }
  }
}


# automatic configuration of helper libraries

sub automatic {
  for $frm(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

  push @defines, [ IM_GIFMAJOR, $major, "Parsed giflib version" ];
  push @defines, [ IM_GIFMINOR, $minor ];
}


sub gd {
  my($path,$chk)=@_;

#    print "checking path $path\n";
  if ( !opendir(DH,$path) ) {
    warn "Cannot open dir $path: $!\n";
    return;
  }
  my @l=grep { $chk->($_) } readdir(DH);
  #    print @l;
  close(DH);
  return map $path, @l;
}


sub checkformat {
  my $frm=shift;
  
  my $code = $formats{$frm}{'code'};
  if ($code && !$noprobe) {
    return 1 if $code->($formats{$frm}, $frm);
  }

  my $libchk=$formats{$frm}{'libcheck'};
  my $incchk=$formats{$frm}{'inccheck'};

  my @l;
  for my $lp (@libs) {
    push(@l, gd($lp,$libchk));
  }

  my @i;
  for my $ip (@incs) {
    push(@i, $ip) if $incchk->($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 scalar(@i && @l);
}


sub pathcheck {
  if ($VERBOSE) {
    print "pathcheck\n";
    print "  Include paths:\n";
    for (@incs) { print $_,"\n"; }
  }
  @incs=grep { -d $_ && -r _ && -x _ or ( print("  $_ doesnt exist or is unaccessible - removed.\n"),0) } @incs;

  if ($VERBOSE) {
    print "\nLibrary paths:\n";
    for (@incs) { print $_,"\n"; }
  }
  @libs=grep { -d $_ && -r _ && -x _ or ( print("  $_ doesnt exist or is unaccessible - removed.\n"),0) } @libs;
  print "\ndone.\n";
}


# Format data initialization

# format definition is:
# defines needed
# default include path
# files needed for include (boolean perl code)
# default lib path
# libs needed
# files needed for link (boolean perl code)
# object files needed for the format


sub init {

  @definc{'/usr/include'}=();
  @incs=(split(/\Q$Config{path_sep}/, $INCPATH),
        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};
  }
  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/local/include/freetype);

  @libs= ( split(/\Q$Config{path_sep}/,$LIBPATH),
    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'});
  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';
  }

  my $lext=$Config{'so'};   # Get extensions of libraries
  my $aext=$Config{'_a'};

  $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}
		   };

  $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=>'-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=>'',
     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',
                           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,
                          };
  # Make fix indent
  for (keys %formats) { $formats{$_}->{docs} =~ s/^\s+/  /mg; }
}


sub gen {
  my $V = $ENV{$_[0]};
  defined($V) ? $V : "";
}


# Get information from environment variables

sub getenv {

  ($VERBOSE,
   $INCPATH,
   $LIBPATH,
   $NOLOG,
   $DEBUG_MALLOC,
   $MANUAL,
   $CFLAGS,
   $LFLAGS,
   $DFLAGS) = map { gen $_ } qw(IM_VERBOSE
				IM_INCPATH
				IM_LIBPATH
				IM_NOLOG
				IM_DEBUG_MALLOC
				IM_MANUAL
				IM_CFLAGS
				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 { 
    push @defines, [ IMAGER_LOG => 1, "Logging system" ];
  }

  if ($DEBUG_MALLOC) {
    push @defines, [ IMAGER_DEBUG_MALLOC => 1, "Use Imager's 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 {
  my ($frm, $frmkey) = @_;

  is_exe('freetype-config') or return;

  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;

  printf "%10s: configured via freetype-config\n", $frmkey;

  return 1;
}

# probes for libpng via pkg-config
sub png_probe {
  my ($frm, $frmkey) = @_;

  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 $lflags = `pkg-config $config --libs`
    and !$? or return;

  chomp $cflags;
  chomp $lflags;
  $frm->{cflags} = $cflags;
  $frm->{libfiles} = $lflags;

  printf "%10s: configured via `pkg-config $config ...`\n", $frmkey;

  return 1;
}

sub catfile {
  return File::Spec->catfile(@_);
}

sub is_exe {
  my ($name) = @_;

  for my $dir (File::Spec->path) {
    -x catfile($dir, "$name$Config{_exe}")
      and return 1;
  }

  return;
}

sub usage {
  print STDERR <<EOS;
Usage: $0 [--enable feature1,feature2,...] [--incpath ...] [--libpath ...]
       $0 [--disable feature1,feature2,...] [--incpath ...] [--libpath ...]
       $0 --help
Possible feature names are:
  png gif ungif jpeg tiff T1-fonts TT-fonts freetype2
EOS
  exit 1;

}
Commit	Line	Data
ea9e6c3f	1	#!perl -w
02d1d628 AMH	2	use ExtUtils::MakeMaker;
	3	use Cwd;
	4	use Config;
07ea6c21	5	use File::Spec;
37959076	6	use Getopt::Long;
02d1d628	7
02d1d628 AMH	8	#
	9	# IM_INCPATH colon seperated list of paths to extra include paths
	10	# IM_LIBPATH colon seperated list of paths to extra library paths
	11	#
	12	# IM_VERBOSE turns on verbose mode for the library finding and such
	13	# IM_MANUAL to manually select which libraries are used and which not
	14	# IM_ENABLE to programmatically select which libraries are used
	15	# and which are not
	16	# IM_NOLOG if true logging will not be compiled into the module
	17	# IM_DEBUG_MALLOC if true malloc debbuging will be compiled into the module
	18	# do not use IM_DEBUG_MALLOC in production - this slows
	19	# everything down by alot
	20	# IM_CFLAGS Extra flags to pass to the compiler
	21	# IM_LFLAGS Extra flags to pass to the linker
	22	# IM_DFLAGS Extra flags to pass to the preprocessor
f4dbac50	23	# IM_SUPPRESS_PROMPT Suppress the prompt asking about gif support
02d1d628	24
37959076 TC	25	my $help;
	26	my @enable;
	27	my @disable;
	28	my @incpaths;
	29	my @libpaths;
	30	my $noprobe;
	31	GetOptions("help" => \$help,
	32	"enable=s" => \@enable,
	33	"disable=s" => \@disable,
	34	"incpath=s", \@incpaths,
	35	"libpath=s" => \@libpaths,
	36	"noprobe" => \$noprobe);
	37
	38	if ($help) {
	39	usage();
	40	}
	41
	42	if (@enable && @disable) {
	43	print STDERR "Only --enable or --disable can be used, not both, try --help\n";
	44	exit 1;
	45	}
02d1d628 AMH	46
	47	getenv(); # get environment variables
	48	init(); # initialize global data
	49	pathcheck(); # Check if directories exist
	50
37959076 TC	51	if (exists $ENV{IM_ENABLE}) {
	52	my %en = map { $_, 1 } split ' ', $ENV{IM_ENABLE};
	53	for my $key (keys %formats) {
	54	delete $formats{$key} unless $en{$key};
	55	}
	56	}
	57	if (@enable) {
	58	my %en = map { $_ => 1 } map { split /,/ } @enable;
	59	for my $key (keys %formats) {
	60	delete $formats{$key} unless $en{$key};
	61	}
	62	}
	63	elsif (@disable) {
	64	delete @formats{map { split /,/ } @disable};
	65	}
	66
e11d297f TC	67	my @defines;
e11d297f TC	68
02d1d628 AMH	69	# Pick what libraries are used
	70	if ($MANUAL) {
	71	manual();
	72	} else {
	73	automatic();
02d1d628 AMH	74	}
	75
	76	# Make sure there isn't a clash between the gif libraries.
	77	gifcheck();
	78
07ea6c21	79	my $lib_cflags = '';
e11d297f TC	80	for my $frmkey (keys %formats) {
	81	my $frm = $formats{$frmkey};
	82	push @defines, [ $frm->{def}, 1, "$frmkey available" ];
02d1d628 AMH	83	$F_LIBS .= ' ' .$frm->{libfiles};
02d1d628 AMH	84	$F_OBJECT .= ' ' .$frm->{objfiles};
07ea6c21	85	$lib_cflags .= ' ' .$frm->{cflags} if $frm->{cflags};
02d1d628 AMH	86	}
02d1d628 AMH	87
ea9e6c3f TC	88	$F_INC = join ' ', map "-I$_", map / / ? qq{"$_"} : $_,
	89	grep !exists $definc{$_}, @incs;
	90	$F_LIBS = join(' ',map "-L$_", map / / ? qq{"$_"} : $_, @libs) . $F_LIBS;
02d1d628 AMH	91
	92	$OSLIBS = '';
	93	$OSDEF = "-DOS_$^O";
	94
	95	if ($^O eq 'hpux') { $OSLIBS .= ' -ldld'; }
	96	if (defined $Config{'d_dlsymun'}) { $OSDEF .= ' -DDLSYMUN'; }
	97
9982a307 AMH	98	@objs = qw(Imager.o draw.o polygon.o image.o io.o iolayer.o
9982a307 AMH	99	log.o gaussian.o conv.o pnm.o raw.o feat.o font.o
02d1d628	100	filters.o dynaload.o stackmach.o datatypes.o
2df3535a	101	regmach.o trans2.o quant.o error.o convert.o
261f91c5	102	map.o tags.o palimg.o maskimg.o img16.o rotate.o
737a830c	103	bmp.o tga.o rgb.o color.o fills.o imgdouble.o);
02d1d628 AMH	104
	105	%opts=(
	106	'NAME' => 'Imager',
	107	'VERSION_FROM' => 'Imager.pm',
	108	'LIBS' => "$LFLAGS -lm $OSLIBS $F_LIBS",
e11d297f	109	'DEFINE' => "$OSDEF $CFLAGS",
07ea6c21	110	'INC' => "$lib_cflags $DFLAGS $F_INC",
de2b8bae TC	111	'OBJECT' => join(' ', @objs, $F_OBJECT),
de2b8bae TC	112	clean => { FILES=>'testout' },
02d1d628 AMH	113	);
02d1d628 AMH	114
29316bdb TC	115	if ($ExtUtils::MakeMaker::VERSION > 6.06) {
29316bdb TC	116	$opts{AUTHOR} = 'Tony Cook <tony@imager.perl.org>, Arnar M. Hrafnkelsson';
ca508100 TC	117	$opts{ABSTRACT} = 'Perl extension for Generating 24 bit Images';
ca508100 TC	118	}
29316bdb TC	119	if ($ExtUtils::MakeMaker::VERSION > 6.10) {
	120	$opts{NO_META} = 1;
	121	}
ca508100	122
e11d297f TC	123	make_imconfig(\@defines);
e11d297f TC	124
02d1d628 AMH	125	if ($VERBOSE) { print Dumper(\%opts); }
	126	mkdir('testout',0777); # since we cannot include it in the archive.
	127	WriteMakefile(%opts);
4dce694d	128
02d1d628 AMH	129	exit;
	130
	131
	132	sub MY::postamble {
	133	'
faa9b3e7	134	dyntest.$(MYEXTLIB) : dynfilt/Makefile
02d1d628 AMH	135	cd dynfilt && $(MAKE) $(PASTHRU)
	136
	137	lib/Imager/Regops.pm : regmach.h regops.perl
	138	$(PERL) regops.perl regmach.h lib/Imager/Regops.pm
e11d297f TC	139
	140	imconfig.h: Makefile.PL
	141	$(ECHO) "imconfig.h out-of-date with respect to $?"
	142	$(PERLRUN) Makefile.PL
	143	$(ECHO) "==> Your Makefile has been rebuilt - re-run your make command <=="
02d1d628 AMH	144	';
	145	}
	146
	147	# manual configuration of helper libraries
	148
	149	sub manual {
	150	print <<EOF;
	151
	152	Please answer the following questions about
	153	which formats are avaliable on your computer
	154
	155	press <return> to continue
	156	EOF
	157
	158	<STDIN>; # eat one return
	159
2646b26c	160	for my $frm(sort { $formats{$b}{order} <=> $formats{$a}{order} } keys %formats) {
02d1d628 AMH	161	SWX:
	162	if ($formats{$frm}{docs}) { print "\n",$formats{$frm}{docs},"\n\n"; }
	163	print "Enable $frm support: ";
09fd3468	164	$gz = <STDIN>;
02d1d628 AMH	165	chomp($gz);
	166	if ($gz =~ m/^(y\|yes\|n\|no)/i) {
	167	$gz=substr(lc($gz),0,1);
	168	if ($gz eq 'n') {
	169	delete $formats{$frm};
	170	}
	171	} else { goto SWX; }
	172	}
	173	}
	174
	175
	176	# automatic configuration of helper libraries
	177
	178	sub automatic {
	179	for $frm(keys %formats) {
	180	delete $formats{$frm} if !checkformat($frm);
	181	}
	182	}
	183
	184
	185	sub gifcheck {
5f5fe73e	186	if ($formats{'gif'} and $formats{'ungif'}) {
02d1d628 AMH	187	print "ungif and gif can not coexist - removing ungif support\n";
	188	delete $formats{'ungif'};
	189	}
5f5fe73e AMH	190
5f5fe73e AMH	191	RETR:
f4dbac50	192	if (($formats{'gif'} or $formats{'ungif'}) && !$ENV{IM_SUPPRESS_PROMPT}) {
5f5fe73e AMH	193	print <<EOFF;
	194
	195	You have libgif or libungif installed. They are both known to have
	196	bugs. Imager can crash or display other strange behaviour after
	197	reading or writing gif images. Some of the gif tests can even fail
	198	since they stress some parts of the buggy code.
	199
f1967c11 TC	200	libungif 4.1.2 and later is safe. giflib 4.1.3 needs at least one
	201	patch to have all the bugs fixed, see README for details.
	202
	203	Of course it's possible your operating system distributor has patched
	204	all of these problems and you have nothing to worry about.
0b836ff8	205
5f5fe73e AMH	206	Do you want to remove gif support? [Y/n]
	207	EOFF
	208	my $resp = <STDIN>;
	209	chomp($resp);
	210	if ($resp ne "n") {
	211	delete $formats{'gif'};
	212	delete $formats{'ungif'};
09fd3468	213	return;
5f5fe73e AMH	214	}
5f5fe73e AMH	215	}
09fd3468 AMH	216
	217	for my $frm (qw(gif ungif)) {
	218	checkformat($frm) if ($MANUAL and $formats{$frm});
	219	}
	220
02d1d628 AMH	221	my @dirs;
	222	for my $frm (grep $formats{$_}, qw(gif ungif)) {
	223	push(@dirs, @{$formats{$frm}{incdir}}) if $formats{$frm}{incdir};
	224	}
	225	my $minor = 0;
	226	my $major = 0;
	227	FILES: for my $dir (@dirs) {
	228	my $h = "$dir/gif_lib.h";
	229	open H, "< $h" or next;
	230	while (<H>) {
	231	if (/GIF_LIB_VERSION\s+"\sversion\s(\d+)\.(\d+)/i) {
	232	$major = $1;
	233	$minor = $2;
	234	close H;
	235	last FILES;
	236	}
	237	}
	238	close H;
	239	}
	240
	241	# we need the version in a #ifdefable form
4dce694d	242
e11d297f TC	243	push @defines, [ IM_GIFMAJOR, $major, "Parsed giflib version" ];
e11d297f TC	244	push @defines, [ IM_GIFMINOR, $minor ];
02d1d628 AMH	245	}
	246
	247
	248	sub gd {
	249	my($path,$chk)=@_;
	250
	251	# print "checking path $path\n";
	252	if ( !opendir(DH,$path) ) {
	253	warn "Cannot open dir $path: $!\n";
	254	return;
	255	}
	256	my @l=grep { $chk->($_) } readdir(DH);
	257	# print @l;
	258	close(DH);
	259	return map $path, @l;
	260	}
	261
	262
	263	sub checkformat {
	264	my $frm=shift;
37959076	265
07ea6c21	266	my $code = $formats{$frm}{'code'};
37959076	267	if ($code && !$noprobe) {
07ea6c21 TC	268	return 1 if $code->($formats{$frm}, $frm);
	269	}
	270
02d1d628 AMH	271	my $libchk=$formats{$frm}{'libcheck'};
	272	my $incchk=$formats{$frm}{'inccheck'};
	273
	274	my @l;
	275	for my $lp (@libs) {
	276	push(@l, gd($lp,$libchk));
	277	}
	278
	279	my @i;
	280	for my $ip (@incs) {
f8e9bc07	281	push(@i, $ip) if $incchk->($ip,$frm);
02d1d628 AMH	282	}
	283
	284	printf("%10s: includes %s - libraries %s\n",$frm,(@i?'found':'not found'),(@l?'found':'not found'));
	285	$formats{$frm}{incdir} = \@i;
	286	$formats{$frm}{libdir} = \@l;
	287	return scalar(@i && @l);
	288	}
	289
	290
02d1d628 AMH	291	sub pathcheck {
	292	if ($VERBOSE) {
	293	print "pathcheck\n";
	294	print " Include paths:\n";
	295	for (@incs) { print $_,"\n"; }
	296	}
3a6bb91b	297	@incs=grep { -d $_ && -r _ && -x _ or ( print(" $_ doesnt exist or is unaccessible - removed.\n"),0) } @incs;
02d1d628 AMH	298
	299	if ($VERBOSE) {
	300	print "\nLibrary paths:\n";
	301	for (@incs) { print $_,"\n"; }
	302	}
3a6bb91b	303	@libs=grep { -d $_ && -r _ && -x _ or ( print(" $_ doesnt exist or is unaccessible - removed.\n"),0) } @libs;
02d1d628 AMH	304	print "\ndone.\n";
	305	}
	306
	307
	308	# Format data initialization
	309
	310	# format definition is:
	311	# defines needed
	312	# default include path
	313	# files needed for include (boolean perl code)
	314	# default lib path
	315	# libs needed
	316	# files needed for link (boolean perl code)
	317	# object files needed for the format
	318
	319
	320	sub init {
	321
	322	@definc{'/usr/include'}=();
37959076 TC	323	@incs=(split(/\Q$Config{path_sep}/, $INCPATH),
37959076 TC	324	map { split /\Q$Config{path_sep}/} @incpaths );
2646b26c	325	if ($Config{locincpth}) {
6552acfe	326	push @incs, grep -d, split ' ', $Config{locincpth};
2646b26c	327	}
88a763e2 TC	328	if ($^O =~ /win32/i && $Config{cc} =~ /\bcl\b/i) {
88a763e2 TC	329	push(@incs, split /;/, $ENV{INCLUDE}) if exists $ENV{INCLUDE};
2646b26c	330	}
6552acfe	331	push @incs, grep -d,
2646b26c TC	332	qw(/sw/include
	333	/usr/include/freetype2
	334	/usr/local/include/freetype2
	335	/usr/local/include/freetype1/freetype
37959076	336	/usr/include /usr/local/include /usr/include/freetype
2646b26c TC	337	/usr/local/include/freetype);
2646b26c TC	338
37959076 TC	339	@libs= ( split(/\Q$Config{path_sep}/,$LIBPATH),
37959076 TC	340	map { split /\Q$Config{path_sep}/} @libpaths );
2646b26c	341	if ($Config{loclibpth}) {
6552acfe	342	push @libs, grep -d, split ' ', $Config{loclibpth};
2646b26c	343	}
6552acfe	344	push @libs, grep -d, qw(/sw/lib), split(/ /, $Config{'libpth'});
2646b26c	345	if ($^O =~ /win32/i && $Config{cc} =~ /\bcl\b/i) {
88a763e2 TC	346	push(@libs, split /;/, $ENV{LIB}) if exists $ENV{LIB};
88a763e2 TC	347	}
faa9b3e7 TC	348	if ($^O eq 'cygwin') {
	349	push(@libs, '/usr/lib/w32api') if -d '/usr/lib/w32api';
	350	push(@incs, '/usr/include/w32api') if -d '/usr/lib/w32api';
	351	}
02d1d628	352
2646b26c TC	353	my $lext=$Config{'so'}; # Get extensions of libraries
	354	my $aext=$Config{'_a'};
	355
02d1d628 AMH	356	$formats{'jpeg'}={
	357	order=>'21',
	358	def=>'HAVE_LIBJPEG',
f8e9bc07	359	inccheck=>sub { -e catfile($_[0], 'jpeglib.h') },
50ee6f9c	360	libcheck=>sub { $_[0] eq "libjpeg$aext" or $_ eq "libjpeg.$lext" },
02d1d628 AMH	361	libfiles=>'-ljpeg',
	362	objfiles=>'jpeg.o',
	363	docs=>q{
	364	In order to use jpeg with this module you need to have libjpeg
	365	installed on your computer}
	366	};
	367
	368	$formats{'tiff'}={
	369	order=>'23',
	370	def=>'HAVE_LIBTIFF',
f8e9bc07	371	inccheck=>sub { -e catfile($_[0], 'tiffio.h') },
76c8a0a4	372	libcheck=>sub { $_[0] eq "libtiff$aext" or $_ eq "libtiff.$lext" },
02d1d628 AMH	373	libfiles=>'-ltiff',
	374	objfiles=>'tiff.o',
	375	docs=>q{
	376	In order to use tiff with this module you need to have libtiff
	377	installed on your computer}
	378	};
	379
	380	$formats{'png'}={
	381	order=>'22',
	382	def=>'HAVE_LIBPNG',
f8e9bc07	383	inccheck=>sub { -e catfile($_[0], 'png.h') },
88a763e2	384	libcheck=>sub { $_[0] eq "libpng$aext" or $_[0] eq "libpng.$lext" },
02d1d628 AMH	385	libfiles=>'-lpng -lz',
	386	objfiles=>'png.o',
	387	docs=>q{
	388	Png stands for Portable Network Graphics and is intended as
	389	a replacement for gif on the web. It is patent free and
07ea6c21 TC	390	is recommended by the w3c, you need libpng to use these formats},
07ea6c21 TC	391	code => \&png_probe,
02d1d628 AMH	392	};
	393
	394	$formats{'gif'}={
	395	order=>'20',
	396	def=>'HAVE_LIBGIF',
f8e9bc07	397	inccheck=>sub { -e catfile($_[0], 'gif_lib.h') },
e02451e0	398	libcheck=>sub { $_[0] eq "libgif$aext" or $_[0] eq "libgif.$lext" },
02d1d628 AMH	399	libfiles=>'-lgif',
	400	objfiles=>'gif.o',
	401	docs=>q{
	402	gif is the de facto standard for webgraphics at the moment,
	403	it does have some patent problems. If you have giflib and
	404	are not in violation with the unisys patent you should use
	405	this instead of the 'ungif' option. Note that they cannot
	406	be in use at the same time}
	407	};
	408
	409	$formats{'ungif'}={
	410	order=>'21',
	411	def=>'HAVE_LIBGIF',
f8e9bc07	412	inccheck=>sub { -e catfile($_[0], 'gif_lib.h') },
e02451e0	413	libcheck=>sub { $_[0] eq "libungif$aext" or $_[0] eq "libungif.$lext" },
02d1d628 AMH	414	libfiles=>'-lungif',
	415	objfiles=>'gif.o',
	416	docs=>q{
	417	gif is the de facto standard for webgraphics at the moment,
	418	it does have some patent problems. If you have libungif and
	419	want to create images free from LZW patented compression you
	420	should use this option instead of the 'gif' option}
	421	};
	422
	423	$formats{'T1-fonts'}={
	424	order=>'30',
	425	def=>'HAVE_LIBT1',
f8e9bc07	426	inccheck=>sub { -e catfile($_[0], 't1lib.h') },
faa9b3e7	427	libcheck=>sub { $_[0] eq "libt1$aext" or $_[0] eq "libt1.$lext" },
02d1d628 AMH	428	libfiles=>'-lt1',
	429	objfiles=>'',
	430	docs=>q{
	431	postscript t1 fonts are scalable fonts. They can include
	432	ligatures and kerning information and generally yield good
	433	visual quality. We depend on libt1 to rasterize the fonts
	434	for use in images.}
	435	};
	436
f8e9bc07 TC	437	$formats{'TT-fonts'}=
	438	{
	439	order=>'31',
	440	def=>'HAVE_LIBTT',
	441	inccheck=>sub { -e catfile($_[0], 'freetype.h')
	442	&& !-e catfile($_[0], 'fterrors.h') },
	443	libcheck=>sub { $_[0] eq "libttf$aext" or $_[0] eq "libttf.$lext" },
	444	libfiles=>'-lttf',
	445	objfiles=>'',
	446	docs=>q{
	447	Truetype fonts are scalable fonts. They can include
	448	kerning and hinting information and generally yield good
	449	visual quality esp on low resultions. The freetype library is
	450	used to rasterize for us. The only drawback is that there
	451	are alot of badly designed fonts out there.}
02d1d628	452	};
faa9b3e7 TC	453	$formats{'w32'} = {
	454	order=>40,
	455	def=>'HAVE_WIN32',
f8e9bc07	456	inccheck=>sub { -e catfile($_[0], 'windows.h') },
faa9b3e7 TC	457	libcheck=>sub { lc $_[0] eq 'gdi32.lib'
	458	\|\| lc $_[0] eq 'libgdi32.a' },
	459	libfiles=>$^O eq 'cygwin' ? '-lgdi32' : '',
	460	objfiles=>'win32.o',
	461	docs => <<DOCS
	462	Uses the Win32 GDI for rendering text.
	463
	464	This currently only works on under normal Win32 and cygwin.
	465	DOCS
	466	};
	467	$formats{'freetype2'} = {
	468	order=>'29',
	469	def=>'HAVE_FT2',
f8e9bc07	470	inccheck=>sub { -e catfile($_[0], 'ft2build.h') },
faa9b3e7 TC	471	libcheck=>sub { $_[0] eq "libfreetype$aext" or $_[0] eq "libfreetype.$lext" },
	472	libfiles=>'-lfreetype',
	473	objfiles=>'freetyp2.o',
07ea6c21	474	docs=><<DOCS,
faa9b3e7	475	Freetype 2 supports both Truetype and Type 1 fonts, both of which are
f8e9bc07	476	scalable. It also supports a variety of other fonts.
faa9b3e7	477	DOCS
07ea6c21	478	code => \&freetype2_probe,
faa9b3e7	479	};
02d1d628 AMH	480	# Make fix indent
	481	for (keys %formats) { $formats{$_}->{docs} =~ s/^\s+/ /mg; }
	482	}
	483
	484
	485
	486	sub gen {
	487	my $V = $ENV{$_[0]};
	488	defined($V) ? $V : "";
	489	}
	490
	491
	492	# Get information from environment variables
	493
	494	sub getenv {
	495
	496	($VERBOSE,
	497	$INCPATH,
	498	$LIBPATH,
	499	$NOLOG,
	500	$DEBUG_MALLOC,
	501	$MANUAL,
	502	$CFLAGS,
	503	$LFLAGS,
	504	$DFLAGS) = map { gen $_ } qw(IM_VERBOSE
	505	IM_INCPATH
	506	IM_LIBPATH
	507	IM_NOLOG
	508	IM_DEBUG_MALLOC
	509	IM_MANUAL
	510	IM_CFLAGS
	511	IM_LFLAGS
	512	IM_DFLAGS);
	513
	514	if ($VERBOSE) { print "Verbose mode\n"; require Data::Dumper; import Data::Dumper qw(Dumper);}
	515
	516	if ($NOLOG) { print "Logging not compiled into module\n"; }
e11d297f TC	517	else {
	518	push @defines, [ IMAGER_LOG => 1, "Logging system" ];
	519	}
02d1d628 AMH	520
02d1d628 AMH	521	if ($DEBUG_MALLOC) {
e11d297f	522	push @defines, [ IMAGER_DEBUG_MALLOC => 1, "Use Imager's DEBUG malloc()" ];
02d1d628 AMH	523	print "Malloc debugging enabled\n";
	524	}
	525
	526	}
07ea6c21	527
e11d297f TC	528	sub make_imconfig {
	529	my ($defines) = @_;
	530
	531	open CONFIG, "> imconfig.h"
	532	or die "Cannot create imconfig.h: $!\n";
	533	print CONFIG <<EOS;
	534	/* This file is automatically generated by Makefile.PL.
	535	Don't edit this file, since any changes will be lost */
	536
	537	#ifndef IMAGER_IMCONFIG_H
	538	#define IMAGER_IMCONFIG_H
	539	EOS
	540	for my $define (@$defines) {
	541	if ($define->[2]) {
	542	print CONFIG "\n/\n $define->[2]\n/\n\n";
	543	}
	544	print CONFIG "#define $define->[0] $define->[1]\n";
	545	}
	546	print CONFIG "\n#endif\n";
	547	close CONFIG;
	548	}
	549
07ea6c21 TC	550	# probes for freetype2 by trying to run freetype-config
	551	sub freetype2_probe {
	552	my ($frm, $frmkey) = @_;
	553
	554	is_exe('freetype-config') or return;
	555
	556	my $cflags = `freetype-config --cflags`
	557	and !$? or return;
	558	chomp $cflags;
	559
	560	$frm->{cflags} = $cflags;
	561	my $lflags = `freetype-config --libs`
	562	and !$? or return;
	563	chomp $lflags;
	564	$frm->{libfiles} = $lflags;
	565
	566	printf "%10s: configured via freetype-config\n", $frmkey;
	567
	568	return 1;
	569	}
	570
	571	# probes for libpng via pkg-config
	572	sub png_probe {
	573	my ($frm, $frmkey) = @_;
	574
	575	is_exe('pkg-config') or return;
	576
	577	my $cflags;
	578	my $config;
	579	for my $check_conf (qw(libpng libpng12 libpng10)) {
	580	$cflags = `pkg-config $check_conf --cflags`;
	581	if ($cflags && !$?) {
	582	$config = $check_conf;
	583	last;
	584	}
	585	}
	586	$config or return;
	587
	588	my $lflags = `pkg-config $config --libs`
	589	and !$? or return;
	590
	591	chomp $cflags;
	592	chomp $lflags;
	593	$frm->{cflags} = $cflags;
	594	$frm->{libfiles} = $lflags;
	595
	596	printf "%10s: configured via `pkg-config $config ...`\n", $frmkey;
	597
	598	return 1;
	599	}
	600
	601	sub catfile {
	602	return File::Spec->catfile(@_);
	603	}
	604
	605	sub is_exe {
	606	my ($name) = @_;
	607
	608	for my $dir (File::Spec->path) {
	609	-x catfile($dir, "$name$Config{_exe}")
	610	and return 1;
	611	}
	612
	613	return;
614	}
37959076 TC	615
	616	sub usage {
	617	print STDERR <<EOS;
	618	Usage: $0 [--enable feature1,feature2,...] [--incpath ...] [--libpath ...]
	619	$0 [--disable feature1,feature2,...] [--incpath ...] [--libpath ...]
	620	$0 --help
	621	Possible feature names are:
	622	png gif ungif jpeg tiff T1-fonts TT-fonts freetype2
	623	EOS
	624	exit 1;
	625
	626	}