X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=boot-pkgs;h=de3008cf92882db7731ae608a47877952b6c8ae5;hp=9dc8f4aac7b3c3c5cc2f9f6990a8f5bbac49f7dc;hb=4c1f0681d85da48deaf706c0f05d971deb48261f;hpb=93c872cfb680bb72c26da8f1fd9c9921f3211de1

diff --git a/boot-pkgs b/boot-pkgs
index 9dc8f4a..de3008c 100644
--- a/boot-pkgs
+++ b/boot-pkgs
@@ -25,7 +25,13 @@ for $tarball (@tarballs) {
     if (-d "libraries/$package/_darcs") {
         print "Ignoring libraries/$package as it looks like a darcs checkout\n"
     }
+    elsif (-d "libraries/$package/.git") {
+        print "Ignoring libraries/$package as it looks like a git checkout\n"
+    }
     else {
+        if (! -d "libraries/stamp") {
+            mkdir "libraries/stamp";
+        }
         $stamp = "libraries/stamp/$package";
         if ((! -d "libraries/$package") || (! -f "$stamp")
          || ((-M "libraries/stamp/$package") > (-M $tarball))) {
@@ -34,11 +40,14 @@ for $tarball (@tarballs) {
                 &rmtree("libraries/$package")
                     or die "Can't remove libraries/$package: $!";
             }
-            mkdir "libraries/$package";
+            mkdir "libraries/$package"
+                or die "Can't create libraries/$package: $!";
             system ("sh", "-c", "cd 'libraries/$package' && { cat ../../$tarball | gzip -d | tar xf - ; } && mv */* .") == 0
                 or die "Failed to unpack $package";
-            open STAMP, "> $stamp";
-            close STAMP;
+            open STAMP, "> $stamp"
+                or die "Failed to open stamp file: $!";
+            close STAMP
+                or die "Failed to close stamp file: $!";
         }
     }
 }
@@ -47,9 +56,11 @@ for $package (glob "libraries/*/") {
     $package =~ s/\/$//;
     my $pkgs = "$package/ghc-packages";
     if (-f $pkgs) {
-        open PKGS, "< $pkgs";
+        open PKGS, "< $pkgs"
+            or die "Failed to open $pkgs: $!";
         while (<PKGS>) {
             chomp;
+            s/\r//g;
             if (/.+/) {
                 push @library_dirs, "$package/$_";
             }
@@ -69,37 +80,34 @@ for $package (@library_dirs) {
     if ($#cabals eq 0) {
         my $cabal = $cabals[0];
         my $pkg;
-        my $stage;
         my $top;
         if (-f $cabal) {
             $pkg = $cabal;
             $pkg =~ s#.*/##;
             $pkg =~ s/\.cabal$//;
-            if (-f "$package/ghc-stage") {
-                open STAGE, "< $package/ghc-stage";
-                $stage = int(<STAGE>);
-                close STAGE;
-            }
-            else {
-                $stage = 1;
-            }
             $top = $package;
             $top =~ s#[^/]+#..#g;
+            $dir = $package;
+            $dir =~ s#^libraries/##g;
 
             print "Creating $package/ghc.mk\n";
-            open GHCMK, "> $package/ghc.mk";
+            open GHCMK, "> $package/ghc.mk"
+                or die "Opening $package/ghc.mk failed: $!";
             print GHCMK "${package}_PACKAGE = ${pkg}\n";
             print GHCMK "${package}_dist-install_GROUP = libraries\n";
-            print GHCMK "\$(eval \$(call build-package,${package},dist-install,${stage}))\n";
-            close GHCMK;
+            print GHCMK "\$(eval \$(call build-package,${package},dist-install,\$(if \$(filter ${dir},\$(STAGE2_PACKAGES)),2,1)))\n";
+            close GHCMK
+                or die "Closing $package/ghc.mk failed: $!";
 
             print "Creating $package/GNUmakefile\n";
-            open GNUMAKEFILE, "> $package/GNUmakefile";
+            open GNUMAKEFILE, "> $package/GNUmakefile"
+                or die "Opening $package/GNUmakefile failed: $!";
             print GNUMAKEFILE "dir = ${package}\n";
             print GNUMAKEFILE "TOP = ${top}\n";
             print GNUMAKEFILE "include \$(TOP)/mk/sub-makefile.mk\n";
             print GNUMAKEFILE "FAST_MAKE_OPTS += stage=0\n";
-            close GNUMAKEFILE;
+            close GNUMAKEFILE
+                or die "Closing $package/GNUmakefile failed: $!";
         }
     }
 }