diff options
Diffstat (limited to 'src/tcl')
-rw-r--r-- | src/tcl/commands.tcl | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl index 81f7b6f1..7d90f36c 100644 --- a/src/tcl/commands.tcl +++ b/src/tcl/commands.tcl @@ -1,18 +1,18 @@ -# implements Tcl procedures/functions
-proc peek {address} {
+# implements Tcl procedures/functions +proc peek {address} { return [openocd_throw "mdw $address"] -}
-
-# Production command
-# FIX!!! need to figure out how to feed back relevant output
-# from e.g. "flash banks" command...
-proc board_produce {filename serialnumber} {
- openocd "reset init"
- openocd "flash write_image erase $filename [flash] bin"]]
- openocd "verify_image $filename [flash] bin"]]
- echo "Successfully ran production procedure"
-}
-
-proc board_test {} {
+} + +# Production command +# FIX!!! need to figure out how to feed back relevant output +# from e.g. "flash banks" command... +proc board_produce {filename serialnumber} { + openocd "reset init" + openocd "flash write_image erase $filename [flash] bin"]] + openocd "verify_image $filename [flash] bin"]] + echo "Successfully ran production procedure" +} + +proc board_test {} { echo "Production test not implemented" -}
+} |