From: Alex Gough <alex@earth.li>
Date: Mon, 6 Jun 2011 03:45:28 +0000 (+0100)
Subject: automatically detect mpicc and use it
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=88973a1551f0b0f1bdecbe6d99473b5bf240b175;p=libparallel-mpi-simple-perl.git

automatically detect mpicc and use it
---

diff --git a/Makefile.PL b/Makefile.PL
index ad78530..b6e60a4 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -7,6 +7,10 @@ use ExtUtils::MakeMaker;
 print <<ENDOFMESSAGE;
 I'm about to build the Makefile for Parallel::MPI::Simple.
 
+If you have mpicc installed, I will attempt to use the arguements
+it suggests to compile and link the module.  You will also have to
+have already started mpd for the tests to work.
+
 If you find you cannot build this module, or that the tests fail, you
 may be on an odd system where you need to do more than pass -lmpi to
 your C compiler to build MPI applications.  If this is the case, rerun
@@ -16,10 +20,35 @@ Also, this module is very new so if you manage to get it working on one
 of the systems not listed in INSTALL I'd love to hear about it.
 ENDOFMESSAGE
 
+my ($libs, $ccflags) = ("", "");
+# try to get this information from mpicc, should quietly fail if not
+{
+    my @lines = `mpicc -help`;
+    foreach my $line (@lines) {
+	if ($line =~ /-link-info/) {
+	    my $linkinfo = `mpicc -link-info`;
+	    my @entries = split (/\s+/, $linkinfo);
+	    $libs = join(" ", grep {/^-[Ll]/} @entries);
+	}
+	if ($line =~ /-compile-info/) {
+	    my $compileinfo = `mpicc -compile-info`;
+	    my @entries = split (/\s+/, $compileinfo);
+	    $ccflags = join(" ", grep {/^-[ILl]/} @entries);
+	}
+    }
+    if ($libs || $ccflags) {
+	print STDERR "guessing values for\n LIBS:$libs\n CCFLAGS:$ccflags\n";
+    }
+    else {
+	print STDERR "Could not determine options for mpicc, using defaults\n";
+    }
+}
+
 # Check that people have tried to define linking and compiling options...
 WriteMakefile(
     'NAME'	=> 'Parallel::MPI::Simple',
     'VERSION_FROM' => 'Simple.pm', # finds $VERSION
     'PREREQ_PM' => {Storable => 0},
-    'LIBS' => "-lmpi",
+    'LIBS' => $libs || "-lmpi",
+    'CCFLAGS' => $ccflags || "",
 );
diff --git a/test.pl b/test.pl
index 4832eb3..ea085ff 100644
--- a/test.pl
+++ b/test.pl
@@ -3,5 +3,8 @@ $incs .= " -I$_" foreach @INC;
 my @newout = sort {
     (($a =~ /(\d+)/g)[0] <=> ($b =~ /(\d+)/g)[0])
 } `mpirun -np 2 $^X $incs ic.pl`;
-print "1..".scalar(@newout)."\n";
+print "1..24";
+if (@newout < 24) {
+    print "not ok 1 # mpirun failed.  Do you need to start mpd?\n";
+}
 print @newout;