# # Defines basic Tcl procs that must be there for # OpenOCD to work. # # Embedded into OpenOCD executable # # Help text list. A list of command + help text pairs. # # Commands can be more than one word and they are stored # as "flash banks" "help text x x x" proc add_help_text {cmd cmd_help} { global ocd_helptext lappend ocd_helptext [list $cmd $cmd_help] } proc get_help_text {} { global ocd_helptext return $ocd_helptext } # Production command # FIX!!! need to figure out how to feed back relevant output # from e.g. "flash banks" command... proc board_produce {filename serialnumber} { openocd "reset init" openocd "flash write_image erase $filename [flash] bin"]] openocd "verify_image $filename [flash] bin"]] echo "Successfully ran production procedure" } proc board_test {} { echo "Production test not implemented" } # Show flash in human readable form # This is an example of a human readable form of a low level fn proc flash_banks {} { set i 0 set result "" foreach {a} [ocd_flash_banks] { if {$i > 0} { set result "$result\n" } set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i $a(name) $a(base) $a(size) $a(bus_width) $a(chip_width)] set i [expr $i+1] } return $result } # We need to explicitly redirect this to the OpenOCD command # as Tcl defines the exit proc proc exit {} { ocd_throw exit } #Print help text for a command. Word wrap #help text that is too wide inside column. proc 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] } } } } add_help_text help "Tcl implementation of help command" # If a fn is unknown to Tcl, we try to execute it as an OpenOCD command # # We also support two level commands. "flash banks" is translated to # flash_banks proc unknown {args} { # do the name mangling from "flash banks" to "flash_banks" if {[llength $args]>=2} { set cmd_name "[lindex $args 0]_[lindex $args 1]" # Fix?? add a check here if this is a command? # we'll strip away args until we fail anyway... return [eval "$cmd_name [lrange $args 2 end]"] } # This really is an unknown command. return -code error "Unknown command: $args" } proc target_script {target_num eventname scriptname} { if {[string compare $eventname reset]==0} { set eventname post_reset } # This is the script we invoke proc "target_[set target_num]_[set eventname]" {} "script $scriptname" } add_help_text target_script " " # Try flipping / and \ to find file if the filename does not # match the precise spelling proc find {filename} { if {[catch {ocd_find $filename} t]==0} { return $t } if {[catch {ocd_find [string map {\ /} $filename} t]==0} { return $t } if {[catch {ocd_find [string map {/ \\} $filename} t]==0} { return $t } # make sure error message matches original input string return -code error "Can't find $filename" } add_help_text find " - print full path to file according to OpenOCD search rules" # Run script proc script {filename} { source [find $filename] } #proc daemon_reset {} { # puts "Daemon reset is obsolete. Use -c init -c \"reset halt\" at end of openocd command line instead"); #} add_help_text script " - filename of OpenOCD script (tcl) to run" # Handle GDB 'R' packet. Can be overriden by configuration script, # but it's not something one would expect target scripts to do # normally proc ocd_gdb_restart {target_num} { # Fix!!! we're resetting all targets here! Really we should reset only # one target reset halt }='#n29'>29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237