- fixed line endings with commands.tcl

- added svn props for newly added files

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

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"
-}

+}