ref: 85ca0c9adc0d507b17f85b6de5227f533d9fb0b6
dir: /rc/bin/ssam/
#!/bin/rc # ssam - stream interface to sam rfork e flagfmt='n,e script,f sfile' args='[ file ... ]' argv0=$0 fn usage { echo usage: $argv0 '[ -n ] [ -e script ] [ -f sfile ] [ file ... ]' >[1=2] } if(! ifs=() eval `{aux/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