From c2120ba28a7f3c473c05403e6015c95bec406336 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Fri, 31 Oct 2008 13:40:02 +0000
Subject: Added telnet_async command to enable/disable asynchronous messages.

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

(limited to 'src/helper/startup.tcl')

diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index eb190666..0ac1ebd7 100644
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -300,3 +300,19 @@ proc verify {args} {
 }
 
 add_help_text verify "synonym to verify_image"
+
+
+add_help_text telnet_async "<enable/disable> - enable/disable async messages. Default 0."
+
+global telnet_async_state
+set telnet_async_state 0
+proc telnet_async {state} {
+	global telnet_async_state
+	if {[string compare $state enable]==0} {
+		set telnet_async_state 1 
+	} elseif {[string compare $state disable]==0} {
+		set telnet_async_state 0 
+	} else {
+		return -code error "Illegal option $state"		
+	}
+}
\ No newline at end of file
-- 
cgit v1.2.3