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     elsif (-d "libraries/$package/.git") {
  29         print "Ignoring libraries/$package as it looks like a git checkout\n"
  30     }
  31     else {
  32         if (! -d "libraries/stamp") {
  33             mkdir "libraries/stamp";
  34         }
  35         $stamp = "libraries/stamp/$package";
  36         if ((! -d "libraries/$package") || (! -f "$stamp")
  37          || ((-M "libraries/stamp/$package") > (-M $tarball))) {
  38             print "Unpacking $package\n";
  39             if (-d "libraries/$package") {
  40                 &rmtree("libraries/$package")
  41                     or die "Can't remove libraries/$package: $!";
  42             }
  43             mkdir "libraries/$package"
  44                 or die "Can't create libraries/$package: $!";
  45             system ("sh", "-c", "cd 'libraries/$package' && { cat ../../$tarball | gzip -d | tar xf - ; } && mv */* .") == 0
  46                 or die "Failed to unpack $package";
  47             open STAMP, "> $stamp"
  48                 or die "Failed to open stamp file: $!";
  49             close STAMP
  50                 or die "Failed to close stamp file: $!";
  51         }
  52     }
  53 }
  54
  55 for $package (glob "libraries/*/") {
  56     $package =~ s/\/$//;
  57     my $pkgs = "$package/ghc-packages";
  58     if (-f $pkgs) {
  59         open PKGS, "< $pkgs"
  60             or die "Failed to open $pkgs: $!";
  61         while (<PKGS>) {
  62             chomp;
  63             s/\r//g;
  64             if (/.+/) {
  65                 push @library_dirs, "$package/$_";
  66             }
  67         }
  68     }
  69     else {
  70         push @library_dirs, $package;
  71     }
  72 }
  73
  74 for $package (@library_dirs) {
  75     my $dir = &basename($package);
  76     my @cabals = glob("$package/*.cabal");
  77     if ($#cabals > 0) {
  78         die "Too many .cabal file in $package\n";
  79     }
  80     if ($#cabals eq 0) {
  81         my $cabal = $cabals[0];
  82         my $pkg;
  83         my $top;
  84         if (-f $cabal) {
  85             $pkg = $cabal;
  86             $pkg =~ s#.*/##;
  87             $pkg =~ s/\.cabal$//;
  88             $top = $package;
  89             $top =~ s#[^/]+#..#g;
  90             $dir = $package;
  91             $dir =~ s#^libraries/##g;
  92
  93             print "Creating $package/ghc.mk\n";
  94             open GHCMK, "> $package/ghc.mk"
  95                 or die "Opening $package/ghc.mk failed: $!";
  96             print GHCMK "${package}_PACKAGE = ${pkg}\n";
  97             print GHCMK "${package}_dist-install_GROUP = libraries\n";
  98             print GHCMK "\$(eval \$(call build-package,${package},dist-install,\$(if \$(filter ${dir},\$(STAGE2_PACKAGES)),2,1)))\n";
  99             close GHCMK
 100                 or die "Closing $package/ghc.mk failed: $!";
 101
 102             print "Creating $package/GNUmakefile\n";
 103             open GNUMAKEFILE, "> $package/GNUmakefile"
 104                 or die "Opening $package/GNUmakefile failed: $!";
 105             print GNUMAKEFILE "dir = ${package}\n";
 106             print GNUMAKEFILE "TOP = ${top}\n";
 107             print GNUMAKEFILE "include \$(TOP)/mk/sub-makefile.mk\n";
 108             print GNUMAKEFILE "FAST_MAKE_OPTS += stage=0\n";
 109             close GNUMAKEFILE
 110                 or die "Closing $package/GNUmakefile failed: $!";
 111         }
 112     }
 113 }
 114