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

Merge from Quokka sct_positmotor_common.tcl set driving false

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-25 16:25:01 +10:00
parent 5b48df31ba
commit 6530c54483
1 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
site_ansto/instrument/config/motors/sct_positmotor_common.tcl
View File

@ -19,12 +19,10 @@ if [ catch {
} }
set path [sct] set path [sct]
if {[hval $path/status] == "STOPPING"} { if {[hval $path/status] == "STOPPING"} {
hset $path/driving "false"
hset $path/status "IDLE" hset $path/status "IDLE"
} elseif { ([hval $path/driving] == "false") && ([hval $path/status] == "BUSY") } { } elseif { ([hval $path/driving] == "false") && ([hval $path/status] == "BUSY") } {
hset $path/driving "starting" hset $path/driving "starting"
} elseif { ([hval $path/driving] == "starting") && ([hval $path/status] == "BUSY") } { } elseif { ([hval $path/driving] == "starting") && ([hval $path/status] == "BUSY") } {
hset $path/driving "false"
hset $path/status "IDLE" hset $path/status "IDLE"
} }
return idle return idle