[PATCH] archimport autodetects import status, supports incremental imports
[git/jnareb-git/bp-gitweb.git] / git-clone-script
blobf988b8c9c79fbb9ec9c3cad556cb4c9d51984475
1 #!/bin/sh
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.
8 usage() {
9 echo >&2 "* git clone [-l [-s]] [-q] [-u <upload-pack>] <repo> <dir>"
10 exit 1
13 get_repo_base() {
14 (cd "$1" && (cd .git ; pwd)) 2> /dev/null
17 quiet=
18 use_local=no
19 local_shared=no
20 upload_pack=
21 while
22 case "$#,$1" in
23 0,*) break ;;
24 *,-l|*,--l|*,--lo|*,--loc|*,--loca|*,--local) use_local=yes ;;
25 *,-s|*,--s|*,--sh|*,--sha|*,--shar|*,--share|*,--shared)
26 local_shared=yes ;;
27 *,-q|*,--quiet) quiet=-q ;;
28 1,-u|1,--upload-pack) usage ;;
29 *,-u|*,--upload-pack)
30 shift
31 upload_pack="--exec=$1" ;;
32 *,-*) usage ;;
33 *) break ;;
34 esac
36 shift
37 done
39 # Turn the source into an absolute path if
40 # it is local
41 repo="$1"
42 local=no
43 if base=$(get_repo_base "$repo"); then
44 repo="$base"
45 local=yes
48 dir="$2"
49 mkdir "$dir" &&
50 D=$(
51 (cd "$dir" && git-init-db && pwd)
52 ) &&
53 test -d "$D" || usage
55 # We do local magic only when the user tells us to.
56 case "$local,$use_local" in
57 yes,yes)
58 ( cd "$repo/objects" ) || {
59 echo >&2 "-l flag seen but $repo is not local."
60 exit 1
63 case "$local_shared" in
64 no)
65 # See if we can hardlink and drop "l" if not.
66 sample_file=$(cd "$repo" && \
67 find objects -type f -print | sed -e 1q)
69 # objects directory should not be empty since we are cloning!
70 test -f "$repo/$sample_file" || exit
73 if ln "$repo/$sample_file" "$D/.git/objects/sample" 2>/dev/null
74 then
75 l=l
76 fi &&
77 rm -f "$D/.git/objects/sample" &&
78 cd "$repo" &&
79 find objects -type f -print |
80 cpio -puamd$l "$D/.git/" || exit 1
82 yes)
83 mkdir -p "$D/.git/objects/info"
85 test -f "$repo/objects/info/alternates" &&
86 cat "$repo/objects/info/alternates";
87 echo "$repo/objects"
88 } >"$D/.git/objects/info/alternates"
90 esac
92 # Make a duplicate of refs and HEAD pointer
93 HEAD=
94 if test -f "$repo/HEAD"
95 then
96 HEAD=HEAD
98 tar Ccf "$repo" - refs $HEAD | tar Cxf "$D/.git" - || exit 1
101 case "$repo" in
102 rsync://*)
103 rsync $quiet -avz --ignore-existing "$repo/objects/" "$D/.git/objects/" &&
104 rsync $quiet -avz --ignore-existing "$repo/refs/" "$D/.git/refs/"
106 http://*)
107 git-clone-dumb-http "$repo" "$D"
108 case "$?" in
110 echo "Somebody should define smarter http server protocol" >&2
111 exit 1
116 exit
117 esac
120 cd "$D" && case "$upload_pack" in
121 '') git-clone-pack $quiet "$repo" ;;
122 *) git-clone-pack $quiet "$upload_pack" "$repo" ;;
123 esac
125 esac
127 esac
129 # Update origin.
130 mkdir -p "$D/.git/remotes/" &&
131 rm -f "$D/.git/remotes/origin" &&
132 echo >"$D/.git/remotes/origin" \
133 "URL: $repo
134 Pull: master:origin"