diff options
author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-10-31 13:40:02 +0000 |
---|---|---|
committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-10-31 13:40:02 +0000 |
commit | c2120ba28a7f3c473c05403e6015c95bec406336 (patch) | |
tree | 548754e1b28c4b752e98f3da263ab7d5853ed14a /src/helper/startup.tcl | |
parent | e4218ebb8f7f5bf27578198e16ae5add99edeb75 (diff) |
Added telnet_async command to enable/disable asynchronous
messages.
git-svn-id: svn://svn.berlios.de/openocd/trunk@1117 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src/helper/startup.tcl')
-rw-r--r-- | src/helper/startup.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
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 |