testing/*.tcl sample & test code
authoroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Sat, 12 Jul 2008 07:50:03 +0000 (07:50 +0000)
committeroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Sat, 12 Jul 2008 07:50:03 +0000 (07:50 +0000)
git-svn-id: svn://svn.berlios.de/openocd/trunk@798 b42882b7-edfa-0310-969c-e2dbd0fdcd60

doc/openocd.texi
testing/tcl_server.tcl [new file with mode: 0644]

index 160efa6..573457b 100644 (file)
@@ -1381,7 +1381,7 @@ of an external TCL script that can connect to openocd is shown below.
 @verbatim
 # Simple tcl client to connect to openocd
 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 "> "
 flush stdout
 while {[gets stdin line] >= 0} {
diff --git a/testing/tcl_server.tcl b/testing/tcl_server.tcl
new file mode 100644 (file)
index 0000000..c5ec229
--- /dev/null
@@ -0,0 +1,15 @@
+# Simple tcl client to connect to openocd\r
+puts "Use empty line to exit"\r
+set fo [socket 127.0.0.1 6666]\r
+puts -nonewline stdout "> "\r
+flush stdout\r
+while {[gets stdin line] >= 0} {\r
+    if {$line eq {}} break\r
+    puts $fo $line\r
+    flush $fo\r
+    gets $fo line\r
+    puts $line\r
+    puts -nonewline stdout "> "\r
+    flush stdout\r
+}\r
+close $fo\r