[9front] Git/revert abs path handling

[9front] Git/revert abs path handling

[Alex Musolino]

I noticed that git/revert doesn't work if you supply it absolute path
names and your cwd is not /.  The following patch does the trick for
me.

--- //.git/fs/object/b3215c807556cdaaa0f949f1fb3f97c484ffd1da/tree/sys/src/cmd/git/revert
+++ sys/src/cmd/git/revert
@@ -2,6 +2,21 @@
 rfork en
 . /sys/lib/git/common.rc
 
+fn treewalk{@{
+	if(cd $1/tree){
+		shift
+		for(p){
+			switch($p){
+			case /*
+				wargs=($wargs ./$p)
+			case *
+				wargs=($wargs ./$gitrel/$p)
+			}
+		}
+		walk -f $wargs
+	}
+}}
+
 gitup
 
 flagfmt='c:query query' args='file ...'
@@ -11,9 +26,9 @@
 if(~ $#query 1)
 	commit=`{git/query -p $query}
 
-for(f in `$nl{cd $commit/tree/ && walk -f ./$gitrel/$*}){
-	mkdir -p `{basename -d $f}
-	cp -- $commit/tree/$f $f
-	git/add $f
+for(f in `$nl{treewalk $commit $*}){
+	mkdir -p `{basename -d /$f}
+	cp -- $commit/tree/$f /$f
+	git/add /$f
 }
 exit ''

Re: [9front] Git/revert abs path handling

[kvik]

> +	cp -- $commit/tree/$f /$f

I believe we want -x here to preserve perms.

Re: [9front] Git/revert abs path handling

[Alex Musolino]

Quoth kvik@a-b.xyz:
> > +	cp -- $commit/tree/$f /$f
> 
> I believe we want -x here to preserve perms.

Yeah, I agree.  I'd say you'd be fairly safe to just commit this if
you want.  We'll wait for Ori to yay-or-nay my change though.

Re: [9front] Git/revert abs path handling

[ori]

Quoth Alex Musolino <alex@musolino.id.au>:
> Quoth kvik@a-b.xyz:
> > > +	cp -- $commit/tree/$f /$f
> > 
> > I believe we want -x here to preserve perms.
> 
> Yeah, I agree.  I'd say you'd be fairly safe to just commit this if
> you want.  We'll wait for Ori to yay-or-nay my change though.
> 

...oops, I typed my response, and then forgot to send.
Sorry.