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

Massage the mercury pressure card driver

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-11 10:46:38 +10:00
parent 5df6300255
commit 3ae5310af9
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
site_ansto/instrument/config/environment/temperature/mercury_pres.sct
View File

@ -24,7 +24,8 @@ driver mercury_pres = {
@ scan [lindex [split "$data" ":"] end] "%s" data @ scan [lindex [split "$data" ":"] end] "%s" data
} }
code Write_function setPoint = { code Write_function setPoint = {%%
} # TODO: Check if we can/must put the "mB" on this line
%%}
} }

8
site_ansto/instrument/config/environment/temperature/sct_mercury_pres.tcl
View File

@ -227,7 +227,13 @@ proc ::scobj::mercury_pres::setPoint {tc_root nextState cmd_str} {
} }
set par [sct target] set par [sct target]
set cmd "${cmd_str}${par}" set cmd "${cmd_str}${par}"
# setPoint hook code goes here # setPoint hook code starts
# TODO: Check if we can/must put the "mB" on this line
# setPoint hook code ends
if { [hpropexists [sct] geterror] } {
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
error "[sct geterror]"
}
if { [hpropexists [sct] driving] } { if { [hpropexists [sct] driving] } {
if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } { if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } {
sct driving 1 sct driving 1