rc/bin/patch/move

   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 }