Changeset 21782

Timestamp:

08/04/08 18:03:16 (5 months ago)

Author:

audreyt

Message:

* Configure.PL: Probe for GHC's -threaded flag.

Files:

• Configure.PL (modified) (3 diffs)

Configure.PL

@@ -3 +3 @@
 use 5.006;
 use strict;
+use FindBin;
+BEGIN { chdir $FindBin::RealBin };
+use inc::Module::Install;
+use lib 'inc';
 use Cwd;
 use Config;
 use ExtUtils::Embed;
+use Carp;
+
+my ($ghc, $ghc_version, $ghc_flags, $ghc_pkg) = assert_ghc();
+my $threaded = (try_compile_and_run("main :: IO ()\nmain = return ()", $ghc, "-threaded")) ? '-threaded' : '';
+if ($threaded && $ENV{PUGS_NO_THREADS}) {
+    warn << '.';
+*** Thread support disabled due to explicit request in PUGS_NO_THREADS.
+
+.
+    $threaded = '';
+}
 
 my $embed_flags = "-I" . cwd();
@@ -78 +93 @@
 my $info = << ".";
 executable: pugs
-ghc-options: $embed_flags $ccdlflags
+ghc-options: $embed_flags $ccdlflags $threaded
 include-dirs: @include_dirs
 cc-options: @cc_options
@@ -87 +102 @@
 print INFO $info;
 close INFO;
+
+our $do_run;
+sub try_compile_and_run {
+    local $do_run = 1;
+    try_compile(@_);
+}
+
+sub try_compile {
+    my $code = shift;
+    my $temp = "pugs-tmp-$$";
+    my $ghc  = shift or croak "try_compile called without path to ghc";
+
+    eval {
+        open TMP, "> $temp.hs";
+        print TMP $code;
+        close TMP;
+        system(
+            $ghc, @_,
+            "--make", "-v0",
+            -o => "$temp.exe",
+            "$temp.hs"
+        );
+
+    };
+
+    my $ok = -s "$temp.exe";
+
+    if ($do_run) {
+        $ok = 0 unless system(Cwd::abs_path("$temp.exe")) == 0;
+    }
+
+    unlink("$temp.exe");
+    unlink("$temp.hs");
+    unlink("$temp.hi");
+    unlink("$temp.o");
+
+    return $ok;
+}