testing/*.tcl sample & test code

[openocd] / src / startup.tcl

diff --git a/src/startup.tcl b/src/startup.tcl
index 294dee28de75576469e90c9da53a043b465c532a..dc3a0895729001693054145838ae171faacf1276 100644 (file)
--- 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...