2008-07-12 16:25:17 +00:00
|
|
|
# Simple tcl client to connect to openocd
|
|
|
|
|
puts "Use empty line to exit"
|
|
|
|
|
set fo [socket 127.0.0.1 6666]
|
|
|
|
|
puts -nonewline stdout "> "
|
|
|
|
|
flush stdout
|
|
|
|
|
while {[gets stdin line] >= 0} {
|
|
|
|
|
if {$line eq {}} break
|
|
|
|
|
puts $fo $line
|
|
|
|
|
flush $fo
|
|
|
|
|
gets $fo line
|
|
|
|
|
puts $line
|
|
|
|
|
puts -nonewline stdout "> "
|
|
|
|
|
flush stdout
|
|
|
|
|
}
|
|
|
|
|
close $fo
|
