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                 echo ''
  11                 ;;
  12         .)
  13                 echo self
  14                 ;;
  15         *)
  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
  29 }
  30
  31 get_remote_url () {
  32         data_source=$(get_data_source "$1")
  33         case "$data_source" in
  34         '')
  35                 echo "$1"
  36                 ;;
  37         self)
  38                 echo "$1"
  39                 ;;
  40         config)
  41                 git-config --get "remote.$1.url"
  42                 ;;
  43         remotes)
  44                 sed -ne '/^URL: */{
  45                         s///p
  46                         q
  47                 }' "$GIT_DIR/remotes/$1"
  48                 ;;
  49         branches)
  50                 sed -e 's/#.*//' "$GIT_DIR/branches/$1"
  51                 ;;
  52         *)
  53                 die "internal error: get-remote-url $1" ;;
  54         esac
  55 }
  56
  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}
  61 }
  62
  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" ;;
  74         *)
  75                 die "internal error: get-remote-default-ref-for-push $1" ;;
  76         esac
  77 }
  78
  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.
  85 #
  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 "-" "$@"
  92 }
  93
  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")
 114                 fi
 115                 if test -z "$merge_branches" && test $is_explicit != explicit
 116                 then
 117                         merge_branches=..this.will.never.match.any.ref..
 118                 fi
 119         fi
 120         for ref
 121         do
 122                 force=
 123                 case "$ref" in
 124                 +*)
 125                         ref=$(expr "z$ref" : 'z+\(.*\)')
 126                         force=+
 127                         ;;
 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
 139                         do
 140                             [ "$remote" = "$merge_branch" ] &&
 141                             dot_prefix= && break
 142                         done
 143                 fi
 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
 156
 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"
 161                 fi
 162                 echo "${dot_prefix}${force}${remote}:${local}"
 163         done
 164 }
 165
 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
 170         '')
 171                 echo "HEAD:" ;;
 172         self)
 173                 canon_refs_list_for_fetch -d "$1" \
 174                         $(git-for-each-ref --format='%(refname):')
 175                 ;;
 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"
 183                 ;;
 184         remotes)
 185                 canon_refs_list_for_fetch -d "$1" $(sed -ne '/^Pull: */{
 186                                                 s///p
 187                                         }' "$GIT_DIR/remotes/$1")
 188                 ;;
 189         *)
 190                 die "internal error: get-remote-default-ref-for-fetch $1" ;;
 191         esac
 192 }
 193
 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
 200 }
 201
 202 get_remote_refs_for_fetch () {
 203         case "$#" in
 204         0)
 205             die "internal error: get-remote-refs-for-fetch." ;;
 206         1)
 207             get_remote_default_refs_for_fetch "$@" ;;
 208         *)
 209             shift
 210             tag_just_seen=
 211             for ref
 212             do
 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
 223                         ;;
 224                     esac
 225                 fi
 226                 canon_refs_list_for_fetch "$ref"
 227             done
 228             ;;
 229         esac
 230 }
 231
 232 resolve_alternates () {
 233         # original URL (xxx.git)
 234         top_=`expr "z$1" : 'z\([^:]*:/*[^/]*\)/'`
 235         while read path
 236         do
 237                 case "$path" in
 238                 \#* | '')
 239                         continue ;;
 240                 /*)
 241                         echo "$top_$path/" ;;
 242                 ../*)
 243                         # relative -- ugly but seems to work.
 244                         echo "$1/objects/$path/" ;;
 245                 *)
 246                         # exit code may not be caught by the reader.
 247                         echo "bad alternate: $path"
 248                         exit 1 ;;
 249                 esac
 250         done
 251 }
 252
 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}
 259                 ;;
 260         *)
 261                 echo "git-upload-pack"
 262                 ;;
 263         esac
 264 }