repo.or.cz
/
openocd
/
ntfreak.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
LPC1788 target configuration file.
[openocd/ntfreak.git]
/
testing
/
tcl_server.tcl
blob
2e229c10660c694e53695e1e6b6d46a1b47d1047
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