 |
ssam - 9base - revived minimalist port of Plan 9 userland to Unix |
 |
git clone git://git.suckless.org/9base |
 |
Log |
|
Files |
|
Refs |
|
README |
|
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 |
