EPICS_driver_modules/StreamDevice
0
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

exit command added

Browse Source
This commit is contained in:
zimoch
2011-09-12 09:52:48 +00:00
parent ff46c9a4a7
commit 807fe825d6
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
streamApp/terminal.tcl
View File

@ -74,6 +74,9 @@ proc receiveHandler {sock} {
set l [split $a] set l [split $a]
if [catch { if [catch {
switch -- [lindex $l 0] { switch -- [lindex $l 0] {
"exit" {
exit
}
"disconnect" { "disconnect" {
sendReply $sock [string range $a 11 end] sendReply $sock [string range $a 11 end]
destroy .$sock destroy .$sock