From 2e832a399a10fc00253b342f8cde9c5b1062fa63 Mon Sep 17 00:00:00 2001
From: ntfreak <ntfreak@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Sat, 12 Jul 2008 16:25:17 +0000
Subject: - remove requirement for file2c.tcl

git-svn-id: svn://svn.berlios.de/openocd/trunk@800 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 testing/tcl_server.tcl | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'testing/tcl_server.tcl')

diff --git a/testing/tcl_server.tcl b/testing/tcl_server.tcl
index c5ec2291..2e229c10 100644
--- a/testing/tcl_server.tcl
+++ b/testing/tcl_server.tcl
@@ -1,15 +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
+# 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
-- 
cgit v1.2.3