Implement open "|..."

Uses a Tcl wrapper, popen, from tclcompat

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 19 insertions, 0 deletions

diff --git a/examples/popen.tcl b/examples/popen.tcl
new file mode 100644
index 0000000..8a6b6e3
--- /dev/null
+++ b/examples/popen.tcl
@@ -0,0 +1,19 @@
+# Internally, open "|..." calls out to popen from tclcompat.tcl
+#
+# This code is compatible with Tcl
+
+# Write to a pipe
+set f [open |[list cat | sed -e "s/line/This is line/" >temp.out] w]
+foreach n {1 2 3 4 5} {
+	puts $f "line $n"
+}
+close $f
+puts "Created temp.out"
+
+# Read from a pipe
+set f [open "|cat temp.out"]
+while {[gets $f buf] >= 0} {
+	puts $buf
+}
+close $f
+file delete temp.out