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