Build.PL

   1 #!/usr/bin/perl -w
   2
   3 # This script has been heavily modified from the Device::Cdio Build.PL
   4 # Jonathan Leto <jonathan@leto.net>
   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
  25 BEGIN {
  26     eval {
  27         require Module::Build;
  28         require ExtUtils::PkgConfig;
  29     };
  30     die "Math::GSL requires Module::Build and ExtUtils::PkgConfig, please install these first.\n" if $@;
  31 }
  32
  33 my $code = <<'EOC';
  34 use Config;
  35 use File::Copy;
  36 use File::Spec::Functions qw/:ALL/;
  37
  38 sub process_swig_files {
  39     my $self = shift;
  40     my $p = $self->{properties};
  41     return unless $p->{swig_source};
  42     my $files_ref = $p->{swig_source};
  43     foreach my $file (@$files_ref) {
  44         $self->process_swig($file->[0], $file->[1]);
  45     }
  46 }
  47
  48 # Check check dependencies for $main_swig_file. These are the
  49 # %includes. If needed, arrange to run swig on $main_swig_file to
  50 # produce a xxx_wrap.c C file.
  51
  52 sub process_swig {
  53   my ($self, $main_swig_file, $deps_ref) = @_;
  54   my ($cf, $p) = ($self->{config}, $self->{properties}); # For convenience
  55
  56   # File name. e.g, perlcdio.swg -> perlcdio_wrap.c
  57   (my $file_base = $main_swig_file) =~ s/\.[^.]+$//;
  58   my $c_file = "${file_base}_wrap.c";
  59
  60   if ($p->{swig_installed}) {
  61       # .swg -> .c
  62       $self->add_to_cleanup($c_file);
  63
  64       # If any of the swig files that the main swig depends is newer
  65       # then rebuild.
  66       foreach my $depends_on ($main_swig_file, @$deps_ref) {
  67           unless ($self->up_to_date($depends_on, $c_file)) {
  68               $self->compile_swig($main_swig_file, $c_file);
  69               # Only need to build $c_file once no matter how many
  70               # includes there are.
  71               last;
  72           }
  73       }
  74   }
  75
  76   # .c -> .o
  77   my $obj_file = $self->compile_c($c_file);
  78   $self->add_to_cleanup($obj_file);
  79
  80   # The .so files don't go in blib/lib/, they go in blib/arch/auto/.
  81   # Unfortunately we have to pre-compute the whole path.
  82   my $archdir;
  83   {
  84     my @dirs = splitdir($file_base);
  85     $archdir = catdir($self->blib,'arch', @dirs[1..$#dirs]);
  86   }
  87
  88   # .o -> .so
  89   $self->link_c($archdir, $file_base, $obj_file);
  90 }
  91
  92 # Invoke swig with -perl -outdir and other options.
  93 sub compile_swig {
  94     my ($self, $file, $c_file) = @_;
  95     my ($cf, $p) = ($self->{config}, $self->{properties}); # For convenience
  96
  97     # File name, minus the suffix
  98     (my $file_base = $file) =~ s/\.[^.]+$//;
  99
 100     my @swig;
 101     if (defined($p->{swig})) {
 102             @swig = $self->split_like_shell($p->{swig});
 103     } else {
 104             @swig = ('swig');
 105     }
 106     if (defined($p->{swig_flags})) {
 107             @swig_flags = $self->split_like_shell($p->{swig_flags});
 108     } else {
 109             @swig_flags = ();
 110     }
 111
 112     push @swig_flags, $self->split_like_shell( qq{-module Math::GSL::$file_base} );
 113
 114     my $blib_lib =  catfile(qw/blib lib/);
 115
 116     mkdir catfile($blib_lib, qw/Math GSL/);
 117     my $outdir = catfile($blib_lib, qw/Math GSL/);
 118
 119     $self->do_system(@swig, '-o', $c_file,
 120                      '-outdir', $outdir,
 121                              '-perl5', @swig_flags, $file)
 122         or die "error building $c_file file from '$file'";
 123
 124     my $pm_file = "${file_base}.pm";
 125     my $from    = catfile($blib_lib, qw/Math GSL/, $pm_file);
 126     my $to      = catfile(qw/lib Math GSL/,$pm_file);
 127
 128     print "Copying from: $from, to: $to; it makes the CPAN indexer happy.\n";
 129     copy($from,$to);
 130     return $c_file;
 131 }
 132
 133 # From Base.pm but modified for a SWIG conventions.
 134 # We just pass a $obj_file parameter
 135 # SWIG objects have a get created with _wrap added. For example
 136 # perlcdio.swg produces perlcdio_wrap.c, and perlcdio_wrap.o.
 137 # But the shared object is still perlcdio.so.
 138 # Also we modified the die to report the full file name.
 139 sub link_c {
 140   my ($self, $to, $file_base, $obj_file) = @_;
 141   my ($cf, $p) = ($self->{config}, $self->{properties}); # For convenience
 142
 143   my $lib_file = catfile($to, File::Basename::basename("$file_base.so"));
 144
 145   $self->add_to_cleanup($lib_file);
 146   my $objects = $p->{objects} || [];
 147
 148   unless ($self->up_to_date([$obj_file, @$objects], $lib_file)) {
 149     my @linker_flags = $self->split_like_shell($p->{extra_linker_flags});
 150     my @lddlflags = $self->split_like_shell($cf->{lddlflags});
 151     my @shrp = $self->split_like_shell($cf->{shrpenv});
 152     my @ld = $self->split_like_shell($cf->{ld}) || "gcc";
 153     $self->do_system(@shrp, @ld, @lddlflags, @user_libs, '-o', $lib_file,
 154                      $obj_file, @$objects, @linker_flags)
 155       or die "error building $lib_file file from '$obj_file'";
 156   }
 157
 158   return $lib_file;
 159 }
 160
 161 # From Base.pm but modified to put package cflags *after*
 162 # installed c flags so warning-removal will have an effect.
 163
 164 sub compile_c {
 165   my ($self, $file) = @_;
 166   my ($cf, $p) = ($self->{config}, $self->{properties}); # For convenience
 167
 168   # File name, minus the suffix
 169   (my $file_base = $file) =~ s/\.[^.]+$//;
 170   my $obj_file = $file_base . $Config{_o};
 171
 172   $self->add_to_cleanup($obj_file);
 173   return $obj_file if $self->up_to_date($file, $obj_file);
 174
 175
 176   $cf->{installarchlib} = $Config{archlib};
 177
 178   my @include_dirs = @{$p->{include_dirs}}
 179                         ? map {"-I$_"} (@{$p->{include_dirs}}, catdir($cf->{installarchlib}, 'CORE'))
 180                         : map {"-I$_"} ( catdir($cf->{installarchlib}, 'CORE') ) ;
 181
 182   my @extra_compiler_flags = $self->split_like_shell($p->{extra_compiler_flags});
 183
 184   my @cccdlflags = $self->split_like_shell($cf->{cccdlflags});
 185
 186   my @ccflags  = $self->split_like_shell($cf->{ccflags});
 187   my @optimize = $self->split_like_shell($cf->{optimize});
 188
 189   # Whoah! There seems to be a bug in gcc 4.1.0 and optimization
 190   # and swig. I'm not sure who's at fault. But for now the simplest
 191   # thing is to turn off all optimization. For the kinds of things that
 192   # SWIG does - do conversions between parameters and transfers calls
 193   # I doubt optimization makes much of a difference. But if it does,
 194   # it can be added back via @extra_compiler_flags.
 195
 196   my @flags = (@include_dirs, @cccdlflags, '-c', @ccflags, @extra_compiler_flags, );
 197
 198   my @cc = $self->split_like_shell($cf->{cc});
 199   @cc = "gcc" unless @cc;
 200
 201   $self->do_system(@cc, @flags, '-o', $obj_file, $file)
 202     or die "error building $Config{_o} file from '$file'";
 203
 204   return $obj_file;
 205 }
 206
 207 EOC
 208
 209
 210 sub try_compile {
 211     my ($c, %args) = @_;
 212
 213     my $ok = 0;
 214     my $tmp = "tmp$$";
 215     local(*TMPC);
 216
 217     my $obj_ext = $Config{_o} || ".o";
 218     unlink("$tmp.c", "$tmp$obj_ext");
 219
 220     if (open(TMPC, ">", "$tmp.c")) {
 221         print TMPC $c;
 222         close(TMPC);
 223
 224         my $cccmd = $args{cccmd};
 225         my $errornull;
 226         my $ccflags =  $Config{'ccflags'};
 227     $ccflags .= " $args{ccflags}" if $args{ccflags};
 228
 229     if ($args{silent} ) {
 230             $errornull = "2>/dev/null" unless defined $errornull;
 231         } else {
 232             $errornull = '';
 233         }
 234
 235     $cccmd = "$Config{'cc'} -o $tmp $ccflags $tmp.c $errornull"
 236             unless defined $cccmd;
 237
 238         printf "cccmd = $cccmd\n" if $args{verbose};
 239         my $res = system($cccmd);
 240         $ok = defined($res) && $res == 0;
 241
 242         if ( !$ok ) {
 243             my $errno = $? >> 8;
 244             local $! = $errno;
 245             print "
 246
 247 *** The test compile of '$tmp.c' failed: status $?
 248 *** (the status means: errno = $errno or '$!')
 249 *** DO NOT PANIC: this just means that *some* you may get some innocuous
 250 *** compiler warnings.
 251 ";
 252         }
 253         unlink("$tmp.c");
 254
 255     }
 256     return $ok;
 257 }
 258
 259 sub try_cflags ($) {
 260     my ($ccflags) = @_;
 261     my $c_prog = "int main () { return 0; }\n";
 262     print "Checking if $Config{cc} supports \"$ccflags\"...";
 263     my $result = try_compile($c_prog, ccflags=>$ccflags);
 264     if ($result) {
 265         print "yes\n";
 266         return " $ccflags";
 267     }
 268     print "no\n";
 269     return '';
 270
 271 }
 272
 273 print "Checking for GSL..";
 274 my %gsl_pkgcfg = ExtUtils::PkgConfig->find ('gsl');
 275
 276 use constant MIN_GSL_VERSION => "1.11";
 277 my $gv = $gsl_pkgcfg{'modversion'};
 278
 279 if (defined $gv) {
 280   if ($gv =~ m{\A(\d+(?:\.\d+)+)}) {
 281     my @current= split /\./, $1;
 282     my @min= split /\./, MIN_GSL_VERSION;
 283     unless ($current[0] >= $min[0] && $current[1] >= $min[1]) {
 284             printf "
 285 ***
 286 *** You need to have GSL %s or greater installed. (You have $gv).
 287 *** Get GSL at http://www.gnu.org/software/gsl
 288 ", MIN_GSL_VERSION;
 289             exit 1;
 290         } else {
 291             print "Found GSL version $gv\n";
 292
 293         }
 294     } else {
 295         print "
 296 ***
 297 *** Can't parse GSL version $gv.
 298 *** Will continue and keep my fingers crossed for luck.
 299 ";
 300     }
 301 } else {
 302     print "
 303 ***
 304 *** Can't find GSL configuration info. Is GSL installed?
 305 *** Get GSL at http://www.gnu.org/software/gsl
 306 ";
 307     exit 1;
 308 }
 309
 310 print "Checking for SWIG...";
 311 my @swig_version = `swig -version 2>&1`;
 312 my $swig_installed = 0;
 313 if ($?) {
 314     my $errno = $? >> 8;
 315     print "I don't see SWIG installed.  Please install SWIG from  http://www.swig.org .\n";
 316     print "*** Output was:\n @swig_version\n" if @swig_version;
 317     exit 1;
 318 } else {
 319     $swig_installed = 1;
 320     print qq{Found $swig_version[1]};
 321 }
 322
 323 my $ccflags = $gsl_pkgcfg{cflags};
 324
 325 ## Swig produces a number of GCC warnings. Turn them off if we can.
 326 $ccflags .= try_cflags("-Wno-strict-aliasing");
 327 $ccflags .= try_cflags("-Wno-unused-function");
 328 $ccflags .= try_cflags("-Wno-unused-value");
 329 $ccflags .= try_cflags("-Wno-unused-function");
 330 $ccflags .= try_cflags("-Wno-unused-variable");
 331
 332 my $ldflags = "$gsl_pkgcfg{libs} -gsl";
 333 my $swig_flags='-Wall ' . $gsl_pkgcfg{cflags};
 334
 335 if ('cygwin' eq $Config{osname} &&
 336     $Config{shrpenv} =~ m{\Aenv LD_RUN_PATH=(.*)\Z} ) {
 337     $ldflags .= " -L$1 -lperl";
 338     # Should we check the 32-ness?
 339     $swig_flags = '-DNEED_LONG';
 340 } elsif ('darwin' eq $Config{osname}) {
 341     $ldflags .= " -bundle -flat_namespace";
 342 }
 343
 344 my $class = Module::Build->subclass( code => $code );
 345 my @Subsystems = sort qw/
 346             BLAS         Diff          Machine      Statistics Wavelet
 347             Block        Eigen         Matrix       Poly       Wavelet2D
 348             BSpline      Errno         PowInt       Sys
 349             CBLAS        FFT           Min
 350             CDF          Fit           Mode         QRNG
 351             Chebyshev    Monte         RNG
 352             Heapsort     Multifit      Randist      Sum
 353             Combination  Histogram     Multimin     Roots
 354             Complex      Histogram2D   Multiroots   SF
 355             Const        Siman         IEEEUtils
 356             DFT          Integration   NTuple       Sort
 357             DHT          Interp        ODEIV        Vector
 358             Deriv        Linalg        Permutation  Spline
 359 /;
 360 my $cleanup = qq{*.core Makefile Math-GSL-* tmp* *_wrap.c *.pm pod2ht*.tmp _build blib *.so *.orig } .
 361               join (" ", map { qq{lib/Math/GSL/$_.pm} } @Subsystems);
 362
 363 my $builder = $class->new(
 364     module_name         => 'Math::GSL',
 365     add_to_cleanup      => [ $cleanup ],
 366     create_makefile_pl  => 'passthrough',
 367     dist_abstract       => 'Interface to the GNU Scientific Library using SWIG',
 368     dist_author         => 'Jonathan Leto <jonathan@leto.net>',
 369     dist_version_from   => 'lib/Math/GSL.pm',
 370     include_dirs            => q{},
 371     extra_linker_flags  => '-shared -I./lib -I../lib ' . $ldflags,
 372     extra_compiler_flags=> q{-shared -Wall -fpic -Dbool=char } . $ccflags,
 373     swig_flags          => $swig_flags,
 374     swig_installed      => $swig_installed,
 375     license             => 'gpl',
 376     requires => {
 377         'ExtUtils::PkgConfig'   =>  '1.03',
 378         'Scalar::Util'          =>       0,
 379         'Test::More'            =>       0,
 380         'Test::Exception'       =>    0.21,
 381         'Test::Class'           =>    0.12,
 382         version                 =>       0,
 383         perl                            =>  '5.6.0',
 384     },
 385     sign                  => 1,
 386     swig_source           => [
 387                                 map { [ "$_.i" ] } @Subsystems
 388                              ],
 389 );
 390 $builder->add_build_element('swig');
 391 $builder->create_build_script();
 392 print "Have a great day!\n";