]>
Commit | Line | Data |
---|---|---|
3f571e0b | 1 | #!/bin/sh |
e95ab1ed JH |
2 | # |
3 | # Copyright (c) 2005, Linus Torvalds | |
4 | # Copyright (c) 2005, Junio C Hamano | |
5 | # | |
6 | # Clone a repository into a different directory that does not yet exist. | |
7 | ||
365527ad JH |
8 | # See git-sh-setup why. |
9 | unset CDPATH | |
10 | ||
e95ab1ed | 11 | usage() { |
47874d6d | 12 | echo >&2 "Usage: $0 [--use-separate-remote] [--reference <reference-repo>] [--bare] [-l [-s]] [-q] [-u <upload-pack>] [-o <name>] [-n] <repo> [<dir>]" |
e95ab1ed JH |
13 | exit 1 |
14 | } | |
15 | ||
ba375acf LT |
16 | get_repo_base() { |
17 | (cd "$1" && (cd .git ; pwd)) 2> /dev/null | |
18 | } | |
19 | ||
0516de30 JH |
20 | if [ -n "$GIT_SSL_NO_VERIFY" ]; then |
21 | curl_extra_args="-k" | |
22 | fi | |
23 | ||
24 | http_fetch () { | |
25 | # $1 = Remote, $2 = Local | |
66c9ec25 | 26 | curl -nsfL $curl_extra_args "$1" >"$2" |
0516de30 JH |
27 | } |
28 | ||
29 | clone_dumb_http () { | |
30 | # $1 - remote, $2 - local | |
31 | cd "$2" && | |
32 | clone_tmp='.git/clone-tmp' && | |
33 | mkdir -p "$clone_tmp" || exit 1 | |
05621105 | 34 | http_fetch "$1/info/refs" "$clone_tmp/refs" || { |
0516de30 JH |
35 | echo >&2 "Cannot get remote repository information. |
36 | Perhaps git-update-server-info needs to be run there?" | |
37 | exit 1; | |
38 | } | |
0516de30 JH |
39 | while read sha1 refname |
40 | do | |
41 | name=`expr "$refname" : 'refs/\(.*\)'` && | |
cdb39508 | 42 | case "$name" in |
dfeff66e | 43 | *^*) continue;; |
cdb39508 | 44 | esac |
dfeff66e JH |
45 | if test -n "$use_separate_remote" && |
46 | branch_name=`expr "$name" : 'heads/\(.*\)'` | |
47 | then | |
5ceb05f8 | 48 | tname="remotes/$origin/$branch_name" |
dfeff66e JH |
49 | else |
50 | tname=$name | |
51 | fi | |
52 | git-http-fetch -v -a -w "$tname" "$name" "$1/" || exit 1 | |
0516de30 JH |
53 | done <"$clone_tmp/refs" |
54 | rm -fr "$clone_tmp" | |
dfeff66e JH |
55 | http_fetch "$1/HEAD" "$GIT_DIR/REMOTE_HEAD" |
56 | } | |
57 | ||
58 | # Read git-fetch-pack -k output and store the remote branches. | |
59 | copy_refs=' | |
60 | use File::Path qw(mkpath); | |
61 | use File::Basename qw(dirname); | |
62 | my $git_dir = $ARGV[0]; | |
63 | my $use_separate_remote = $ARGV[1]; | |
47874d6d | 64 | my $origin = $ARGV[2]; |
dfeff66e | 65 | |
47874d6d | 66 | my $branch_top = ($use_separate_remote ? "remotes/$origin" : "heads"); |
dfeff66e JH |
67 | my $tag_top = "tags"; |
68 | ||
69 | sub store { | |
70 | my ($sha1, $name, $top) = @_; | |
71 | $name = "$git_dir/refs/$top/$name"; | |
72 | mkpath(dirname($name)); | |
73 | open O, ">", "$name"; | |
74 | print O "$sha1\n"; | |
75 | close O; | |
0516de30 JH |
76 | } |
77 | ||
dfeff66e JH |
78 | open FH, "<", "$git_dir/CLONE_HEAD"; |
79 | while (<FH>) { | |
80 | my ($sha1, $name) = /^([0-9a-f]{40})\s(.*)$/; | |
81 | next if ($name =~ /\^\173/); | |
82 | if ($name eq "HEAD") { | |
83 | open O, ">", "$git_dir/REMOTE_HEAD"; | |
84 | print O "$sha1\n"; | |
85 | close O; | |
86 | next; | |
87 | } | |
88 | if ($name =~ s/^refs\/heads\///) { | |
89 | store($sha1, $name, $branch_top); | |
90 | next; | |
91 | } | |
92 | if ($name =~ s/^refs\/tags\///) { | |
93 | store($sha1, $name, $tag_top); | |
94 | next; | |
95 | } | |
96 | } | |
97 | close FH; | |
98 | ' | |
99 | ||
167a4a33 | 100 | quiet= |
e95ab1ed | 101 | use_local=no |
aae4f42c | 102 | local_shared=no |
036a72d8 | 103 | no_checkout= |
6ec311da | 104 | upload_pack= |
87e80c4b | 105 | bare= |
dfeff66e JH |
106 | reference= |
107 | origin= | |
e6489a1b | 108 | origin_override= |
dfeff66e | 109 | use_separate_remote= |
e95ab1ed JH |
110 | while |
111 | case "$#,$1" in | |
112 | 0,*) break ;; | |
8a1a120c JH |
113 | *,-n|*,--no|*,--no-|*,--no-c|*,--no-ch|*,--no-che|*,--no-chec|\ |
114 | *,--no-check|*,--no-checko|*,--no-checkou|*,--no-checkout) | |
115 | no_checkout=yes ;; | |
87e80c4b JH |
116 | *,--na|*,--nak|*,--nake|*,--naked|\ |
117 | *,-b|*,--b|*,--ba|*,--bar|*,--bare) bare=yes ;; | |
1cadb5a2 | 118 | *,-l|*,--l|*,--lo|*,--loc|*,--loca|*,--local) use_local=yes ;; |
aae4f42c | 119 | *,-s|*,--s|*,--sh|*,--sha|*,--shar|*,--share|*,--shared) |
2c4ed386 | 120 | local_shared=yes; use_local=yes ;; |
167a4a33 | 121 | *,-q|*,--quiet) quiet=-q ;; |
dfeff66e JH |
122 | *,--use-separate-remote) |
123 | use_separate_remote=t ;; | |
e6c310fd | 124 | 1,-o) usage;; |
dfeff66e JH |
125 | 1,--reference) usage ;; |
126 | *,--reference) | |
127 | shift; reference="$1" ;; | |
128 | *,--reference=*) | |
129 | reference=`expr "$1" : '--reference=\(.*\)'` ;; | |
e6c310fd | 130 | *,-o) |
47874d6d JH |
131 | case "$2" in |
132 | */*) | |
133 | echo >&2 "'$2' is not suitable for an origin name" | |
134 | exit 1 | |
135 | esac | |
136 | git-check-ref-format "heads/$2" || { | |
e6c310fd JS |
137 | echo >&2 "'$2' is not suitable for a branch name" |
138 | exit 1 | |
139 | } | |
e6489a1b JH |
140 | test -z "$origin_override" || { |
141 | echo >&2 "Do not give more than one -o options." | |
142 | exit 1 | |
143 | } | |
144 | origin_override=yes | |
e6c310fd JS |
145 | origin="$2"; shift |
146 | ;; | |
1cadb5a2 | 147 | 1,-u|1,--upload-pack) usage ;; |
6ec311da JH |
148 | *,-u|*,--upload-pack) |
149 | shift | |
1cadb5a2 | 150 | upload_pack="--exec=$1" ;; |
e95ab1ed JH |
151 | *,-*) usage ;; |
152 | *) break ;; | |
153 | esac | |
154 | do | |
155 | shift | |
156 | done | |
157 | ||
87e80c4b | 158 | # --bare implies --no-checkout |
e6489a1b JH |
159 | if test yes = "$bare" |
160 | then | |
161 | if test yes = "$origin_override" | |
162 | then | |
163 | echo >&2 '--bare and -o $origin options are incompatible.' | |
164 | exit 1 | |
165 | fi | |
dfeff66e JH |
166 | if test t = "$use_separate_remote" |
167 | then | |
168 | echo >&2 '--bare and --use-separate-remote options are incompatible.' | |
169 | exit 1 | |
170 | fi | |
e6489a1b JH |
171 | no_checkout=yes |
172 | fi | |
8a1a120c | 173 | |
47874d6d | 174 | if test -z "$origin" |
dfeff66e | 175 | then |
47874d6d | 176 | origin=origin |
dfeff66e JH |
177 | fi |
178 | ||
ba375acf LT |
179 | # Turn the source into an absolute path if |
180 | # it is local | |
3f571e0b | 181 | repo="$1" |
ba375acf LT |
182 | local=no |
183 | if base=$(get_repo_base "$repo"); then | |
184 | repo="$base" | |
185 | local=yes | |
186 | fi | |
187 | ||
3f571e0b | 188 | dir="$2" |
0879aa28 | 189 | # Try using "humanish" part of source repo if user didn't specify one |
e7555785 | 190 | [ -z "$dir" ] && dir=$(echo "$repo" | sed -e 's|/$||' -e 's|:*/*\.git$||' -e 's|.*[/:]||g') |
b0c698a6 | 191 | [ -e "$dir" ] && echo "$dir already exists." && usage |
7f10f7c4 | 192 | mkdir -p "$dir" && |
8a1a120c | 193 | D=$(cd "$dir" && pwd) && |
edd3ebfe | 194 | trap 'err=$?; cd ..; rm -r "$D"; exit $err' exit |
87e80c4b | 195 | case "$bare" in |
8a1a120c JH |
196 | yes) GIT_DIR="$D" ;; |
197 | *) GIT_DIR="$D/.git" ;; | |
198 | esac && export GIT_DIR && git-init-db || usage | |
87e80c4b | 199 | case "$bare" in |
8a1a120c JH |
200 | yes) |
201 | GIT_DIR="$D" ;; | |
202 | *) | |
203 | GIT_DIR="$D/.git" ;; | |
204 | esac | |
e95ab1ed | 205 | |
dfeff66e JH |
206 | if test -n "$reference" |
207 | then | |
208 | if test -d "$reference" | |
209 | then | |
210 | if test -d "$reference/.git/objects" | |
211 | then | |
212 | reference="$reference/.git" | |
213 | fi | |
214 | reference=$(cd "$reference" && pwd) | |
215 | echo "$reference/objects" >"$GIT_DIR/objects/info/alternates" | |
216 | (cd "$reference" && tar cf - refs) | | |
217 | (cd "$GIT_DIR/refs" && | |
218 | mkdir reference-tmp && | |
219 | cd reference-tmp && | |
220 | tar xf -) | |
221 | else | |
222 | echo >&2 "$reference: not a local directory." && usage | |
223 | fi | |
224 | fi | |
225 | ||
226 | rm -f "$GIT_DIR/CLONE_HEAD" | |
227 | ||
e95ab1ed | 228 | # We do local magic only when the user tells us to. |
ba375acf LT |
229 | case "$local,$use_local" in |
230 | yes,yes) | |
e95ab1ed | 231 | ( cd "$repo/objects" ) || { |
ab6625e0 JH |
232 | echo >&2 "-l flag seen but $repo is not local." |
233 | exit 1 | |
e95ab1ed JH |
234 | } |
235 | ||
aae4f42c JH |
236 | case "$local_shared" in |
237 | no) | |
238 | # See if we can hardlink and drop "l" if not. | |
239 | sample_file=$(cd "$repo" && \ | |
240 | find objects -type f -print | sed -e 1q) | |
e95ab1ed | 241 | |
aae4f42c JH |
242 | # objects directory should not be empty since we are cloning! |
243 | test -f "$repo/$sample_file" || exit | |
e95ab1ed | 244 | |
aae4f42c | 245 | l= |
8a1a120c | 246 | if ln "$repo/$sample_file" "$GIT_DIR/objects/sample" 2>/dev/null |
aae4f42c JH |
247 | then |
248 | l=l | |
249 | fi && | |
8a1a120c | 250 | rm -f "$GIT_DIR/objects/sample" && |
aae4f42c | 251 | cd "$repo" && |
8e1618f9 | 252 | find objects -depth -print | cpio -pumd$l "$GIT_DIR/" || exit 1 |
aae4f42c JH |
253 | ;; |
254 | yes) | |
8a1a120c | 255 | mkdir -p "$GIT_DIR/objects/info" |
0f87f893 JH |
256 | { |
257 | test -f "$repo/objects/info/alternates" && | |
258 | cat "$repo/objects/info/alternates"; | |
259 | echo "$repo/objects" | |
8a1a120c | 260 | } >"$GIT_DIR/objects/info/alternates" |
aae4f42c JH |
261 | ;; |
262 | esac | |
dfeff66e | 263 | git-ls-remote "$repo" >"$GIT_DIR/CLONE_HEAD" |
7558ef89 LT |
264 | ;; |
265 | *) | |
1cadb5a2 JH |
266 | case "$repo" in |
267 | rsync://*) | |
4447badc | 268 | rsync $quiet -av --ignore-existing \ |
dfeff66e JH |
269 | --exclude info "$repo/objects/" "$GIT_DIR/objects/" || |
270 | exit | |
4447badc JH |
271 | # Look at objects/info/alternates for rsync -- http will |
272 | # support it natively and git native ones will do it on the | |
273 | # remote end. Not having that file is not a crime. | |
89d844d0 | 274 | rsync -q "$repo/objects/info/alternates" \ |
8a1a120c JH |
275 | "$GIT_DIR/TMP_ALT" 2>/dev/null || |
276 | rm -f "$GIT_DIR/TMP_ALT" | |
277 | if test -f "$GIT_DIR/TMP_ALT" | |
4447badc | 278 | then |
0e9ab02d | 279 | ( cd "$D" && |
4447badc | 280 | . git-parse-remote && |
8a1a120c | 281 | resolve_alternates "$repo" <"$GIT_DIR/TMP_ALT" ) | |
4447badc JH |
282 | while read alt |
283 | do | |
284 | case "$alt" in 'bad alternate: '*) die "$alt";; esac | |
285 | case "$quiet" in | |
286 | '') echo >&2 "Getting alternate: $alt" ;; | |
287 | esac | |
288 | rsync $quiet -av --ignore-existing \ | |
8a1a120c | 289 | --exclude info "$alt" "$GIT_DIR/objects" || exit |
4447badc | 290 | done |
8a1a120c | 291 | rm -f "$GIT_DIR/TMP_ALT" |
4447badc | 292 | fi |
dfeff66e | 293 | git-ls-remote "$repo" >"$GIT_DIR/CLONE_HEAD" |
1cadb5a2 JH |
294 | ;; |
295 | http://*) | |
6c5c62f3 FP |
296 | if test -z "@@NO_CURL@@" |
297 | then | |
298 | clone_dumb_http "$repo" "$D" | |
299 | else | |
300 | echo >&2 "http transport not supported, rebuild Git with curl support" | |
301 | exit 1 | |
302 | fi | |
1cadb5a2 JH |
303 | ;; |
304 | *) | |
305 | cd "$D" && case "$upload_pack" in | |
dfeff66e JH |
306 | '') git-fetch-pack --all -k $quiet "$repo" ;; |
307 | *) git-fetch-pack --all -k $quiet "$upload_pack" "$repo" ;; | |
308 | esac >"$GIT_DIR/CLONE_HEAD" || { | |
309 | echo >&2 "fetch-pack from '$repo' failed." | |
0a8b4def JH |
310 | exit 1 |
311 | } | |
1cadb5a2 | 312 | ;; |
6ec311da | 313 | esac |
7558ef89 LT |
314 | ;; |
315 | esac | |
dfeff66e JH |
316 | test -d "$GIT_DIR/refs/reference-tmp" && rm -fr "$GIT_DIR/refs/reference-tmp" |
317 | ||
318 | if test -f "$GIT_DIR/CLONE_HEAD" | |
319 | then | |
320 | # Figure out where the remote HEAD points at. | |
47874d6d | 321 | perl -e "$copy_refs" "$GIT_DIR" "$use_separate_remote" "$origin" |
dfeff66e | 322 | fi |
1cadb5a2 | 323 | |
0e9ab02d | 324 | cd "$D" || exit |
036a72d8 | 325 | |
dfeff66e | 326 | if test -z "$bare" && test -f "$GIT_DIR/REMOTE_HEAD" |
036a72d8 | 327 | then |
dfeff66e JH |
328 | head_sha1=`cat "$GIT_DIR/REMOTE_HEAD"` |
329 | # Figure out which remote branch HEAD points at. | |
330 | case "$use_separate_remote" in | |
331 | '') remote_top=refs/heads ;; | |
47874d6d | 332 | *) remote_top="refs/remotes/$origin" ;; |
dfeff66e | 333 | esac |
47874d6d JH |
334 | |
335 | # What to use to track the remote primary branch | |
336 | if test -n "$use_separate_remote" | |
337 | then | |
338 | origin_tracking="remotes/$origin/master" | |
339 | else | |
340 | origin_tracking="heads/$origin" | |
341 | fi | |
342 | ||
343 | # The name under $remote_top the remote HEAD seems to point at | |
dfeff66e JH |
344 | head_points_at=$( |
345 | ( | |
346 | echo "master" | |
347 | cd "$GIT_DIR/$remote_top" && | |
348 | find . -type f -print | sed -e 's/^\.\///' | |
349 | ) | ( | |
350 | done=f | |
351 | while read name | |
352 | do | |
353 | test t = $done && continue | |
354 | branch_tip=`cat "$GIT_DIR/$remote_top/$name"` | |
355 | if test "$head_sha1" = "$branch_tip" | |
356 | then | |
357 | echo "$name" | |
358 | done=t | |
359 | fi | |
360 | done | |
361 | ) | |
362 | ) | |
47874d6d JH |
363 | |
364 | # Write out remotes/$origin file. | |
e125c1a7 | 365 | case "$head_points_at" in |
dfeff66e | 366 | ?*) |
8a1a120c | 367 | mkdir -p "$GIT_DIR/remotes" && |
47874d6d | 368 | echo >"$GIT_DIR/remotes/$origin" \ |
e125c1a7 | 369 | "URL: $repo |
47874d6d | 370 | Pull: refs/heads/$head_points_at:refs/$origin_tracking" && |
dfeff66e JH |
371 | case "$use_separate_remote" in |
372 | t) git-update-ref HEAD "$head_sha1" ;; | |
4c2e98d6 | 373 | *) git-update-ref "refs/heads/$origin" $(git-rev-parse HEAD) ;; |
dfeff66e | 374 | esac && |
47874d6d JH |
375 | (cd "$GIT_DIR/$remote_top" && find . -type f -print) | |
376 | while read dotslref | |
95d117b6 | 377 | do |
47874d6d | 378 | name=`expr "$dotslref" : './\(.*\)'` && |
dfeff66e | 379 | test "$head_points_at" = "$name" || |
4c2e98d6 | 380 | test "$origin" = "$name" || |
dfeff66e | 381 | echo "Pull: refs/heads/${name}:$remote_top/${name}" |
5ceb05f8 JH |
382 | done >>"$GIT_DIR/remotes/$origin" && |
383 | case "$use_separate_remote" in | |
384 | t) | |
385 | rm -f "refs/remotes/$origin/HEAD" | |
386 | git-symbolic-ref "refs/remotes/$origin/HEAD" \ | |
387 | "refs/remotes/$origin/$head_points_at" | |
388 | esac | |
e125c1a7 JH |
389 | esac |
390 | ||
036a72d8 JH |
391 | case "$no_checkout" in |
392 | '') | |
744633cb | 393 | git-read-tree -m -u -v HEAD HEAD |
036a72d8 JH |
394 | esac |
395 | fi | |
dfeff66e | 396 | rm -f "$GIT_DIR/CLONE_HEAD" "$GIT_DIR/REMOTE_HEAD" |
41ff7a10 CW |
397 | |
398 | trap - exit | |
399 |