# ./darc-all push --dry-run
# To see what local patches you have relative to the main repos
#
+# -------------- Flags -------------------
# -q says to be quite, and -s to be silent.
#
# -i says to ignore darcs errors and move on to the next repository
# The darcs get flag you are most likely to want is --complete. By
# default we pass darcs the --partial flag.
#
+# ------------ Which repos to use -------------
+# darcs-all uses the following algorithm to decide which remote repos to use
+#
+# It always computes the remote repos from a single base, $repo_base
+# How is $repo_base set?
+# If you say "-r repo", then that's $repo_base
+# othewise $repo_base is set thus:
+# look in _darcs/prefs/defaultrepo,
+# and remove the trailing 'ghc'
+#
+# Then darcs-all iterates over the package found in the file
+# ./packages, which has entries like:
+# libraries/array packages/array darcs
+# or, in general
+# <local-path> <remote-path> <vcs>
+#
+# If $repo_base looks like a local filesystem path, or if you give
+# the --checked-out flag, darcs-all works on repos of form
+# $repo_base/<local-path>
+# otherwise darcs-all works on repos of form
+# $repo_base/<remote-path>
+# This logic lets you say
+# both darcs-all -r http://darcs.haskell.org/ghc-6.12 pull
+# and darcs-all -r ../HEAD pull
+# The latter is called a "checked-out tree".
+
+# NB: darcs-all *ignores* the defaultrepo of all repos other than the
+# root one. So the remote repos must be laid out in one of the two
+# formats given by <local-path> and <remote-path> in the file 'packages'.
+
$| = 1; # autoflush stdout after each print, to avoid output after die
}
}
-sub download {
- my ($from, $to) = @_;
-
- my @cmd = ("wget", $from, "-O", $to);
- message "== running @cmd";
- system @cmd;
- if ($? == -1) {
- die "Failed to execute wget: $!\n";
- }
- elsif ($? != 0) {
- die "wget failed: $?\n";
- }
-}
-
sub darcs {
message "== running darcs @_";
system ("darcs", @_) == 0
my $path;
my $tag;
my @repos;
+ my $command = $_[0];
my ($repo_base, $checked_out_tree) = getrepo();
if (-d "$localpath/_darcs") {
if ($want_remote_repo) {
- darcs (@_, "--repodir", $localpath, $path);
+ if ($command =~ /^opt/) {
+ # Allows ./darcs-all optimize --relink
+ darcs (@_, "--repodir", $localpath, "--sibling=$path");
+ } else {
+ darcs (@_, "--repodir", $localpath, $path);
+ }
} else {
darcs (@_, "--repodir", $localpath);
}
die "Bad line: $_";
}
}
-
- if ($_[0] eq "pull" || $_[0] eq "pul") {
- &sync_tarballs();
- }
}
sub darcsget {
my ($repo_base, $checked_out_tree) = getrepo();
- if (! grep /(?:--complete|--partial)/, @_) {
+ if (! grep /(?:--complete|--partial|--lazy)/, @_) {
warning("adding --partial, to override use --complete");
$r_flags = [@_, "--partial"];
}
die "Bad line: $_";
}
}
-
- &sync_tarballs();
-}
-
-sub sync_tarballs {
- my $localpath;
- my $localdirectory;
- my $localfilename;
- my $actualpath;
- my $actualfilename;
- my $remotepath;
- my $path;
- my @tarballs;
- my %localtarballs;
- my ($repo_base, $checked_out_tree) = getrepo();
-
- message "== Syncing tarballs";
-
- open IN, "< tarballs" or die "Can't open packages file";
- @tarballs = <IN>;
- close IN;
-
- foreach (@tarballs) {
- chomp;
- if (m@^([^# ]+)/([^#/ ]+) +([^ ]+)$@) {
- $localdirectory = $1;
- $localfilename = $2;
- $remotepath = $3;
- $localpath = "$localdirectory/$localfilename";
-
- $localtarballs{$localdirectory}{$localfilename} = 1;
-
- if (! -e $localpath) {
- if ($checked_out_tree) {
- $path = "$repo_base/$localpath";
- }
- else {
- $path = "$repo_base/$remotepath";
- }
- &download($path, $localpath);
- }
- }
- elsif (! /^(#.*)?$/) {
- die "Bad line: $_";
- }
- }
-
- foreach $localdirectory (keys %localtarballs) {
- FILE: foreach $actualpath (glob "$localdirectory/*.tar.gz $localdirectory/*.tar.bz2") {
- $actualfilename = $actualpath;
- $actualfilename =~ s#.*/##;
- if (! defined($localtarballs{$localdirectory}{$actualfilename})) {
- message "== Deleting $actualpath";
- unlink $actualpath;
- }
- }
- }
}
sub main {
elsif ($arg eq "--testsuite") {
$tags{"testsuite"} = 1;
}
+ # --extralibs tells get to also grab the extra repos.
+ # It has no effect on the other commands.
+ elsif ($arg eq "--extra") {
+ $tags{"extra"} = 1;
+ }
elsif ($arg eq "--checked-out") {
$checked_out_flag = 1;
}
# Hack around whatsnew failing if there are no changes
$ignore_failure = 1;
}
- if ($command =~ /^(pul|pus|sen|put)/) {
+ if ($command =~ /^(pul|pus|sen|put|opt)/) {
$want_remote_repo = 1;
}
darcsall @_;
}
END {
+ my $ec = $?;
+
message "== Checking for old bytestring repo";
if (-d "libraries/bytestring/_darcs") {
if ((system "darcs annotate --repodir libraries/bytestring --match 'hash 20080118173113-3fd76-d5b74c04372a297b585ebea4e16d524551ce5035' > /dev/null 2> /dev/null") == 0) {
EOF
}
}
+
+ message "== Checking for bytestring tarball";
+ if (-d "libraries/bytestring" && not -d "libraries/bytestring/_darcs") {
+ print <<EOF;
+============================
+ATTENTION!
+
+You have an old bytestring in your GHC tree!
+
+Please remove it (e.g. "rm -r libraries/bytestring"), and then run
+"./darcs-all get" to get the darcs repository.
+============================
+EOF
+ }
+
+ message "== Checking for unpulled tarball patches";
+ if ((system "darcs annotate --match 'hash 20090930200358-3fd76-cab3bf4a0a9e3902eb6dd41f71712ad3a6a9bcd1' > /dev/null 2> /dev/null") == 0) {
+ print <<EOF;
+============================
+ATTENTION!
+
+You have the unpulled tarball patches in your GHC tree!
+
+Please remove them:
+ darcs unpull -p "Use mingw tarballs to get mingw on Windows"
+and say yes to each patch.
+============================
+EOF
+ }
+
+ $? = $ec;
}
main(@ARGV);