Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/bin/rc
2 
# patch/diff [-w] patch-name
3 
rfork e
4 
fn usage {
5 
	echo 'usage: patch/diff [-bmnwz] patch-name' >[1=2]
6 
	exit usage
7 
}
8 
 
9 
dopts=(-c)
10 
while (! ~ $#* 0 && ~ $1 -*) {
11 
	switch ($1) {
12 
	case -[bmnw]
13 
		dopts=($dopts $1)
14 
	case -z
15 
		dopts=()
16 
	case *
17 
		usage
18 
	}
19 
	shift
20 
}
21 
if(! ~ $#* 1)
22 
	usage
23 
 
24 
if(! test -d /n/sources/patch){
25 
	rfork n
26 
	9fs sources
27 
}
28 
 
29 
if(! test -d /n/sources/patch/$1){
30 
	echo 'no such patch' /n/sources/patch/$1 >[1=2]
31 
	exit nopatch
32 
}
33 
 
34 
builtin cd /n/sources/patch/$1 || exit nopatch
35 
if(! patch/okay .){
36 
	echo 'bad patch: '$status >[1=2]
37 
	exit badpatch
38 
}
39 
 
40 
d=/n/sources/patch/$1
41 
fn xxx {
42 
	echo $1
43 
	diff $dopts $2.orig $d/$2 | sed 's/^/	/'
44 
}
45 
cat files | sed 's/^/xxx /' | rc