4 USAGE
='<fetch-options> <repository> <refspec>...'
7 _x40
='[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]'
8 _x40
="$_x40$_x40$_x40$_x40$_x40$_x40$_x40$_x40"
23 while case "$#" in 0) break ;; esac
26 -a|
--a|
--ap|
--app|
--appe|
--appen|
--append)
29 --upl|
--uplo|
--uploa|
--upload|
--upload-|
--upload-p|\
30 --upload-pa|
--upload-pac|
--upload-pack)
35 -f|
--f|
--fo|
--for|
--forc|
--force)
38 -t|
--t|
--ta|
--tag|
--tags)
41 -n|
--n|
--no|
--no-|
--no-t|
--no-ta|
--no-tag|
--no-tags)
44 -u|
--u|
--up|
--upd|
--upda|
--updat|
--update|
--update-|
--update-h|\
45 --update-he|
--update-hea|
--update-head|
--update-head-|\
46 --update-head-o|
--update-head-ok)
52 -k|
--k|
--ke|
--kee|
--keep)
56 rloga
=`expr "z$1" : 'z-[^=]*=\(.*\)'`
70 test -f "$GIT_DIR/branches/origin" ||
71 test -f "$GIT_DIR/remotes/origin" ||
72 die
"Where do you want to fetch from today?"
77 remote
=$
(get_remote_url
"$@")
80 rsync_slurped_objects
=
82 rloga
="$rloga $remote_nick"
83 test "$remote_nick" = "$remote" || rloga
="$rloga $remote"
85 if test "" = "$append"
87 : >"$GIT_DIR/FETCH_HEAD"
90 append_fetch_head
() {
97 t
) not_for_merge_
='not-for-merge' ;;
98 '') not_for_merge_
= ;;
101 # remote-nick is the URL given on the command line (or a shorthand)
102 # remote-name is the $GIT_DIR relative refs/ path we computed
105 # the $note_ variable will be fed to git-fmt-merge-msg for further
107 case "$remote_name_" in
111 note_
="$(expr "$remote_name_" : 'refs/heads/\(.*\)')"
112 note_
="branch '$note_' of " ;;
114 note_
="$(expr "$remote_name_" : 'refs/tags/\(.*\)')"
115 note_
="tag '$note_' of " ;;
117 note_
="$(expr "$remote_name_" : 'refs/remotes/\(.*\)')"
118 note_
="remote branch '$note_' of " ;;
120 note_
="$remote_name of " ;;
122 remote_1_
=$
(expr "z$remote_" : 'z\(.*\)\.git/*$') &&
124 note_
="$note_$remote_"
126 # 2.6.11-tree tag would not be happy to be fed to resolve.
127 if git-cat-file commit
"$head_" >/dev
/null
2>&1
129 headc_
=$
(git-rev-parse
--verify "$head_^0") ||
exit
130 echo "$headc_ $not_for_merge_ $note_" >>"$GIT_DIR/FETCH_HEAD"
131 [ "$verbose" ] && echo >&2 "* committish: $head_"
132 [ "$verbose" ] && echo >&2 " $note_"
134 echo "$head_ not-for-merge $note_" >>"$GIT_DIR/FETCH_HEAD"
135 [ "$verbose" ] && echo >&2 "* non-commit: $head_"
136 [ "$verbose" ] && echo >&2 " $note_"
138 if test "$local_name_" != ""
140 # We are storing the head locally. Make sure that it is
141 # a fast forward (aka "reverse push").
142 fast_forward_local
"$local_name_" "$head_" "$note_"
146 fast_forward_local
() {
147 mkdir
-p "$(dirname "$GIT_DIR/$1")"
150 # Tags need not be pointing at commits so there
151 # is no way to guarantee "fast-forward" anyway.
152 if test -f "$GIT_DIR/$1"
154 if now_
=$
(cat "$GIT_DIR/$1") && test "$now_" = "$2"
156 [ "$verbose" ] && echo >&2 "* $1: same as $3"
158 echo >&2 "* $1: updating with $3"
159 git-update-ref
-m "$rloga: updating tag" "$1" "$2"
162 echo >&2 "* $1: storing $3"
163 git-update-ref
-m "$rloga: storing tag" "$1" "$2"
167 refs
/heads
/* | refs
/remotes
/*)
168 # $1 is the ref being updated.
169 # $2 is the new value for the ref.
170 local=$
(git-rev-parse
--verify "$1^0" 2>/dev
/null
)
173 # Require fast-forward.
174 mb
=$
(git-merge-base
"$local" "$2") &&
177 if test -n "$verbose"
179 echo >&2 "* $1: same as $3"
183 echo >&2 "* $1: fast forward to $3"
184 echo >&2 " from $local to $2"
185 git-update-ref
-m "$rloga: fast-forward" "$1" "$2" "$local"
191 echo >&2 "* $1: does not fast forward to $3;"
192 case ",$force,$single_force," in
194 echo >&2 " forcing update."
195 git-update-ref
-m "$rloga: forced-update" "$1" "$2" "$local"
198 echo >&2 " not updating."
204 echo >&2 "* $1: storing $3"
205 git-update-ref
-m "$rloga: storing head" "$1" "$2"
211 case "$update_head_ok" in
213 orig_head
=$
(git-rev-parse
--verify HEAD
2>/dev
/null
)
217 # If --tags (and later --heads or --all) is specified, then we are
218 # not talking about defaults stored in Pull: line of remotes or
219 # branches file, and just fetch those and refspecs explicitly given.
220 # Otherwise we do what we always did.
222 reflist
=$
(get_remote_refs_for_fetch
"$@")
227 git-ls-remote $upload_pack --tags "$remote" ||
239 if git-check-ref-format "$name"
241 echo ".${name}:${name}"
243 echo >&2 "warning: tag ${name} ignored"
248 # remote URL plus explicit refspecs; we need to merge them.
249 reflist
="$reflist$LF$taglist"
251 # No explicit refspecs; fetch tags only.
264 # These are relative path from $GIT_DIR, typically starting at refs/
266 if expr "z$ref" : 'z\.' >/dev
/null
269 ref
=$
(expr "z$ref" : 'z\.\(.*\)')
273 if expr "z$ref" : 'z+' >/dev
/null
276 ref
=$
(expr "z$ref" : 'z+\(.*\)')
280 remote_name
=$
(expr "z$ref" : 'z\([^:]*\):')
281 local_name
=$
(expr "z$ref" : 'z[^:]*:\(.*\)')
283 rref
="$rref$LF$remote_name"
285 # There are transports that can fetch only one head at a time...
287 http
://* | https
://*)
288 if [ -n "$GIT_SSL_NO_VERIFY" ]; then
293 head="ref: $remote_name"
294 while (expr "z$head" : "zref:" && expr $depth \
< $max_depth) >/dev
/null
296 remote_name_quoted
=$
(@@PERL@@
-e '
299 $u =~ s{([^-a-zA-Z0-9/.])}{sprintf"%%%02x",ord($1)}eg;
302 head=$
(curl
-nsfL $curl_extra_args "$remote/$remote_name_quoted")
303 depth
=$
( expr \
( $depth + 1 \
) )
305 expr "z$head" : "z$_x40\$" >/dev
/null ||
306 die
"Failed to fetch $remote_name from $remote"
307 echo >&2 Fetching
"$remote_name from $remote" using http
308 git-http-fetch
-v -a "$head" "$remote/" ||
exit
311 TMP_HEAD
="$GIT_DIR/TMP_HEAD"
312 rsync
-L -q "$remote/$remote_name" "$TMP_HEAD" ||
exit 1
313 head=$
(git-rev-parse
--verify TMP_HEAD
)
315 test "$rsync_slurped_objects" ||
{
316 rsync
-av --ignore-existing --exclude info \
317 "$remote/objects/" "$GIT_OBJECT_DIRECTORY/" ||
exit
319 # Look at objects/info/alternates for rsync -- http will
320 # support it natively and git native ones will do it on
321 # the remote end. Not having that file is not a crime.
322 rsync
-q "$remote/objects/info/alternates" \
323 "$GIT_DIR/TMP_ALT" 2>/dev
/null ||
324 rm -f "$GIT_DIR/TMP_ALT"
325 if test -f "$GIT_DIR/TMP_ALT"
327 resolve_alternates
"$remote" <"$GIT_DIR/TMP_ALT" |
330 case "$alt" in 'bad alternate: '*) die
"$alt";; esac
331 echo >&2 "Getting alternate: $alt"
332 rsync
-av --ignore-existing --exclude info \
333 "$alt" "$GIT_OBJECT_DIRECTORY/" ||
exit
335 rm -f "$GIT_DIR/TMP_ALT"
337 rsync_slurped_objects
=t
341 # We will do git native transport with just one call later.
345 append_fetch_head
"$head" "$remote" \
346 "$remote_name" "$remote_nick" "$local_name" "$not_for_merge"
351 http
://* | https
://* | rsync
://* )
352 ;; # we are already done.
354 ( : subshell because we muck with IFS
357 git-fetch-pack
$exec $keep --thin "$remote" $rref ||
echo failed
"$remote"
359 while read sha1 remote_name
363 echo >&2 "Fetch failure: $remote"
391 local_name
=$
(expr "z$found" : 'z[^:]*:\(.*\)')
392 append_fetch_head
"$sha1" "$remote" \
393 "$remote_name" "$remote_nick" "$local_name" "$not_for_merge"
400 fetch_main
"$reflist"
402 # automated tag following
403 case "$no_tags$tags" in
407 # effective only when we are following remote branch
408 # using local tracking branch.
410 git-ls-remote
$upload_pack --tags "$remote" |
411 sed -ne 's|^\([0-9a-f]*\)[ ]\(refs/tags/.*\)^{}$|\1 \2|p' |
414 test -f "$GIT_DIR/$name" && continue
415 git-check-ref-format
"$name" ||
{
416 echo >&2 "warning: tag ${name} ignored"
419 git-cat-file
-t "$sha1" >/dev
/null
2>&1 ||
continue
420 echo >&2 "Auto-following $name"
421 echo ".${name}:${name}"
427 fetch_main
"$taglist" ;;
431 # If the original head was empty (i.e. no "master" yet), or
432 # if we were told not to worry, we do not have to check.
433 case ",$update_head_ok,$orig_head," in
437 curr_head
=$
(git-rev-parse
--verify HEAD
2>/dev
/null
)
438 if test "$curr_head" != "$orig_head"
441 -m "$rloga: Undoing incorrectly fetched HEAD." \
443 die
"Cannot fetch into the current branch."