Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/bin/rc
2 
# patch/move target patch-tree... - move patch tree(s) to target dir
3 
rfork e
4 
pats=/n/sources/patch
5 
if(~ $#* 0 1){
6 
	echo 'usage: patch/move dst patch-name...' >[1=2]
7 
	exit usage
8 
}
9 
 
10 
if(! test -d $pats){
11 
	rfork n
12 
	9fs sources
13 
}
14 
cd $pats
15 
 
16 
dst=$1
17 
shift
18 
for(src){
19 
	patbase = `{basename $src}
20 
	patdest = $dst/$patbase
21 
	if (~ $dst $src $patbase)
22 
		echo $0: skipping $src >[1=2]
23 
	if not if(! test -d $src)
24 
		echo $0: no such patch $pats/$src >[1=2]
25 
	if not if(test -d $patdest)
26 
		echo $0: already have $pats/$patdest >[1=2]
27 
	if not
28 
		ls -ldp $src >$src/origls &&
29 
			mkdir $patdest && dircp $src $patdest && rm -rf $src &&
30 
			test -s $patdest/email && patch/notify $patdest
31 
}