ref: 02199f94227871b32a4019292bdf1c731be99cee
dir: /clone/
#!/bin/rc rfork en . /sys/lib/git/common.rc usage=' git/clone remote [local] ' remote=`{echo $1 | sed 's@/*$@@g'} local=$2 if(~ $#remote 0) usage if(~ $#local 0) local=`{basename $remote .git} if(test -e $local) die 'repository already exists:' $local fn clone{ flag +e mkdir -p $local/.git mkdir -p $local/.git/objects/pack/ mkdir -p $local/.git/refs/heads/ cd $local dircp /sys/lib/git/template .git echo '[remote "origin"]' >> .git/config echo ' url='$remote >> .git/config echo ' fetch=+refs/heads/*:refs/remotes/origin/*' >> .git/config {git/fetch $remote >[2=3] | awk ' /^remote/{ if($2=="HEAD"){ headhash=$3 headref="" }else{ gsub("^refs/heads", "refs/remotes/origin", $2) if($2 == "refs/remotes/origin/master" || $3 == headhash) headref=$2 outfile = ".git/" $2 outdir = outfile gsub("/?[^/]*/?$", "", outdir) system("mkdir -p "outdir) print $3 > outfile close(outfile) } } END{ if(headref != ""){ remote = headref; refdir = headref; gsub("/?[^/]*/?$", "", refdir) gsub("^refs/remotes/origin", "refs/heads", headref) system("mkdir -p .git/"refdir); system("cp .git/" remote " .git/" headref) print "ref: " headref > ".git/HEAD" }else if(headhash != ""){ print "warning: detached head "headhash > "/fd/2" print headhash > ".git/HEAD" } } '} |[3] tr '\x0d' '\x0a' || die 'could not clone repository' tree=/mnt/git/HEAD/tree lbranch=`{git/branch} rbranch=`{echo $lbranch | sed 's@^heads@remotes/origin@'} echo checking out repository... if(test -f .git/refs/$rbranch){ cp .git/refs/$rbranch .git/refs/$lbranch git/fs @ {builtin cd $tree && tar cif /fd/1 .} | @ {tar xf /fd/0} \ || die 'checkout failed:' $status for(f in `$nl{walk -f $tree | sed 's@^'$tree'/*@@'}){ if(! ~ $#f 0){ idx=.git/index9/tracked/$f mkdir -p `$nl{basename -d $idx} walk -eq $f > $idx } } } if not{ echo no master branch >[1=2] echo check out your code with git/branch >[1=2] } } @{clone} st=$status if(! ~ $st ''){ echo failed to clone $remote: cleaning $local >[1=2] rm -rf $local exit $st }