Fix import warning
[ghc-hetmet.git] / 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