From 538a36df3f2e195ec96cfdd3a3b2b659db144853 Mon Sep 17 00:00:00 2001 From: Ferdi Franceschini Date: Mon, 22 Sep 2008 10:35:34 +1000 Subject: [PATCH] Catch comms failure when creating asyncqueue r2698 | ffr | 2008-09-22 10:35:34 +1000 (Mon, 22 Sep 2008) | 2 lines --- .../temperature/lakeshore340_common.tcl | 21 ++++++++++++------- 1 file changed, 13 insertions(+), 8 deletions(-) diff --git a/site_ansto/instrument/config/environment/temperature/lakeshore340_common.tcl b/site_ansto/instrument/config/environment/temperature/lakeshore340_common.tcl index b60cc49f..df7dd3f9 100644 --- a/site_ansto/instrument/config/environment/temperature/lakeshore340_common.tcl +++ b/site_ansto/instrument/config/environment/temperature/lakeshore340_common.tcl @@ -15,14 +15,19 @@ namespace eval ::environment::temperature { # # @param temp_sobj, name for temperature controller object. proc ::environment::temperature::mkls340sim {temp_sobj} { - EvFactory new $temp_sobj sim - sicslist setatt $temp_sobj numsensors 4 - sicslist setatt $temp_sobj controlsensor sensora - sicslist setatt $temp_sobj sensorlist sensora,sensorb,sensorc,sensord - sicslist setatt $temp_sobj heateron 1 - sicslist setatt $temp_sobj range 5 - sicslist setatt $temp_sobj units kelvin - sicslist setatt $temp_sobj klass @none + if [catch { + EvFactory new $temp_sobj sim + sicslist setatt $temp_sobj numsensors 4 + sicslist setatt $temp_sobj controlsensor sensora + sicslist setatt $temp_sobj sensorlist sensora,sensorb,sensorc,sensord + sicslist setatt $temp_sobj heateron 1 + sicslist setatt $temp_sobj range 5 + 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.