[RT #67912] writing GIFs now always uses the generated (or supplied) colors
[imager.git] / GIF / Makefile.PL
CommitLineData
ec6d8908
TC
1#!perl -w
2use strict;
d24404be 3use ExtUtils::MakeMaker;
ec6d8908
TC
4use Getopt::Long;
5use Config;
6
7my $verbose = $ENV{IM_VERBOSE};
8my @libpaths;
9my @incpaths;
10
11GetOptions("incpath=s", \@incpaths,
12 "libpath=s" => \@libpaths,
13 "verbose|v" => \$verbose);
14
15our $BUILDING_IMAGER;
d97c8dbd 16our %IMAGER_LIBS;
ec6d8908
TC
17
18my $MM_ver = eval $ExtUtils::MakeMaker::VERSION;
19
20my %opts =
21 (
22 NAME => 'Imager::File::GIF',
23 VERSION_FROM => 'GIF.pm',
24 OBJECT => 'GIF.o imgif.o',
30160513 25 clean => { FILES => 'testout' },
ec6d8908
TC
26 );
27
28my @inc;
29if ($BUILDING_IMAGER) {
30 unshift @inc, "-I..";
31 unshift @INC, "../lib";
32}
33else {
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
59c150a4 41 my @Imager_req = ( Imager => "0.84" );
ec6d8908
TC
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 =>
58 {
3a882231
TC
59 url => "http://imager.perl.org/svn/trunk/Imager/GIF",
60 web => "http://imager.perl.org/svnweb/public/browse/trunk/Imager/GIF",
ec6d8908
TC
61 type => "svn",
62 },
63 },
64 };
65 $opts{PREREQ_PM} =
66 {
67 @Imager_req,
68 };
69 }
70}
71
72require Imager::Probe;
73
74my %probe =
75 (
76 name => "GIF",
77 inccheck => sub { -e File::Spec->catfile($_[0], "gif_lib.h") },
78 libbase => "gif",
79 testcode => _gif_test_code(),
80 testcodeheaders => [ "gif_lib.h", "stdio.h" ],
0c3c1180
TC
81 incpath => \@incpaths,
82 libpath => \@libpaths,
ec6d8908
TC
83 );
84
85my $probe_res = Imager::Probe->probe(\%probe);
86if ($probe_res) {
d97c8dbd
TC
87 $IMAGER_LIBS{GIF} = 1;
88
ec6d8908
TC
89 push @inc, $probe_res->{INC};
90 $opts{LIBS} = $probe_res->{LIBS};
03e49392 91 $opts{DEFINE} = $probe_res->{DEFINE};
ec6d8908
TC
92 $opts{INC} = "@inc";
93
94 if ($MM_ver > 6.06) {
95 $opts{AUTHOR} = 'Tony Cook <tony@imager.perl.org>';
96 $opts{ABSTRACT} = 'GIF Image file support';
97 }
98
99 WriteMakefile(%opts);
100}
101else {
d97c8dbd
TC
102 $IMAGER_LIBS{GIF} = 0;
103
ec6d8908 104 if ($BUILDING_IMAGER) {
d24404be 105 ExtUtils::MakeMaker::WriteEmptyMakefile(%opts);
ec6d8908
TC
106 }
107 else {
108 # fail in good way
109 die "OS unsupported: GIF libraries or headers not found\n";
110 }
111}
112
113sub _gif_test_code {
114 return <<'CODE';
115/* TODO: test DGifOpen() and processing with callbacks */
116GifFileType *gf;
117const char vers[] = GIF_LIB_VERSION;
118const char *versp = vers;
119int ver_maj;
120int ver_min;
ec6d8908
TC
121gf=DGifOpenFileName("testimg/expected.gif");
122if (!gf) {
123 fprintf(stderr, "GIF: Cannot open testimg/expected.gif\n");
124 return 1;
125}
126if (gf->SWidth != 16 || gf->SHeight != 16) {
127 fprintf(stderr, "GIF: bad screen description (%d x %d)\n", gf->SWidth, gf->SHeight);
128 return 1;
129}
130/* crashes in older versions of giflib */
131EGifSetGifVersion("89a");
132EGifSetGifVersion("87a");
133
134/* skip the " Version " */
135while (*versp && (*versp < '0' || *versp > '9'))
136 ++versp;
137if (!*versp) {
138 fprintf(stderr, "GIF: Cannot find version number in '%s'\n", vers);
139 return 1;
140}
141ver_maj = 0;
142while (*versp && *versp >= '0' && *versp <= '9') {
143 ver_maj *= 10;
144 ver_maj += *versp++ - '0';
145}
146if (*versp != '.' || versp[1] < '0' || versp[1] > '9') {
147 fprintf(stderr, "Cannot parse major version number in '%s'\n", vers);
148 return 1;
149}
150++versp; /* skip '.' */
151ver_min = 0;
152while (*versp && *versp >= '0' && *versp <= '9') {
153 ver_min *= 10;
154 ver_min += *versp++ - '0';
155}
156if (ver_maj < 4) {
157 fprintf(stderr, "GIF: gif lib version 3 is no longer supported\n");
158 return 1;
159}
160if (ver_maj == 4 && ver_min < 1) {
161 fprintf(stderr, "GIF: you need at least giflib 4.1\n");
162 return 1;
163}
164fprintf(stderr, "GIF: Major %d, Minor %d\n", ver_maj, ver_min);
165return 0;
166CODE
167}