Merging release 2.0 branch with CVS trunk

r2601 | ffr | 2008-05-30 10:26:57 +1000 (Fri, 30 May 2008) | 2 lines

site_ansto/instrument/hrpd/config/environment/temperature/lakeshore340.tcl

@@ -0,0 +1,24 @@
+source $cfPath(environment)/temperature/lakeshore340_common.tcl
+
+# @brief Adds a lakeshore 340 temperature controller object.
+#
+# This must be called when the instrument configuration is loaded and before\n
+# the buildHDB function is called.  Currently there is no way to add and remove\n
+# environment controllers and their hdb paths at runtime.
+proc ::environment::temperature::add_ls340 {} {
+  set sim_mode [SplitReply [environment_simulation]]
+  if {$sim_mode == "true"} {
+    ::environment::temperature::mkls340sim tc1
+  } else {
+    ::environment::temperature::mkls340 tc1
+    tc1 tolerance 1
+    tc1 Settle 30
+    tc1 range 2
+    tc1 UpperLimit 500
+    tc1 LowerLimit 4
+  }
+
+  sicslist setatt tc1 environment_name tempone 
+  sicslist setatt tc1 long_name control_sensor_reading
+  ::environment::mkenvinfo tc1 {heateron {priv user} range {priv manager} }
+}