← Back to branch summary

~ubuntu-branches/ubuntu/precise/ghc/precise

« back to all changes in this revision

Viewing changes to boot-pkgs

  • Committer: Bazaar Package Importer
  • Author(s): Joachim Breitner
  • Date: 2011-01-17 12:49:24 UTC
  • Revision ID: james.westby@ubuntu.com-20110117124924-do1pym1jlf5o636m
Tags: upstream-7.0.1
Import upstream version 7.0.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
boot-pkgs
 
1
#!/usr/bin/perl -w
 
2
 
 
3
use strict;
 
4
 
 
5
use File::Path 'rmtree';
 
6
use File::Basename;
 
7
 
 
8
my @library_dirs = ();
 
9
my @tarballs = glob("libraries/tarballs/*");
 
10
 
 
11
my $tarball;
 
12
my $package;
 
13
my $stamp;
 
14
 
 
15
for $tarball (@tarballs) {
 
16
    $package = $tarball;
 
17
    $package =~ s#^libraries/tarballs/##;
 
18
    $package =~ s/-[0-9.]*(-snapshot)?\.tar\.gz$//;
 
19
 
 
20
    # Sanity check, so we don't rmtree the wrong thing below
 
21
    if (($package eq "") || ($package =~ m#[/.\\]#)) {
 
22
        die "Bad package name: $package";
 
23
    }
 
24
 
 
25
    if (-d "libraries/$package/_darcs") {
 
26
        print "Ignoring libraries/$package as it looks like a darcs checkout\n"
 
27
    }
 
28
    else {
 
29
        $stamp = "libraries/stamp/$package";
 
30
        if ((! -d "libraries/$package") || (! -f "$stamp")
 
31
         || ((-M "libraries/stamp/$package") > (-M $tarball))) {
 
32
            print "Unpacking $package\n";
 
33
            if (-d "libraries/$package") {
 
34
                &rmtree("libraries/$package")
 
35
                    or die "Can't remove libraries/$package: $!";
 
36
            }
 
37
            mkdir "libraries/$package"
 
38
                or die "Can't create libraries/$package: $!";
 
39
            system ("sh", "-c", "cd 'libraries/$package' && { cat ../../$tarball | gzip -d | tar xf - ; } && mv */* .") == 0
 
40
                or die "Failed to unpack $package";
 
41
            open STAMP, "> $stamp"
 
42
                or die "Failed to open stamp file: $!";
 
43
            close STAMP
 
44
                or die "Failed to close stamp file: $!";
 
45
        }
 
46
    }
 
47
}
 
48
 
 
49
for $package (glob "libraries/*/") {
 
50
    $package =~ s/\/$//;
 
51
    my $pkgs = "$package/ghc-packages";
 
52
    if (-f $pkgs) {
 
53
        open PKGS, "< $pkgs"
 
54
            or die "Failed to open $pkgs: $!";
 
55
        while (<PKGS>) {
 
56
            chomp;
 
57
            if (/.+/) {
 
58
                push @library_dirs, "$package/$_";
 
59
            }
 
60
        }
 
61
    }
 
62
    else {
 
63
        push @library_dirs, $package;
 
64
    }
 
65
}
 
66
 
 
67
for $package (@library_dirs) {
 
68
    my $dir = &basename($package);
 
69
    my @cabals = glob("$package/*.cabal");
 
70
    if ($#cabals > 0) {
 
71
        die "Too many .cabal file in $package\n";
 
72
    }
 
73
    if ($#cabals eq 0) {
 
74
        my $cabal = $cabals[0];
 
75
        my $pkg;
 
76
        my $top;
 
77
        if (-f $cabal) {
 
78
            $pkg = $cabal;
 
79
            $pkg =~ s#.*/##;
 
80
            $pkg =~ s/\.cabal$//;
 
81
            $top = $package;
 
82
            $top =~ s#[^/]+#..#g;
 
83
            $dir = $package;
 
84
            $dir =~ s#^libraries/##g;
 
85
 
 
86
            print "Creating $package/ghc.mk\n";
 
87
            open GHCMK, "> $package/ghc.mk"
 
88
                or die "Opening $package/ghc.mk failed: $!";
 
89
            print GHCMK "${package}_PACKAGE = ${pkg}\n";
 
90
            print GHCMK "${package}_dist-install_GROUP = libraries\n";
 
91
            print GHCMK "\$(eval \$(call build-package,${package},dist-install,\$(if \$(filter ${dir},\$(STAGE2_PACKAGES)),2,1)))\n";
 
92
            close GHCMK
 
93
                or die "Closing $package/ghc.mk failed: $!";
 
94
 
 
95
            print "Creating $package/GNUmakefile\n";
 
96
            open GNUMAKEFILE, "> $package/GNUmakefile"
 
97
                or die "Opening $package/GNUmakefile failed: $!";
 
98
            print GNUMAKEFILE "dir = ${package}\n";
 
99
            print GNUMAKEFILE "TOP = ${top}\n";
 
100
            print GNUMAKEFILE "include \$(TOP)/mk/sub-makefile.mk\n";
 
101
            print GNUMAKEFILE "FAST_MAKE_OPTS += stage=0\n";
 
102
            close GNUMAKEFILE
 
103
                or die "Closing $package/GNUmakefile failed: $!";
 
104
        }
 
105
    }
 
106
}
 
107