-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]
+
+
+