[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


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

%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)
      );

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'};
  }
  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 /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};
  }

  $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.a' 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.a' 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.a' 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.a' 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.}
		       };
  # 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
	24
	25
	26	getenv(); # get environment variables
	27	init(); # initialize global data
	28	pathcheck(); # Check if directories exist
	29
	30	# Pick what libraries are used
	31	if ($MANUAL) {
	32	manual();
	33	} else {
	34	automatic();
	35	if (exists $ENV{IM_ENABLE}) {
	36	my %en = map { $_, 1 } split ' ', $ENV{IM_ENABLE};
	37	for my $key (keys %formats) {
	38	delete $formats{$key} unless $en{$key};
	39	}
	40	}
	41	}
	42
	43	# Make sure there isn't a clash between the gif libraries.
	44	gifcheck();
	45
	46	for $frm(values %formats) {
	47	$F_DEFINE .= ' -D'.$frm->{def};
	48	$F_LIBS .= ' ' .$frm->{libfiles};
	49	$F_OBJECT .= ' ' .$frm->{objfiles};
	50	}
	51
	52	$F_INC = join(" ",map { (exists $definc{$_})?'':'-I'.$_ } @incs);
	53	$F_LIBS = join(" ",map { '-L'.$_ } @libs).' '.$F_LIBS;
	54
	55	$OSLIBS = '';
	56	$OSDEF = "-DOS_$^O";
	57
	58	if ($^O eq 'hpux') { $OSLIBS .= ' -ldld'; }
	59	if (defined $Config{'d_dlsymun'}) { $OSDEF .= ' -DDLSYMUN'; }
	60
	61	@objs = qw(Imager.o draw.o image.o io.o iolayer.o log.o
	62	gaussian.o conv.o pnm.o raw.o feat.o font.o
	63	filters.o dynaload.o stackmach.o datatypes.o
	64	regmach.o trans2.o quant.o);
	65
	66	%opts=(
	67	'NAME' => 'Imager',
	68	'VERSION_FROM' => 'Imager.pm',
	69	'LIBS' => "$LFLAGS -lm $OSLIBS $F_LIBS",
	70	'DEFINE' => "$F_DEFINE $EXTDEF $OSDEF $CFLAGS",
	71	'INC' => "$DFLAGS $F_INC",
72	'OBJECT' => join(' ', @objs, $F_OBJECT)
73	);
74
75	if ($VERBOSE) { print Dumper(\%opts); }
76	mkdir('testout',0777); # since we cannot include it in the archive.
77	WriteMakefile(%opts);
78	exit;
79
80
81	sub MY::postamble {
82	'
83	dyntest.(MYEXTLIB) : dynfilt/Makefile
84	cd dynfilt && $(MAKE) $(PASTHRU)
85
86	lib/Imager/Regops.pm : regmach.h regops.perl
87	$(PERL) regops.perl regmach.h lib/Imager/Regops.pm
88	';
89	}
90
91	# manual configuration of helper libraries
92
93	sub manual {
94	print <<EOF;
95
96	Please answer the following questions about
97	which formats are avaliable on your computer
98
99	press <return> to continue
100	EOF
101
102	<STDIN>; # eat one return
103
104	for $frm(sort { $formats{$b}{order} <=> $formats{$a}{order} } keys %formats) {
105	SWX:
106	if ($formats{$frm}{docs}) { print "\n",$formats{$frm}{docs},"\n\n"; }
107	print "Enable $frm support: ";
108	$gz=<STDIN>;
109	chomp($gz);
110	if ($gz =~ m/^(y\|yes\|n\|no)/i) {
111	$gz=substr(lc($gz),0,1);
112	if ($gz eq 'n') {
113	delete $formats{$frm};
114	}
115	} else { goto SWX; }
116	}
117	}
118
119
120	# automatic configuration of helper libraries
121
122	sub automatic {
123	for $frm(keys %formats) {
124	delete $formats{$frm} if !checkformat($frm);
125	}
126	}
127
128
129	sub gifcheck {
130	if ($formats{'gif'} and $formats{'ungif'}) {
131	print "ungif and gif can not coexist - removing ungif support\n";
132	delete $formats{'ungif'};
133	}
134	my @dirs;
135	for my $frm (grep $formats{$_}, qw(gif ungif)) {
136	push(@dirs, @{$formats{$frm}{incdir}}) if $formats{$frm}{incdir};
137	}
138	my $minor = 0;
139	my $major = 0;
140	FILES: for my $dir (@dirs) {
141	my $h = "$dir/gif_lib.h";
142	open H, "< $h" or next;
143	while (<H>) {
144	if (/GIF_LIB_VERSION\s+"\sversion\s(\d+)\.(\d+)/i) {
145	$major = $1;
146	$minor = $2;
147	close H;
148	last FILES;
149	}
150	}
151	close H;
152	}
153
154	# we need the version in a #ifdefable form
155
156	$F_DEFINE .= "-DIM_GIFMAJOR=$major -DIM_GIFMINOR=$minor";
157	}
158
159
160	sub gd {
161	my($path,$chk)=@_;
162
163	# print "checking path $path\n";
164	if ( !opendir(DH,$path) ) {
165	warn "Cannot open dir $path: $!\n";
166	return;
167	}
168	my @l=grep { $chk->($_) } readdir(DH);
169	# print @l;
170	close(DH);
171	return map $path, @l;
172	}
173
174
175	sub checkformat {
176	my $frm=shift;
177	my $libchk=$formats{$frm}{'libcheck'};
178	my $incchk=$formats{$frm}{'inccheck'};
179
180	my @l;
181	for my $lp (@libs) {
182	push(@l, gd($lp,$libchk));
183	}
184
185	my @i;
186	for my $ip (@incs) {
187	push(@i, gd($ip,$incchk));
188	}
189
190	printf("%10s: includes %s - libraries %s\n",$frm,(@i?'found':'not found'),(@l?'found':'not found'));
191	$formats{$frm}{incdir} = \@i;
192	$formats{$frm}{libdir} = \@l;
193	return scalar(@i && @l);
194	}
195
196
197
198
199	sub pathcheck {
200	if ($VERBOSE) {
201	print "pathcheck\n";
202	print " Include paths:\n";
203	for (@incs) { print $_,"\n"; }
204	}
205	@incs=grep { -d $_ && -r _ && -x _ or ( print(" $_ doesnt exist or is unaccessible - removed."),0) } @incs;
206
207	if ($VERBOSE) {
208	print "\nLibrary paths:\n";
209	for (@incs) { print $_,"\n"; }
210	}
211	@libs=grep { -d $_ && -r _ && -x _ or ( print(" $_ doesnt exist or is unaccessible - removed."),0) } @libs;
212	print "\ndone.\n";
213	}
214
215
216	# Format data initialization
217
218	# format definition is:
219	# defines needed
220	# default include path
221	# files needed for include (boolean perl code)
222	# default lib path
223	# libs needed
224	# files needed for link (boolean perl code)
225	# object files needed for the format
226
227
228	sub init {
229
230	@definc{'/usr/include'}=();
231	@incs=(qw(/usr/include /usr/local/include /usr/include/freetype /usr/local/include/freetype), split /:/, $INCPATH );
232	@libs=(split(/ /, $Config{'libpth'}), split(/:/, $LIBPATH) );
88a763e2 TC	233	if ($^O =~ /win32/i && $Config{cc} =~ /\bcl\b/i) {
	234	push(@incs, split /;/, $ENV{INCLUDE}) if exists $ENV{INCLUDE};
	235	push(@libs, split /;/, $ENV{LIB}) if exists $ENV{LIB};
	236	}
02d1d628 AMH	237
	238	$formats{'jpeg'}={
	239	order=>'21',
	240	def=>'HAVE_LIBJPEG',
	241	inccheck=>sub { $_[0] eq 'jpeglib.h' },
50ee6f9c	242	libcheck=>sub { $_[0] eq "libjpeg$aext" or $_ eq "libjpeg.$lext" },
02d1d628 AMH	243	libfiles=>'-ljpeg',
	244	objfiles=>'jpeg.o',
	245	docs=>q{
	246	In order to use jpeg with this module you need to have libjpeg
	247	installed on your computer}
	248	};
	249
	250	$formats{'tiff'}={
	251	order=>'23',
	252	def=>'HAVE_LIBTIFF',
	253	inccheck=>sub { $_[0] eq 'tiffio.h' },
76c8a0a4	254	libcheck=>sub { $_[0] eq "libtiff$aext" or $_ eq "libtiff.$lext" },
02d1d628 AMH	255	libfiles=>'-ltiff',
	256	objfiles=>'tiff.o',
	257	docs=>q{
	258	In order to use tiff with this module you need to have libtiff
	259	installed on your computer}
	260	};
	261
	262	$formats{'png'}={
	263	order=>'22',
	264	def=>'HAVE_LIBPNG',
	265	inccheck=>sub { $_[0] eq 'png.h' },
88a763e2	266	libcheck=>sub { $_[0] eq "libpng$aext" or $_[0] eq "libpng.$lext" },
02d1d628 AMH	267	libfiles=>'-lpng -lz',
	268	objfiles=>'png.o',
	269	docs=>q{
	270	Png stands for Portable Network Graphics and is intended as
	271	a replacement for gif on the web. It is patent free and
	272	is recommended by the w3c, you need libpng to use these formats}
	273	};
	274
	275	$formats{'gif'}={
	276	order=>'20',
	277	def=>'HAVE_LIBGIF',
	278	inccheck=>sub { $_[0] eq 'gif_lib.h' },
	279	libcheck=>sub { $_[0] eq 'libgif.a' or $_[0] eq "libgif.$lext" },
	280	libfiles=>'-lgif',
	281	objfiles=>'gif.o',
	282	docs=>q{
	283	gif is the de facto standard for webgraphics at the moment,
	284	it does have some patent problems. If you have giflib and
	285	are not in violation with the unisys patent you should use
	286	this instead of the 'ungif' option. Note that they cannot
	287	be in use at the same time}
	288	};
	289
	290	$formats{'ungif'}={
	291	order=>'21',
	292	def=>'HAVE_LIBGIF',
	293	inccheck=>sub { $_[0] eq 'gif_lib.h' },
	294	libcheck=>sub { $_[0] eq 'libungif.a' or $_[0] eq "libungif.$lext" },
	295	libfiles=>'-lungif',
	296	objfiles=>'gif.o',
	297	docs=>q{
	298	gif is the de facto standard for webgraphics at the moment,
	299	it does have some patent problems. If you have libungif and
	300	want to create images free from LZW patented compression you
	301	should use this option instead of the 'gif' option}
	302	};
	303
	304	$formats{'T1-fonts'}={
	305	order=>'30',
	306	def=>'HAVE_LIBT1',
	307	inccheck=>sub { $_[0] eq 't1lib.h' },
	308	libcheck=>sub { $_[0] eq 'libt1.a' or $_[0] eq "libt1.$lext" },
	309	libfiles=>'-lt1',
	310	objfiles=>'',
	311	docs=>q{
	312	postscript t1 fonts are scalable fonts. They can include
	313	ligatures and kerning information and generally yield good
	314	visual quality. We depend on libt1 to rasterize the fonts
	315	for use in images.}
	316	};
	317
	318	$formats{'TT-fonts'}={
	319	order=>'31',
	320	def=>'HAVE_LIBTT',
	321	inccheck=>sub { $_[0] eq 'freetype.h' },
	322	libcheck=>sub { $_[0] eq 'libttf.a' or $_[0] eq "libttf.$lext" },
	323	libfiles=>'-lttf',
	324	objfiles=>'',
	325	docs=>q{
	326	Truetype fonts are scalable fonts. They can include
	327	kerning and hinting information and generally yield good
	328	visual quality esp on low resultions. The freetype library is
	329	used to rasterize for us. The only drawback is that there
	330	are alot of badly designed fonts out there.}
331	};
332	# Make fix indent
333	for (keys %formats) { $formats{$_}->{docs} =~ s/^\s+/ /mg; }
334	}
335
336
337
338	sub gen {
339	my $V = $ENV{$_[0]};
340	defined($V) ? $V : "";
341	}
342
343
344	# Get information from environment variables
345
346	sub getenv {
347
348	($VERBOSE,
349	$INCPATH,
350	$LIBPATH,
351	$NOLOG,
352	$DEBUG_MALLOC,
353	$MANUAL,
354	$CFLAGS,
355	$LFLAGS,
356	$DFLAGS) = map { gen $_ } qw(IM_VERBOSE
357	IM_INCPATH
358	IM_LIBPATH
359	IM_NOLOG
360	IM_DEBUG_MALLOC
361	IM_MANUAL
362	IM_CFLAGS
363	IM_LFLAGS
364	IM_DFLAGS);
365
366	if ($VERBOSE) { print "Verbose mode\n"; require Data::Dumper; import Data::Dumper qw(Dumper);}
367
368	if ($NOLOG) { print "Logging not compiled into module\n"; }
369	else { $EXTDEF.=' -DIMAGER_LOG'; }
370
371	if ($DEBUG_MALLOC) {
372	$EXTDEF.=' -DIMAGER_DEBUG_MALLOC';
373	print "Malloc debugging enabled\n";
374	}
375
376	}