From 77ebbb58cb33c0e37daef21baee7a06fe6ab49cb Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Thu, 16 Sep 2010 09:39:26 +1000
Subject: Implement open "|..."

Uses a Tcl wrapper, popen, from tclcompat

Signed-off-by: Steve Bennett <steveb@workware.net.au>
---
 examples/popen.tcl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 examples/popen.tcl

(limited to 'examples')

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
-- 
cgit v1.1