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

SICS-742 spin flipper is instructed to power up but doesn't reach the target current.

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-10-15 09:14:58 +11:00
parent 6183182c78
commit 11d008620a
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/reflectometer/config/beamline/sct_RFGen.tcl
View File

@ -146,6 +146,9 @@ proc ::scobj::rfgen::set_frequency {basePath} {
## ##
# @brief Request a state report from the RF generator # @brief Request a state report from the RF generator
proc ::scobj::rfgen::rqStatFunc {} { proc ::scobj::rfgen::rqStatFunc {} {
if { [hpropexists [sct] geterror] } {
hdelprop [sct] geterror
}
sct send "L:[sct address]" sct send "L:[sct address]"
return rdState return rdState
} }
@ -167,7 +170,6 @@ proc ::scobj::rfgen::rdStatFunc {} {
set statStr [sct result] set statStr [sct result]
if {[string match "ASCERR:*" $statStr]} { if {[string match "ASCERR:*" $statStr]} {
sct geterror $statStr sct geterror $statStr
sct ramping $RAMPIDLE
return stateChange return stateChange
} }
set statList [split $statStr "|="] set statList [split $statStr "|="]
@ -402,6 +404,8 @@ proc ::scobj::rfgen::mkRFGen {argList} {
if {[SplitReply [rfgen_simulation]] == "false"} { if {[SplitReply [rfgen_simulation]] == "false"} {
set SCT_RFGEN sct_rfgen_$pa(NAME) set SCT_RFGEN sct_rfgen_$pa(NAME)
makesctcontroller $SCT_RFGEN rfamp $pa(IP):$pa(PORT) makesctcontroller $SCT_RFGEN rfamp $pa(IP):$pa(PORT)
# The RFGen has been observed to fail to respond within the default timeout of 2 sec
$SCT_RFGEN timeout 5
hsetprop /sics/$pa(NAME) contname $SCT_RFGEN hsetprop /sics/$pa(NAME) contname $SCT_RFGEN
# mkStatArr stateArr [split [$SCT_RFGEN transact "L:$pa(ADDRESS)"] "|="] # mkStatArr stateArr [split [$SCT_RFGEN transact "L:$pa(ADDRESS)"] "|="]