# ./darc-all push --dry-run
# To see what local patches you have relative to the main repos
#
+# ------------ 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'.
+
+# -------------- Flags -------------------
# -q says to be quite, and -s to be silent.
#
# -i says to ignore darcs errors and move on to the next repository
}
}
-sub download {
- my ($from, $to) = @_;
-
- my @cmd = ("wget", $from, "-O", $to);
- message "== running @cmd";
- system @cmd;
-}
-
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 {
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 {
# 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 @_;
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
+ }
}
main(@ARGV);