root/Makefile.PL.old

Revision 21668, 37.7 kB (checked in by audreyt, 4 months ago)

* Rename Makefile.PL to Makefile.PL.old in preparation of

the new Makefile.PL overhaul.
  • Property svn:mime-type set to text/plain; charset=UTF-8
  • Property svn:eol-style set to native
  • Property svn:executable set to *
Line 
1#!/usr/bin/env perl
2
3=pod
4
5=head1 NAME
6
7Makefile.PL - Configure pugs build
8
9=head1 SYNOPSIS
10
11perl Makefile.PL [options]
12
13Options:
14
15    --precompile-prelude        Force prelude to be precompiled
16    --no-precompile-prelude     Force prelude not to be precompiled
17    --help                      Print documentation (build system overview)
18
19=head1 DESCRIPTION
20
21Build System Overview
22
23 - Makefile.PL calls get_pugs_config() in inc/Module/Install/Pugs.pm which
24   then calls util/PugsConfig.pm to get configuration data printed with
25   ./pugs -V
26 - Makefile.PL calls GHC to compile Setup.hs to ./Setup.exe.
27 - Makefile.PL writes a Makefile that will call util/build_pugs.pl
28   upon "make".
29 - build_pugs.pl writes a Pugs.cabal file based on the flags given in
30   the Makefile.
31 - build_pugs.pl calls ./Setup.exe.
32 - Setup.exe builds dist/build/libHSPugs-6.XXX.YYY.a and returns to
33   build_pugs.pl.
34 - build_pugs.pl calls GHC to build ./pugs.exe
35   (by simply linking the freshly built libHSPugs package with src/Main.hs).
36
37=cut
38
39use 5.006;
40use strict;
41use warnings;
42use Config;
43use Cwd qw(abs_path cwd);
44use File::Spec;
45use File::Copy;
46use File::Basename;
47use FindBin;
48use ExtUtils::Embed;
49BEGIN { chdir $FindBin::RealBin };
50use inc::Module::Install;
51use lib 'inc';
52use PugsBuild::Config;
53use Carp;
54use Getopt::Long;
55use Pod::Usage;
56use POSIX qw/uname/;
57
58our %options;
59GetOptions \%options, qw( precompile-prelude! help ) or pod2usage(2);
60
61pod2usage(-verbose => 2) if $options{'help'};
62
63if ( $options{'precompile-prelude'} ) {
64    $PugsBuild::Config::Conf->{precompile_prelude} = $options{'precompile-prelude'}
65}
66
67# Win32/CygWin GHC appears to be more memory hungry than its
68# *nix counterpart, causing it to bail part-way through builds.
69# This value will be used only if 'ghc_heap_size' in config.yml
70# is not defined.
71
72use constant WIN32_GHC_HEAPSIZE => "348m";
73
74# Special case for migration - remove old version of Syck
75unlink 'src/Data/Yaml/Syck.hs' if -e 'src/Data/Yaml/Syck.hs';
76
77my @warn;
78my $pugs = "pugs$Config{_exe}";
79my ($fs) = ($Config{sitelib} =~ /([\/\\])/)
80       or die "Can't determine file_sep";
81my $thispugs = ".${fs}pugs$Config{_exe}";
82my $version_h = "src/Pugs/pugs_version.h";
83my $config_h = "src/Pugs/pugs_config.h";
84my @srcdirs  = grep {-d} glob("src"), glob("src/*"), glob("src/*/*"), glob("src/*/*/*");
85
86# On Win32, svn may create '_svn' dirs rather than '.svn'.  Hide them manually.
87# Details: http://svn.collab.net/repos/svn/trunk/notes/asp-dot-net-hack.txt
88@srcdirs = grep {! m|\b_svn\b|} @srcdirs if $ENV{SVN_ASP_DOT_NET_HACK};
89
90my @hsfiles  = map {glob "$_/[A-Z]*.hs"} @srcdirs;
91push @hsfiles, qw<src/Pugs/Config.hs src/Pugs/CodeGen/PIR/Prelude.hs>;
92my @hppfiles = map {my $x=$_; $x=~s/\.hs$/.hpp/; $x} @hsfiles;
93
94warn_cygwin     ();
95
96for my $var (qw( PERL5LIB PERLLIB )) {
97    if (grep { m{^(?:\.?[\\/]+)*lib$} } split(/\Q$Config{path_sep}\E/, ($ENV{$var} || next))) {
98        die <<"EOD";
99*** The "$var" environment variable contains a naked 'lib',
100    which will disrupt the Pugs build process.
101
102    Please remove it and run Makefile.PL again.
103EOD
104    }
105    last; # PERLLIB is ignored when PERL5LIB is in place
106}
107
108print "*** Probing configuration (please ignore any warnings)...\n\n";
109
110name            ('Perl6-Pugs');
111version_from    ('lib/Perl6/Pugs.pm');
112abstract_from   ('lib/Perl6/Pugs.pm');
113author          ('Audrey Tang <cpan@audreyt.org>');
114license         ('perl');
115install_script  ($pugs);
116install_script  ('script/pugscc');
117install_script  ('util/prove6');
118recommends      ('Perl6::Bible');
119recommends      ('Inline');
120recommends      ('Filter::Simple');
121recommends      ('LWP::Simple');
122recommends      ('LWP');
123build_requires  ('ExtUtils::MakeMaker' => 6.15);
124build_requires  ('FindBin');
125build_requires  ('File::Path');
126include         ('Module::Install::Makefile::Name');
127include         ('Module::Install::Makefile::Version');
128build_subdirs   (map fixpaths($_), grep {
129                   -f "$_/Makefile.PL" && not -l "$_/Makefile.PL"
130                 } glob("ext/*"), glob("docs/*")
131                );
132
133my $version = version();
134$version .= 0 until length($version) >= length('0.123456');
135$version =~ s{6\.(\d{3})(\d{3})?}{join '.', 6, int($1), int($2||0)}e;
136version($version);
137
138makemaker_args  (
139    test => { TESTS => "`perl t/spec/fudgeall pugs t/*/*.t t/*/*/*.t`" }, # , "perl5/*/t/*.t" },
140    MAN1PODS => {},
141);
142
143if (my $prefix = PugsBuild::Config->lookup('install_dir')) {
144    makemaker_args(PREFIX => $prefix);
145}
146
147clean_files     (map fixpaths($_),
148    $version_h, $config_h,
149    (map {"$_/*.hpp"} @srcdirs),
150    "pugs$Config{_exe}", "pil$Config{_exe}",
151    "src/gen_prelude$Config{_exe}",
152    "Setup$Config{_exe}", "util/ghc-pkg-wrapper$Config{_exe}",
153    "util/runcompiler$Config{_exe}", qw(
154    src/Pugs/pugs_config.h src/Pugs/Config.hs blib6 dist
155    src/Pugs/Prelude.hs src/Pugs/CodeGen/PIR/Prelude.hs test.log
156    src/Pugs/Embed/Parrot.hs src/Pugs/Embed/Parrot_hsc.*
157    src/Pugs/*/*_stub.*
158    util/ghc-pkg-wrapper.hs util/ghc-pkg-wrapper.hi util/ghc-pkg-wrapper.o
159    util/runcompiler.hs util/runcompiler.hi util/runcompiler.o
160    temp-ex* unlink-test* Prelude Pugs.cabal Setup.hi Setup.o
161    .setup-config .installed-pkg-config
162    temp-test.*.*-out tempfile.*.* create_this_file create_this_file2
163    third-party/*/*.hi third-party/*/*.o
164    third-party/*/dist
165    ),
166    object_files("src/Pugs", "src/Pugs/*", "src/Pugs/*/*"),
167    object_files("src/MO", "src/MO/*", "src/MO/*/*"),
168);
169
170set_postamble   ();
171no_index        (
172    directory =>
173        qw< inc debian modules perl5 ext script util docs examples src >
174);
175sign            (1);
176WritePugs       (5);
177
178print(('=' x 78), "\n\n");
179
180print @warn;
181
182print << ".";
183*** Enter '$Config{make}' to build Pugs.  If compilation is too slow,
184    consider using '$Config{make} soon' instead.
185
186.
187
188################################################################################
189sub object_files  {
190    map { ("$_/*.o", "$_/*.hi") } @_;
191}
192
193sub try_package {
194    my ($ghc, $ghcpkg, $code) = @_;
195    my @packages = qw(-hide-all-packages -package base);
196    push(@packages, "-package $ghcpkg");
197    if (not try_compile
198        ($code , $ghc, @packages),
199    ) {
200        # We are missing mtl,network,time,whatever somehow,
201        # likely because GHC 6.6's extra pkg is not there
202        die <<"EOD";
203*** Could not load the "$ghcpkg" package in your GHC installation.
204
205    This is likely because the "extralibs" of GHC 6.6 was not built along
206    with the base GHC distribution.
207
208    To install extra libraries, extract both "-src" and "-src-extralibs"
209    distributions from http://haskell.org/ghc/download_ghc_66.html in the
210    same directory, then cd into ghc-6.6/ and build GHC from there.
211    In Ubuntu Feisty/debian type
212     "sudo aptitude install libghc6-$ghcpkg-dev"
213EOD
214    }
215}
216
217
218sub set_postamble {
219    my @srcfiles = map { glob("$_/*.*hs") } @srcdirs;
220    push @srcfiles, map { glob("$_/*.*hs-boot") } @srcdirs;
221    push @srcfiles, map { map { substr($_, 0, -1) } glob("$_/*.*hsc") } @srcdirs;
222
223    my ($ghc, $ghc_version, $ghc_flags, $ghc_pkg) = assert_ghc();
224    my $hsc2hs = $ENV{HSC2HS};
225    my $setup = File::Spec->catfile(".", "Setup$Config{_exe}");
226    my $ghc_wrapper = File::Spec->catfile(".", "util", "runcompiler$Config{_exe}");
227    my $ghc_pkg_wrapper = File::Spec->catfile(".", "util", "ghc-pkg-wrapper$Config{_exe}");
228    my $config_path = File::Spec->catfile(cwd(), 'third-party', 'installed', 'packages.conf');
229
230    if (!$hsc2hs) {
231        $hsc2hs = $ghc;
232        $hsc2hs =~ s{(.*)ghc}{$1hsc2hs};
233    }
234
235    preprocess(
236            File::Spec->catfile('util', 'runcompiler.hs.in'),
237            File::Spec->catfile('util', 'runcompiler.hs'),
238            CONFIG_PATH => $config_path,
239            GHC => $ghc,
240            GHC_PKG => $ghc_pkg,
241    );
242    preprocess(
243            File::Spec->catfile('util', 'ghc-pkg-wrapper.hs.in'),
244            File::Spec->catfile('util', 'ghc-pkg-wrapper.hs'),
245            CONFIG_PATH => $config_path,
246            GHC => $ghc,
247            GHC_PKG => $ghc_pkg,
248    );
249
250    # set up install path for third-party modules
251    mkdir File::Spec->catdir('third-party', 'installed');
252
253    compile_hs($ghc, 'Setup', $setup);
254    compile_hs($ghc, File::Spec->catfile('util', 'ghc-pkg-wrapper'), $ghc_pkg_wrapper);
255    compile_hs($ghc, File::Spec->catfile('util', 'runcompiler'), $ghc_wrapper);
256
257    # Add GHC to PATH
258    local $ENV{PATH} = dirname($ghc) . $Config{path_sep} . $ENV{PATH};
259
260
261    try_package($ghc,
262                'mtl',
263                "import Control.Monad.RWS\n"
264                . "main = let (x, (), ()) = runRWS (return ()) () () in return x\n"
265                );
266    try_package($ghc,
267                'network',
268                "import Network.BSD\n"
269                . "main = let x = defaultProtocol in return x\n"
270                );
271    try_package($ghc,
272                'time',
273                "import Data.Time\n"
274                . "main = return 1\n"
275               );
276
277    #
278    # We probably need to promote this to a config.yml + autodetect
279    # thing, but until it's done, put the condition here at least and
280    # don't hardcode it into the postamble.
281    #
282    # Note that the -fdebugging flag only existed in GHC trunk builds
283    # around May 2007, and would not be present either before or afterwards.
284    # (In the newer builds it's enabled by default and supports a much more
285    # comprehensive feature set, including single-stepping and tracing.)
286    #
287    my $ghci_debugging =
288            (defined $ENV{PUGS_GHCI_DEBUGGING} ? $ENV{PUGS_GHCI_DEBUGGING} : 1)
289        ? '-fdebugging' : '';
290
291    if ($ghc_version =~ /^(\d+\.\d+)/) {
292        $ghci_debugging = '' if $1 <= 6.6 or $1 >= 6.8;
293    }
294
295    $ghc = $ghc_wrapper;
296    $ghc_pkg = $ghc_pkg_wrapper;
297
298    my $heap;
299
300    $heap = PugsBuild::Config->lookup('ghc_heap_size') || $heap;
301    $ghc_flags .= " +RTS -M$heap -RTS" if $heap;
302    # $ghc_flags .= ' -dcore-lint';
303    # $ghc_flags .= " -keep-tmp-files";
304
305    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /\bhaskell\b/i) {
306        if (has_ghc_package('plugins')
307            and  try_compile("import System.Eval\n"
308                            ."main :: IO ()\n"
309                            .'main = (eval_ "return ()" [] [] [] [] :: IO (Either [String] (Maybe ()))) >> return ()', $ghc, '-package', 'plugins')) {
310            $ghc_flags .= ' -package plugins -DPUGS_HAVE_HSPLUGINS ';
311        }
312        else {
313            push @warn, << '.';
314*** Inline Haskell support disabled.  If you want dynamic loading
315    of haskell modules, please install the hs-plugins library:
316        http://www.cse.unsw.edu.au/~dons/hs-plugins/
317    Remember to "make register" after "make install" for hs-plugins!
318
319.
320        }
321    }
322
323    if (has_ghc_package('readline')
324        and  try_compile("import System.Console.Readline\n"
325                        ."main :: IO ()\n"
326                        ."main = do\n"
327                        ."  setCatchSignals False\n"
328                        ."  setCatchSigwinch False\n"
329                        .'  _ <- readline "" '."\n"
330                        .'  return ()', $ghc)) {
331      $ghc_flags .= ' -DPUGS_HAVE_READLINE '; # -package readline';
332    }
333    else {
334      push @warn, << '.';
335*** Readline support disabled.  If you want readline support,
336    please install the GNU readline library.
337
338.
339    }
340
341    my $ghc_output = ''; # "-o pugs$Config{_exe} src/Main.hs";
342    my $hasktags = $ENV{HASKTAGS} || 'hasktags';
343
344    # map a bunch of .c files to a bunch of expected .o files
345    my $o = sub { map { substr($_, 0, -1) . 'o' } @_ };
346
347    my @prereqs = ();
348    my @derived_srcfiles = qw< src/Pugs/Embed/Parrot.hs src/Pugs/pugs_config.h src/Pugs/pugs_version.h src/Pugs/Config.hs src/Pugs/Prelude.hs src/Pugs/CodeGen/PIR/Prelude.hs >;
349
350    my $embed_flags = "-I" . cwd();
351    my $hsc2hs_flags = "";
352    my $ccdlflags = "";
353
354    # [-!]perl5 does not work with the \bFLAG\b convention used in this file.
355    # It should be removed, or the convention, and code, fixed.
356    # Went in 2006-08-30.  Depreciated 2006-09-11.
357    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /[-!]perl5\b/i) {
358        push @warn,  << '.';
359*** PUGS_EMBED flags "-perl5" and "!perl5" are depreciated and buggy.
360    Please use "noperl5" instead.
361
362.
363    }
364    if (!$ENV{PUGS_EMBED} or $ENV{PUGS_EMBED} !~ /(?:[-!]|\bno)perl5\b/i) {
365        $ENV{PUGS_EMBED} .= " perl5 ";
366        #push @prereqs, "src/perl5/p5embed.o"; # XXX
367        # $ghc_output .= " src/perl5/p5embed.o ";
368        $embed_flags .= " -DPUGS_HAVE_PERL5 -isrc/perl5 ";
369        my $flags = "$Config{ccflags} $Config{ccdlflags} ";
370        if ($flags =~ /\S/) {
371            $flags =~ s{([\\"'])}{\\$1}g;
372            my @flags = grep { length $_ } split /\s+/, $flags;
373            if ($^O eq 'MSWin32') {
374                if ($Config{libperl} =~ /lib(\w+)\.a/) {
375                    $embed_flags .= " -optl-l$1 ";
376                }
377                elsif (defined &Win32::BuildNumber) {
378                    # We are on ActivePerl -- Kluge massively!
379
380                    no warnings 'once';
381                    our %MY_CONFIG = %Config;
382                    *Config = *MY_CONFIG;
383                    *Config::Config = *MY_CONFIG;
384                    *ExtUtils::MM_Win32::Config = *MY_CONFIG;
385                    *ExtUtils::MM_Unix::Config = *MY_CONFIG;
386
387                    $Config{ccflags} =~ s/-libpath:"?(.*?)"? //g;
388                    $Config{ccdlflags} =~ s/-libpath:"?(.*?)"? //g;
389                    $Config{lddlflags} =~ s/-libpath:"?(.*?)"? //g;
390                    $Config{ldflags} =~ s/-libpath:"?(.*?)"? //g or die "ldflags: $Config{ldflags} does not contain -libpath:";
391
392                    my $lib = "$1/$Config{libperl}";
393                    $embed_flags .= " -optl\"$lib\" ";
394
395                    $flags = "$Config{ccflags} $Config{ccdlflags}";
396                    $flags =~ s{([\\"'])}{\\$1}g;
397                    @flags = grep { length $_ } split /\s+/, $flags;
398                }
399                else {
400                    warn "Unrecognized libperl shared library: $Config{libperl}, proceeding anyway...\n";
401                }
402
403                $ccdlflags .= (/^-[DIL]/ ? ' -optc' : ' -optl') . qq["$_" ] for @flags;
404                $embed_flags .= " -optc-Ddirent=DIRENT";
405            }
406            else {
407                $embed_flags .= " -optc$_" for grep length, split(/\s+/, ccopts());
408                $embed_flags .= " -optl$_" for grep length, split(/\s+/, ldopts());
409
410            }
411
412            $embed_flags .= " $_" for grep { /-[DIL]/ } split(/\s+/, ccopts());
413            $embed_flags .= " $_" for grep { /-[DIL]/ } split(/\s+/, ldopts());
414
415            if ($Config{osname} eq 'cygwin') {
416                my $cygpath = sub {
417                    my $path = `cygpath -m @_`;
418                    chomp $path;
419                    return $path;
420                };
421                $embed_flags =~ s{(/usr/\S+)}{$cygpath->($1)}eg;
422                $embed_flags =~ s{/cygdrive/(\w)/}{$1:/}g;
423                #warn "** Cygwin embedding flags: embed_flags\n";
424            }
425        }
426    }
427    else {
428        push @warn, << '.';
429*** Perl 5 embedding disabled.  If you want Perl 5 support, please set the
430    PUGS_EMBED environment variable to not contain "noperl5".
431
432.
433    }
434
435    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /\bparrot\b/i and $Config{cc} eq 'cl') {
436        push @warn, << '.';
437*** Parrot linking not supported with MSVC.  Parrot linking will be disabled.
438
439.
440        $ENV{PUGS_EMBED} =~ s/\bparrot\b//g;
441    }
442
443    # Respect CC setting
444    my $cc = $ENV{CC} || 'gcc';
445    $ghc_flags .= " -pgmc $cc " unless $cc eq 'gcc';
446
447    if ($Config{cf_by} eq 'Debian Project' and $ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /\bperl5\b/i) {
448        # Is it safe to remove 'Debian Project' above, to test on all platforms?
449        my $need_path = 1;
450        my $libperlpath = '';
451        my $libperl = $Config{libperl};
452        foreach my $path (split(/\s/, $Config{libpth} . ' ' . $Config{libsdirs})) {
453            if (-e "$path/libperl.so") {
454                $need_path = 0;
455                last;
456            } elsif (-e "$path/$libperl") {
457                $libperlpath ||= $path;
458            }
459        }
460        if ($need_path) {
461            my $message = '';
462            $message .= qq[        * Symlink $libperlpath/$libperl to libperl.so\n] if ($libperlpath and $libperl);
463            $message .= qq[        * Install libperl-dev package\n] if ($Config{cf_by} eq 'Debian Project');
464            die <<EOD;
465*** Could not find libperl.so in: $Config{libpth} $Config{libsdirs}
466    Solutions include:
467        * Add noperl5 to PUGS_EMBED
468$message
469EOD
470        }
471    }
472
473    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /\bparrot\b/i) {
474        my $base = $ENV{PARROT_PATH};
475        my $parrot_config = which('parrot-config.imc') || which('parrot-config.pir') || which('parrot-config') || '';
476        if (!$base && -e $parrot_config) {
477            $base = (File::Spec->splitpath($parrot_config))[1];
478        }
479        if (!$base) {
480            $parrot_config = which('parrot-config') || '';
481            $base = (File::Spec->splitpath($parrot_config))[1] if -e $parrot_config;
482        }
483        if (!$base and -d File::Spec->catdir(File::Spec->updir, 'parrot')) {
484            $base = abs_path(File::Spec->catdir(File::Spec->updir, 'parrot'));
485        }
486        if (!$base and -d File::Spec->catdir(File::Spec->updir, 'parrot-trunk')) {
487            $base = abs_path(File::Spec->catdir(File::Spec->updir, 'parrot-trunk'));
488        }
489
490        my $temp = File::Spec->catfile($base, 'parrot-config.imc');
491        if (!$parrot_config && -e $temp) {
492          $parrot_config = $temp;
493        }
494
495        $temp = File::Spec->catfile($base, 'parrot-config.pir');
496        if (!$parrot_config && -e $temp) {
497          $parrot_config = $temp;
498        }
499
500        $temp = File::Spec->catfile($base, 'parrot-config');
501        if (!$parrot_config && -e $temp) {
502          $parrot_config = $temp;
503        }
504
505        $base =~ s/bin\/*$//;
506
507        (-d $base and -e $parrot_config)
508            or die "*** Please set \$ENV{PARROT_PATH} to the base path with a built parrot tree.\n";
509        my $ldflags = parrot_config($base, $parrot_config, 'ldflags');
510        my $libs = parrot_config($base, $parrot_config, 'libs');
511        my $icuflags = parrot_config($base, $parrot_config, 'icu_shared');
512        my $include_path = parrot_config($base, $parrot_config, 'prefix') . parrot_config($base, $parrot_config, 'inc');
513        my $rpath_blib = parrot_config($base, $parrot_config, 'rpath_blib');
514        my $build_dir = parrot_config($base, $parrot_config, 'top_builddir', 'build_dir');
515        my $is_shared = parrot_config($base, $parrot_config, 'parrot_is_shared');
516        my $parrot_libdir = parrot_config($base, $parrot_config, 'lib_dir');
517
518        # Convert flags to -optc-*,etc, to pass through ghc. c/ompiler l/inker
519        $ldflags =~ s/(^|\s)-/$1-optl-/g;
520        $libs =~ s/(^|\s)-/$1-optl-/g;
521        $icuflags =~ s/(^|\s)-/$1-optl-/g;
522        $include_path =~ s/(^|\s)-/$1-optc-/g;
523        $embed_flags .= " -I$include_path" if $include_path =~ /\S/;
524        $rpath_blib =~ s/(^|\s)-/$1-optl-/g;
525
526        $embed_flags .= " -I$base/include -L$base/lib -L$base/blib/lib -DPUGS_HAVE_PARROT -L/usr/local/lib $ldflags ";
527        $embed_flags .= " -lparrot $libs $icuflags ";
528        my $config = $parrot_libdir."/parrot/config/install_config$Config{_o}";
529        $config = $parrot_libdir."/parrot/config/parrot_config$Config{_o}" unless -e $config;
530        $config = $parrot_libdir."/parrot/config/null_config$Config{_o}" unless -e $config;
531        $config = "$build_dir/src/install_config$Config{_o}" unless -e $config;
532        $config = "$build_dir/src/parrot_config$Config{_o}" unless -e $config;
533        $config = "$build_dir/src/null_config$Config{_o}" unless -e $config;
534
535        die <<"EOD" unless -e $config or $is_shared;
536*** Could not find src/null_config.o in $build_dir.
537    Solutions include:
538        * Remove parrot from PUGS_EMBED
539        * Place a built Parrot source tree under $build_dir.
540EOD
541
542        $embed_flags .= " $config ";
543        $embed_flags .= " $rpath_blib " if -d $build_dir;
544
545        # parrot include paths for hsc2hs
546        $hsc2hs_flags .= " -DPUGS_HAVE_PARROT -I$base/include ";
547
548        push @warn, << ".";
549*** Embedded 'parrot' enabled.  You can use it for Perl 6 regex support by
550    setting the PUGS_REGEX_ENGINE environment variable to "PGE" at runtime.
551.
552    }
553    else {
554        my $whichparrot = can_run('parrot');
555
556        if ($whichparrot) {
557            push @warn, << ".";
558*** External 'parrot' executable found in your PATH at:
559
560        $whichparrot
561
562    You can use it for Perl 6 regex support by setting the
563    PUGS_REGEX_ENGINE environment variable to "PGE" at runtime.
564
565    If you want to link against Parrot, set the PUGS_EMBED environment
566    variable to contain 'parrot', the PARROT_PATH environment variable to
567    the path of a built parrot tree, then run Makefile.PL again.
568
569.
570        }
571    }
572
573    my $is_win32 = ($^O =~ /MSWin|mingw|cygwin/i);
574    my $threaded = (try_compile_and_run("main :: IO ()\nmain = return ()", $ghc, "-threaded")) ? '-threaded' : '';
575
576    if ($threaded && $ENV{PUGS_NO_THREADS}) {
577        push @warn, << '.';
578*** Thread support disabled due to explicit request in PUGS_NO_THREADS.
579
580.
581        $threaded = '';
582    }
583
584    my $find_ver = sub {
585        `$_[0] $_ 2>&1` =~ /(.* (?:version|build) .*)/i && return $1
586            for qw{--version -v -V -? /?};
587        return "unknown";
588    };
589
590    unlink (my $build_config = 'current.build.yml');
591    my $config = get_pugs_config(
592        uname               =>  join (" ", (uname)[0,2,4] ),
593        regex_engine        =>  ( $ENV{PUGS_REGEX_ENGINE} ?  $ENV{PUGS_REGEX_ENGINE} : 'default' ),
594        embedded            =>  join (" ", ( $embed_flags =~ /HAVE_PERL5/ ?  $Config{perlpath} : 'noperl' ),
595                                    ( $embed_flags =~ /HAVE_PARROT/
596                                        ?  abs_path( File::Spec->catfile( "$ENV{PARROT_PATH}", "parrot" ) )
597                                        : 'noparrot' ),
598                                    ( $ENV{PUGS_EMBED} =~ /\bhaskell\b/ ?  $ghc : 'nohaskell' )
599                                ),
600        ghc                 =>  join (" ", [ assert_ghc() ]->[0], $ghc_version,
601                                    ( $ghc_flags =~ /HAVE_READLINE/ ?  'readline' : 'noreadline' ),
602                                    ( $ghc_flags =~ /HAVE_HSPLUGINS/ ?  'hsplugins' : 'nohsplugins' ),
603                                    ( $threaded ? "threads" : "nothreads" ),
604                                ),
605        cc                  =>  $find_ver->( $Config{cc} ),
606    );
607
608    {
609        # maybe move this to inc/PugsBuild/MiniYAML.pm ?
610        open my $fh, '>', $build_config or die "Cannot open $build_config for writing";
611        print $fh "# *** NOTE ***\n";
612        print $fh "# This file is generated during Makefile.PL.\n";
613        print $fh "# Changes will not persist after running Makefile.PL\n";
614        for ( sort keys %$config ) {
615            print $fh "$_: $config->{$_}\n";
616        }
617        close $fh;
618    }
619
620    # As of now, Test::TAP::HTMLMatrix is the key dependency for smokes,
621    # so we need only check for that.
622    eval { require Test::TAP::HTMLMatrix } or push @warn, << '.';
623*** You do not appear to have a Smoke Kit installed. You can still build
624    Pugs and even run `make test', but you won't be able to run the more
625    modern `make smoke' target to produce nice graphs and send them to the
626    public smoke server. Installing Task::Smoke from CPAN will bring in
627    the necessary dependencies.
628
629.
630    # XXX - hsplugins doesn't build with profiles
631    my $profiled_flags = $ghc_flags;
632    $profiled_flags =~ s{-DPUGS_HAVE_HSPLUGINS}{};
633    $profiled_flags =~ s{-package plugins}{};
634
635    my $emit = sub {
636        my $o = shift;
637        my $c = substr($o, 0, -1) . 'c';
638        return "$o : $c\n\t$ghc $threaded $embed_flags $ghc_flags -no-link -no-hs-main -O -o $o $c\n";
639    };
640
641    mkdir 'dist';
642    mkdir 'dist/build';
643    mkdir 'dist/build/src';
644
645    # Using the Win32 Haskell compiler results in a setup program that
646    # doesn't grok cygwin paths.  This kludge takes any /cygdrive/
647    # style paths and rewrites them.  This really should be factored
648    # out to a common module.  Better still, we should make a Cygwin-native
649    # GHC.
650
651    if ($Config{osname} eq 'cygwin') {
652
653        # NB.  We're exploiting for's aliasing of variables.
654        foreach my $path ($ghc_pkg, $hsc2hs, $ghc) {
655                        $path = `cygpath -m $path`; chomp $path;
656        }
657    }
658
659    my $setup_flags = "--prefix=\$(DESTDIR) --with-hc-pkg=$ghc_pkg --with-hsc2hs=$hsc2hs --ghc --with-compiler=$ghc";
660    my $precompile_prelude = ' --precompile-prelude '.PugsBuild::Config->lookup('precompile_prelude');
661
662    my $svn_entries = '';
663
664    my $svn_admin_dir = $ENV{SVN_ASP_DOT_NET_HACK} ? '_svn' : '.svn';
665    if (-d $svn_admin_dir) {
666        $svn_entries = File::Spec->catfile($svn_admin_dir, 'entries');
667    }
668    #$svn_entries = 'force_run';
669
670    # logic for Judy:
671
672#    if ($Config{osname} ne 'MSWin32') {
673#        warn "Configuring Judy...\n";
674#        chdir "third-party/judy/Judy-1.0.3";
675#        copy('src/Judy.h', '../../HsJudy');
676#        system("./configure") unless -e "config.status" and -e "Makefile";
677#        chdir "../../..";
678#    }
679#
680#    my $judyclean;
681#    if ($Config{osname} eq 'MSWin32') {
682#        $judyclean = 'cd third-party\judy\Judy-1.0.3\src && '.
683#            'nmake /nologo /F Makefile.win32 clean';
684#    } else {
685#        my $make = $Config{make};
686#
687#        # Judy at this moment wants GNU make.
688#        $make = 'gmake' unless `$make --version` =~ /GNU/;
689#
690#        $judyclean = "cd third-party/judy/Judy-1.0.3 \&\& $make clean \&\& perl cleanmore.pl";
691#    }
692
693    my @ghci_flags = qw( -hide-all-packages -package base -package filepath -package parsec -package template-haskell -package readline -package unix -package haskell98 -package mtl -package stm -package network -package HsSyck -package pugs-hsregex );
694
695    postamble(fixpaths(<< "."));
696$config_h : lib/Perl6/Pugs.pm util/config_h.pl
697        \$(PERL) util/config_h.pl "$ghc $ghc_flags"
698
699$version_h :
700        \$(PERL) util/version_h.pl $version_h
701
702@{[join("\n", map {$emit->($_)} grep { /\.o$/ } @prereqs)]}
703
704src/Pugs/Config.hs : util/PugsConfig.pm current.build.yml
705        \$(PERL) -Iutil -MPugsConfig -e "PugsConfig->write_config_module" > src/Pugs/Config.hs
706
707src/gen_prelude$Config{_exe} : src/gen_prelude.hs
708        $ghc -O0 --make -o src/gen_prelude$Config{_exe} src/gen_prelude.hs
709
710src/Pugs/CodeGen/PIR/Prelude.hs : src/gen_prelude$Config{_exe} src/perl6/Prelude/PIR.pm
711        \@\$(PERL) -e "mkdir q-src/Pugs/CodeGen/PIR-"
712        src/gen_prelude$Config{_exe} Pugs.CodeGen.PIR.Prelude < src/perl6/Prelude/PIR.pm > src/Pugs/CodeGen/PIR/Prelude.hs
713
714src/Pugs/Prelude.hs : src/perl6/Prelude.pm util/gen_prelude.pl
715        \$(PERL) util/gen_prelude.pl -v --touch --inline -i src/perl6/Prelude.pm --output src/Pugs/Prelude.hs
716
717${() = '%.hpp : %.hs @prereqs $version_h
718        $ghc $threaded $ghc_flags -DHADDOCK -E \$< -o \$@
719        \$(PERL) util/munge_haddock.pl \$@'; \''}
720
721.SUFFIXES: .hs .hpp
722
723.hs.hpp :
724        $ghc $threaded $ghc_flags -DHADDOCK -E \$< -o \$@
725        \$(PERL) util/munge_haddock.pl \$@
726
727.SUFFIXES: .hsc .hs
728
729.hsc.hs :
730        \$(PERL) -MFile::Spec -e "sub p () { File::Spec->splitpath(ARGV->[0]) }; chdir((p)[1]); system(q($hsc2hs), qw($hsc2hs_flags), (p)[2]);" \$<
731
732.SUFFIXES: .grammar .hs
733
734.grammar.hs :
735        \$(PERL) util/file_to_hs.pl \$< \$@
736
737.SUFFIXES: .pil .hs
738
739.pil.hs :
740        \$(PERL) util/file_to_hs.pl \$< \$@
741
742util/drift.pl:
743
744@{[ mk_drift_rules( qw(src/Emit/PIR src/Pugs/AST/Internals src/Pugs/PIL1 src/Pugs/PIL2) ) ]}
745
746haddock : $version_h $config_h @hppfiles dist/doc/html
747        haddock -t Pugs-$version -h -o dist/doc/html/ @hppfiles
748        \@\$(RM_F) @{[map "$_.pre", @hppfiles]} @hppfiles
749        \@\$(PERL) -le "print and print q-*** API Documentation generated in @{[File::Spec->catfile('dist', 'doc', 'html', 'index.html')]}-"
750
751# make haddock one file at a time to get partial, unlinked output
752haddock-broken : $version_h $config_h @hppfiles dist/doc/html
753@{[join("\n", map {"\thaddock -t Pugs-$version -h -o dist/doc/html/ $_"} @hppfiles)]}
754        \@\$(RM_F) @{[map "$_.pre", @hppfiles]} @hppfiles
755        \@\$(PERL) -le "print and print q-*** Unlinked API Documentation generated in @{[File::Spec->catfile('dist', 'doc', 'html', 'index.html')]}-"
756
757dist/doc/html :
758        \@\$(PERL) -MFile::Path -e "mkpath q-dist/doc/html-"
759
760pugs_requirements : instances src/Pugs/Config.hs src/Pugs/CodeGen/PIR/Prelude.hs @srcfiles $version_h $config_h config.yml src/perl6/Prelude.pm src/Pugs/Prelude.hs
761
762prof :: profiled
763
764soonprof :: unoptimised-profiled
765
766unoptimized-profiled :: unoptimised-profiled
767
768unoptimised-profiled :: pugs_requirements
769        \$(PERL) util/build_pugs.pl _+SETUP $setup_flags _-SETUP _+GHC $version $ghc $ghc_pkg $ghc_version $setup --make -O0 -auto-all -prof $threaded $profiled_flags $ccdlflags $embed_flags $ghc_output _-GHC _+GEN_PRELUDE $precompile_prelude --pugs $thispugs
770
771profiled :: pugs_requirements
772        \$(PERL) util/build_pugs.pl _+SETUP $setup_flags _-SETUP _+GHC $version $ghc $ghc_pkg $ghc_version $setup --make -O -auto-all -prof $threaded $profiled_flags $ccdlflags $embed_flags $ghc_output _-GHC _+GEN_PRELUDE $precompile_prelude --pugs $thispugs
773
774pugs.prof :: profiled
775        find t -type f | grep -v D | grep -v R | grep -v pugsrun | ./pugs +RTS -p -RTS -e 'my sub exit {}; for =\$\$*IN -> \$\$t is copy { \$\$t .= chomp; require \$\$t }'
776
777optimised :: optimized
778
779optimized :: pugs_requirements
780        \$(PERL) util/build_pugs.pl _+SETUP $setup_flags _-SETUP _+GHC $version $ghc $ghc_pkg $ghc_version $setup --make -O $threaded $ghc_flags $ccdlflags $embed_flags $ghc_output _-GHC _+GEN_PRELUDE $precompile_prelude --pugs $thispugs
781
782soon :: unoptimized
783
784unoptimised :: unoptimized
785
786unoptimized :: pugs_requirements
787        \$(PERL) util/build_pugs.pl _+SETUP $setup_flags _-SETUP _+GHC $version $ghc $ghc_pkg $ghc_version $setup --make -O0 $threaded $ghc_flags $ccdlflags $embed_flags $ghc_output _-GHC _+GEN_PRELUDE $precompile_prelude --pugs $thispugs
788
789$pugs : pugs_requirements
790        \$(PERL) util/build_pugs.pl _+SETUP $setup_flags _-SETUP _+GHC $version $ghc $ghc_pkg $ghc_version $setup --make __optimization__ $threaded $ghc_flags $ccdlflags $embed_flags $ghc_output _-GHC _+GEN_PRELUDE $precompile_prelude --pugs $thispugs
791
792
793pirtest : test-pir
794
795pirsmoke : smoke-pir
796
797jssmoke : smoke-js
798
799test :: blib6/lib/Test.pm.yml
800
801prelude :: blib6/lib/Prelude.pm.yml
802
803pure_all :: blib6/lib/Test.pm.yml
804
805test-all : test test-js test-pir test-perl5
806
807test-pir :
808        \$(PERL) -e "ENV->{HARNESS_PERL_SWITCHES}=q+-B PIR+; system qq+$Config{make}+, q+test+"
809
810test-js :
811        \$(PERL) -e "ENV->{HARNESS_PERL_SWITCHES}=q+-B JS+; system qq+$Config{make}+, q+test+"
812
813test-perl5 :
814        \$(PERL) -e "ENV->{HARNESS_PERL_SWITCHES}=q+-B PERL5+; system qq+$Config{make}+, q+test+"
815
816test-redsix :
817        \$(PERL) -e "ENV->{HARNESS_PERL_SWITCHES}=q+-B REDSIX+; system qq+$Config{make}+, q+test+"
818
819blib6/lib/Test.pm.yml :: ext/Test/lib/Test.pm
820        \$(NOECHO) \$(ECHO) "Precompiling Test.pm..."
821        $thispugs -CParse-YAML ext/Test/lib/Test.pm > blib6/lib/Test.pm.yml
822
823blib6/lib/Prelude.pm.yml :
824        \$(NOECHO) \$(ECHO) "Precompiling Prelude.pm..."
825        util/gen_prelude.pl -v -i src/perl6/Prelude.pm -p $thispugs --output blib6/lib/Prelude.pm.yml
826
827upload-smoke : smoke.yml
828        \$(PERL) util/smokeserv/smokeserv-client.pl smoke.html smoke.yml
829
830smoke-upload : upload-smoke
831
832smoke.yml :
833        \$(PERL) util/run-smoke.pl . smoke.html
834
835smoke : smoke-pugs
836
837smoke-all : smoke-pugs smoke-js smoke-pir smoke-perl5
838
839smoke-pugs : $pugs util/run-smoke.pl all blib6/lib/Test.pm.yml
840        \$(PERL) util/run-smoke.pl . smoke.html
841
842smoke-pir : $pugs util/run-smoke.pl all
843        \$(PERL) util/run-smoke.pl . smoke-pir.html -BPIR
844
845smoke-jsperl5 : $pugs util/run-smoke.pl all
846        \$(PERL) -e "ENV->{PUGS_RUNTIME}=q+JSPERL5+; exec qw+$^X util/run-smoke.pl . smoke-jsperl5.html+"
847
848smoke-js : $pugs util/run-smoke.pl all
849        \$(PERL) -e "ENV->{PUGS_RUNTIME}=q+JS+; exec qw+$^X util/run-smoke.pl . smoke-js.html+"
850
851smoke-perl5 : $pugs util/run-smoke.pl all
852        \$(PERL) -e "ENV->{PUGS_RUNTIME}=q+PERL5+; exec qw+$^X util/run-smoke.pl . smoke-perl5.html -BPERL5+"
853
854smoke-redsix : $pugs util/run-smoke.pl all
855        \$(PERL) -e "ENV->{PUGS_RUNTIME}=q+REDSIX+; exec qw+$^X util/run-smoke.pl . smoke-redsix.html -BREDSIX+"
856
857
858ghci : @prereqs @derived_srcfiles
859        $ghc @{[ dethread_flags($ghc_flags) ]} $ghc_output -DPUGS_UNDER_GHCI -no-link --make -O0 -fglasgow-exts -L. -idist/build -Ldist/build -idist/build/src -Ldist/build/src -isrc src/Prereqs.hs @prereqs
860        \@\$(RM_RF) src/Pugs/*/*_stub.*
861        $ghc @{[ dethread_flags($ghc_flags) ]} @ghci_flags $ghc_output -DPUGS_UNDER_GHCI --interactive -fglasgow-exts $ghci_debugging -L. -idist/build -Ldist/build -idist/build/src -Ldist/build/src -isrc src/Main.hs @prereqs
862
863ctags : @prereqs @derived_srcfiles
864        echo ":ctags" | $ghc $ghc_flags @ghci_flags $ghc_output --interactive -osuf moose -hisuf miise -fglasgow-exts -L. -idist/build -Ldist/build -idist/build/src -Ldist/build/src -isrc src/Main.hs @prereqs
865
866etags : @prereqs @derived_srcfiles
867        echo ":etags" | $ghc $ghc_flags @ghci_flags $ghc_output --interactive -osuf moose -hisuf miise -fglasgow-exts -L. -idist/build -Ldist/build -idist/build/src -Ldist/build/src -isrc src/Main.hs @prereqs
868
869pil$Config{_exe} : $config_h @srcfiles src/PIL/Native/Bootstrap.hs src/PIL/Native/Syntax.hs
870        $ghc $ghc_flags --make -fglasgow-exts -H0 -isrc -Isrc -L. -fno-warn-name-shadowing -o pil$Config{_exe} -main-is PIL.main src/PIL.hs
871
872pili : pil$Config{_exe}
873        $ghc --interactive -fglasgow-exts -isrc -Isrc -L. -static -fno-warn-name-shadowing src/PIL.hs
874
875tags : @srcfiles
876        $hasktags -c @{[ grep { !/PIL/ } @srcfiles ]}
877        sort tags > tags.tmp
878        mv tags.tmp tags
879
880config.yml:
881
882src/perl6/Prelude.pm:
883
884INST6_ARCHLIB = blib6/arch
885INST6_SCRIPT = blib6/script
886INST6_BIN = blib6/bin
887INST6_LIB = blib6/lib
888INST6_MAN1DIR = blib6/man1
889INST6_MAN3DIR = blib6/man3
890INSTPUGS_LIB = blib6/pugs
891
892build_perl5 ::
893@{[for_perl5("
894        cd __DIR__ && $^X Makefile.PL && \$(MAKE)
895")]}
896
897clean ::
898        \@\$(RM_RF) third-party/installed
899@{[for_perl5("
900        -cd __DIR__ && \$(TEST_F) \$(FIRST_MAKEFILE) && \$(MAKE) clean
901")]}
902
903realclean ::
904        \@\$(RM_RF) third-party/installed
905
906@{[for_perl5("
907        -cd __DIR__ && \$(TEST_F) \$(FIRST_MAKEFILE) && \$(MAKE) realclean
908")]}
909
910pure_all :: build_perl5
911        \$(PERLRUN) util/src_to_blib.pl
912
913register ::
914        \$(PERLRUN) util/ghc_setup.pl copy --copy-prefix=\$(DESTDIR)
915        \$(PERLRUN) util/ghc_setup.pl register --prefix=\$(DESTDIR)
916
917pure_site_install ::
918        \$(NOECHO) \$(MOD_INSTALL) \\
919                \$(INST6_LIB) \$(DESTDIR)$config->{sitelib} \\
920                \$(INST6_ARCHLIB) \$(DESTDIR)$config->{sitearch} \\
921                \$(INST6_BIN) \$(DESTDIR)$config->{sitebin} \\
922                \$(INST6_SCRIPT) \$(DESTDIR)$config->{sitescript} \\
923                \$(INST6_MAN1DIR) \$(DESTDIR)$config->{installsiteman1dir} \\
924                \$(INST6_MAN3DIR) \$(DESTDIR)$config->{installsiteman3dir} \\
925                \$(INSTPUGS_LIB) \$(DESTDIR)$config->{sitelib}/auto/pugs
926#       \$(PERLRUN) util/ghc_setup.pl copy --copy-prefix=\$(DESTDIR)
927
928pure_vendor_install ::
929        \$(NOECHO) \$(MOD_INSTALL) \\
930                \$(INST6_LIB) \$(DESTDIR)$config->{privlib} \\
931                \$(INST6_ARCHLIB) \$(DESTDIR)$config->{archlib} \\
932                \$(INST6_BIN) \$(DESTDIR)$config->{installbin} \\
933                \$(INST6_SCRIPT) \$(DESTDIR)$config->{installscript} \\
934                \$(INST6_MAN1DIR) \$(DESTDIR)$config->{installman1dir} \\
935                \$(INST6_MAN3DIR) \$(DESTDIR)$config->{installman3dir} \\
936                \$(INSTPUGS_LIB) \$(DESTDIR)$config->{privlib}/auto/pugs
937#       \$(PERLRUN) util/ghc_setup.pl copy --copy-prefix=\$(DESTDIR)
938.
939}
940
941sub for_perl5 {
942    my $cmd = shift;
943    $cmd =~ s{\n}{}g;
944    my @cmds;
945    foreach my $dir (grep { -d } glob('perl5/*')) {
946        -e "$dir/Makefile.PL" or next;
947
948        # Skip XS modules for now
949        next if glob("$dir/*.xs") or glob("$dir/*.i") or $dir =~ /-\d+/;
950
951        my $this = $cmd;
952        $this =~ s{__DIR__}{$dir}g;
953        push @cmds, $this;
954    }
955    return join("\n", @cmds);
956}
957
958our $do_run;
959sub try_compile_and_run {
960    local $do_run = 1;
961    try_compile(@_);
962}
963
964sub try_compile {
965    my $code = shift;
966    my $temp = "pugs-tmp-$$";
967    my $ghc  = shift or croak "try_compile called without path to ghc";
968
969    eval {
970        open TMP, "> $temp.hs";
971        print TMP $code;
972        close TMP;
973        system(
974            $ghc, @_,
975            "--make", "-v0",
976            -o => "$temp.exe",
977            "$temp.hs"
978        );
979
980    };
981
982    my $ok = -s "$temp.exe";
983
984    if ($do_run) {
985        $ok = 0 unless system(abs_path("$temp.exe")) == 0;
986    }
987
988    unlink("$temp.exe");
989    unlink("$temp.hs");
990    unlink("$temp.hi");
991    unlink("$temp.o");
992
993    return $ok;
994}
995
996sub parrot_config {
997    my $base = shift;
998    my $parrot_config = shift;
999    my $ac_path = abs_path();
1000    my $sp_base = $base;
1001    $sp_base =~ s{\\}{\/}g;
1002    chdir( $sp_base ) or die "Can't change dir to '$sp_base'";
1003    my $parrot = "parrot$Config{_exe}";
1004    $parrot = "bin/$parrot" if not -e $parrot;
1005    my $value;
1006    while (@_) {
1007        my $config = shift;
1008        $value = `./$parrot $parrot_config $config`;
1009        $value =~ /no such key:/ or last;
1010    }
1011    die $value if $value =~ /no such key:/;
1012    chomp($value);
1013    chdir( $ac_path ) or die "Can't change dir to '$ac_path'";
1014    return $value;
1015}
1016
1017sub which {
1018    my $file = shift;
1019    for ( File::Spec->path() ) {
1020        my $full_name = File::Spec->catfile($_, $file);
1021        return $full_name if -e $full_name;
1022    }
1023    return undef;
1024}
1025
1026sub preprocess {
1027    my ($infile, $outfile, %substitutions) = @_;
1028
1029    open IN, '<', $infile or die "failed to open $infile ($!)";
1030    open OUT, '>', $outfile or die "failed to open $outfile ($!)";
1031
1032    if ($Config{osname} eq 'cygwin') {
1033                for my $path (values %substitutions){
1034                        $path = `cygpath -m $path`; chomp $path;
1035                }
1036    }
1037
1038    while (<IN>) {
1039        while (my ($pat, $subst) = each(%substitutions)) {
1040            $subst =~ s{\\}{\\\\}g;
1041            s/__${pat}__/$subst/g
1042        }
1043        print OUT $_;
1044    }
1045
1046    close OUT;
1047    close IN;
1048}
1049
1050sub compile_hs {
1051    my ($ghc, $prefix, $out) = @_;
1052
1053    unlink($prefix . $_) for (
1054        $Config{_exe},
1055        '.o',
1056        '.hi',
1057    );
1058
1059    my $rv = system($ghc, '--make', '-o' => $out,
1060        (-e $prefix. '.hs') ? $prefix.'.hs' : $prefix.'.lhs'
1061    );
1062    unless (-s $out) {
1063        die << ".";
1064*** Building Setup$Config{_exe} failed (exit code $rv)
1065    Please check your GHC and Cabal installation.
1066.
1067    }
1068}
1069
1070sub mk_drift_rules {
1071    join "\n\n",
1072    ("instances: " . join " ", map { "$_/Instances.hs" } @_),
1073    (map { "$_.hs:" } @_),
1074    map { <<"." } @_;
1075$_/Instances.hs: $_.hs util/drift.pl
1076\t\$(PERL) util/drift.pl $_.hs
1077.
1078}
1079__END__
Note: See TracBrowser for help on using the browser.