rc/bin/ssam

   1 #!/bin/rc
   2 # ssam - stream interface to sam
   3 rfork e
   4
   5 flagfmt='n,e script,f sfile'
   6 args='[ file ... ]'
   7 fn usage { echo $0 '[ -n ] [ -e script ] [ -f sfile ] [ file ... ]' >[1=2] }
   8 if(! ifs=() eval `{aux/getflags $*}){
   9         usage
  10         exit usage
  11 }
  12
  13 if(~ $#flage 0 && ~ $#flagf 0) {
  14         if(~ $#* 0) {
  15                 usage
  16                 exit usage
  17         }
  18         flage=$1
  19         shift
  20 }
  21
  22 if(~ $#TMPDIR 0)
  23         TMPDIR=/tmp
  24 tmp=$TMPDIR/ssam.tmp.$user.$pid
  25 cat $* >$tmp
  26
  27 {
  28         # select entire file
  29         echo ',{'
  30         echo k
  31         echo '}'
  32         echo 0k
  33
  34         # run scripts, print
  35         if(! ~ $#flagf 0)
  36                 cat $flagf
  37         if(! ~ $#flage 0)
  38                 echo $flage
  39         if(~ $#flagn 0)
  40                 echo ,
  41 } | sam -d $tmp >[2]/dev/null
  42
  43 rm -f $tmp