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

Make the Julabo work for asyncqueue adapters

Browse Source
This commit is contained in:
Douglas Clowes
2014-07-07 13:58:08 +10:00
parent 7193129956
commit 47d5604e1e
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
site_ansto/instrument/config/environment/temperature/sct_julabo_lh45.tcl
View File

@ -405,6 +405,7 @@ namespace eval ::scobj::lh45 {
}
namespace export mk_sct_julabo_lh45
}
namespace import ::scobj::lh45::*
##
# @brief Create a Julabo lh45 temperature controller
@ -416,9 +417,14 @@ namespace eval ::scobj::lh45 {
# @param _tol (optional), this is the initial tolerance setting
proc add_julabo_lh45 { name IP port {sensor "bath"} {_tol 5.0} {CID 1} {CTYPE T} } {
if {[SplitReply [environment_simulation]]=="false"} {
makesctcontroller sct_lh45 std ${IP}:$port "\r"
if {[string equal -nocase "aqadapter" "${IP}"]} {
::scobj::julabo_lh45::sics_log 9 "makesctcontroller sct_${name} aqadapter ${port}"
makesctcontroller sct_${name} aqadapter ${port}
} else {
makesctcontroller sct_${name} std ${IP}:$port "\r"
}
}
mk_sct_julabo_lh45 sct_lh45 environment $name $_tol $CID $CTYPE
mk_sct_julabo_lh45 sct_${name} environment $name $_tol $CID $CTYPE
set scobj_hpath /sics/$name
switch $sensor {
"bath" {
@ -518,4 +524,3 @@ if { [info exists ::config_dict] } {
}
namespace import ::scobj::lh45::*