testing/*.tcl sample & test code

git-svn-id: svn://svn.berlios.de/openocd/trunk@799 b42882b7-edfa-0310-969c-e2dbd0fdcd60
2008-07-12 07:50:17 +00:00
parent a65255a06d
commit cebfbfa661
2 changed files with 70 additions and 0 deletions
--- a/src/startup.tcl
+++ b/src/startup.tcl
@@ -19,6 +19,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...