tcl tinkering.

git-svn-id: svn://svn.berlios.de/openocd/trunk@748 b42882b7-edfa-0310-969c-e2dbd0fdcd60

src/target/target/at91eb40a.tcl

@@ -45,5 +45,11 @@ proc target_reset_0 {} {
 	openocd {mww 0xffff0010 0x100}
 	openocd {mww 0xffff0034 0x100}
 	set reset_count [expr $reset_count+1]
-	puts "Testing reset $reset_count !"
+	echo "Testing reset $reset_count !"
+}
+
+proc target_pre_reset_0 {} {
+	global reset_count
+	set reset_count [expr $reset_count+1]
+	echo "Testing pre_reset $reset_count !"
 }

src/tcl/commands.tcl

@@ -4,6 +4,8 @@ proc peek {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"]]