rc/bin/B

   1 #!/bin/rc
   2
   3 rfork e
   4
   5 files=()
   6 dest=()
   7
   8 if(~ $#* 0){
   9         echo usage: B file ... >[1=2]
  10         exit usage
  11 }
  12
  13 if(test -f /mnt/plumb/edit || test -f /mnt/term/mnt/plumb/edit){
  14         for(i)
  15                 plumb -s B -d edit $i
  16         exit
  17 }
  18
  19 # using sam srv file
  20
  21 for(i)
  22         switch($i){
  23         case /*
  24                 files = ( $files $i )
  25         case *
  26                 files = ( $files `{cleanname `{pwd}^/$i} )
  27         }
  28
  29 if(test -f /mnt/term/srv/sam.$user) dest = /mnt/term/srv/sam.$user
  30 if not if(test -f /srv/sam.$user) dest = /srv/sam.$user
  31 if not {
  32         echo B: can''''t find sam server file >[1=2]
  33         exit open
  34 }
  35
  36 switch($files){
  37 case *:*
  38         for(i in $files)
  39                 echo $i | sed 's/^/B /;s/:([0-9]+)$/\n\1/g' >> $dest
  40 case *
  41         echo B $files >> $dest
  42 }