git.sur5r.net Git - openocd/blob - src/tcl/commands.tcl

   1
   2 # implements Tcl procedures/functions
   3 proc peek {address} {
   4         return [openocd_throw "mdw $address"]
   5 }
   6
   7 # Production command
   8 # FIX!!! need to figure out how to feed back relevant output
   9 # from e.g. "flash banks" command...
  10 proc board_produce {filename serialnumber} {
  11         openocd "reset init"
  12         openocd "flash write_image erase $filename [flash] bin"]]
  13         openocd "verify_image $filename [flash] bin"]]
  14         echo "Successfully ran production procedure"
  15 }
  16
  17 proc board_test {} {
  18         echo "Production test not implemented"
  19 }