|
123456789101112131415 |
- # 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
|