ref: 3f909627e0aafdd34fbe166f6d8b8edba93f9b63
parent: 9622b4f3735f76e48cf072a3a7cf857bd2140ced
author: Stanley Lieber <sl@stanleylieber.com>
date: Wed Jun 10 16:42:38 EDT 2020
add werc/bin/ssam
--- /dev/null
+++ b/bin/ssam
@@ -1,0 +1,56 @@
+#!/bin/rc
+# ssam - stream interface to sam
+rfork e
+
+fn enosam { echo ssam: sam not found >[1=2] }+for(i in `{whatis sam}){+ if(test -x $i)
+ j=1
+}
+if(~ $#j 0){+ enosam
+ exit enosam
+}
+
+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
+if(~ $#user 0)
+ user=$USER
+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
--
⑨