Andrew's git - gitweb.git/blob

   1#!/bin/sh
   2#
   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.
   7
   8# See git-sh-setup why.
   9unset CDPATH
  10
  11usage() {
  12        echo >&2 "* git clone [-l [-s]] [-q] [-u <upload-pack>] [-n] <repo> [<dir>]"
  13        exit 1
  14}
  15
  16get_repo_base() {
  17        (cd "$1" && (cd .git ; pwd)) 2> /dev/null
  18}
  19
  20if [ -n "$GIT_SSL_NO_VERIFY" ]; then
  21    curl_extra_args="-k"
  22fi
  23
  24http_fetch () {
  25        # $1 = Remote, $2 = Local
  26        curl -nsfL $curl_extra_args "$1" >"$2"
  27}
  28
  29clone_dumb_http () {
  30        # $1 - remote, $2 - local
  31        cd "$2" &&
  32        clone_tmp='.git/clone-tmp' &&
  33        mkdir -p "$clone_tmp" || exit 1
  34        http_fetch "$1/info/refs" "$clone_tmp/refs" &&
  35        http_fetch "$1/objects/info/packs" "$clone_tmp/packs" || {
  36                echo >&2 "Cannot get remote repository information.
  37Perhaps git-update-server-info needs to be run there?"
  38                exit 1;
  39        }
  40        while read type name
  41        do
  42                case "$type" in
  43                P) ;;
  44                *) continue ;;
  45                esac &&
  46
  47                idx=`expr "$name" : '\(.*\)\.pack'`.idx
  48                http_fetch "$1/objects/pack/$name" ".git/objects/pack/$name" &&
  49                http_fetch "$1/objects/pack/$idx" ".git/objects/pack/$idx" &&
  50                git-verify-pack ".git/objects/pack/$idx" || exit 1
  51        done <"$clone_tmp/packs"
  52
  53        while read sha1 refname
  54        do
  55                name=`expr "$refname" : 'refs/\(.*\)'` &&
  56                case "$name" in
  57                *^*)    ;;
  58                *)
  59                        git-http-fetch -v -a -w "$name" "$name" "$1/" || exit 1
  60                esac
  61        done <"$clone_tmp/refs"
  62        rm -fr "$clone_tmp"
  63}
  64
  65quiet=
  66use_local=no
  67local_shared=no
  68no_checkout=
  69upload_pack=
  70while
  71        case "$#,$1" in
  72        0,*) break ;;
  73        *,-n) no_checkout=yes ;;
  74        *,-l|*,--l|*,--lo|*,--loc|*,--loca|*,--local) use_local=yes ;;
  75        *,-s|*,--s|*,--sh|*,--sha|*,--shar|*,--share|*,--shared) 
  76          local_shared=yes ;;
  77        *,-q|*,--quiet) quiet=-q ;;
  78        1,-u|1,--upload-pack) usage ;;
  79        *,-u|*,--upload-pack)
  80                shift
  81                upload_pack="--exec=$1" ;;
  82        *,-*) usage ;;
  83        *) break ;;
  84        esac
  85do
  86        shift
  87done
  88
  89# Turn the source into an absolute path if
  90# it is local
  91repo="$1"
  92local=no
  93if base=$(get_repo_base "$repo"); then
  94        repo="$base"
  95        local=yes
  96fi
  97
  98dir="$2"
  99# Try using "humanish" part of source repo if user didn't specify one
 100[ -z "$dir" ] && dir=$(echo "$repo" | sed -e 's|/$||' -e 's|:*/*\.git$||' -e 's|.*/||g')
 101[ -e "$dir" ] && echo "$dir already exists." && usage
 102mkdir -p "$dir" &&
 103D=$(
 104        (cd "$dir" && git-init-db && pwd)
 105) &&
 106test -d "$D" || usage
 107
 108# We do local magic only when the user tells us to.
 109case "$local,$use_local" in
 110yes,yes)
 111        ( cd "$repo/objects" ) || {
 112                echo >&2 "-l flag seen but $repo is not local."
 113                exit 1
 114        }
 115
 116        case "$local_shared" in
 117        no)
 118            # See if we can hardlink and drop "l" if not.
 119            sample_file=$(cd "$repo" && \
 120                          find objects -type f -print | sed -e 1q)
 121
 122            # objects directory should not be empty since we are cloning!
 123            test -f "$repo/$sample_file" || exit
 124
 125            l=
 126            if ln "$repo/$sample_file" "$D/.git/objects/sample" 2>/dev/null
 127            then
 128                    l=l
 129            fi &&
 130            rm -f "$D/.git/objects/sample" &&
 131            cd "$repo" &&
 132            find objects -depth -print | cpio -puamd$l "$D/.git/" || exit 1
 133            ;;
 134        yes)
 135            mkdir -p "$D/.git/objects/info"
 136            {
 137                test -f "$repo/objects/info/alternates" &&
 138                cat "$repo/objects/info/alternates";
 139                echo "$repo/objects"
 140            } >"$D/.git/objects/info/alternates"
 141            ;;
 142        esac
 143
 144        # Make a duplicate of refs and HEAD pointer
 145        HEAD=
 146        if test -f "$repo/HEAD"
 147        then
 148                HEAD=HEAD
 149        fi
 150        (cd "$repo" && tar cf - refs $HEAD) |
 151        (cd "$D/.git" && tar xf -) || exit 1
 152        ;;
 153*)
 154        case "$repo" in
 155        rsync://*)
 156                rsync $quiet -av --ignore-existing  \
 157                        --exclude info "$repo/objects/" "$D/.git/objects/" &&
 158                rsync $quiet -av --ignore-existing  \
 159                        --exclude info "$repo/refs/" "$D/.git/refs/" || exit
 160
 161                # Look at objects/info/alternates for rsync -- http will
 162                # support it natively and git native ones will do it on the
 163                # remote end.  Not having that file is not a crime.
 164                rsync -q "$repo/objects/info/alternates" \
 165                        "$D/.git/TMP_ALT" 2>/dev/null ||
 166                        rm -f "$D/.git/TMP_ALT"
 167                if test -f "$D/.git/TMP_ALT"
 168                then
 169                    ( cd "$D" &&
 170                      . git-parse-remote &&
 171                      resolve_alternates "$repo" <"./.git/TMP_ALT" ) |
 172                    while read alt
 173                    do
 174                        case "$alt" in 'bad alternate: '*) die "$alt";; esac
 175                        case "$quiet" in
 176                        '')     echo >&2 "Getting alternate: $alt" ;;
 177                        esac
 178                        rsync $quiet -av --ignore-existing  \
 179                            --exclude info "$alt" "$D/.git/objects" || exit
 180                    done
 181                    rm -f "$D/.git/TMP_ALT"
 182                fi
 183                ;;
 184        http://*)
 185                clone_dumb_http "$repo" "$D"
 186                ;;
 187        *)
 188                cd "$D" && case "$upload_pack" in
 189                '') git-clone-pack $quiet "$repo" ;;
 190                *) git-clone-pack $quiet "$upload_pack" "$repo" ;;
 191                esac
 192                ;;
 193        esac
 194        ;;
 195esac
 196
 197cd "$D" || exit
 198
 199if test -f ".git/HEAD"
 200then
 201        head_points_at=`git-symbolic-ref HEAD`
 202        case "$head_points_at" in
 203        refs/heads/*)
 204                head_points_at=`expr "$head_points_at" : 'refs/heads/\(.*\)'`
 205                mkdir -p .git/remotes &&
 206                echo >.git/remotes/origin \
 207                "URL: $repo
 208Pull: $head_points_at:origin" &&
 209                cp ".git/refs/heads/$head_points_at" .git/refs/heads/origin &&
 210                find .git/refs/heads -type f -print |
 211                while read ref
 212                do
 213                        head=`expr "$ref" : '.git/refs/heads/\(.*\)'` &&
 214                        test "$head_points_at" = "$head" ||
 215                        test "origin" = "$head" ||
 216                        echo "Pull: ${head}:${head}"
 217                done >>.git/remotes/origin
 218        esac
 219
 220        case "$no_checkout" in
 221        '')
 222                git checkout
 223        esac
 224fi