4 USAGE
='<fetch-options> <repository> <refspec>...'
7 TOP
=$
(git-rev-parse
--show-cdup)
13 _x40
='[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]'
14 _x40
="$_x40$_x40$_x40$_x40$_x40$_x40$_x40$_x40"
31 while case "$#" in 0) break ;; esac
34 -a|
--a|
--ap|
--app|
--appe|
--appen|
--append)
37 --upl|
--uplo|
--uploa|
--upload|
--upload-|
--upload-p|\
38 --upload-pa|
--upload-pac|
--upload-pack)
43 -f|
--f|
--fo|
--for|
--forc|
--force)
46 -t|
--t|
--ta|
--tag|
--tags)
49 -n|
--n|
--no|
--no-|
--no-t|
--no-ta|
--no-tag|
--no-tags)
52 -u|
--u|
--up|
--upd|
--upda|
--updat|
--update|
--update-|
--update-h|\
53 --update-he|
--update-hea|
--update-head|
--update-head-|\
54 --update-head-o|
--update-head-ok)
60 -k|
--k|
--ke|
--kee|
--keep)
64 rloga
=`expr "z$1" : 'z-[^=]*=\(.*\)'`
67 shallow_depth
="--depth=`expr "z
$1" : 'z-[^=]*=\(.*\)'`"
71 shallow_depth
="--depth=$1"
85 origin
=$
(get_default_remote
)
86 test -n "$(get_remote_url ${origin})" ||
87 die
"Where do you want to fetch from today?"
88 set x
$origin ; shift ;;
92 remote
=$
(get_remote_url
"$@")
95 rsync_slurped_objects
=
97 rloga
="$rloga $remote_nick"
98 test "$remote_nick" = "$remote" || rloga
="$rloga $remote"
100 if test "" = "$append"
102 : >"$GIT_DIR/FETCH_HEAD"
105 # Global that is reused later
106 ls_remote_result
=$
(git ls-remote
$upload_pack "$remote") ||
107 die
"Cannot get the repository state from $remote"
109 append_fetch_head
() {
116 t
) not_for_merge_
='not-for-merge' ;;
117 '') not_for_merge_
= ;;
120 # remote-nick is the URL given on the command line (or a shorthand)
121 # remote-name is the $GIT_DIR relative refs/ path we computed
124 # the $note_ variable will be fed to git-fmt-merge-msg for further
126 case "$remote_name_" in
130 note_
="$(expr "$remote_name_" : 'refs/heads/\(.*\)')"
131 note_
="branch '$note_' of " ;;
133 note_
="$(expr "$remote_name_" : 'refs/tags/\(.*\)')"
134 note_
="tag '$note_' of " ;;
136 note_
="$(expr "$remote_name_" : 'refs/remotes/\(.*\)')"
137 note_
="remote branch '$note_' of " ;;
139 note_
="$remote_name of " ;;
141 remote_1_
=$
(expr "z$remote_" : 'z\(.*\)\.git/*$') &&
143 note_
="$note_$remote_"
145 # 2.6.11-tree tag would not be happy to be fed to resolve.
146 if git-cat-file commit
"$head_" >/dev
/null
2>&1
148 headc_
=$
(git-rev-parse
--verify "$head_^0") ||
exit
149 echo "$headc_ $not_for_merge_ $note_" >>"$GIT_DIR/FETCH_HEAD"
151 echo "$head_ not-for-merge $note_" >>"$GIT_DIR/FETCH_HEAD"
154 update_local_ref
"$local_name_" "$head_" "$note_"
157 update_local_ref
() {
158 # If we are storing the head locally make sure that it is
159 # a fast forward (aka "reverse push").
161 label_
=$
(git-cat-file
-t $2)
162 newshort_
=$
(git-rev-parse
--short $2)
163 if test -z "$1" ; then
164 [ "$verbose" ] && echo >&2 "* fetched $3"
165 [ "$verbose" ] && echo >&2 " $label_: $newshort_"
168 oldshort_
=$
(git show-ref
--hash --abbrev "$1" 2>/dev
/null
)
172 # Tags need not be pointing at commits so there
173 # is no way to guarantee "fast-forward" anyway.
174 if test -n "$oldshort_"
176 if now_
=$
(git show-ref
--hash "$1") && test "$now_" = "$2"
178 [ "$verbose" ] && echo >&2 "* $1: same as $3"
179 [ "$verbose" ] && echo >&2 " $label_: $newshort_" ||
:
181 echo >&2 "* $1: updating with $3"
182 echo >&2 " $label_: $newshort_"
183 git-update-ref
-m "$rloga: updating tag" "$1" "$2"
186 echo >&2 "* $1: storing $3"
187 echo >&2 " $label_: $newshort_"
188 git-update-ref
-m "$rloga: storing tag" "$1" "$2"
192 refs
/heads
/* | refs
/remotes
/*)
193 # $1 is the ref being updated.
194 # $2 is the new value for the ref.
195 local=$
(git-rev-parse
--verify "$1^0" 2>/dev
/null
)
198 # Require fast-forward.
199 mb
=$
(git-merge-base
"$local" "$2") &&
202 if test -n "$verbose"
204 echo >&2 "* $1: same as $3"
205 echo >&2 " $label_: $newshort_"
209 echo >&2 "* $1: fast forward to $3"
210 echo >&2 " old..new: $oldshort_..$newshort_"
211 git-update-ref
-m "$rloga: fast-forward" "$1" "$2" "$local"
217 case ",$force,$single_force," in
219 echo >&2 "* $1: forcing update to non-fast forward $3"
220 echo >&2 " old...new: $oldshort_...$newshort_"
221 git-update-ref
-m "$rloga: forced-update" "$1" "$2" "$local"
224 echo >&2 "* $1: not updating to non-fast forward $3"
225 echo >&2 " old...new: $oldshort_...$newshort_"
231 echo >&2 "* $1: storing $3"
232 echo >&2 " $label_: $newshort_"
233 git-update-ref
-m "$rloga: storing head" "$1" "$2"
239 case "$update_head_ok" in
241 orig_head
=$
(git-rev-parse
--verify HEAD
2>/dev
/null
)
245 # If --tags (and later --heads or --all) is specified, then we are
246 # not talking about defaults stored in Pull: line of remotes or
247 # branches file, and just fetch those and refspecs explicitly given.
248 # Otherwise we do what we always did.
250 reflist
=$
(get_remote_refs_for_fetch
"$@")
254 echo "$ls_remote_result" |
266 if git-check-ref-format "$name"
268 echo ".${name}:${name}"
270 echo >&2 "warning: tag ${name} ignored"
275 # remote URL plus explicit refspecs; we need to merge them.
276 reflist
="$reflist$LF$taglist"
278 # No explicit refspecs; fetch tags only.
292 # These are relative path from $GIT_DIR, typically starting at refs/
294 if expr "z$ref" : 'z\.' >/dev
/null
297 ref
=$
(expr "z$ref" : 'z\.\(.*\)')
301 if expr "z$ref" : 'z+' >/dev
/null
304 ref
=$
(expr "z$ref" : 'z+\(.*\)')
308 remote_name
=$
(expr "z$ref" : 'z\([^:]*\):')
309 local_name
=$
(expr "z$ref" : 'z[^:]*:\(.*\)')
311 rref
="$rref$LF$remote_name"
313 # There are transports that can fetch only one head at a time...
315 http
://* | https
://* |
ftp://*)
316 test -n "$shallow_depth" &&
317 die
"shallow clone with http not supported"
318 proto
=`expr "$remote" : '\([^:]*\):'`
319 if [ -n "$GIT_SSL_NO_VERIFY" ]; then
322 if [ -n "$GIT_CURL_FTP_NO_EPSV" -o \
323 "`git-repo-config --bool http.noEPSV`" = true
]; then
324 noepsv_opt
="--disable-epsv"
327 # Find $remote_name from ls-remote output.
330 echo "$ls_remote_result" |
333 test "z$name" = "z$remote_name" ||
continue
338 expr "z$head" : "z$_x40\$" >/dev
/null ||
339 die
"No such ref $remote_name at $remote"
340 echo >&2 "Fetching $remote_name from $remote using $proto"
341 git-http-fetch
-v -a "$head" "$remote/" ||
exit
344 test -n "$shallow_depth" &&
345 die
"shallow clone with rsync not supported"
346 TMP_HEAD
="$GIT_DIR/TMP_HEAD"
347 rsync
-L -q "$remote/$remote_name" "$TMP_HEAD" ||
exit 1
348 head=$
(git-rev-parse
--verify TMP_HEAD
)
350 test "$rsync_slurped_objects" ||
{
351 rsync
-av --ignore-existing --exclude info \
352 "$remote/objects/" "$GIT_OBJECT_DIRECTORY/" ||
exit
354 # Look at objects/info/alternates for rsync -- http will
355 # support it natively and git native ones will do it on
356 # the remote end. Not having that file is not a crime.
357 rsync
-q "$remote/objects/info/alternates" \
358 "$GIT_DIR/TMP_ALT" 2>/dev
/null ||
359 rm -f "$GIT_DIR/TMP_ALT"
360 if test -f "$GIT_DIR/TMP_ALT"
362 resolve_alternates
"$remote" <"$GIT_DIR/TMP_ALT" |
365 case "$alt" in 'bad alternate: '*) die
"$alt";; esac
366 echo >&2 "Getting alternate: $alt"
367 rsync
-av --ignore-existing --exclude info \
368 "$alt" "$GIT_OBJECT_DIRECTORY/" ||
exit
370 rm -f "$GIT_DIR/TMP_ALT"
372 rsync_slurped_objects
=t
376 # We will do git native transport with just one call later.
380 append_fetch_head
"$head" "$remote" \
381 "$remote_name" "$remote_nick" "$local_name" "$not_for_merge" ||
exit
386 http
://* | https
://* |
ftp://* | rsync
://* )
387 ;; # we are already done.
389 ( : subshell because we muck with IFS
393 git-fetch-pack
--thin $exec $keep $shallow_depth "$remote" $rref ||
echo failed
"$remote"
395 while read sha1 remote_name
399 echo >&2 "Fetch failure: $remote"
401 # special line coming from index-pack with the pack name
405 pack_lockfile
="$GIT_OBJECT_DIRECTORY/pack/pack-$remote_name.keep"
433 local_name
=$
(expr "z$found" : 'z[^:]*:\(.*\)')
434 append_fetch_head
"$sha1" "$remote" \
435 "$remote_name" "$remote_nick" "$local_name" \
436 "$not_for_merge" ||
exit
438 if [ "$pack_lockfile" ]; then rm -f "$pack_lockfile"; fi
444 fetch_main
"$reflist" ||
exit
446 # automated tag following
447 case "$no_tags$tags" in
451 # effective only when we are following remote branch
452 # using local tracking branch.
454 echo "$ls_remote_result" |
455 git-show-ref
--exclude-existing=refs
/tags
/ |
458 git-cat-file
-t "$sha1" >/dev
/null
2>&1 ||
continue
459 echo >&2 "Auto-following $name"
460 echo ".${name}:${name}"
466 # do not deepen a shallow tree when following tags
468 fetch_main
"$taglist" ||
exit ;;
472 # If the original head was empty (i.e. no "master" yet), or
473 # if we were told not to worry, we do not have to check.
478 curr_head
=$
(git-rev-parse
--verify HEAD
2>/dev
/null
)
479 if test "$curr_head" != "$orig_head"
482 -m "$rloga: Undoing incorrectly fetched HEAD." \
484 die
"Cannot fetch into the current branch."