ref: 19a883ce7a8b0d1f57a1df68947af2bfa7ea5576
dir: /rc/bin/patch/move/
#!/bin/rc # patch/move target patch-tree... - move patch tree(s) to target dir rfork e pats=/n/sources/patch if(~ $#* 0 1){ echo 'usage: patch/move dst patch-name...' >[1=2] exit usage } if(! test -d $pats){ rfork n 9fs sources } cd $pats dst=$1 shift for(src){ patbase = `{basename $src} patdest = $dst/$patbase if (~ $dst $src $patbase) echo $0: skipping $src >[1=2] if not if(! test -d $src) echo $0: no such patch $pats/$src >[1=2] if not if(test -d $patdest) echo $0: already have $pats/$patdest >[1=2] if not ls -ldp $src >$src/origls && mkdir $patdest && dircp $src $patdest && rm -rf $src && test -s $patdest/email && patch/notify $patdest }