granicus.if.org Git - imagemagick/blob - PerlMagick/quantum/Makefile.PL.in

   1 #  Copyright 1999-2015 ImageMagick Studio LLC, a non-profit organization
   2 #  dedicated to making software imaging solutions freely available.
   3 #
   4 #  You may not use this file except in compliance with the License.  You may
   5 #  obtain a copy of the License at
   6 #
   7 #    http://www.imagemagick.org/script/license.php
   8 #
   9 #  Unless required by applicable law or agreed to in writing, software
  10 #  distributed under the License is distributed on an "AS IS" BASIS,
  11 #  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  12 #  See the License for the specific language governing permissions and
  13 #  limitations under the License.
  14 #
  15 #  Exercise all regression tests:
  16 #
  17 #    make test
  18 #
  19 #  Exersise one regression test:
  20 #
  21 #    make TEST_VERBOSE=1 TEST_FILES=t/filter.t test
  22 #
  23
  24 use ExtUtils::MakeMaker;
  25 use Config;
  26 use File::Spec::Functions qw/catfile catdir devnull catpath splitpath/;
  27 use Cwd;
  28
  29 sub AutodetectWin32gcc {
  30   my $wrkdir = getcwd();
  31   my $devnull = devnull();
  32
  33   my @incdir = ();
  34   my @libdir = ($wrkdir);
  35   my @bindir = ();
  36
  37   #try to get configuration info via identify or convert utilities
  38   my $conf = `identify -list Configure 2>$devnull` || `convert -list Configure 2>$devnull`;
  39   foreach my $line (split '\n', $conf) {
  40     if ($line =~ /^Path:\s+(.*)/) {
  41       my ($vol,$dir,$file) = splitpath($1);
  42       next unless $dir;
  43       my $dirpath = catpath( $vol, $dir);
  44       my (@l,@b,@i) = ( (),(),() );
  45
  46       # try to detect 'lib' dir
  47       push @l, catfile($dirpath,'lib');
  48       push @l, catfile($dirpath,'..','lib');
  49       push @l, catfile($dirpath,'..','..','lib');
  50       push @l, catfile($dirpath,'..','..','..','lib');
  51       foreach (@l) { push @libdir, $_ if (-d $_) };
  52
  53       # try to detect 'bin' dir
  54       push @b, catfile($dirpath);
  55       push @b, catfile($dirpath,'bin');
  56       push @b, catfile($dirpath,'..');
  57       push @b, catfile($dirpath,'..','bin');
  58       push @b, catfile($dirpath,'..','..');
  59       push @b, catfile($dirpath,'..','..','bin');
  60       push @b, catfile($dirpath,'..','..','..');
  61       push @b, catfile($dirpath,'..','..','..','bin');
  62       foreach (@b) { push @bindir, $_ if (-e "$_/convert.exe" || -e "$_/identify.exe") };
  63
  64       # try to detect 'include' dir
  65       push @i, catfile($dirpath,'include');
  66       push @i, catfile($dirpath,'include','ImageMagick');
  67       push @i, catfile($dirpath,'..','include');
  68       push @i, catfile($dirpath,'..','include','ImageMagick');
  69       push @i, catfile($dirpath,'..','..','include');
  70       push @i, catfile($dirpath,'..','..','include','ImageMagick');
  71       push @i, catfile($dirpath,'..','..','..','include');
  72       push @i, catfile($dirpath,'..','..','..','include','ImageMagick');
  73       foreach (@i) { push @incdir, $_ if (-e "$_/MagickCore/MagickCore.h") };
  74     }
  75   };
  76
  77   foreach my $bin (@bindir) {
  78     opendir(my $bindir, $bin) or die qq{Cannot opendir $bin: $!};
  79     my @dlls = map {catfile($bin, $_)} grep /^\S*magick[^\+]\S*?\.dll$/i, readdir $bindir;
  80     foreach my $d (@dlls) {
  81       unlink "$wrkdir/libMagickCore.def", "$wrkdir/libMagickCore.a";
  82       system("pexports \"$d\" >\"$wrkdir/libMagickCore.def\" 2>$devnull");
  83       open(DEF, "<$wrkdir/libMagickCore.def");
  84       my @found = grep(/MagickCoreGenesis/, <DEF>); #checking if we have taken the right DLL
  85       close(DEF);
  86       next unless(@found);
  87       print STDERR "Gonna create 'libMagickCore.a' from '$d'\n";
  88       system("dlltool -D \"$d\" -d \"$wrkdir/libMagickCore.def\" -l \"$wrkdir/libMagickCore.a\" 2>$devnull");
  89       last if -s "$wrkdir/libMagickCore.a";
  90     }
  91     last if -s "$wrkdir/libMagickCore.a";
  92   }
  93
  94   unless(@incdir && @libdir && @bindir && (-s "$wrkdir/libMagickCore.a")) {
  95     print STDERR <<EOF
  96 ################################### WARNING! ###################################
  97 # It seems that you are trying to install Perl::Magick on a MS Windows box with
  98 # perl + gcc compiler (e.g. strawberry perl), however we cannot find ImageMagick
  99 # binaries installed on your system.
 100 #
 101 # Please check the following prerequisites:
 102 #
 103 # 1) You need to have installed ImageMagick Windows binaries from
 104 #    http://www.imagemagick.org/script/binary-releases.php#windows
 105 #
 106 # 2) We only support dynamic (DLL) ImageMagick binaries
 107 #    note: it is not possible to mix 32/64-bit binaries of perl and ImageMagick
 108 #
 109 # 3) During installation select that you want to install ImageMagick's
 110 #    development files (libraries+headers)
 111 #
 112 # 4) You also need to have ImageMagick's directory in your PATH
 113 #    note: we are checking the presence of convert.exe and/or identify.exe tools
 114 #
 115 # 5) You might need Visual C++ Redistributable Package installed on your system
 116 #    see instructions on ImageMagick's Binary Release webpage
 117 #
 118 # We are gonna continue, but chances for successful build are very low!
 119 ################################################################################
 120 EOF
 121   }
 122
 123   my $inc = join ' ', map "-I\"$_\"", @incdir;
 124   my $lib = join ' ', map "-L\"$_\"", @libdir;
 125
 126   return ($inc, $lib);
 127 }
 128
 129 sub AutodetectDelegates {
 130   #try to get configuration info via identify or convert utilities
 131   my $devnull = devnull();
 132   my $conf = `identify -list Configure 2>$devnull` || `convert -list Configure 2>$devnull`;
 133   my @delegates = ();
 134   foreach my $line (split '\n', $conf) {
 135     next unless $line =~ /^DELEGATES\s+/;
 136     (undef, @delegates) = split /\s+/, $line;
 137     last;
 138   };
 139   return @delegates;
 140 }
 141
 142 # Compute test specification
 143 my $delegate_tests='t/*.t';
 144 my @tested_delegates = qw/bzlib djvu fftw fontconfig freetype jpeg jng jp2 lcms mpeg png rsvg tiff x11 xml wmf zlib/;
 145 my @supported_delegates = AutodetectDelegates();
 146 # find the intersection of tested and supported delegates
 147 my %seen_delegates = ();
 148 $seen_delegates{$_}++ for @supported_delegates;
 149 foreach my $delegate (@tested_delegates) {
 150   if ( $seen_delegates{$delegate} ) {
 151     if ( -d "t/$delegate" ) {
 152       if ( defined($ENV{'DISPLAY'}) && ($^O ne 'MSWin32') ) {
 153         if ( defined $ENV{'DISPLAY'} ) {
 154           $delegate_tests .= " t/$delegate/*.t";
 155         }
 156         next;
 157       }
 158       $delegate_tests .= " t/$delegate/*.t";
 159     }
 160   }
 161 }
 162
 163 # defaults for LIBS & INC & CCFLAGS params that we later pass to Writemakefile
 164 my $INC_magick = '-I../ -I@top_srcdir@ @CPPFLAGS@ -I"' . $Config{'usrinc'} . '/ImageMagick"';
 165 my $LIBS_magick = '-L../../MagickCore/.libs -lMagickCore-@MAGICK_MAJOR_VERSION@.@MAGICK_ABI_SUFFIX@ -lperl @MATH_LIBS@';
 166 my $CCFLAGS_magick = "$Config{'ccflags'} @CFLAGS@";
 167 my $LDFLAGS_magick   = "-L../../MagickCore/.libs -lMagickCore-@MAGICK_MAJOR_VERSION@.@MAGICK_ABI_SUFFIX@ $Config{'ldflags'} @LDFLAGS@";
 168 my $LDDLFLAGS_magick = "-L../../MagickCore/.libs -lMagickCore-@MAGICK_MAJOR_VERSION@.@MAGICK_ABI_SUFFIX@ $Config{'lddlflags'} @LDFLAGS@";
 169
 170 if (($^O eq 'MSWin32') && ($Config{cc} =~ /gcc/)) {
 171   my($Ipaths, $Lpaths) = AutodetectWin32gcc();
 172
 173   #
 174   # Setup for strawberry perl.
 175   #
 176   $INC_magick       = "$Ipaths";
 177   $LIBS_magick      = "-lMagickCore-@MAGICK_MAJOR_VERSION@.@MAGICK_ABI_SUFFIX@";
 178   $CCFLAGS_magick   = "$Config{'ccflags'}";
 179   $LDFLAGS_magick   = "$Config{'ldflags'} $Lpaths ";
 180   $LDDLFLAGS_magick = "$Config{'lddlflags'} $Lpaths ";
 181 }
 182
 183 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
 184 # the contents of the Makefile that is written.
 185 WriteMakefile
 186   (
 187    # Module description
 188    'ABSTRACT'   => 'ImageMagick PERL Extension (@MAGICK_ABI_SUFFIX@)',
 189
 190    # Perl module name is Image::Magick
 191    'NAME'       => 'Image::Magick::@MAGICK_ABI_SUFFIX@',
 192
 193    # Module author
 194    'AUTHOR' => 'ImageMagick Studio LLC',
 195
 196    # Module version
 197    'VERSION' => '@PACKAGE_PERL_VERSION@',
 198
 199    # Preprocessor defines
 200    'DEFINE'     => '@LFS_CPPFLAGS@ @DEFS@',     # e.g., '-DHAVE_SOMETHING'
 201
 202    # Header search specfication and preprocessor flags
 203    'INC'        => $INC_magick,
 204
 205    # C compiler
 206    #'CC' => '@CC@',
 207
 208    # C pre-processor flags (e.g. -I & -D options)
 209    # 'CPPFLAGS' => "$Config{'cppflags'} @CPPFLAGS@",
 210
 211    # C compiler flags (e.g. -O -g)
 212    'CCFLAGS' => $CCFLAGS_magick,
 213
 214    # Linker
 215    #'LD' => $Config{'ld'} == $Config{'cc'} ? '@CC@' : $Config{'ld'},
 216
 217    # Linker flags for building an executable
 218    'LDFLAGS' =>  $LDFLAGS_magick,
 219
 220    # Linker flags for building a dynamically loadable module
 221    'LDDLFLAGS' => $LDDLFLAGS_magick,
 222
 223    # Install PerlMagick binary into ImageMagick bin directory
 224    'INSTALLBIN' => '@BIN_DIR@',
 225
 226    # Library specification
 227    'LIBS' => [ $LIBS_magick ],
 228
 229    # Perl binary name (if a Perl binary is built)
 230    'MAP_TARGET' => 'PerlMagick',
 231
 232    # Let CFLAGS drive optimization flags by setting OPTIMIZE to empty
 233    # 'OPTIMIZE' => '',
 234
 235    # Use same compiler as ImageMagick
 236    'PERLMAINCC' => '@PERLMAINCC@ @OPENMP_CFLAGS@',
 237    'PM' => { '@MAGICK_ABI_SUFFIX@.pm' => '$(INST_LIBDIR)/@MAGICK_ABI_SUFFIX@.pm' },
 238    'XS' => { '@MAGICK_ABI_SUFFIX@.xs' => '@MAGICK_ABI_SUFFIX@.xs' },
 239    'AR' => '@AR@',
 240    'LD' => '@PERLMAINCC@',
 241
 242    # Set Perl installation prefix to ImageMagick installation prefix
 243 #   'PREFIX'    => '@prefix@',
 244
 245    # Include delegate directories in tests
 246    test => { TESTS      =>      $delegate_tests},
 247
 248    ($Config{'archname'} =~ /-object$/i ? ('CAPI' => 'TRUE') : ()),
 249
 250 # sane vesion
 251    depend => { '$(FIRST_MAKEFILE)' => '$(VERSION_FROM)' }
 252 );
 253
 254
 255 #
 256 # Substitutions for "makeaperl" section.
 257 #
 258 sub MY::makeaperl {
 259      package MY; # so that "SUPER" works right
 260      my $inherited = shift->SUPER::makeaperl(@_);
 261
 262      # Stinky ExtUtils::MM_Unix likes to append its own library path to $(CC),
 263      # prior to any user-specified library path so that an installed library is
 264      # used rather than the library just built.  This substitution function
 265      # tries to insert our library path first. Also, use the same compiler used
 266      # to build perlmain.c to link so that a C++ compiler may be used if
 267      # necessary.
 268      $inherited =~ s:MAP_LINKCMD\s.*\s*\$\(CC\):MAP_LINKCMD   = \$(PERLMAINCC) -L@MAGICKCORE_PATH@: ;
 269      $inherited;
 270  }