split startup.tcl file across modules
[openocd.git] / src / flash / startup.tcl
1 # Defines basic Tcl procs for OpenOCD flash module
2
3 # Show flash in human readable form
4 # This is an example of a human readable form of a low level fn
5 proc flash_banks {} {
6 set i 0
7 set result ""
8 foreach {a} [ocd_flash_banks] {
9 if {$i > 0} {
10 set result "$result\n"
11 }
12 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)]
13 set i [expr $i+1]
14 }
15 return $result
16 }