]> git.sur5r.net Git - openocd/blob - testing/tcl_server.tcl
flash/at91sam4: run probe just once
[openocd] / 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