4 USAGE
='<fetch-options> <repository> <refspec>...'
7 set_reflog_action
"fetch $*"
8 cd_to_toplevel
;# probably unnecessary...
11 _x40
='[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]'
12 _x40
="$_x40$_x40$_x40$_x40$_x40$_x40$_x40$_x40"
27 while case "$#" in 0) break ;; esac
30 -a|
--a|
--ap|
--app|
--appe|
--appen|
--append)
33 --upl|
--uplo|
--uploa|
--upload|
--upload-|
--upload-p|\
34 --upload-pa|
--upload-pac|
--upload-pack)
36 exec="--upload-pack=$1"
38 --upl=*|
--uplo=*|
--uploa=*|
--upload=*|\
39 --upload-=*|
--upload-p=*|
--upload-pa=*|
--upload-pac=*|
--upload-pack=*)
40 exec=--upload-pack=$
(expr "z$1" : 'z-[^=]*=\(.*\)')
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 shallow_depth
="--depth=`expr "z
$1" : 'z-[^=]*=\(.*\)'`"
68 shallow_depth
="--depth=$1"
82 origin
=$
(get_default_remote
)
83 test -n "$(get_remote_url ${origin})" ||
84 die
"Where do you want to fetch from today?"
85 set x
$origin ; shift ;;
90 # No command line override and we have configuration for the remote.
91 exec="--upload-pack=$(get_uploadpack $1)"
95 remote
=$
(get_remote_url
"$@")
98 rsync_slurped_objects
=
100 if test "" = "$append"
102 : >"$GIT_DIR/FETCH_HEAD"
105 # Global that is reused later
106 ls_remote_result
=$
(git ls-remote
$exec "$remote") ||
107 die
"Cannot get the repository state from $remote"
109 append_fetch_head
() {
111 test -n "$verbose" && flags
="$flags -v"
112 test -n "$force" && flags
="$flags -f"
113 GIT_REFLOG_ACTION
="$GIT_REFLOG_ACTION" \
114 git-fetch--tool
$flags append-fetch-head
"$@"
117 # updating the current HEAD with git-fetch in a bare
118 # repository is always fine.
119 if test -z "$update_head_ok" && test $
(is_bare_repository
) = false
121 orig_head
=$
(git-rev-parse
--verify HEAD
2>/dev
/null
)
124 # Allow --notags from remote.$1.tagopt
125 case "$tags$no_tags" in
127 case "$(git-config --get "remote.
$1.tagopt
")" in
133 # If --tags (and later --heads or --all) is specified, then we are
134 # not talking about defaults stored in Pull: line of remotes or
135 # branches file, and just fetch those and refspecs explicitly given.
136 # Otherwise we do what we always did.
138 reflist
=$
(get_remote_refs_for_fetch
"$@")
142 echo "$ls_remote_result" |
143 git-show-ref --exclude-existing=refs/tags/ |
146 echo ".${name}:${name}"
150 # remote URL plus explicit refspecs; we need to merge them.
151 reflist
="$reflist$LF$taglist"
153 # No explicit refspecs; fetch tags only.
160 eval=$
(echo "$1" | git-fetch--tool parse-reflist
"-")
163 ( : subshell because we muck with IFS
166 git-fetch-pack
--thin $exec $keep $shallow_depth "$remote" $rref ||
167 echo failed
"$remote"
171 test -n "$verbose" && flags
="$flags -v"
172 test -n "$force" && flags
="$flags -f"
173 GIT_REFLOG_ACTION
="$GIT_REFLOG_ACTION" \
174 git-fetch--tool
$flags native-store \
175 "$remote" "$remote_nick" "$refs"
190 # These are relative path from $GIT_DIR, typically starting at refs/
192 if expr "z$ref" : 'z\.' >/dev
/null
195 ref
=$
(expr "z$ref" : 'z\.\(.*\)')
199 if expr "z$ref" : 'z+' >/dev
/null
202 ref
=$
(expr "z$ref" : 'z+\(.*\)')
206 remote_name
=$
(expr "z$ref" : 'z\([^:]*\):')
207 local_name
=$
(expr "z$ref" : 'z[^:]*:\(.*\)')
209 rref
="$rref$LF$remote_name"
211 # There are transports that can fetch only one head at a time...
213 http
://* | https
://* |
ftp://*)
214 test -n "$shallow_depth" &&
215 die
"shallow clone with http not supported"
216 proto
=`expr "$remote" : '\([^:]*\):'`
217 if [ -n "$GIT_SSL_NO_VERIFY" ]; then
220 if [ -n "$GIT_CURL_FTP_NO_EPSV" -o \
221 "`git-config --bool http.noEPSV`" = true
]; then
222 noepsv_opt
="--disable-epsv"
225 # Find $remote_name from ls-remote output.
228 echo "$ls_remote_result" |
231 test "z$name" = "z$remote_name" ||
continue
236 expr "z$head" : "z$_x40\$" >/dev
/null ||
237 die
"No such ref $remote_name at $remote"
238 echo >&2 "Fetching $remote_name from $remote using $proto"
239 git-http-fetch
-v -a "$head" "$remote/" ||
exit
242 test -n "$shallow_depth" &&
243 die
"shallow clone with rsync not supported"
244 TMP_HEAD
="$GIT_DIR/TMP_HEAD"
245 rsync
-L -q "$remote/$remote_name" "$TMP_HEAD" ||
exit 1
246 head=$
(git-rev-parse
--verify TMP_HEAD
)
248 test "$rsync_slurped_objects" ||
{
249 rsync
-av --ignore-existing --exclude info \
250 "$remote/objects/" "$GIT_OBJECT_DIRECTORY/" ||
exit
252 # Look at objects/info/alternates for rsync -- http will
253 # support it natively and git native ones will do it on
254 # the remote end. Not having that file is not a crime.
255 rsync
-q "$remote/objects/info/alternates" \
256 "$GIT_DIR/TMP_ALT" 2>/dev
/null ||
257 rm -f "$GIT_DIR/TMP_ALT"
258 if test -f "$GIT_DIR/TMP_ALT"
260 resolve_alternates
"$remote" <"$GIT_DIR/TMP_ALT" |
263 case "$alt" in 'bad alternate: '*) die
"$alt";; esac
264 echo >&2 "Getting alternate: $alt"
265 rsync
-av --ignore-existing --exclude info \
266 "$alt" "$GIT_OBJECT_DIRECTORY/" ||
exit
268 rm -f "$GIT_DIR/TMP_ALT"
270 rsync_slurped_objects
=t
275 append_fetch_head
"$head" "$remote" \
276 "$remote_name" "$remote_nick" "$local_name" "$not_for_merge" ||
exit
284 http
://* | https
://* |
ftp://* | rsync
://* )
293 fetch_main
"$reflist" ||
exit
295 # automated tag following
296 case "$no_tags$tags" in
300 # effective only when we are following remote branch
301 # using local tracking branch.
303 echo "$ls_remote_result" |
304 git-show-ref
--exclude-existing=refs
/tags
/ |
307 git-cat-file
-t "$sha1" >/dev
/null
2>&1 ||
continue
308 echo >&2 "Auto-following $name"
309 echo ".${name}:${name}"
315 # do not deepen a shallow tree when following tags
317 fetch_main
"$taglist" ||
exit ;;
321 # If the original head was empty (i.e. no "master" yet), or
322 # if we were told not to worry, we do not have to check.
327 curr_head
=$
(git-rev-parse
--verify HEAD
2>/dev
/null
)
328 if test "$curr_head" != "$orig_head"
331 -m "$GIT_REFLOG_ACTION: Undoing incorrectly fetched HEAD." \
333 die
"Cannot fetch into the current branch."