psoc4: support for Cypress PSoC 41xx/42xx family

[openocd.git] / testing / tcl_server.tcl

diff --git a/testing/tcl_server.tcl b/testing/tcl_server.tcl
index c5ec229171bc09689e69f8faf3111620440866b0..2e229c10660c694e53695e1e6b6d46a1b47d1047 100644 (file)
--- a/testing/tcl_server.tcl
+++ b/testing/tcl_server.tcl
@@ -1,15 +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
+# 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