X-Git-Url: https://review.openocd.org/gitweb?a=blobdiff_plain;f=src%2Ftcl%2Fcommands.tcl;h=7d90f36c2bf026ae0f2376285a71eaa5aa42db78;hb=b99b73a36860d02c621ab449e1c341133f42d1fb;hp=0c5132a9bfd7cd75bdbc260671a05cd1b8a7e4ac;hpb=a521e674cfc1c74be9a8a7036048d5e4894b1b70;p=openocd.git

diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index 0c5132a9bf..7d90f36c2b 100644
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -1,4 +1,18 @@
-# implements Tcl procedures/functions
-proc peek {address} {
-	return [openocd mdw $address]
-}
\ No newline at end of file
+# 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 {} {
+	echo "Production test not implemented"
+}