summaryrefslogtreecommitdiff
path: root/src/tcl/commands.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'src/tcl/commands.tcl')
-rw-r--r--src/tcl/commands.tcl32
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"
-}
+}