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