- add missing svn props and fix incorrect line endings from last commit

[openocd.git] / testing / tcl_test.tcl

diff --git a/testing/tcl_test.tcl b/testing/tcl_test.tcl
index 683b4fe572057c5b672bbad8067b79e7130a5baf..476e1c21a014c8fbea325bb89d6f56eadcc4a9d1 100644 (file)
--- a/testing/tcl_test.tcl
+++ b/testing/tcl_test.tcl
@@ -1,65 +1,65 @@
-if { $argc != 1 } {\r
-       puts "Usage: test_tcl.tcl <ipaddress>"\r
-       exit 1\r
-}\r
-\r
-puts $argv\r
-\r
-# Simple tcl client to connect to openocd\r
-global fo\r
-set fo [socket $argv 6666]\r
-\r
-# If a fn is unknown to Tcl, send it off to OpenOCD\r
-proc unknown args {    \r
-       global fo\r
-       puts $fo $args\r
-       flush $fo\r
-       gets $fo line\r
-       return $line\r
-}\r
-\r
-\r
-\r
-#Print help text for a command. Word wrap\r
-#help text that is too wide inside column.\r
-proc pc_help {args} {\r
-       global ocd_helptext\r
-       set cmd $args\r
-       foreach a [lsort $ocd_helptext] {\r
-               if {[string length $cmd]==0||[string first $cmd $a]!=-1||[string first $cmd [lindex $a 1]]!=-1} {\r
-                       set w 50\r
-                       set cmdname [lindex $a 0]\r
-                       set h [lindex $a 1]\r
-                       set n 0\r
-                       while 1 {\r
-                               if {$n > [string length $h]} {break}\r
-                               \r
-                               set next_a [expr $n+$w]\r
-                               if {[string length $h]>$n+$w} {\r
-                                       set xxxx [string range $h $n [expr $n+$w]]\r
-                                       for {set lastpos [expr [string length $xxxx]-1]} {$lastpos>=0&&[string compare [string range $xxxx $lastpos $lastpos] " "]!=0} {set lastpos [expr $lastpos-1]} {\r
-                                       }\r
-                                       #set next_a -1\r
-                                       if {$lastpos!=-1} {\r
-                                               set next_a [expr $lastpos+$n+1]\r
-                                       }\r
-                               }\r
-                               \r
-                               \r
-                               puts [format "%-25s %s" $cmdname [string range $h $n [expr $next_a-1]] ]\r
-                               set cmdname ""\r
-                               set n [expr $next_a]\r
-                       }\r
-               }\r
-       }\r
-}\r
-\r
-puts "Running flash_banks"\r
-puts [flash_banks]\r
-puts "Running help on PC using data from OpenOCD"\r
-global ocd_helptext\r
-set ocd_helptext [get_help_text]\r
-puts [pc_help]\r
-\r
-\r
-\r
+if { $argc != 1 } {
+       puts "Usage: test_tcl.tcl <ipaddress>"
+       exit 1
+}
+
+puts $argv
+
+# Simple tcl client to connect to openocd
+global fo
+set fo [socket $argv 6666]
+
+# If a fn is unknown to Tcl, send it off to OpenOCD
+proc unknown args {    
+       global fo
+       puts $fo $args
+       flush $fo
+       gets $fo line
+       return $line
+}
+
+
+
+#Print help text for a command. Word wrap
+#help text that is too wide inside column.
+proc pc_help {args} {
+       global ocd_helptext
+       set cmd $args
+       foreach a [lsort $ocd_helptext] {
+               if {[string length $cmd]==0||[string first $cmd $a]!=-1||[string first $cmd [lindex $a 1]]!=-1} {
+                       set w 50
+                       set cmdname [lindex $a 0]
+                       set h [lindex $a 1]
+                       set n 0
+                       while 1 {
+                               if {$n > [string length $h]} {break}
+                               
+                               set next_a [expr $n+$w]
+                               if {[string length $h]>$n+$w} {
+                                       set xxxx [string range $h $n [expr $n+$w]]
+                                       for {set lastpos [expr [string length $xxxx]-1]} {$lastpos>=0&&[string compare [string range $xxxx $lastpos $lastpos] " "]!=0} {set lastpos [expr $lastpos-1]} {
+                                       }
+                                       #set next_a -1
+                                       if {$lastpos!=-1} {
+                                               set next_a [expr $lastpos+$n+1]
+                                       }
+                               }
+                               
+                               
+                               puts [format "%-25s %s" $cmdname [string range $h $n [expr $next_a-1]] ]
+                               set cmdname ""
+                               set n [expr $next_a]
+                       }
+               }
+       }
+}
+
+puts "Running flash_banks"
+puts [flash_banks]
+puts "Running help on PC using data from OpenOCD"
+global ocd_helptext
+set ocd_helptext [get_help_text]
+puts [pc_help]
+
+
+