ssam - 9base - revived minimalist port of Plan 9 userland to Unix
HTML git clone git://git.suckless.org/9base
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
ssam (551B)
---
1 #!/usr/local/plan9/bin/rc
2 # ssam - stream interface to sam
3
4 flagfmt='n,e script,f sfile'
5 args='[ file ... ]'
6 if(! ifs=() eval `{getflags $*}){
7 usage
8 exit usage
9 }
10
11 if(~ $#flage 0 && ~ $#flagf 0) {
12 if(~ $#* 0) {
13 usage
14 exit usage
15 }
16 flage=$1
17 shift
18 }
19
20 if(~ $#TMPDIR 0)
21 TMPDIR=/tmp
22 tmp=$TMPDIR/ssam.tmp.$USER.$pid
23 cat $* >$tmp
24
25 {
26 # select entire file
27 echo ',{'
28 echo k
29 echo '}'
30 echo 0k
31
32 # run scripts, print
33 if(! ~ $#flagf 0)
34 cat $flagf
35 if(! ~ $#flage 0)
36 echo $flage
37 if(~ $#flagn 0)
38 echo ,
39 } | sam -d $tmp >[2]/dev/null
40
41 rm -f $tmp