. git-sh-setup || die "Not a git archive"
+usage () {
+ die "git pull [-n] [-s strategy]... <repo> <head>..."
+}
+
+strategy_args= no_summary=
+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 ;;
+ -s=*|--s=*|--st=*|--str=*|--stra=*|--strat=*|--strate=*|\
+ --strateg=*|--strategy=*|\
+ -s|--s|--st|--str|--stra|--strat|--strate|--strateg|--strategy)
+ case "$#,$1" in
+ *,*=*)
+ strategy=`expr "$1" : '-[^=]*=\(.*\)'` ;;
+ 1,*)
+ usage ;;
+ *)
+ strategy="$2"
+ shift ;;
+ esac
+ strategy_args="${strategy_args}-s $strategy "
+ ;;
+ -*)
+ usage
+ ;;
+ esac
+ shift
+done
+
orig_head=$(cat "$GIT_DIR/HEAD") || die "Pulling into a black hole?"
git-fetch --update-head-ok "$@" || exit 1
fi
merge_head=$(sed -e 's/ .*//' "$GIT_DIR"/FETCH_HEAD | tr '\012' ' ')
-merge_name=$(
- perl -e 'print join("; ", map { chomp; s/^[0-9a-f]* //; $_ } <>)' \
- "$GIT_DIR"/FETCH_HEAD
-)
+
+case "$merge_head" in
+?*' '?*)
+ merge_name="Octopus merge of "$(
+ perl -e '
+ my @src;
+ my %src;
+
+ 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;
+ }
+
+ 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
case "$merge_head" in
'')
echo >&2 "No changes."
exit 0
;;
-*' '?*)
- echo >&2 "Pulling more than one heads; making an Octopus."
- exec git-octopus
- ;;
esac
-git-resolve \
- "$(cat "$GIT_DIR"/HEAD)" \
- $merge_head "Merge $merge_name"
+git-merge $no_summary $strategy_args "$merge_name" HEAD $merge_head