diff options
| author | ntfreak <ntfreak@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-12 16:25:17 +0000 |
|---|---|---|
| committer | ntfreak <ntfreak@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-12 16:25:17 +0000 |
| commit | 2e832a399a10fc00253b342f8cde9c5b1062fa63 (patch) | |
| tree | b679dc6381c72dc78e9c483c3399ae270c6dfa77 /testing/tcl_server.tcl | |
| parent | cebfbfa661b4e53cabf23bbb32c227e0b1962c77 (diff) | |
| download | openocd+libswd-2e832a399a10fc00253b342f8cde9c5b1062fa63.tar.gz openocd+libswd-2e832a399a10fc00253b342f8cde9c5b1062fa63.tar.bz2 openocd+libswd-2e832a399a10fc00253b342f8cde9c5b1062fa63.tar.xz openocd+libswd-2e832a399a10fc00253b342f8cde9c5b1062fa63.zip | |
- remove requirement for file2c.tcl
git-svn-id: svn://svn.berlios.de/openocd/trunk@800 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'testing/tcl_server.tcl')
| -rw-r--r-- | testing/tcl_server.tcl | 30 |
1 files changed, 15 insertions, 15 deletions
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 |