git.sur5r.net Git - openocd/blob - testing/tcl_test.tcl

   1 if { $argc != 1 } {\r
   2         puts "Usage: test_tcl.tcl <ipaddress>"\r
   3         exit 1\r
   4 }\r
   5 \r
   6 puts $argv\r
   7 \r
   8 # Simple tcl client to connect to openocd\r
   9 global fo\r
  10 set fo [socket $argv 6666]\r
  11 \r
  12 # If a fn is unknown to Tcl, send it off to OpenOCD\r
  13 proc unknown args {     \r
  14         global fo\r
  15         puts $fo $args\r
  16         flush $fo\r
  17         gets $fo line\r
  18         return $line\r
  19 }\r
  20 \r
  21 \r
  22 \r
  23 #Print help text for a command. Word wrap\r
  24 #help text that is too wide inside column.\r
  25 proc pc_help {args} {\r
  26         global ocd_helptext\r
  27         set cmd $args\r
  28         foreach a [lsort $ocd_helptext] {\r
  29                 if {[string length $cmd]==0||[string first $cmd $a]!=-1||[string first $cmd [lindex $a 1]]!=-1} {\r
  30                         set w 50\r
  31                         set cmdname [lindex $a 0]\r
  32                         set h [lindex $a 1]\r
  33                         set n 0\r
  34                         while 1 {\r
  35                                 if {$n > [string length $h]} {break}\r
  36                                 \r
  37                                 set next_a [expr $n+$w]\r
  38                                 if {[string length $h]>$n+$w} {\r
  39                                         set xxxx [string range $h $n [expr $n+$w]]\r
  40                                         for {set lastpos [expr [string length $xxxx]-1]} {$lastpos>=0&&[string compare [string range $xxxx $lastpos $lastpos] " "]!=0} {set lastpos [expr $lastpos-1]} {\r
  41                                         }\r
  42                                         #set next_a -1\r
  43                                         if {$lastpos!=-1} {\r
  44                                                 set next_a [expr $lastpos+$n+1]\r
  45                                         }\r
  46                                 }\r
  47                                 \r
  48                                 \r
  49                                 puts [format "%-25s %s" $cmdname [string range $h $n [expr $next_a-1]] ]\r
  50                                 set cmdname ""\r
  51                                 set n [expr $next_a]\r
  52                         }\r
  53                 }\r
  54         }\r
  55 }\r
  56 \r
  57 puts "Running flash_banks"\r
  58 puts [flash_banks]\r
  59 puts "Running help on PC using data from OpenOCD"\r
  60 global ocd_helptext\r
  61 set ocd_helptext [get_help_text]\r
  62 puts [pc_help]\r
  63 \r
  64 \r
  65 \r