Test cases ran on v0.4.0-rc1
[openocd.git] / testing / tcl_server.tcl
1 # Simple tcl client to connect to openocd
2 puts "Use empty line to exit"
3 set fo [socket 127.0.0.1 6666]
4 puts -nonewline stdout "> "
5 flush stdout
6 while {[gets stdin line] >= 0} {
7 if {$line eq {}} break
8 puts $fo $line
9 flush $fo
10 gets $fo line
11 puts $line
12 puts -nonewline stdout "> "
13 flush stdout
14 }
15 close $fo