ref: 6cb359cc00bdc8204b011db46b8746c446f2c4de
dir: /rc/bin/ssam/
#!/bin/rc # ssam - stream interface to sam rfork e flagfmt='n,e script,f sfile' args='[ file ... ]' fn usage { echo $0 '[ -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