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:
16
debuggers/openocd/jimtcl/examples/pipe.tcl
Normal file
16
debuggers/openocd/jimtcl/examples/pipe.tcl
Normal file
@ -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
|
||||
Reference in New Issue
Block a user