Blob
1 #!/usr/local/plan9/bin/rc2 # ssam - stream interface to sam4 flagfmt='n,e script,f sfile'5 args='[ file ... ]'6 if(! ifs=() eval `{getflags $*}){7 usage8 exit usage9 }11 if(~ $#flage 0 && ~ $#flagf 0) {12 if(~ $#* 0) {13 usage14 exit usage15 }16 flage=$117 shift18 }20 if(~ $#TMPDIR 0)21 TMPDIR=/tmp22 tmp=$TMPDIR/ssam.tmp.$USER.$pid23 cat $* >$tmp25 {26 # select entire file27 echo ',{'28 echo k29 echo '}'30 echo 0k32 # run scripts, print33 if(! ~ $#flagf 0)34 cat $flagf35 if(! ~ $#flage 0)36 echo $flage37 if(~ $#flagn 0)38 echo ,39 } | sam -d $tmp >[2]/dev/null41 rm -f $tmp