GIF/Makefile.PL

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