Source

plan9port / bin / ssam

Full commit
#!/usr/local/plan9/bin/rc
# ssam - stream interface to sam

flagfmt='n,e script,f sfile'
args='[ file ... ]'
if(! ifs=() eval `{getflags $*}){
	usage
	exit usage
}

if(~ $#flage 0 && ~ $#flagf 0) {
	if(~ $#* 0) {
		usage
		exit usage
	}
	flage=$1
	shift
}

if(~ $#TMPDIR 0)
	TMPDIR=/tmp
tmp=$TMPDIR/ssam.tmp.$USER.$pid
cat $* >$tmp

{
	# select entire file
	echo ',{'
	echo k
	echo '}'
	echo 0k

	# run scripts, print
	if(! ~ $#flagf 0)
		cat $flagf
	if(! ~ $#flage 0)
		echo $flage
	if(~ $#flagn 0)
		echo ,
} | sam -d $tmp >[2]/dev/null

rm -f $tmp