1#!/bin/rc 2# patch/move target patch-tree... - move patch tree(s) to target dir 3rfork e 4pats=/n/sources/patch 5if(~ $#* 0 1){ 6 echo 'usage: patch/move dst patch-name...' >[1=2] 7 exit usage 8} 9 10if(! test -d $pats){ 11 rfork n 12 9fs sources 13} 14cd $pats 15 16dst=$1 17shift 18for(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} 32