Commit ad5299d9 authored by Ian Lynagh's avatar Ian Lynagh

Make darcs-all act on all repos in libraries/, not just boot/extra libs

parent 9cfd3b98
...@@ -62,6 +62,7 @@ sub darcs { ...@@ -62,6 +62,7 @@ sub darcs {
} }
sub darcsall { sub darcsall {
my @packages;
darcs @_; darcs @_;
for my $dir (@top_dirs) { for my $dir (@top_dirs) {
if (-d $dir && -d "$dir/_darcs") { if (-d $dir && -d "$dir/_darcs") {
...@@ -71,12 +72,25 @@ sub darcsall { ...@@ -71,12 +72,25 @@ sub darcsall {
message "== $dir not present or not a repository; skipping"; message "== $dir not present or not a repository; skipping";
} }
} }
for my $pkg (`cat libraries/boot-packages libraries/extra-packages`) { for my $path (<libraries/*/_darcs>) {
chomp $pkg; chomp $path;
if (-d "libraries/$pkg") { if ($path =~ m#/(.*)/#) {
darcs (@_, "--repodir", "libraries/$pkg"); my $pkg = $1;
# bootstrapping.* are just copies of other repos; we don't
# update them directly.
if ($pkg !~ /bootstrapping/) {
darcs (@_, "--repodir", "libraries/$pkg");
}
} }
else { else {
die "that pattern can't fail!";
}
}
@packages = `cat libraries/boot-packages`;
# @packages = `cat libraries/boot-packages libraries/extra-packages`;
for my $pkg (@packages) {
chomp $pkg;
if (! -d "libraries/$pkg") {
warning("$pkg doesn't exist, use 'darcs-all get' to get it"); warning("$pkg doesn't exist, use 'darcs-all get' to get it");
} }
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment