1 # Simple tcl client to connect to openocd
\r
2 puts "Use empty line to exit"
\r
3 set fo [socket 127.0.0.1 6666]
\r
4 puts -nonewline stdout "> "
\r
6 while {[gets stdin line] >= 0} {
\r
7 if {$line eq {}} break
\r
12 puts -nonewline stdout "> "
\r