print out jim error message stack trace in expected order(look at any C++ or Java...

[openocd.git] / src / startup.tcl

diff --git a/src/startup.tcl b/src/startup.tcl
index 294dee28de75576469e90c9da53a043b465c532a..1f1d1e214037916373639b03973b952312cca30c 100644 (file)
--- a/src/startup.tcl
+++ b/src/startup.tcl
@@ -11,7 +11,6 @@
 # Commands can be more than one word and they are stored
 # as "flash banks" "help text x x x"
 
-global ocd_helptext
 set ocd_helptext {}
 
 proc add_help_text {cmd cmd_help} {
@@ -19,6 +18,11 @@ proc add_help_text {cmd cmd_help} {
        lappend ocd_helptext [list $cmd $cmd_help]
 }
 
+proc get_help_text {} {
+       global ocd_helptext
+       return $ocd_helptext
+}
+
 # Production command
 # FIX!!! need to figure out how to feed back relevant output
 # from e.g. "flash banks" command...
@@ -118,3 +122,18 @@ proc unknown {args} {
        # the command twice.
        return ""
 }
+
+
+proc target_script {target_num eventname scriptname} {
+       if {[string compare $eventname reset]==0} {
+               set eventname post_reset
+       }
+
+       # This is the script we invoke
+       proc "target_[set eventname]_[set target_num]" {} "script $scriptname" 
+       
+}
+
+#add_help_text target_script "xxx"
+add_help_text target_script "<target#> <event=reset/pre_reset/post_halt/pre_resume/gdb_program_config> <script_file>"
+