build: improve build for shared objects

[jimtcl.git] / examples / pipe.tcl

lassign [socket pipe] r w

# Note, once the exec has the fh (via dup), close it
# so that the pipe data is accessible
exec ps aux >@$w &
$w close

$r readable {
        puts [$r gets]
        if {[eof $r]} {
                $r close
                set done 1
        }
}

vwait done