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

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