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
|
#!/usr/bin/perl -w
use strict;
use Cwd;
my %required_tag;
$required_tag{"-"} = 1;
while ($#ARGV ne -1) {
my $arg = shift @ARGV;
if ($arg =~ /^--required-tag=(.*)/) {
$required_tag{$1} = 1;
}
else {
die "Bad arg: $arg";
}
}
# Create libraries/*/{ghc.mk,GNUmakefile}
system("/usr/bin/perl", "-w", "boot-pkgs") == 0
or die "Running boot-pkgs failed: $?";
my $tag;
my $dir;
my $curdir;
$curdir = &cwd()
or die "Can't find current directory: $!";
# Check that we have all boot packages.
open PACKAGES, "< packages";
while (<PACKAGES>) {
if (/^#/) {
# Comment; do nothing
}
elsif (/^([a-zA-Z0-9\/.-]+) +([^ ]+) +[^ ]+ +[^ ]+ +[^ ]+$/) {
$dir = $1;
$tag = $2;
# If $tag is not "-" then it is an optional repository, so its
# absence isn't an error.
if (defined($required_tag{$tag})) {
# We would like to just check for an _darcs directory here,
# but in an lndir tree we avoid making _darcs directories,
# so it doesn't exist. We therefore require that every repo
# has a LICENSE file instead.
if (! -f "$dir/LICENSE") {
print STDERR "Error: $dir/LICENSE doesn't exist.\n";
die "Maybe you haven't done './darcs-all get'?";
}
}
}
else {
die "Bad line in packages file: $_";
}
}
close PACKAGES;
# autoreconf everything that needs it.
foreach $dir (".", glob("libraries/*/")) {
if (-f "$dir/configure.ac") {
print "Booting $dir\n";
chdir $dir or die "can't change to $dir: $!";
system("autoreconf") == 0
or die "Running autoreconf failed with exitcode $?";
chdir $curdir or die "can't change to $curdir: $!";
}
}
# Alas, darcs doesn't handle file permissions, so fix a few of them.
for my $file ("boot", "darcs-all", "validate") {
if (-f $file) {
chmod 0755, $file
or die "Can't chmod 0755 $file: $!";
}
}
|
