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 export mk_sct_julabo_lh45
} }
namespace import ::scobj::lh45::*
## ##
# @brief Create a Julabo lh45 temperature controller # @brief Create a Julabo lh45 temperature controller
@ -416,9 +417,14 @@ namespace eval ::scobj::lh45 {
# @param _tol (optional), this is the initial tolerance setting # @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} } { proc add_julabo_lh45 { name IP port {sensor "bath"} {_tol 5.0} {CID 1} {CTYPE T} } {
if {[SplitReply [environment_simulation]]=="false"} { 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 set scobj_hpath /sics/$name
switch $sensor { switch $sensor {
"bath" { "bath" {
@ -518,4 +524,3 @@ if { [info exists ::config_dict] } {
} }
namespace import ::scobj::lh45::*