From a65255a06d7252614f0061823860568f4aefe1b7 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Sat, 12 Jul 2008 07:50:03 +0000
Subject: [PATCH] testing/*.tcl sample & test code

git-svn-id: svn://svn.berlios.de/openocd/trunk@798 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 doc/openocd.texi       |  2 +-
 testing/tcl_server.tcl | 15 +++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100644 testing/tcl_server.tcl

diff --git a/doc/openocd.texi b/doc/openocd.texi
index 160efa6508..573457b5e9 100644
--- a/doc/openocd.texi
+++ b/doc/openocd.texi
@@ -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
index 0000000000..c5ec229171
--- /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
-- 
2.30.2