Streaming sam.

[Alan Watson <alan@oldp.astro.wisc.edu>]

I have a recollection that a streaming version of sam a la sed is
mentioned somewhere in the sam documentation, but I cannot find this
reference now.

Was this ever implemented, and what was it's syntax and semantics?
I'm using the following (the error handling of which might be better),
but I wonder if there is a precedent to follow.  This version doesn't
really stream in the sense that I am used to (meaning set up some
commands and then stream the entire file past the commands), but it is
more flexible.  For example, to reverse a file one can use:

	; ssam ',x m0' <foo

Alan.

; cat $home/bin/ssam
#! /usr/users/alan/bin/rc

if ( ~ $#* 0) {
  echo >[1=2] Usage: ssam commands ...
  exit 1
}

FIFO=/usr/tmp/ssam.$pid.rd
mkfifo $FIFO

{
  echo 'r '$FIFO
  while ( ! ~ $#* 0 ) {
    echo $1
    shift
  }
  echo ',p'
} | sam -d >[2=] &

cat >$FIFO

wait $apid

rm -f $FIFO

exit 0

# end-of-file