0.84_01 development release
[imager.git] / GIF / Makefile.PL
1 #!perl -w
2 use strict;
3 use ExtUtils::MakeMaker;
4 use Getopt::Long;
5 use Config;
6
7 my $verbose = $ENV{IM_VERBOSE};
8 my @libpaths;
9 my @incpaths;
10
11 GetOptions("incpath=s", \@incpaths,
12            "libpath=s" => \@libpaths,
13            "verbose|v" => \$verbose);
14
15 our $BUILDING_IMAGER;
16 our %IMAGER_LIBS;
17
18 my $MM_ver = eval $ExtUtils::MakeMaker::VERSION;
19
20 my %opts = 
21   (
22    NAME => 'Imager::File::GIF',
23    VERSION_FROM => 'GIF.pm',
24    OBJECT => 'GIF.o imgif.o',
25    clean => { FILES => 'testout' },
26   );
27
28 my @inc;
29 if ($BUILDING_IMAGER) {
30   unshift @inc, "-I..";
31   unshift @INC, "../lib";
32 }
33 else {
34   unshift @INC, "inc";
35   print "GIF: building independently\n";
36   require Imager::ExtUtils;
37   push @inc, Imager::ExtUtils->includes;
38   $opts{TYPEMAPS} = [ Imager::ExtUtils->typemap ];
39
40   # Imager required configure through use
41   my @Imager_req = ( Imager => "0.84_01" );
42   if ($MM_ver >= 6.46) {
43     $opts{META_MERGE} =
44       {
45        configure_requires => 
46        {
47         @Imager_req,
48        },
49        build_requires => 
50        {
51         @Imager_req,
52         "Test::More" => "0.47",
53        },
54        resources =>
55        {
56         homepage => "http://imager.perl.org/",
57         repository => "git://git.imager.perl.org/imager.git",
58         bugtracker => "http://rt.cpan.org/NoAuth/Bugs.html?Dist=Imager",
59        },
60       };
61     $opts{PREREQ_PM} =
62       {
63        @Imager_req,
64       };
65   }
66 }
67
68 require Imager::Probe;
69
70 my %probe =
71   (
72    name => "GIF",
73    inccheck => sub { -e File::Spec->catfile($_[0], "gif_lib.h") },
74    libbase => "gif",
75    testcode => _gif_test_code(),
76    testcodeheaders => [ "gif_lib.h", "stdio.h" ],
77    incpath => \@incpaths,
78    libpath => \@libpaths,
79   );
80
81 my $probe_res = Imager::Probe->probe(\%probe);
82 if ($probe_res) {
83   $IMAGER_LIBS{GIF} = 1;
84
85   push @inc, $probe_res->{INC};
86   $opts{LIBS} = $probe_res->{LIBS};
87   $opts{DEFINE} = $probe_res->{DEFINE};
88   $opts{INC} = "@inc";
89   
90   if ($MM_ver > 6.06) {
91     $opts{AUTHOR} = 'Tony Cook <tonyc@cpan.org>';
92     $opts{ABSTRACT} = 'GIF Image file support';
93   }
94   
95   WriteMakefile(%opts);
96 }
97 else {
98   $IMAGER_LIBS{GIF} = 0;
99
100   if ($BUILDING_IMAGER) {
101     ExtUtils::MakeMaker::WriteEmptyMakefile(%opts);
102   }
103   else {
104     # fail in good way
105     die "OS unsupported: GIF libraries or headers not found\n";
106   }
107 }
108
109 sub _gif_test_code {
110   return <<'CODE';
111 /* TODO: test DGifOpen() and processing with callbacks */
112 GifFileType *gf;
113 const char vers[] = GIF_LIB_VERSION;
114 const char *versp = vers;
115 int ver_maj;
116 int ver_min;
117 gf=DGifOpenFileName("testimg/expected.gif");
118 if (!gf) {
119   fprintf(stderr, "GIF: Cannot open testimg/expected.gif\n");
120   return 1;
121 }
122 if (gf->SWidth != 16 || gf->SHeight != 16) {
123   fprintf(stderr, "GIF: bad screen description (%d x %d)\n", gf->SWidth, gf->SHeight);
124   return 1;
125 }
126 /* crashes in older versions of giflib */
127 EGifSetGifVersion("89a");
128 EGifSetGifVersion("87a");
129
130 /* skip the " Version " */
131 while (*versp && (*versp < '0' || *versp > '9'))
132   ++versp;
133 if (!*versp) {
134   fprintf(stderr, "GIF: Cannot find version number in '%s'\n", vers);
135   return 1;
136 }
137 ver_maj = 0;
138 while (*versp && *versp >= '0' && *versp <= '9') {
139   ver_maj *= 10;
140   ver_maj += *versp++ - '0';
141 }
142 if (*versp != '.' || versp[1] < '0' || versp[1] > '9') {
143   fprintf(stderr, "Cannot parse major version number in '%s'\n", vers);
144   return 1;
145 }
146 ++versp; /* skip '.' */
147 ver_min = 0;
148 while (*versp && *versp >= '0' && *versp <= '9') {
149   ver_min *= 10;
150   ver_min += *versp++ - '0';
151 }
152 if (ver_maj < 4) {
153   fprintf(stderr, "GIF: gif lib version 3 is no longer supported\n");
154   return 1;
155 }
156 if (ver_maj == 4 && ver_min < 1) {
157   fprintf(stderr, "GIF: you need at least giflib 4.1\n");
158   return 1;
159 }
160 fprintf(stderr, "GIF: Major %d, Minor %d\n", ver_maj, ver_min);
161 return 0;
162 CODE
163 }