W32/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::Font::W32',
  23    VERSION_FROM => 'W32.pm',
  24    OBJECT => 'W32.o win32.o',
  25    clean => { FILES => 'testout' },
  26   );
  27
  28 my @inc;
  29 if ($BUILDING_IMAGER) {
  30   push @inc, "-I..";
  31   unshift @INC, "../lib";
  32 }
  33 else {
  34   unshift @INC, "inc";
  35   print "Win32: 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.78" );
  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 => "Win32",
  73    inccheck => sub { -e File::Spec->catfile($_[0], "windows.h") },
  74    libbase => "gdi32",
  75    testcode => _win32_test_code(),
  76    testcodeheaders => [ "stdio.h", "string.h", "windows.h" ],
  77    incpath => \@incpaths,
  78    libpath => \@libpaths,
  79   );
  80
  81 my $probe_res = Imager::Probe->probe(\%probe);
  82 if ($probe_res) {
  83   $IMAGER_LIBS{Win32} = 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} = 'Win32 font file support for Imager';
  93   }
  94
  95   WriteMakefile(%opts);
  96 }
  97 else {
  98   $IMAGER_LIBS{Win32} = 0;
  99
 100   if ($BUILDING_IMAGER) {
 101     ExtUtils::MakeMaker::WriteEmptyMakefile(%opts);
 102   }
 103   else {
 104     # fail in good way
 105     die "OS unsupported: Win32 libraries or headers not found\n";
 106   }
 107 }
 108
 109 sub _win32_test_code {
 110   return <<'CODE';
 111 HDC dc = GetDC(NULL);
 112 HDC bmpDc = CreateCompatibleDC(dc);
 113 DeleteDC(bmpDc);
 114 ReleaseDC(NULL, dc);
 115 return 0;
 116 CODE
 117 }