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