scripts/tree.rc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/bin/rc

flag e +

repo=$1
tag=$2
shift 2

fn checkstatus {
	s=$status if(! ~ $s '' '|') exit $s
	status=()
}

ifs=() { oldpwd=`{pwd | head -c -1} }
cd $repo

git read-tree --empty
cat $oldpwd/$* | git update-index --index-info
tree=`{git write-tree} ; checkstatus
git update-ref refs/tags/$tag $tree