gitweb: use new Git::Repo API, and add optional caching
[git/gitweb-caching.git] / git-parse-remote.sh
blob695a4094bb4230341618bd6f16d0bea9bff2e826
1 #!/bin/sh
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) || :;
7 get_data_source () {
8 case "$1" in
9 */*)
10 echo ''
13 echo self
16 if test "$(git config --get "remote.$1.url")"
17 then
18 echo config
19 elif test -f "$GIT_DIR/remotes/$1"
20 then
21 echo remotes
22 elif test -f "$GIT_DIR/branches/$1"
23 then
24 echo branches
25 else
26 echo ''
27 fi ;;
28 esac
31 get_remote_url () {
32 data_source=$(get_data_source "$1")
33 case "$data_source" in
34 '')
35 echo "$1"
37 self)
38 echo "$1"
40 config)
41 git config --get "remote.$1.url"
43 remotes)
44 sed -ne '/^URL: */{
45 s///p
47 }' "$GIT_DIR/remotes/$1"
49 branches)
50 sed -e 's/#.*//' "$GIT_DIR/branches/$1"
53 die "internal error: get-remote-url $1" ;;
54 esac
57 get_default_remote () {
58 curr_branch=$(git symbolic-ref -q HEAD | sed -e 's|^refs/heads/||')
59 origin=$(git config --get "branch.$curr_branch.remote")
60 echo ${origin:-origin}
63 get_remote_default_refs_for_push () {
64 data_source=$(get_data_source "$1")
65 case "$data_source" in
66 '' | branches | self)
67 ;; # no default push mapping, just send matching refs.
68 config)
69 git config --get-all "remote.$1.push" ;;
70 remotes)
71 sed -ne '/^Push: */{
72 s///p
73 }' "$GIT_DIR/remotes/$1" ;;
75 die "internal error: get-remote-default-ref-for-push $1" ;;
76 esac
79 # Called from canon_refs_list_for_fetch -d "$remote", which
80 # is called from get_remote_default_refs_for_fetch to grok
81 # refspecs that are retrieved from the configuration, but not
82 # from get_remote_refs_for_fetch when it deals with refspecs
83 # supplied on the command line. $ls_remote_result has the list
84 # of refs available at remote.
86 # The first token returned is either "explicit" or "glob"; this
87 # is to help prevent randomly "globbed" ref from being chosen as
88 # a merge candidate
89 expand_refs_wildcard () {
90 echo "$ls_remote_result" |
91 git fetch--tool expand-refs-wildcard "-" "$@"
94 # Subroutine to canonicalize remote:local notation.
95 canon_refs_list_for_fetch () {
96 # If called from get_remote_default_refs_for_fetch
97 # leave the branches in branch.${curr_branch}.merge alone,
98 # or the first one otherwise; add prefix . to the rest
99 # to prevent the secondary branches to be merged by default.
100 merge_branches=
101 curr_branch=
102 if test "$1" = "-d"
103 then
104 shift ; remote="$1" ; shift
105 set $(expand_refs_wildcard "$remote" "$@")
106 is_explicit="$1"
107 shift
108 if test "$remote" = "$(get_default_remote)"
109 then
110 curr_branch=$(git symbolic-ref -q HEAD | \
111 sed -e 's|^refs/heads/||')
112 merge_branches=$(git config \
113 --get-all "branch.${curr_branch}.merge")
115 if test -z "$merge_branches" && test $is_explicit != explicit
116 then
117 merge_branches=..this.will.never.match.any.ref..
120 for ref
122 force=
123 case "$ref" in
125 ref=$(expr "z$ref" : 'z+\(.*\)')
126 force=+
128 esac
129 expr "z$ref" : 'z.*:' >/dev/null || ref="${ref}:"
130 remote=$(expr "z$ref" : 'z\([^:]*\):')
131 local=$(expr "z$ref" : 'z[^:]*:\(.*\)')
132 dot_prefix=.
133 if test -z "$merge_branches"
134 then
135 merge_branches=$remote
136 dot_prefix=
137 else
138 for merge_branch in $merge_branches
140 [ "$remote" = "$merge_branch" ] &&
141 dot_prefix= && break
142 done
144 case "$remote" in
145 '' | HEAD ) remote=HEAD ;;
146 refs/*) ;;
147 heads/* | tags/* | remotes/* ) remote="refs/$remote" ;;
148 *) remote="refs/heads/$remote" ;;
149 esac
150 case "$local" in
151 '') local= ;;
152 refs/*) ;;
153 heads/* | tags/* | remotes/* ) local="refs/$local" ;;
154 *) local="refs/heads/$local" ;;
155 esac
157 if local_ref_name=$(expr "z$local" : 'zrefs/\(.*\)')
158 then
159 git check-ref-format "$local_ref_name" ||
160 die "* refusing to create funny ref '$local_ref_name' locally"
162 echo "${dot_prefix}${force}${remote}:${local}"
163 done
166 # Returns list of src: (no store), or src:dst (store)
167 get_remote_default_refs_for_fetch () {
168 data_source=$(get_data_source "$1")
169 case "$data_source" in
171 echo "HEAD:" ;;
172 self)
173 canon_refs_list_for_fetch -d "$1" \
174 $(git for-each-ref --format='%(refname):')
176 config)
177 canon_refs_list_for_fetch -d "$1" \
178 $(git config --get-all "remote.$1.fetch") ;;
179 branches)
180 remote_branch=$(sed -ne '/#/s/.*#//p' "$GIT_DIR/branches/$1")
181 case "$remote_branch" in '') remote_branch=master ;; esac
182 echo "refs/heads/${remote_branch}:refs/heads/$1"
184 remotes)
185 canon_refs_list_for_fetch -d "$1" $(sed -ne '/^Pull: */{
186 s///p
187 }' "$GIT_DIR/remotes/$1")
190 die "internal error: get-remote-default-ref-for-fetch $1" ;;
191 esac
194 get_remote_refs_for_push () {
195 case "$#" in
196 0) die "internal error: get-remote-refs-for-push." ;;
197 1) get_remote_default_refs_for_push "$@" ;;
198 *) shift; echo "$@" ;;
199 esac
202 get_remote_refs_for_fetch () {
203 case "$#" in
205 die "internal error: get-remote-refs-for-fetch." ;;
207 get_remote_default_refs_for_fetch "$@" ;;
209 shift
210 tag_just_seen=
211 for ref
213 if test "$tag_just_seen"
214 then
215 echo "refs/tags/${ref}:refs/tags/${ref}"
216 tag_just_seen=
217 continue
218 else
219 case "$ref" in
220 tag)
221 tag_just_seen=yes
222 continue
224 esac
226 canon_refs_list_for_fetch "$ref"
227 done
229 esac
232 resolve_alternates () {
233 # original URL (xxx.git)
234 top_=`expr "z$1" : 'z\([^:]*:/*[^/]*\)/'`
235 while read path
237 case "$path" in
238 \#* | '')
239 continue ;;
241 echo "$top_$path/" ;;
242 ../*)
243 # relative -- ugly but seems to work.
244 echo "$1/objects/$path/" ;;
246 # exit code may not be caught by the reader.
247 echo "bad alternate: $path"
248 exit 1 ;;
249 esac
250 done
253 get_uploadpack () {
254 data_source=$(get_data_source "$1")
255 case "$data_source" in
256 config)
257 uplp=$(git config --get "remote.$1.uploadpack")
258 echo ${uplp:-git-upload-pack}
261 echo "git-upload-pack"
263 esac