debuggers: import openocd-0.7.0
Initial check-in of openocd-0.7.0 as it can be downloaded from http://sourceforge.net/projects/openocd/files/openocd/0.7.0/ Any modifications will follow. Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55
This commit is contained in:
20
debuggers/openocd/jimtcl/examples/popen.tcl
Normal file
20
debuggers/openocd/jimtcl/examples/popen.tcl
Normal file
@ -0,0 +1,20 @@
|
||||
# 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]
|
||||
puts "Creating temp.out with pids: [pid $f]"
|
||||
foreach n {1 2 3 4 5} {
|
||||
puts $f "line $n"
|
||||
}
|
||||
close $f
|
||||
|
||||
# Read from a pipe
|
||||
set f [open "|cat temp.out"]
|
||||
puts "Reading temp.out with pids: [pid $f]"
|
||||
while {[gets $f buf] >= 0} {
|
||||
puts $buf
|
||||
}
|
||||
close $f
|
||||
file delete temp.out
|
||||
Reference in New Issue
Block a user