shithub: git9

ref: d03d4c6ef7978417e7f8833577db044375d9feed
dir: /commit/

#!/bin/rc -e
rfork ne
. /bin/git/common.rc

usage='
	git/commit
'

fn whoami{
	name=`{git/conf user.name}
	email=`{git/conf user.email}
	msgfile=.git/git-msg.$pid
	if(test -f /adm/keys.who){
		if(~ $name '')
			name=`{cat /adm/keys.who | awk -F'|' '$1=="'$user'" {print $3}'}
		if(~ $email '')
			email=`{cat /adm/keys.who | awk -F'|' '$1=="'$user'" {print $5}'}
	}
	if(~ $name '')
		name=glenda
	if(~ $email '')
		email=glenda@9front.local
}

fn findbranch{
	branch=`{awk '$1=="branch"{print $2}' < /mnt/git/ctl}
	if(test -e /mnt/git/branch/$branch/tree){
		refpath=.git/refs/$branch
		initial=false
	}
	if not if(test -e /mnt/git/object/$branch/tree){
		refpath=.git/HEAD
		initial=false
	}
	if not if(! test -e /mnt/git/HEAD/tree){
		refpath=.git/refs/$branch
		initial=true
	}
	if not
		die 'invalid branch:' $branch
}

fn editmsg{
	echo '' > $msgfile.tmp
	echo '# Commit message goes here.' >> $msgfile.tmp
	echo '# Author: '$name' <'$email'>' >> $msgfile.tmp
	echo '#' $nl'# ' ^ `$nl{git/walk -fAMR} >> $msgfile.tmp
	sam $msgfile.tmp
	if(~ `{grep -v '^[ 	]*($|#.*$)' $msgfile.tmp | wc -l} 0)
		die 'empty commit message'
	grep -v '^[ 	]*#' < $msgfile.tmp > $msgfile
}

fn parents{
	if(test -f .git/index9/merge-parents)
		parents=`{cat .git/index9/merge-parents}
	if not if(~ $initial true)
		parents=()
	if not
		parents=$branch
}

fn commit{
	msg=`"{cat $msgfile}
	if(! ~ $#parents 0)
		pflags='-p'^$parents
	hash=`{git/save -n $"name -e $"email  -m $"msg $pflags || die $status}
}

fn update{
	mkdir -p `{basename -d $refpath}
	echo $hash > $refpath
	for(f in `$nl{git/walk -cfAM}){
		mkdir -p `{basename -d $f}
		walk -eq $f > .git/index9/tracked/$f
	}
	for(f in `$nl{git/walk -cfR}){
		rm -f .git/index9/tracked/$f
		rm -f .git/index9/removed/$f
	}

}

fn cleanup{
	rm -f $msgfile
	rm -f .git/index9/merge-parents
}

gitup

msgfile=/tmp/git-msg.$pid
mkdir -p .git/refs
if(git/walk -q)
	die 'nothing to commit'
@{
	flag e +
	whoami
	findbranch
	parents
	editmsg
	commit
	update
	cleanup
} || die 'could not commit:' $status