83d72a091e
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
17 lines
235 B
Tcl
17 lines
235 B
Tcl
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
|