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