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

Catch comms failure when creating asyncqueue

Browse Source 
r2698 | ffr | 2008-09-22 10:35:34 +1000 (Mon, 22 Sep 2008) | 2 lines
This commit is contained in:
Ferdi Franceschini
2008-09-22 10:35:34 +10:00
committed by Douglas Clowes
parent 3afb9597f2
commit 538a36df3f
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
site_ansto/instrument/config/environment/temperature/lakeshore340_common.tcl
View File

@@ -15,14 +15,19 @@ namespace eval ::environment::temperature {
# #
# @param temp_sobj, name for temperature controller object. # @param temp_sobj, name for temperature controller object.
proc ::environment::temperature::mkls340sim {temp_sobj} { proc ::environment::temperature::mkls340sim {temp_sobj} {
EvFactory new $temp_sobj sim if [catch {
sicslist setatt $temp_sobj numsensors 4 EvFactory new $temp_sobj sim
sicslist setatt $temp_sobj controlsensor sensora sicslist setatt $temp_sobj numsensors 4
sicslist setatt $temp_sobj sensorlist sensora,sensorb,sensorc,sensord sicslist setatt $temp_sobj controlsensor sensora
sicslist setatt $temp_sobj heateron 1 sicslist setatt $temp_sobj sensorlist sensora,sensorb,sensorc,sensord
sicslist setatt $temp_sobj range 5 sicslist setatt $temp_sobj heateron 1
sicslist setatt $temp_sobj units kelvin sicslist setatt $temp_sobj range 5
sicslist setatt $temp_sobj klass @none sicslist setatt $temp_sobj units kelvin
sicslist setatt $temp_sobj klass @none
} message ] {
if {$::errorCode=="NONE"} {return $message}
return -code error $message
}
} }
# @brief Make a lakeshore340 temperature controller object. # @brief Make a lakeshore340 temperature controller object.