git-parse-remote.sh

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