From 396d73ad0cf2f12f2eac1af2ba82ff4878dd78de Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Wed, 16 Jul 2008 07:22:17 +0000
Subject: better error messages for target event scripts.

git-svn-id: svn://svn.berlios.de/openocd/trunk@810 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/startup.tcl | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'src/startup.tcl')

diff --git a/src/startup.tcl b/src/startup.tcl
index dc3a0895..1f1d1e21 100644
--- 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} {
@@ -123,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>"
+
-- 
cgit v1.2.3