From 002e3fcbdbb22686278abf242668431ac653a449 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Fri, 4 Jul 2008 13:37:34 +0000
Subject: added echo command in tcl. Issues a LOG_USER() for the single
 argument.

git-svn-id: svn://svn.berlios.de/openocd/trunk@746 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/tcl/commands.tcl | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src/tcl')

diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index 0c5132a9..f42047f7 100644
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -1,4 +1,16 @@
 # implements Tcl procedures/functions
 proc peek {address} {
 	return [openocd mdw $address]
-}
\ No newline at end of file
+}
+
+# Production 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"
+}
-- 
cgit v1.2.3