diff options
| author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-04 13:37:34 +0000 |
|---|---|---|
| committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-04 13:37:34 +0000 |
| commit | 002e3fcbdbb22686278abf242668431ac653a449 (patch) | |
| tree | d8fef55ad7959d0dbcc98b014ee8b3143bcd6c1c /src/tcl | |
| parent | d8957cb10754fef0906a13304f043a7f46eb3e9f (diff) | |
| download | openocd+libswd-002e3fcbdbb22686278abf242668431ac653a449.tar.gz openocd+libswd-002e3fcbdbb22686278abf242668431ac653a449.tar.bz2 openocd+libswd-002e3fcbdbb22686278abf242668431ac653a449.tar.xz openocd+libswd-002e3fcbdbb22686278abf242668431ac653a449.zip | |
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
Diffstat (limited to 'src/tcl')
| -rw-r--r-- | src/tcl/commands.tcl | 14 |
1 files changed, 13 insertions, 1 deletions
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" +}
|