From cebfbfa661b4e53cabf23bbb32c227e0b1962c77 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Sat, 12 Jul 2008 07:50:17 +0000
Subject: testing/*.tcl sample & test code

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

(limited to 'src/startup.tcl')

diff --git a/src/startup.tcl b/src/startup.tcl
index 294dee28..dc3a0895 100644
--- 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...
-- 
cgit v1.2.3