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.86" );
  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        XSLoader => 0,
  65       };
  66   }
  67 }
  68
  69 require Imager::Probe;
  70
  71 my %probe =
  72   (
  73    name => "GIF",
  74    inccheck => sub { -e File::Spec->catfile($_[0], "gif_lib.h") },
  75    libbase => "gif",
  76    testcode => _gif_test_code(),
  77    testcodeheaders => [ "gif_lib.h", "stdio.h" ],
  78    incpath => \@incpaths,
  79    libpath => \@libpaths,
  80   );
  81
  82 my $probe_res = Imager::Probe->probe(\%probe);
  83 if ($probe_res) {
  84   $IMAGER_LIBS{GIF} = 1;
  85
  86   push @inc, $probe_res->{INC};
  87   $opts{LIBS} = $probe_res->{LIBS};
  88   $opts{DEFINE} = $probe_res->{DEFINE};
  89   $opts{INC} = "@inc";
  90
  91   if ($MM_ver > 6.06) {
  92     $opts{AUTHOR} = 'Tony Cook <tonyc@cpan.org>';
  93     $opts{ABSTRACT} = 'GIF Image file support';
  94   }
  95
  96   WriteMakefile(%opts);
  97 }
  98 else {
  99   $IMAGER_LIBS{GIF} = 0;
 100
 101   if ($BUILDING_IMAGER) {
 102     ExtUtils::MakeMaker::WriteEmptyMakefile(%opts);
 103   }
 104   else {
 105     # fail in good way
 106     die "OS unsupported: GIF libraries or headers not found\n";
 107   }
 108 }
 109
 110 sub _gif_test_code {
 111   return <<'CODE';
 112 /* TODO: test DGifOpen() and processing with callbacks */
 113 GifFileType *gf;
 114 #ifdef GIF_LIB_VERSION
 115 const char vers[] = GIF_LIB_VERSION;
 116 const char *versp = vers;
 117 int ver_maj;
 118 int ver_min;
 119 #else
 120 int ver_maj = GIFLIB_MAJOR;
 121 int ver_min = GIFLIB_MINOR;
 122 #endif
 123 gf=DGifOpenFileName("testimg/expected.gif");
 124 if (!gf) {
 125   fprintf(stderr, "GIF: Cannot open testimg/expected.gif\n");
 126   return 1;
 127 }
 128 if (gf->SWidth != 16 || gf->SHeight != 16) {
 129   fprintf(stderr, "GIF: bad screen description (%d x %d)\n", gf->SWidth, gf->SHeight);
 130   return 1;
 131 }
 132 /* crashes in older versions of giflib */
 133 EGifSetGifVersion("89a");
 134 EGifSetGifVersion("87a");
 135
 136 #ifdef GIF_LIB_VERSION
 137 /* skip the " Version " */
 138 while (*versp && (*versp < '0' || *versp > '9'))
 139   ++versp;
 140 if (!*versp) {
 141   fprintf(stderr, "GIF: Cannot find version number in '%s'\n", vers);
 142   return 1;
 143 }
 144 ver_maj = 0;
 145 while (*versp && *versp >= '0' && *versp <= '9') {
 146   ver_maj *= 10;
 147   ver_maj += *versp++ - '0';
 148 }
 149 if (*versp != '.' || versp[1] < '0' || versp[1] > '9') {
 150   fprintf(stderr, "Cannot parse major version number in '%s'\n", vers);
 151   return 1;
 152 }
 153 ++versp; /* skip '.' */
 154 ver_min = 0;
 155 while (*versp && *versp >= '0' && *versp <= '9') {
 156   ver_min *= 10;
 157   ver_min += *versp++ - '0';
 158 }
 159 #endif
 160 if (ver_maj < 4) {
 161   fprintf(stderr, "GIF: gif lib version 3 is no longer supported\n");
 162   return 1;
 163 }
 164 if (ver_maj == 4 && ver_min < 1) {
 165   fprintf(stderr, "GIF: you need at least giflib 4.1\n");
 166   return 1;
 167 }
 168 fprintf(stderr, "GIF: Major %d, Minor %d\n", ver_maj, ver_min);
 169 return 0;
 170 CODE
 171 }