projects
/
fw
/
openocd
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
gdb_server : 'R' command replied by OK
[fw/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