Merge branch 'jc/for-each-ref' into jc/ref-locking
[git/git.git] / git-parse-remote.sh
1 #!/bin/sh
2
3 # git-ls-remote could be called from outside a git managed repository;
4 # this would fail in that case and would issue an error message.
5 GIT_DIR=$(git-rev-parse --git-dir 2>/dev/null) || :;
6
7 get_data_source () {
8 case "$1" in
9 */*)
10 # Not so fast. This could be the partial URL shorthand...
11 token=$(expr "z$1" : 'z\([^/]*\)/')
12 remainder=$(expr "z$1" : 'z[^/]*/\(.*\)')
13 if test "$(git-repo-config --get "remote.$token.url")"
14 then
15 echo config-partial
16 elif test -f "$GIT_DIR/branches/$token"
17 then
18 echo branches-partial
19 else
20 echo ''
21 fi
22 ;;
23 *)
24 if test "$(git-repo-config --get "remote.$1.url")"
25 then
26 echo config
27 elif test -f "$GIT_DIR/remotes/$1"
28 then
29 echo remotes
30 elif test -f "$GIT_DIR/branches/$1"
31 then
32 echo branches
33 else
34 echo ''
35 fi ;;
36 esac
37 }
38
39 get_remote_url () {
40 data_source=$(get_data_source "$1")
41 case "$data_source" in
42 '')
43 echo "$1" ;;
44 config-partial)
45 token=$(expr "z$1" : 'z\([^/]*\)/')
46 remainder=$(expr "z$1" : 'z[^/]*/\(.*\)')
47 url=$(git-repo-config --get "remote.$token.url")
48 echo "$url/$remainder"
49 ;;
50 config)
51 git-repo-config --get "remote.$1.url"
52 ;;
53 remotes)
54 sed -ne '/^URL: */{
55 s///p
56 q
57 }' "$GIT_DIR/remotes/$1" ;;
58 branches)
59 sed -e 's/#.*//' "$GIT_DIR/branches/$1" ;;
60 branches-partial)
61 token=$(expr "z$1" : 'z\([^/]*\)/')
62 remainder=$(expr "z$1" : 'z[^/]*/\(.*\)')
63 url=$(sed -e 's/#.*//' "$GIT_DIR/branches/$token")
64 echo "$url/$remainder"
65 ;;
66 *)
67 die "internal error: get-remote-url $1" ;;
68 esac
69 }
70
71 get_remote_default_refs_for_push () {
72 data_source=$(get_data_source "$1")
73 case "$data_source" in
74 '' | config-partial | branches | branches-partial)
75 ;; # no default push mapping, just send matching refs.
76 config)
77 git-repo-config --get-all "remote.$1.push" ;;
78 remotes)
79 sed -ne '/^Push: */{
80 s///p
81 }' "$GIT_DIR/remotes/$1" ;;
82 *)
83 die "internal error: get-remote-default-ref-for-push $1" ;;
84 esac
85 }
86
87 # Subroutine to canonicalize remote:local notation.
88 canon_refs_list_for_fetch () {
89 # Leave only the first one alone; add prefix . to the rest
90 # to prevent the secondary branches to be merged by default.
91 dot_prefix=
92 for ref
93 do
94 force=
95 case "$ref" in
96 +*)
97 ref=$(expr "z$ref" : 'z+\(.*\)')
98 force=+
99 ;;
100 esac
101 expr "z$ref" : 'z.*:' >/dev/null || ref="${ref}:"
102 remote=$(expr "z$ref" : 'z\([^:]*\):')
103 local=$(expr "z$ref" : 'z[^:]*:\(.*\)')
104 case "$remote" in
105 '') remote=HEAD ;;
106 refs/heads/* | refs/tags/* | refs/remotes/*) ;;
107 heads/* | tags/* | remotes/* ) remote="refs/$remote" ;;
108 *) remote="refs/heads/$remote" ;;
109 esac
110 case "$local" in
111 '') local= ;;
112 refs/heads/* | refs/tags/* | refs/remotes/*) ;;
113 heads/* | tags/* | remotes/* ) local="refs/$local" ;;
114 *) local="refs/heads/$local" ;;
115 esac
116
117 if local_ref_name=$(expr "z$local" : 'zrefs/\(.*\)')
118 then
119 git-check-ref-format "$local_ref_name" ||
120 die "* refusing to create funny ref '$local_ref_name' locally"
121 fi
122 echo "${dot_prefix}${force}${remote}:${local}"
123 dot_prefix=.
124 done
125 }
126
127 # Returns list of src: (no store), or src:dst (store)
128 get_remote_default_refs_for_fetch () {
129 data_source=$(get_data_source "$1")
130 case "$data_source" in
131 '' | config-partial | branches-partial)
132 echo "HEAD:" ;;
133 config)
134 canon_refs_list_for_fetch \
135 $(git-repo-config --get-all "remote.$1.fetch") ;;
136 branches)
137 remote_branch=$(sed -ne '/#/s/.*#//p' "$GIT_DIR/branches/$1")
138 case "$remote_branch" in '') remote_branch=master ;; esac
139 echo "refs/heads/${remote_branch}:refs/heads/$1"
140 ;;
141 remotes)
142 # This prefixes the second and later default refspecs
143 # with a '.', to signal git-fetch to mark them
144 # not-for-merge.
145 canon_refs_list_for_fetch $(sed -ne '/^Pull: */{
146 s///p
147 }' "$GIT_DIR/remotes/$1")
148 ;;
149 *)
150 die "internal error: get-remote-default-ref-for-push $1" ;;
151 esac
152 }
153
154 get_remote_refs_for_push () {
155 case "$#" in
156 0) die "internal error: get-remote-refs-for-push." ;;
157 1) get_remote_default_refs_for_push "$@" ;;
158 *) shift; echo "$@" ;;
159 esac
160 }
161
162 get_remote_refs_for_fetch () {
163 case "$#" in
164 0)
165 die "internal error: get-remote-refs-for-fetch." ;;
166 1)
167 get_remote_default_refs_for_fetch "$@" ;;
168 *)
169 shift
170 tag_just_seen=
171 for ref
172 do
173 if test "$tag_just_seen"
174 then
175 echo "refs/tags/${ref}:refs/tags/${ref}"
176 tag_just_seen=
177 continue
178 else
179 case "$ref" in
180 tag)
181 tag_just_seen=yes
182 continue
183 ;;
184 esac
185 fi
186 canon_refs_list_for_fetch "$ref"
187 done
188 ;;
189 esac
190 }
191
192 resolve_alternates () {
193 # original URL (xxx.git)
194 top_=`expr "z$1" : 'z\([^:]*:/*[^/]*\)/'`
195 while read path
196 do
197 case "$path" in
198 \#* | '')
199 continue ;;
200 /*)
201 echo "$top_$path/" ;;
202 ../*)
203 # relative -- ugly but seems to work.
204 echo "$1/objects/$path/" ;;
205 *)
206 # exit code may not be caught by the reader.
207 echo "bad alternate: $path"
208 exit 1 ;;
209 esac
210 done
211 }