- added svn props for newly added files

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

diff --git a/src/startup.tcl b/src/startup.tcl
index 0a829128e3811c3d92f7a6e7e98bc6e5d31630f7..acf93be4cf4156731215aaacb1bec28ee4713f81 100644 (file)
--- a/src/startup.tcl
+++ b/src/startup.tcl
@@ -1,69 +1,69 @@
-#\r
-# Defines basic Tcl procs that must be there for\r
-# OpenOCD to work.\r
-#\r
-# Embedded into OpenOCD executable\r
-#\r
-\r
-# Production command\r
-# FIX!!! need to figure out how to feed back relevant output\r
-# from e.g. "flash banks" command...\r
-proc board_produce {filename serialnumber} {\r
-       openocd "reset init"\r
-       openocd "flash write_image erase $filename [flash] bin"]]\r
-       openocd "verify_image $filename [flash] bin"]]\r
-       echo "Successfully ran production procedure"\r
-}\r
-\r
-proc board_test {} {\r
-       echo "Production test not implemented"\r
-}\r
-\r
-# Show flash in human readable form\r
-# This is an example of a human readable form of a low level fn\r
-proc flash_banks_pretty {} { \r
-       set i 0         \r
-       set result ""\r
-       foreach {a} [flash_banks] {\r
-               if {$i > 0} {\r
-                       set result "$result\n"\r
-               }\r
-               set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i [lindex $a 0] [lindex $a 1] [lindex $a 2] [lindex $a 3] [lindex $a 4]]\r
-               set i [expr $i+1]       \r
-       }       \r
-       return $result\r
-}\r
-\r
-# We need to explicitly redirect this to the OpenOCD command\r
-# as Tcl defines the exit proc\r
-proc exit {} {\r
-       openocd_throw exit\r
-}\r
-\r
-# We have currently converted only "flash banks" to tcl.\r
-proc flash args {\r
-       if {[string compare [lindex $args 0] banks]==0} {\r
-               return [flash_banks_pretty]\r
-       }\r
-       openocd_throw "flash $args"\r
-}\r
-\r
-# If a fn is unknown to Tcl, we try to execute it as an OpenOCD command\r
-proc unknown {args} {\r
-       if {[string length $args]>0} {\r
-               set cmd ""\r
-               # We need to add back quotes for arguments w/space\r
-               # for args without space, we can add quotes anyway\r
-               foreach {a} $args {\r
-                       set cmd "$cmd \"$a\""\r
-               }\r
-               openocd_throw $cmd\r
-       }\r
-       # openocd_throw outputs while running and also sets the\r
-       # primary return value to the output of the command\r
-       #\r
-       # The primary return value have been set by "openocd" above,\r
-       # so we need to clear it, lest we print out the output from\r
-       # the command twice.\r
-       return ""\r
-}\r
+#
+# Defines basic Tcl procs that must be there for
+# OpenOCD to work.
+#
+# Embedded into OpenOCD executable
+#
+
+# 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"
+}
+
+# Show flash in human readable form
+# This is an example of a human readable form of a low level fn
+proc flash_banks_pretty {} { 
+       set i 0         
+       set result ""
+       foreach {a} [flash_banks] {
+               if {$i > 0} {
+                       set result "$result\n"
+               }
+               set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i [lindex $a 0] [lindex $a 1] [lindex $a 2] [lindex $a 3] [lindex $a 4]]
+               set i [expr $i+1]       
+       }       
+       return $result
+}
+
+# We need to explicitly redirect this to the OpenOCD command
+# as Tcl defines the exit proc
+proc exit {} {
+       openocd_throw exit
+}
+
+# We have currently converted only "flash banks" to tcl.
+proc flash args {
+       if {[string compare [lindex $args 0] banks]==0} {
+               return [flash_banks_pretty]
+       }
+       openocd_throw "flash $args"
+}
+
+# If a fn is unknown to Tcl, we try to execute it as an OpenOCD command
+proc unknown {args} {
+       if {[string length $args]>0} {
+               set cmd ""
+               # We need to add back quotes for arguments w/space
+               # for args without space, we can add quotes anyway
+               foreach {a} $args {
+                       set cmd "$cmd \"$a\""
+               }
+               openocd_throw $cmd
+       }
+       # openocd_throw outputs while running and also sets the
+       # primary return value to the output of the command
+       #
+       # The primary return value have been set by "openocd" above,
+       # so we need to clear it, lest we print out the output from
+       # the command twice.
+       return ""
+}