1 0a1990b9 2009-09-30 jason.cat #!/usr/local/plan9/bin/rc
2 0a1990b9 2009-09-30 jason.cat # ssam - stream interface to sam
4 0a1990b9 2009-09-30 jason.cat flagfmt='n,e script,f sfile'
5 0a1990b9 2009-09-30 jason.cat args='[ file ... ]'
6 0a1990b9 2009-09-30 jason.cat if(! ifs=() eval `{getflags $*}){
8 0a1990b9 2009-09-30 jason.cat exit usage
11 0a1990b9 2009-09-30 jason.cat if(~ $#flage 0 && ~ $#flagf 0) {
12 0a1990b9 2009-09-30 jason.cat if(~ $#* 0) {
14 0a1990b9 2009-09-30 jason.cat exit usage
16 0a1990b9 2009-09-30 jason.cat flage=$1
20 0a1990b9 2009-09-30 jason.cat if(~ $#TMPDIR 0)
21 0a1990b9 2009-09-30 jason.cat TMPDIR=/tmp
22 0a1990b9 2009-09-30 jason.cat tmp=$TMPDIR/ssam.tmp.$USER.$pid
23 0a1990b9 2009-09-30 jason.cat cat $* >$tmp
26 0a1990b9 2009-09-30 jason.cat # select entire file
27 0a1990b9 2009-09-30 jason.cat echo ',{'
29 0a1990b9 2009-09-30 jason.cat echo '}'
30 0a1990b9 2009-09-30 jason.cat echo 0k
32 0a1990b9 2009-09-30 jason.cat # run scripts, print
33 0a1990b9 2009-09-30 jason.cat if(! ~ $#flagf 0)
34 0a1990b9 2009-09-30 jason.cat cat $flagf
35 0a1990b9 2009-09-30 jason.cat if(! ~ $#flage 0)
36 0a1990b9 2009-09-30 jason.cat echo $flage
37 0a1990b9 2009-09-30 jason.cat if(~ $#flagn 0)
39 0a1990b9 2009-09-30 jason.cat } | sam -d $tmp >[2]/dev/null
41 0a1990b9 2009-09-30 jason.cat rm -f $tmp