From: Ian Lynagh <igloo@earth.li>
Date: Mon, 4 Apr 2011 15:45:42 +0000 (+0100)
Subject: Merge branch 'master' of http://darcs.haskell.org/ghc
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=aaafc986f2175958bcadd4af6b3c9889bfc89009;hp=-c

Merge branch 'master' of darcs.haskell.org/ghc
---

aaafc986f2175958bcadd4af6b3c9889bfc89009
diff --combined sync-all
index 743d3e6,5336e29..9b0706e
--- a/sync-all
+++ b/sync-all
@@@ -3,64 -3,6 +3,64 @@@
  use strict;
  use Cwd;
  
 +# Usage:
 +#
 +# ./sync-all [-q] [-s] [--ignore-failure] [-r repo]
 +#            [--nofib] [--testsuite] [--checked-out] cmd [git flags]
 +#
 +# Applies the command "cmd" to each repository in the tree.
 +# sync-all will try to do the right thing for both git and darcs repositories.
 +#
 +# e.g.
 +#      ./sync-all -r http://darcs.haskell.org/ghc get
 +#          To get any repos which do not exist in the local tree
 +#
 +#      ./sync-all pull
 +#          To pull everything from the default repos
 +#
 +# -------------- Flags -------------------
 +#   -q says to be quite, and -s to be silent.
 +#
 +#   --ignore-failure says to ignore errors and move on to the next repository
 +#
 +#   -r repo says to use repo as the location of package repositories
 +#
 +#   --checked-out says that the remote repo is in checked-out layout, as
 +#   opposed to the layout used for the main repo.  By default a repo on
 +#   the local filesystem is assumed to be checked-out, and repos accessed
 +#   via HTTP or SSH are assumed to be in the main repo layout; use
 +#   --checked-out to override the latter.
 +#
 +#   --nofib, --testsuite also get the nofib and testsuite repos respectively
 +#
 +# ------------ Which repos to use -------------
 +# sync-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
 +#    otherwise $repo_base is set by asking git where the ghc repo came
 +#    from, and removing the last component (e.g. /ghc.git/ of /ghc/).
 +#
 +#  Then sync-all iterates over the package found in the file
 +#  ./packages; see that file for a description of the contents.
 +# 
 +#    If $repo_base looks like a local filesystem path, or if you give
 +#    the --checked-out flag, sync-all works on repos of form
 +#          $repo_base/<local-path>
 +#    otherwise sync-all works on repos of form
 +#          $repo_base/<remote-path>
 +#    This logic lets you say
 +#      both    sync-all -r http://darcs.haskell.org/ghc-6.12 pull
 +#      and     sync-all -r ../HEAD pull
 +#    The latter is called a "checked-out tree".
 +
 +# NB: sync-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
 +
  my $defaultrepo;
  my @packages;
  my $verbose = 2;
@@@ -299,6 -241,10 +299,10 @@@ sub scmall 
              elsif ($command =~ /^set-origin$/) {
                  @scm_args = ("remote", "set-url", "origin", $path);
              }
+             elsif ($command =~ /^set-push$/) {
+                 @scm_args = ("remote", "set-url", "--push", "origin", $path);
+                 print "foo\n", @scm_args;
+             }
              elsif ($command =~ /^fetch$/) {
                  @scm_args = ("fetch", "origin");
              }
@@@ -400,6 -346,7 +404,7 @@@ Supported commands
   * fetch
   * send
   * set-origin
+  * set-push
   * new
  
  Available package-tags are: