tssam - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       tssam (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