[imager.git] / Makefile.PL


use ExtUtils::MakeMaker;
use Cwd;
use Config;

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

#
# 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();

for $frm(values %formats) {
  $F_DEFINE .= ' -D'.$frm->{def};
  $F_LIBS   .= ' '  .$frm->{libfiles};
  $F_OBJECT .= ' '  .$frm->{objfiles};
}

$F_INC  = join(" ",map { (exists $definc{$_})?'':'-I'.$_ } @incs);
$F_LIBS = join(" ",map { '-L'.$_ } @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 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 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'          => "$DFLAGS $F_INC",
       'OBJECT'       => join(' ', @objs, $F_OBJECT),
       clean          => { FILES=>'testout' },
      );

if ($] ge '5.005') {
  $opts{AUTHOR} = 'Arnar M. Hrafnkelsson, addi@umich.edu';
  $opts{ABSTRACT} = 'Perl extension for Generating 24 bit Images';
}

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 $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.

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 $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."),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."),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=(qw(/usr/include/freetype2 /usr/local/include/freetype2 /usr/include /usr/local/include /usr/include/freetype /usr/local/include/freetype), split /:/, $INCPATH );
  @libs=(split(/ /, $Config{'libpth'}), split(/:/, $LIBPATH) );
  if ($^O =~ /win32/i && $Config{cc} =~ /\bcl\b/i) {
    push(@incs, split /;/, $ENV{INCLUDE}) if exists $ENV{INCLUDE};
    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';
  }

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

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

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