diff options
Diffstat (limited to 'testing')
| -rw-r--r-- | testing/tcl_server.tcl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/testing/tcl_server.tcl b/testing/tcl_server.tcl new file mode 100644 index 00000000..c5ec2291 --- /dev/null +++ b/testing/tcl_server.tcl @@ -0,0 +1,15 @@ +# 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
|