Build.PL

   1 #!/usr/bin/perl -w
   2 # This has been heavily modified from the Device::Cdio Build.PL
   3 # Jonathan Leto <jonathan@leto.net>
   4
   5 #    Copyright (C) 2006 Rocky Bernstein <rocky@cpan.org>
   6 #
   7 #    This program is free software; you can redistribute it and/or modify
   8 #    it under the terms of the GNU General Public License as published by
   9 #    the Free Software Foundation; either version 2 of the License, or
  10 #    (at your option) any later version.
  11 #
  12 #    This program is distributed in the hope that it will be useful,
  13 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 #    GNU General Public License for more details.
  16 #
  17 #    You should have received a copy of the GNU General Public License
  18 #    along with this program; if not, write to the Free Software
  19 #    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20 use strict;
  21 use warnings;
  22 use Config;
  23 use Data::Dumper;
  24 use Module::Build;
  25 use lib 'inc';
  26 use GSLBuilder;
  27 use File::Spec::Functions qw/:ALL/;
  28
  29 BEGIN {
  30     eval { require ExtUtils::PkgConfig };
  31     if ($@) {
  32         print "\nI see that you are a CPANTester, you really should install ExtUtils::PkgConfig !\n"
  33             if $ENV{AUTOMATED_TESTING};
  34         print <<EXIT;
  35 ExtUtils::PkgConfig is currently needed to find GSL for the compilation of this module.
  36 It may be bundled with Math::GSL in the future.
  37 EXIT
  38         exit 0;
  39     }
  40 }
  41
  42
  43
  44 sub try_compile {
  45     my ($c, %args) = @_;
  46
  47     my $ok = 0;
  48     my $tmp = "tmp$$";
  49     local(*TMPC);
  50
  51     my $obj_ext = $Config{_o} || ".o";
  52     unlink("$tmp.c", "$tmp$obj_ext");
  53
  54     if (open(TMPC, ">", "$tmp.c")) {
  55         print TMPC $c;
  56         close(TMPC);
  57
  58         my $cccmd = $args{cccmd};
  59         my $errornull;
  60         my $ccflags =  $Config{'ccflags'};
  61     $ccflags .= " $args{ccflags}" if $args{ccflags};
  62
  63     if ($args{silent} ) {
  64             $errornull = "2>/dev/null" unless defined $errornull;
  65         } else {
  66             $errornull = '';
  67         }
  68
  69     $cccmd = "$Config{'cc'} -o $tmp $ccflags $tmp.c $errornull"
  70             unless defined $cccmd;
  71
  72         printf "cccmd = $cccmd\n" if $args{verbose};
  73         my $res = system($cccmd);
  74         $ok = defined($res) && $res == 0;
  75
  76         if ( !$ok ) {
  77             my $errno = $? >> 8;
  78             local $! = $errno;
  79             print "
  80
  81 *** The test compile of '$tmp.c' failed: status $?
  82 *** (the status means: errno = $errno or '$!')
  83 *** DO NOT PANIC: this just means that *some* you may get some innocuous
  84 *** compiler warnings.
  85 ";
  86         }
  87         unlink("$tmp.c");
  88
  89     }
  90     return $ok;
  91 }
  92
  93 sub try_cflags ($) {
  94     my ($ccflags) = @_;
  95     my $c_prog = "int main () { return 0; }\n";
  96     print "Checking if $Config{cc} supports \"$ccflags\"...";
  97     my $result = try_compile($c_prog, ccflags=>$ccflags);
  98     if ($result) {
  99         print "yes\n";
 100         return " $ccflags";
 101     }
 102     print "no\n";
 103     return '';
 104
 105 }
 106
 107 print "Checking for GSL..";
 108 my %gsl_pkgcfg = ExtUtils::PkgConfig->find ('gsl');
 109
 110 my $MIN_GSL_VERSION = "1.8";
 111 my $gv = $gsl_pkgcfg{'modversion'};
 112 my $current_minor_version;
 113
 114 my $path_system = File::Spec->catfile('swig', 'system.i');
 115 open my $fh, ">", "$path_system" or die $!;
 116
 117 if (defined $gv) {
 118   if ($gv =~ m{\A(\d+(?:\.\d+)+)}) {
 119     my @current= split /\./, $1;
 120     print $fh "#define GSL_MAJOR_VERSION $current[0]\n";
 121     print $fh "#define GSL_MINOR_VERSION $current[1]\n";
 122
 123     my @min= split /\./, $MIN_GSL_VERSION;
 124     $current_minor_version = $current[1];
 125     unless ($current[0] >= $min[0] && $current[1] >= $min[1]) {
 126             printf "
 127 ***
 128 *** You need to have GSL %s or greater installed. (You have $gv).
 129 *** Get GSL at http://www.gnu.org/software/gsl\n", $MIN_GSL_VERSION;
 130             exit 1;
 131         } else {
 132             print "Found GSL version $gv\n";
 133
 134         }
 135     } else {
 136         print "
 137 ***
 138 *** Can't parse GSL version $gv.
 139 *** Will continue and keep my fingers crossed for luck.
 140 ";
 141     }
 142 } else {
 143     print "
 144 ***
 145 *** Can't find GSL configuration info. Is GSL installed?
 146 *** Get GSL at http://www.gnu.org/software/gsl
 147 ";
 148     exit 1;
 149 }
 150
 151 close $fh;
 152
 153 my $ccflags = $gsl_pkgcfg{cflags};
 154
 155 ## Swig produces a number of GCC warnings. Turn them off if we can.
 156 $ccflags .= try_cflags("-Wno-strict-aliasing");
 157 $ccflags .= try_cflags("-Wno-unused-function");
 158 $ccflags .= try_cflags("-Wno-unused-value");
 159 $ccflags .= try_cflags("-Wno-unused-function");
 160 $ccflags .= try_cflags("-Wno-unused-variable");
 161
 162
 163 my $ldflags    = "$gsl_pkgcfg{libs} -gsl";
 164 my $swig_flags = "$gsl_pkgcfg{cflags}"; # -Wall is a bit much
 165
 166 if ( $^O eq 'cygwin'  && $Config{shrpenv} =~ m{\Aenv LD_RUN_PATH=(.*)\Z} ) {
 167     $ldflags .= " -L$1 -lperl";
 168     # Should we check the 32-ness?
 169     $swig_flags = '-DNEED_LONG';
 170 } elsif ( $^O eq 'darwin' ) {
 171     $ldflags .= ' -bundle -flat_namespace ';
 172 }
 173
 174 if ($Config{archname} =~ /x86_64|amd64/ ) {
 175     $ldflags .= ' -fPIC  -fno-omit-frame-pointer ';
 176     $ccflags .= ' -fPIC  -fno-omit-frame-pointer ';
 177 }
 178
 179 my @Subsystems = grep { ! /^Test$/ } GSLBuilder::subsystems;
 180
 181 # BSplines appeared in 1.9
 182 if ($current_minor_version < 9 ) {
 183    @Subsystems = grep { ! /BSpline/ } @Subsystems;
 184 }
 185 my $cleanup = qq{
 186                  xs/*_wrap.c core *.core swig/system.i
 187                  swig/*.o Makefile Math-GSL-* tmp* pod2ht*.tmp _build
 188                  lib/Math/GSL/[A-z]+/* blib *.so *.orig
 189                  } . join " ", map { catfile( (qw( lib Math GSL ), "$_.pm") ) } @Subsystems;
 190
 191 my $builder = GSLBuilder->new(
 192     module_name         => 'Math::GSL',
 193     add_to_cleanup      => [ $cleanup ],
 194     create_makefile_pl  => 'passthrough',
 195     dist_abstract       => 'Interface to the GNU Scientific Library using SWIG',
 196     dist_author         => 'Jonathan Leto <jonathan@leto.net>',
 197     dist_version_from   => 'lib/Math/GSL.pm',
 198     include_dirs            => q{},
 199     extra_linker_flags  => '-shared ' . $ldflags,
 200     extra_compiler_flags=> "$ccflags " . ($ENV{CC_FLAGS}||''),
 201     swig_flags          => $swig_flags,
 202     license             => 'gpl',
 203     requires => {
 204         'ExtUtils::PkgConfig'   => '1.03',
 205         'Scalar::Util'          =>       0,
 206         'Test::More'            =>       0,
 207         'Test::Exception'       =>    0.21,
 208         'Test::Class'           =>    0.12,
 209         version                 =>       0,
 210         perl                    =>  '5.8.0',
 211     },
 212     sign                  => 0,
 213     configure_requires => {
 214         'ExtUtils::PkgConfig' => '1.03',
 215     },
 216     swig_source           => [
 217                                 map { [ "swig/$_.i", "pod/$_.pod" ] } @Subsystems ,
 218                              ],
 219 );
 220 $builder->add_build_element('swig');
 221 $builder->create_build_script();
 222 print "Have a great day!\n";