ref: 34bdfecb51c9948156b41c4774e8cd500cda2180
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=() update=() delete=() 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 -u; update=true case -d; delete=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(! git/walk -q `{git/query -c HEAD $base | sed 's/^..//'}){ echo remote changes would clobber local 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{ if(~ $#update 0 && test -e .git/$new){ echo could not create $1: already exists >[1=2] exit exists } branched=() remotes=`$nl{cd .git/refs/remotes && ls} 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/^..//'} echo $deleted 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