[imager.git] / Makefile.PL

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

#
# 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


getenv();     # get environment variables
init();       # initialize global data
pathcheck();  # Check if directories exist

# 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};
  $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'       => "$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) {
  $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 ($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
';
}

# 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

  $F_DEFINE .= "-DIM_GIFMAJOR=$major -DIM_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) {
    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, gd($ip,$incchk));
  }

  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));
  if ($Config{locincpth}) {
    push @incs, split ' ', $Config{locincpth};
  }
  if ($^O =~ /win32/i && $Config{cc} =~ /\bcl\b/i) {
    push(@incs, split /;/, $ENV{INCLUDE}) if exists $ENV{INCLUDE};
  }
  push @incs,
      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);
  if ($Config{loclibpth}) {
    push @libs, split ' ', $Config{loclibpth};
  }
  push @libs, 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 { $_[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.}
		       };

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


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 { $EXTDEF.=' -DIMAGER_LOG'; }

  if ($DEBUG_MALLOC) {
    $EXTDEF.=' -DIMAGER_DEBUG_MALLOC';
    print "Malloc debugging enabled\n";
  }

}

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