diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-08-12 12:37:56 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:50 +1000 |
| commit | 3d5db752ffeaf40e616198872083b3a00eadc36b (patch) | |
| tree | 3f22805afc71701f38f78821693d1f26a30de251 /examples/pipe.tcl | |
| parent | eff647111d79428d586446349f2eca2110e97554 (diff) | |
| download | jimtcl-3d5db752ffeaf40e616198872083b3a00eadc36b.zip jimtcl-3d5db752ffeaf40e616198872083b3a00eadc36b.tar.gz jimtcl-3d5db752ffeaf40e616198872083b3a00eadc36b.tar.bz2 | |
Small improvements to tests
Make exec-9.7 test more reliable
Quieten jim tests unless running manually
Add jim pipe example
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'examples/pipe.tcl')
| -rw-r--r-- | examples/pipe.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/examples/pipe.tcl b/examples/pipe.tcl new file mode 100644 index 0000000..6b10dbd --- /dev/null +++ b/examples/pipe.tcl @@ -0,0 +1,16 @@ +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 |