#
# Fetch one or more remote refs and merge it/them into the current HEAD.
-. git-sh-setup || die "Not a git archive"
+USAGE='[-n | --no-summary] [--no-commit] [-s strategy]... [<fetch-options>] <repo> <head>...'
+LONG_USAGE='Fetch one or more remote refs and merge it/them into the current HEAD.'
+. git-sh-setup
+set_reflog_action "pull $*"
-usage () {
- die "git pull [-n] [-s strategy]... <repo> <head>..."
-}
-
-strategy_args= no_summary=
+strategy_args= no_summary= no_commit= squash=
while case "$#,$1" in 0) break ;; *,-*) ;; *) break ;; esac
do
case "$1" in
-n|--n|--no|--no-|--no-s|--no-su|--no-sum|--no-summ|\
--no-summa|--no-summar|--no-summary)
no_summary=-n ;;
+ --no-c|--no-co|--no-com|--no-comm|--no-commi|--no-commit)
+ no_commit=--no-commit ;;
+ --sq|--squ|--squa|--squas|--squash)
+ squash=--squash ;;
-s=*|--s=*|--st=*|--str=*|--stra=*|--strat=*|--strate=*|\
--strateg=*|--strategy=*|\
-s|--s|--st|--str|--stra|--strat|--strate|--strateg|--strategy)
case "$#,$1" in
*,*=*)
- strategy=`expr "$1" : '-[^=]*=\(.*\)'` ;;
+ strategy=`expr "z$1" : 'z-[^=]*=\(.*\)'` ;;
1,*)
usage ;;
*)
esac
strategy_args="${strategy_args}-s $strategy "
;;
- -*)
+ -h|--h|--he|--hel|--help)
usage
;;
+ -*)
+ # Pass thru anything that is meant for fetch.
+ break
+ ;;
esac
shift
done
-orig_head=$(cat "$GIT_DIR/HEAD") || die "Pulling into a black hole?"
+orig_head=$(git-rev-parse --verify HEAD 2>/dev/null)
git-fetch --update-head-ok "$@" || exit 1
-curr_head=$(cat "$GIT_DIR/HEAD")
+curr_head=$(git-rev-parse --verify HEAD 2>/dev/null)
if test "$curr_head" != "$orig_head"
then
# The fetch involved updating the current branch.
# First update the working tree to match $curr_head.
echo >&2 "Warning: fetch updated the current branch head."
- echo >&2 "Warning: fast forwarding your working tree."
+ echo >&2 "Warning: fast forwarding your working tree from"
+ echo >&2 "Warning: commit $orig_head."
+ git-update-index --refresh 2>/dev/null
git-read-tree -u -m "$orig_head" "$curr_head" ||
- die "You need to first update your working tree."
-fi
-
-merge_head=$(sed -e 's/ .*//' "$GIT_DIR"/FETCH_HEAD | tr '\012' ' ')
-
-case "$merge_head" in
-?*' '?*)
- merge_name="Octopus merge of "$(
- perl -e '
- my @src;
- my %src;
+ die 'Cannot fast-forward your working tree.
+After making sure that you saved anything precious from
+$ git diff '$orig_head'
+output, run
+$ git reset --hard
+to recover.'
- sub andjoin {
- my ($label, $labels, $stuff, $src) = @_;
- my $l = scalar @$stuff;
- my $m = "";
- if ($l == 0) {
- return "";
- }
- if ($l == 1) {
- $m = "$label $stuff->[0]";
- }
- else {
- $m = ("$labels " .
- join (", ", @{$stuff}[0..$l-2]) .
- " and $stuff->[-1]");
- }
- if ($src ne ".") {
- $m .= " from $src";
- }
- return $m;
- }
+fi
- while (<>) {
- my ($bname, $tname, $gname, $src);
- s/^[0-9a-f]* //;
- if (s/ of (.*)$//) {
- $src = $1;
- } else {
- $src = ".";
- }
- if (! exists $src{$src}) {
- push @src, $src;
- $src{$src} = { BRANCH => [], TAG => [], GENERIC => [] };
- }
- if (/^branch (.*)$/) {
- push @{$src{$src}{BRANCH}}, $1;
- }
- elsif (/^tag (.*)$/) {
- push @{$src{$src}{TAG}}, $1;
- }
- else {
- push @{$src{$src}{GENERIC}}, $1;
- }
- }
- my @msg;
- for my $src (@src) {
- my $bag = $src{$src}{BRANCH};
- if (@{$bag}) {
- push @msg, andjoin("branch", "branches", $bag, $src);
- }
- $bag = $src{$src}{TAG};
- if (@{$bag}) {
- push @msg, andjoin("tag", "tags", $bag, $src);
- }
- $bag = $src{$src}{GENERIC};
- if (@{$bag}) {
- push @msg, andjoin("commit", "commits", $bag, $src);
- }
- }
- print join("; ", @msg);
- ' "$GIT_DIR"/FETCH_HEAD
- )
- ;;
-*)
- merge_name="Merge "$(sed -e 's/^[0-9a-f]* //' \
- "$GIT_DIR"/FETCH_HEAD)
- ;;
-esac
+merge_head=$(sed -e '/ not-for-merge /d' \
+ -e 's/ .*//' "$GIT_DIR"/FETCH_HEAD | \
+ tr '\012' ' ')
case "$merge_head" in
'')
+ curr_branch=$(git-symbolic-ref HEAD | \
+ sed -e 's|^refs/heads/||')
+ echo >&2 "Warning: No merge candidate found because value of config option
+ \"branch.${curr_branch}.merge\" does not match any remote branch fetched."
echo >&2 "No changes."
exit 0
;;
+?*' '?*)
+ if test -z "$orig_head"
+ then
+ echo >&2 "Cannot merge multiple branches into empty head"
+ exit 1
+ fi
+ ;;
esac
-git-merge $no_summary $strategy_args "$merge_name" HEAD $merge_head
+if test -z "$orig_head"
+then
+ git-update-ref -m "initial pull" HEAD $merge_head "" &&
+ git-read-tree --reset -u HEAD || exit 1
+ exit
+fi
+
+merge_name=$(git-fmt-merge-msg <"$GIT_DIR/FETCH_HEAD") || exit
+exec git-merge $no_summary $no_commit $squash $strategy_args \
+ "$merge_name" HEAD $merge_head