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

Set the setpoint in the setpoint node.

Browse Source 
r2972 | ffr | 2010-07-02 12:12:31 +1000 (Fri, 02 Jul 2010) | 2 lines
This commit is contained in:
Ferdi Franceschini
2010-07-02 12:12:31 +10:00
committed by Douglas Clowes
parent 2e64619bd0
commit 77932a4d15
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl
View File

@@ -36,6 +36,14 @@ debug_log "chkWrite resp=$data sct=[sct] tc_root=$tc_root"
sct geterror "$data"
} elseif {[string equal -nocase -length 1 $data "?"]} {
sct geterror "Error: $data"
} else {
set data [sct target]
if {$data != [sct oldval]} {
sct oldval $data
sct update $data
sct utime readtime
debug_log "chkWrite new data for $tc_root [sct] result=$data"
}
}
return idle
}
@@ -74,6 +82,12 @@ debug_log "setPoint: sct=[sct] target=[sct target] writestatus=[sct writestatus]
sct print "Driving Persistent Field ([hval $tc_root/Display/PstntField]) to target ([sct target])"
}
set par "[sct target]"
if {$par != [sct oldval]} {
sct oldval $par
sct update $par
sct utime readtime
debug_log "setPoint new data for $tc_root [sct] result=$par"
}
hset $tc_root/status "busy"
sct print "status: busy"
hset $tc_root/drive_state "START"