0.009 release
[imager-screenshot.git] / Makefile.PL
1 #!perl -w
2 use strict;
3 use ExtUtils::MakeMaker;
4 use Imager 0.54;
5 use Imager::ExtUtils;
6 use Config;
7 use File::Spec;
8 use Getopt::Long;
9 use lib "inc";
10 use Devel::CheckLib;
11
12 my @incpaths; # places to look for headers
13 my @libpaths; # places to look for libraries
14
15 GetOptions("incpath=s", \@incpaths,
16            "libpath=s" => \@libpaths);
17
18 my @objs = qw/Screenshot.o/;
19 my @cflags;
20 my @lflags;
21 my %seen_incdir;
22 my %seen_libdir;
23 my $X11_lib = $^O eq 'cygwin' ? 'X11.dll' : 'X11';
24 if (find_header("X11/Xlib.h", "X11 header") 
25     and find_lib($X11_lib, "X11 library")) {
26   push @objs, 'scx11.o';
27   push @cflags, '-DSS_X11';
28   push @lflags, '-l'.$X11_lib;
29   print "Found X11\n";
30 }
31 if (find_header('windows.h', "Win32 header")
32     && find_lib('gdi32', "Win32 library")
33     || check_lib(header => "windows.h",
34                  lib => "gdi32",
35                  title => "Win32")) {
36   push @objs, 'scwin32.o';
37   push @cflags, '-DSS_WIN32';
38   if ($^O eq 'cygwin') {
39     push @lflags, '-L/usr/lib/w32api', '-lgdi32';
40   }
41   print "Found Win32\n";
42 }
43
44 unless (@objs > 1) {
45   die <<DEAD;
46 OS unsupported: Headers or libraries not found for a supported GUI
47
48 Sorry, I can't find headers or libraries for a supported GUI
49 You need to install development headers and libraries for your GUI
50 For Win32: Platform SDK or a substitute
51 For X11: X11 headers and libraries, eg. the libX11-dev package on Debian
52
53 DEAD
54 }
55
56 my %opts = 
57   (
58    NAME => 'Imager::Screenshot',
59    VERSION_FROM => 'Screenshot.pm',
60    OBJECT => "@objs",
61    PREREQ_PM => {
62                  'Imager'    => 0.54,
63                 },
64    INC => Imager::ExtUtils->includes,
65    TYPEMAPS => [ Imager::ExtUtils->typemap ],
66   );
67
68 $opts{LIBS} = "@lflags" if @lflags;
69 $opts{INC} .= " @cflags" if @cflags;
70
71 # avoid "... isn't numberic in numeric gt ..." warnings for dev versions
72 my $eu_mm_version = eval $ExtUtils::MakeMaker::VERSION;
73 if ($eu_mm_version > 6.06) {
74   $opts{AUTHOR} = 'Tony Cook <tonyc@cpan.org>';
75   $opts{ABSTRACT} = 'Screen/Window capture to Imager images';
76 }
77
78 # LICENSE was introduced in 6.30_01, but Debian etch includes
79 # (as of 2007/01/12) an ExtUtils::MakeMaker versioned 6.30_01 without
80 # LICENSE support
81 # EXTRA_META was also introduced in 6.30_01
82 if ($eu_mm_version > 6.3001) {
83   $opts{LICENSE} = 'perl';
84 }
85 if ($eu_mm_version >= 6.46) {
86   $opts{META_MERGE} =
87     {
88      configure_requires => 
89      {
90       Imager => "0.54"
91      },
92      build_requires => 
93      {
94       Imager => "0.54",
95       "Test::More" => "0.47",
96      }
97     };
98 }
99
100 WriteMakefile(%opts);
101
102 my @incs;
103 sub header_search_path {
104   @incs and return @incs;
105
106   push @incs, map {; split /\Q$Config{path_sep}/ } @incpaths;
107   push @incs, split /\Q$Config{path_sep}/, $ENV{IM_INCPATH}
108     if defined $ENV{IM_INCPATH};
109   push @incs, '/usr/include', '/usr/X11R6/include'
110     unless $^O eq 'MSWin32' && $Config{cc} =~ /\bcl\b/;
111   push @incs, split /\Q$Config{path_sep}/, $ENV{INCLUDE}
112     if $^O eq 'MSWin32' && $Config{cc} =~ /\bcl\b/ and $ENV{INCLUDE};
113   push @incs, split ' ', $Config{locincpth}
114     if $Config{locincpth};
115   push @incs, split /\Q$Config{path_sep}/, $Config{incpath}
116     if $Config{incpath};
117   push @incs, '/usr/include/w32api', '/usr/X11R6/include'
118     if $^O eq 'cygwin';
119
120   @incs = grep -d, @incs;
121
122   @incs;
123 }
124
125 my @libs;
126 sub library_search_path {
127   @libs and return @libs;
128
129   push @libs, map {; split /\Q$Config{path_sep}/ } @libpaths;
130   push @incs, split /\Q$Config{path_sep}/, $ENV{IM_LIBPATH}
131     if defined $ENV{IM_LIBPATH};
132   push @libs, '/usr/lib', '/usr/X11R6/lib'
133     unless $^O eq 'MSWin32' && $Config{cc} =~ /\bcl\b/;
134   push @libs, split /\Q$Config{path_sep}/, $ENV{LIB}
135     if $^O eq 'MSWin32' && $Config{cc} =~ /\bcl\b/ and $ENV{LIB};
136   push @libs, split ' ', $Config{loclibpth}
137     if $Config{loclibpth};
138   push @libs, split /\Q$Config{path_sep}/, $Config{libpth}
139     if $Config{libpth};
140   push @libs, '/usr/lib/w32api', '/usr/X11R6/lib'
141     if $^O eq 'cygwin';
142
143   @libs = grep -d, @libs;
144
145   @libs;
146 }
147
148 sub _find_file {
149   my ($name, @where) = @_;
150
151   grep -f File::Spec->catfile($_, $name), @where;
152 }
153
154 sub find_header {
155   my ($name, $description) = @_;
156   my @found = _find_file($_[0], header_search_path());
157
158   if (@found) {
159     push @cflags, "-I$_" for grep !$seen_incdir{$_}, @found;
160     @seen_incdir{@found} = (1) x @found;
161   }
162   else {
163     print STDERR "Could not find $name ($description)\n";
164   }
165
166   @found;
167 }
168
169 sub find_lib {
170   my ($name, $description) = shift;
171   my @found;
172   my $libname;
173   if ($^O eq 'MSWin32' && $Config{_a} eq '.lib') {
174     $libname = $name . $Config{_a};
175     @found = _find_file($libname, library_search_path());
176   }
177   else {
178     $libname = "lib" . $name . $Config{_a};
179     @found = _find_file($libname, library_search_path());
180     if (!@found && $Config{so}) {
181       $libname = "lib" . $name . "." . $Config{so};
182       @found = _find_file($libname, library_search_path());
183     }
184   }
185   if (@found) {
186     push @lflags, "-L$_" for grep !$seen_libdir{$_}, @found;
187     @seen_libdir{@found} = (1) x @found;
188   }
189   else {
190     print STDERR "Could not find $libname ($description)\n";
191   }
192
193   @found;
194 }
195
196 # wrapper around assert lib that doesn't exit and doesn't die
197 sub check_lib {
198   my (%opts) = @_;
199
200   my $title = delete $opts{title};
201   $title and print "Looking even harder for $title\n";
202
203   return eval { assert_lib(%opts); 1 };
204 }