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

.

Browse Source
This commit is contained in:
zimoch
2013-10-23 14:36:35 +00:00
parent 0ceada70b5
commit 2b38f7bcfa
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
streamApp/terminal.tcl
View File

@ -91,7 +91,7 @@ proc receiveHandler {sock} {
"start" { "start" {
set wait [checkNum [lindex $l 1]] set wait [checkNum [lindex $l 1]]
set ::counter 0 set ::counter 0
after $wait sendAsync $wait [list [lrange $l 2 end-1]] after $wait [list sendAsync $wait "[string range $a [string wordend $a 7] end]"]
sendReply $sock "Started\n" sendReply $sock "Started\n"
} }
"stop" { "stop" {
@ -133,7 +133,7 @@ proc receiveHandler {sock} {
proc sendAsync {wait message} { proc sendAsync {wait message} {
if {$::counter < 0} return if {$::counter < 0} return
foreach term [array names ::socket] { foreach term [array names ::socket] {
sendReply $::socket($term) "Message number [incr ::counter] $message\n"; sendReply $::socket($term) "Message number [incr ::counter]$message";
} }
after $wait sendAsync $wait [list $message] after $wait sendAsync $wait [list $message]
} }