shithub: git9

Download patch

ref: 32d0c36db869b89a8d7d2669cc3d05a72e8025ce
parent: 8d7ff33feb7f018ea331edca7918118da453f999
author: Ori Bernstein <ori@eigenstate.org>
date: Fri Sep 4 18:29:56 EDT 2020

scripts: revert 777e9c6d56ed9eaeb28196b3b6da77a34139f892

With the change in mechanism for git/compat, we don't need
to use the full path to git binaries, and the full path is
a bit ugly. Let's roll it back.

--- a/branch
+++ b/branch
@@ -30,18 +30,18 @@
 	new=refs/heads/$branch
 
 if (~ $#baseref 1)
-	base=`{/$cputype/bin/git/query $baseref} || exit 'bad base'
+	base=`{git/query $baseref} || exit 'bad base'
 if not if(test -e .git/$new)
-	base=`{/$cputype/bin/git/query $new}
+	base=`{git/query $new}
 if not
-	base=`{/$cputype/bin/git/query HEAD}
+	base=`{git/query HEAD}
 
-modified=`$nl{/$cputype/bin/git/query -c HEAD $base | grep '^[^-]' | subst '^..'}
-deleted=`$nl{/$cputype/bin/git/query -c HEAD $base | grep '^-' | subst '^..'}
+modified=`$nl{git/query -c HEAD $base | grep '^[^-]' | subst '^..'}
+deleted=`$nl{git/query -c HEAD $base | grep '^-' | subst '^..'}
 
 if(! ~ $#modified 0 || ! ~ $#deleted 0){
-	if(! /$cputype/bin/git/walk -q $modified $deleted){
-		/$cputype/bin/git/walk -fRMA $modified $deleted
+	if(! git/walk -q $modified $deleted){
+		git/walk -fRMA $modified $deleted
 		die 'uncommited changes would be clobbered'
 	}
 }
@@ -56,7 +56,7 @@
 	if(! ~ $#baseref 0)
 		die update would clobber $branch with $baseref
 }
-commit=`{/$cputype/bin/git/query $base} || die 'branch does not exist:' $base
+commit=`{git/query $base} || die 'branch does not exist:' $base
 echo updating $new to $commit
 echo $commit > .git/$new
 
@@ -65,7 +65,7 @@
 	exit
 
 if(! ~ $#modified 0){
-	basedir=`{/$cputype/bin/git/query -p $base}
+	basedir=`{git/query -p $base}
 	for(m in $modified){
 		d=`{basename -d $m}
 		mkdir -p $d
--- a/clone
+++ b/clone
@@ -30,7 +30,7 @@
 		echo '	url='$remote
 		echo '	fetch=+refs/heads/*:refs/remotes/origin/*'
 	}
-	{/$cputype/bin/git/fetch $remote >[2=3] | awk '
+	{git/fetch $remote >[2=3] | awk '
 		/^remote/{
 			if($2=="HEAD"){
 				headhash=$3
@@ -64,12 +64,12 @@
 	'} |[3] tr '\x0d' '\x0a' || die 'could not clone repository'
 
 	tree=/mnt/git/HEAD/tree
-	lbranch=`{/$cputype/bin/git/branch}
+	lbranch=`{git/branch}
 	rbranch=`{echo $lbranch | subst '^heads' 'remotes/origin'}
 	echo checking out repository...
 	if(test -f .git/refs/$rbranch){
 		cp .git/refs/$rbranch .git/refs/$lbranch
-		/$cputype/bin/git/fs
+		git/fs
 		@ {builtin cd $tree && tar cif /fd/1 .} | @ {tar xf /fd/0} \
 			|| die 'checkout failed:' $status
 		for(f in `$nl{walk -f $tree | subst '^'$tree'/*'}){
--- a/commit
+++ b/commit
@@ -3,8 +3,8 @@
 . /sys/lib/git/common.rc
 
 fn whoami{
-	name=`{/$cputype/bin/git/conf user.name}
-	email=`{/$cputype/bin/git/conf user.email}
+	name=`{git/conf user.name}
+	email=`{git/conf user.email}
 	if(test -f /adm/keys.who){
 		if(~ $name '')
 			name=`{awk -F'|' '$1=="'$user'" {x=$3} END{print x}' </adm/keys.who}
@@ -18,7 +18,7 @@
 }
 
 fn findbranch{
-	branch=`{/$cputype/bin/git/branch}
+	branch=`{git/branch}
 	if(test -e /mnt/git/branch/$branch/tree){
 		refpath=.git/refs/$branch
 		initial=false
@@ -58,11 +58,11 @@
 			echo '#'
 			for(p in $parents)
 				echo '# parent:' $p
-			/$cputype/bin/git/walk -fAMR $files | subst -g '^' '# '
+			git/walk -fAMR $files | subst -g '^' '# '
 			echo '#'
 			echo '# Commit message:'
 		}
-		giteditor=`{/$cputype/bin/git/conf core.editor}
+		giteditor=`{git/conf core.editor}
 		if(~ $#editor 0)
 			editor=$giteditor
 		if(~ $#editor 0)
@@ -80,7 +80,7 @@
 	if not if(~ $initial true)
 		parents=()
 	if not
-		parents=`{/$cputype/bin/git/query $branch}
+		parents=`{git/query $branch}
 }
 
 fn commit{
@@ -87,7 +87,7 @@
 	msg=`"{cat $msgfile}
 	if(! ~ $#parents 0)
 		pflags='-p'^$parents
-	hash=`{/$cputype/bin/git/save -n $"name -e $"email  -m $"msg $pflags $files || die $status}
+	hash=`{git/save -n $"name -e $"email  -m $"msg $pflags $files || die $status}
 	rm -f .git/index9/merge-parents
 }
 
@@ -125,7 +125,7 @@
 if(~ $#msg 1)
 	echo $msg >$msgfile.tmp
 
-files=`{/$cputype/bin/git/walk -c `{cleanname $gitrel/$*}}
+files=`{git/walk -c `{cleanname $gitrel/$*}}
 if(~ $status '' || ~ $#files 0 && ! test -f .git/index9/merge-parents)
 	die 'nothing to commit' $status
 @{
--- a/common.rc
+++ b/common.rc
@@ -31,7 +31,7 @@
 }
 
 fn gitup{
-	gitroot=`{/$cputype/bin/git/conf -r >[2]/dev/null}
+	gitroot=`{git/conf -r >[2]/dev/null}
 	if(~ $#gitroot 0)
 		die 'not a git repository'
 	gitrel=`{pwd | subst '^'$"gitroot'/?'}
@@ -44,7 +44,7 @@
 	if(! grep -s '^repo '$gitroot'$' /mnt/git/ctl >[2]/dev/null)
 		startfs=true
 	if(~ $#startfs 1)
-		/$cputype/bin/git/fs
+		git/fs
 	if not
 		status=''
 }
--- a/compat
+++ b/compat
@@ -20,7 +20,7 @@
 		shift
 	}
 	ls >[1=2]
-	/$cputype/bin/git/init $opts $args
+	git/init $opts $args
 }
 
 fn cmd_clone{
@@ -39,15 +39,15 @@
 		}
 		shift
 	}
-	/$cputype/bin/git/clone $opts $args
+	git/clone $opts $args
 	if(~ $#branch 1)
-		/$cputype/bin/git/branch -n -b $1 origin/$1
+		git/branch -n -b $1 origin/$1
 }
 
 fn cmd_pull{
 	if(~ $1 -*)
 		die unknown options for pull $*
-	/$cputype/bin/git/pull
+	git/pull
 }
 
 fn cmd_fetch{
@@ -67,7 +67,7 @@
 		}
 		shift
 	}	
-	/$cputype/bin/git/pull -f $opts
+	git/pull -f $opts
 }
 
 
@@ -76,7 +76,7 @@
 		die unknown command pull $*
 	if(~ $#* 0)
 		die git checkout branch
-	/$cputype/bin/git/branch $b
+	git/branch $b
 }
 
 fn rev-parse{
--- a/diff
+++ b/diff
@@ -12,14 +12,14 @@
 files=()
 if(! ~ $#* 0)
 	files=`{cleanname $gitrel/$*}
-branch=`{/$cputype/bin/git/query -p $commit}
+branch=`{git/query -p $commit}
 if(~ $summarize 1){
-	/$cputype/bin/git/walk -fMAR $files
+	git/walk -fMAR $files
 	exit
 }
-dirty=`$nl{/$cputype/bin/git/walk -c -fRMA $files}
+dirty=`$nl{git/walk -c -fRMA $files}
 if(! ~ $commit HEAD)
-	dirty=($dirty `$nl{/$cputype/bin/git/query -c $commit HEAD | subst '^..'})
+	dirty=($dirty `$nl{git/query -c $commit HEAD | subst '^..'})
 for(f in $dirty){
 	orig=$branch/tree/$f
 	if(! test -f $orig)
--- a/export
+++ b/export
@@ -19,13 +19,13 @@
 q=$*
 if(~ $#q 0)
 	q=HEAD
-commits=`{/$cputype/bin/git/query $q || die $status}
+commits=`{git/query $q || die $status}
 n=1
 m=$#commits
 mntgen /mnt/scratch
 for(c in $commits){
-	cp=`{/$cputype/bin/git/query -p $c}
-	pp=`{/$cputype/bin/git/query -p $c'^'}
+	cp=`{git/query -p $c}
+	pp=`{git/query -p $c'^'}
 
 	@{
 		rfork n
--- a/import
+++ b/import
@@ -8,12 +8,12 @@
 }
 
 fn apply @{
-	/$cputype/bin/git/fs
+	git/fs
 	email=''
 	name=''
 	msg=''
-	parents='-p'^`{/$cputype/bin/git/query HEAD}
-	branch=`{/$cputypeb/in/git/branch}
+	parents='-p'^`{git/query HEAD}
+	branch=`{git/branch}
 	if(test -e /mnt/git/branch/$branch/tree)
 		refpath=.git/refs/$branch
 	if not if(test -e /mnt/git/object/$branch/tree)
@@ -77,12 +77,12 @@
 		files=`$nl{ape/patch -Ep1 < $diffpath | sed ''s/^patching file `(.*)''''/\1/''}
 		for(f in $files){
 			if(test -e $f)
-				/$cputype/bin/git/add $f
+				git/add $f
 			if not
-				/$cputype/bin/git/add -r $f
+				git/add -r $f
 		}
-		/$cputype/bin/git/walk -fRMA $files
-		hash=`{/$cputype/bin/git/save -n $name -e $email -m $msg -d $date $parents $files}
+		git/walk -fRMA $files
+		hash=`{git/save -n $name -e $email -m $msg -d $date $parents $files}
 		echo $hash > $refpath
 	'
 }
--- a/log
+++ b/log
@@ -9,11 +9,11 @@
 
 base=/mnt/git/object/
 if(~ $#branch 0)
-	branch=`{/$cputype/bin/git/branch}
+	branch=`{git/branch}
 if(~ $#expr 0)
-	commits=`{/$cputype/bin/git/query $branch}
+	commits=`{git/query $branch}
 if not
-	commits=`{/$cputype/bin/git/query $expr}
+	commits=`{git/query $expr}
 
 files=()
 if(! ~ $#* 0)
@@ -24,7 +24,7 @@
 	show=()
 	c=$commits(1)
 	if(! ~ $#files 0){
-		ncomm=`{comm -12 /env/files <{/$cputype/bin/git/query -c $c~ $c | subst '^..' | sort} | wc -l}
+		ncomm=`{comm -12 /env/files <{git/query -c $c~ $c | subst '^..' | sort} | wc -l}
 		if(! ~ $ncomm 0)
 			show=true
 	}
--- a/merge
+++ b/merge
@@ -23,9 +23,9 @@
 			echo merge needed: $f
 
 		if(test -f $f)
-			/$cputype/bin/git/add $f
+			git/add $f
 		if not
-			/$cputype/bin/git/rm $f
+			git/rm $f
 	}
 }
 
@@ -37,18 +37,18 @@
 if(! ~ $#* 1)
 	exec aux/usage
 
-theirs=`{/$cputytpe/bin/git/query $1}
-ours=`{/$cputype/bin/git/query HEAD}
-base=`{/$cputype/bin/git/query $theirs ^ ' ' ^ $ours ^ '@'}
+theirs=`{git/query $1}
+ours=`{git/query HEAD}
+base=`{git/query $theirs ^ ' ' ^ $ours ^ '@'}
 
 if(~ $base $theirs)
 	die 'nothing to merge, doofus'
-if(! /$cputype/bin/git/walk -q)
+if(! git/walk -q)
 	die 'dirty work tree, refusing to merge'
 if(~ $base $ours){
 	>[1=2] echo 'fast forwarding...'
-	echo $theirs > .git/refs/`{/$cputype/bin/git/branch}
-	/$cputype/bin/git/revert .
+	echo $theirs > .git/refs/`{git/branch}
+	git/revert .
 	exit ''
 }
 echo $ours >> .git/index9/merge-parents
--- a/mkfile
+++ b/mkfile
@@ -17,7 +17,6 @@
 	branch\
 	clone\
 	commit\
-	compat\
 	diff\
 	export\
 	import\
--- a/pull
+++ b/pull
@@ -10,7 +10,7 @@
 	bflag=()
 	if(! ~ $branch '')
 		bflag=(-b $branch)
-	{/$cputype/bin/git/fetch $bflag -u $upstream $url >[2=3] || die $status} | awk '
+	{git/fetch $bflag -u $upstream $url >[2=3] || die $status} | awk '
 	/^remote/{
 		if($2=="HEAD")
 			next
@@ -33,13 +33,13 @@
 eval `''{aux/getflags $*} || exec aux/usage
 
 if(~ $#branch 0)
-	branch=refs/`{/$cputype/bin/git/branch}
+	branch=refs/`{git/branch}
 if(~ $allbranch 1)
 	branch=''
 
 if(~ $#upstream 0)
 	upstream=origin
-remote=`{/$cputype/bin/git/conf 'remote "'$upstream'".url'}
+remote=`{git/conf 'remote "'$upstream'".url'}
 if(~ $#remote 0)
 	die 'no remote to pull from'
 
@@ -47,22 +47,22 @@
 if (~ $fetchonly 1)
 	exit
 
-local=`{//$cputype/bin/git/branch}
-remote=`{/$cputype/bin/git/branch | subst '^(refs/)?heads' 'remotes/'$upstream}
+local=`{git/branch}
+remote=`{git/branch | subst '^(refs/)?heads' 'remotes/'$upstream}
 
 # we have local commits, but the remote hasn't changed.
 # in this case, we want to keep the local commits untouched.
-if(~ `{/$cputype/bin/git/query HEAD $remote @} `{/$cputype/bin/git/query $remote}){
+if(~ `{git/query HEAD $remote @} `{git/query $remote}){
 	echo 'up to date' >[1=2]
 	exit
 }
 # The remote repository and our HEAD have diverged: we
 # need to merge.
-if(! ~ `{/$cputype/bin/git/query HEAD $remote @} `{/$cputype/bin/git/query HEAD}){
+if(! ~ `{git/query HEAD $remote @} `{git/query HEAD}){
 	>[1=2]{
-		echo ours:	`{/$cputype/bin/git/query HEAD}
-		echo theirs:	`{/$cputype/bin/git/query $remote}
-		echo common:	`{/$cputype/bin/git/query HEAD $remote @}
+		echo ours:	`{git/query HEAD}
+		echo theirs:	`{git/query $remote}
+		echo common:	`{git/query HEAD $remote @}
 		echo git/merge $remote
 	}
 	exit diverged
@@ -69,9 +69,9 @@
 }
 # The remote is directly ahead of the local, and we have
 # no local commits that need merging.
-if(~ $quiet 0)
-	/$cputype/bin/git/log -s -e $local'..'$remote >[1=2]
+if(~ $#quiet 0)
+	git/log -s -e $local'..'$remote >[1=2]
 echo
-echo $remote':' `{/$cputype/bin/git/query $local} '=>' `{/$cputype/bin/git/query $remote}  >[1=2]
-/$cputype/bin/git/branch -n -b $remote $local
+echo $remote':' `{git/query $local} '=>' `{git/query $remote}  >[1=2]
+git/branch -n -b $remote $local
 exit ''
--- a/push
+++ b/push
@@ -13,7 +13,7 @@
 if(~ $pushall 1)
 	branch=`$nl{cd .git/refs/heads && walk -f}
 if(~ $#branch 0)
-	branch=`{/$cputype/bin/git/branch}
+	branch=`{git/branch}
 if(~ $#branch 0)
 	die 'no branches'
 if(~ $force 1)
@@ -24,13 +24,13 @@
 if(~ $#upstream 0)
 	upstream=origin
 
-remote=`{/$cputype/bin/git/conf 'remote "'$upstream'".url'}
+remote=`{git/conf 'remote "'$upstream'".url'}
 if(~ $#remote 0)
 	remote=$upstream
 branch=-b^$branch
 if(! ~ $#remove 0)
 	remove=-r^$remove
-updates=`$nl{/$cputype/bin/git/send $debug $force $branch $remove $remote || die $status}
+updates=`$nl{git/send $debug $force $branch $remove $remote || die $status}
 for(ln in $updates){
 	u=`{echo $ln}
 	refpath=`{echo $u(2) | subst '^refs/heads/' '.git/refs/remotes/'$upstream'/'}
--- a/rm
+++ b/rm
@@ -1,3 +1,3 @@
 #!/bin/rc -e
 
-exec /$cputype/bin/git/add -r $*
+exec git/add -r $*