linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use the new anstocapture command SICS-764

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-09-10 14:43:29 +10:00
parent ea7ce034b0
commit f0202fad51
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/util/motor_utility.tcl
View File

@ -57,12 +57,12 @@ proc prun {args} {
lappend drlist $mot [SplitReply [$mot posit2unit $pname]]
}
clientput run {*}$drlist
capture run {*}$drlist
anstocapture run {*}$drlist
} message ] {
set msg_list [split $message \n]
set start [lsearch $msg_list ERROR*]
if {$start == -1} {
return $messge
return $message
} else {
return [join [lrange $msg_list $start end-1] \n]
}
@ -78,12 +78,12 @@ proc pdrive {args} {
lappend drlist $mot [SplitReply [$mot posit2unit $pname]]
}
clientput drive {*}$drlist
capture drive {*}$drlist
anstocapture drive {*}$drlist
} message ] {
set msg_list [split $message \n]
set start [lsearch $msg_list ERROR*]
if {$start == -1} {
return $messge
return $message
} else {
return [join [lrange $msg_list $start end-1] \n]
}