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

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