git.gag.com Git - fw/openocd/blob - src/tcl/commands.tcl

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