16 lines
346 B
Tcl
16 lines
346 B
Tcl
|
# 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
|