1 0a1990b9 2009-09-30 jason.cat #!/usr/local/plan9/bin/rc
 2 0a1990b9 2009-09-30 jason.cat # ssam - stream interface to sam
 3 0a1990b9 2009-09-30 jason.cat 
 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 $*}){
 7 0a1990b9 2009-09-30 jason.cat 	usage
 8 0a1990b9 2009-09-30 jason.cat 	exit usage
 9 0a1990b9 2009-09-30 jason.cat }
10 0a1990b9 2009-09-30 jason.cat 
11 0a1990b9 2009-09-30 jason.cat if(~ $#flage 0 && ~ $#flagf 0) {
12 0a1990b9 2009-09-30 jason.cat 	if(~ $#* 0) {
13 0a1990b9 2009-09-30 jason.cat 		usage
14 0a1990b9 2009-09-30 jason.cat 		exit usage
15 0a1990b9 2009-09-30 jason.cat 	}
16 0a1990b9 2009-09-30 jason.cat 	flage=$1
17 0a1990b9 2009-09-30 jason.cat 	shift
18 0a1990b9 2009-09-30 jason.cat }
19 0a1990b9 2009-09-30 jason.cat 
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
24 0a1990b9 2009-09-30 jason.cat 
25 0a1990b9 2009-09-30 jason.cat {
26 0a1990b9 2009-09-30 jason.cat 	# select entire file
27 0a1990b9 2009-09-30 jason.cat 	echo ',{'
28 0a1990b9 2009-09-30 jason.cat 	echo k
29 0a1990b9 2009-09-30 jason.cat 	echo '}'
30 0a1990b9 2009-09-30 jason.cat 	echo 0k
31 0a1990b9 2009-09-30 jason.cat 
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)
38 0a1990b9 2009-09-30 jason.cat 		echo ,
39 0a1990b9 2009-09-30 jason.cat } | sam -d $tmp >[2]/dev/null
40 0a1990b9 2009-09-30 jason.cat 
41 0a1990b9 2009-09-30 jason.cat rm -f $tmp