shithub: git9

ref: befc2738356f9029f6631bef93d68e3f0d65d5ef
dir: /branch/

#!/bin/rc -e

rfork en

fn usage{
	echo usage: $0 '[-b base] [-o origin] new
	-b base:	use "base" for branch (default: current branch)
	-o origin:	use "origin" for remote branch
	-u:		update branch if it exists
	new:	name of new branch' >[1=2]
	exit usage
}

if(! cd `{git/conf -r}){
	exit 'not in git repository'
	exit notgit
}
git/fs

nl='
'
stay=()
create=()
delete=()
update=()
base=`{awk '$1=="branch"{print $2}' < /mnt/git/ctl}
while(~ $1 -* && ! ~ $1 --){
	switch($1){
	case -c; create=true
	case -s; stay=true
	case -b; shift; base=$1
	case -d; delete=true
	case -u; update=true
	case *
		usage
	}
	shift
}
if(~ $1 --) shift

if(~ $#* 0){
	echo $base
	exit
}

if(! ~ $#* 1)
	usage
if(~ $1 refs/heads/*)
	new=$1
if not if(~ $1 heads/*)
	new=refs/$1
if not
	new=refs/heads/$1

if(! ~ $#delete 0){
	rm -f .git/$new
	exit
}

if(~ $#update 0 && test -f .git/$new){
	echo branch $1 already exists
	exit already-got-one
}

if(! git/walk -q `{git/query -c HEAD $base | sed 's/^..//'}){
	echo branch update would clobber changes >[1=2]
	exit dirty
}

if(! ~ $#create 0){
	if(! test -e .git/$new){
		echo branch $new: does not exist >[1=2]
		exit noexist
	}
}
if not{
	commit=`{git/query $base}
	st=$status
	if(! ~ $st ''){
		echo could not find branch $base':' $st >[1=2]
		exit notfound
	}
	echo $commit > .git/$new
}


modified=`$nl{git/query -c HEAD $new | grep '^[^-]' | sed 's/^..//'}
deleted=`$nl{git/query -c HEAD $new | grep '^-' | sed 's/^..//'}

if(! ~ $#stay 0)
	exit

if(! ~ $#modified 0){
	basedir=`{git/query -p $base}
	# Modifications can turn a file into
	# a directory, so we need to walk to
	# check the blobs out correctly.
	for(m in $modified){
		if(test -f $basedir/tree/$m){
			d=`{basename -d $m}
			mkdir -p $d
			mkdir -p .git/index9/tracked/$d
			cp  $basedir/tree/$m $m
			walk -eq $m > .git/index9/tracked/$m
		}
	}
}
if(! ~ $#deleted 0){
	rm -f $deleted
	rm -f .git/index9/tracked/$deleted
}

echo ref: $new > .git/HEAD