|
@@ -1381,7 +1381,7 @@ of an external TCL script that can connect to openocd is shown below. |
|
|
@verbatim |
|
|
@verbatim |
|
|
# Simple tcl client to connect to openocd |
|
|
# Simple tcl client to connect to openocd |
|
|
puts "Use empty line to exit" |
|
|
puts "Use empty line to exit" |
|
|
set fo [socket 127.0.0.1 5555] |
|
|
|
|
|
|
|
|
set fo [socket 127.0.0.1 6666] |
|
|
puts -nonewline stdout "> " |
|
|
puts -nonewline stdout "> " |
|
|
flush stdout |
|
|
flush stdout |
|
|
while {[gets stdin line] >= 0} { |
|
|
while {[gets stdin line] >= 0} { |
|
|