Added telnet_async command to enable/disable asynchronous

[openocd.git] / src / helper / startup.tcl

diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index eb1906661e865ccdcafb6f8b4e020f349b52c47b..0ac1ebd71d4f776173b8ff3e44166a0a89e3d432 100644 (file)
--- 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