Added west400.tcl config to wombat config/environment/temperature

util/utility.tcl
The 'setpoint_script' for temperature controllers is now generated by '::utility::macro::getset'

r2706 | ffr | 2008-09-25 08:47:12 +1000 (Thu, 25 Sep 2008) | 5 lines

site_ansto/instrument/hipd/config/environment/temperature/west400.tcl

@@ -0,0 +1,53 @@
+# $Revision: 1.1 $
+# $Date: 2008-09-24 22:47:11 $
+# Author: Ferdi Franceschini (ffr@ansto.gov.au)
+# Last revision by: $Author: ffr $
+
+namespace eval ::environment::temperature { }
+
+# @brief Make a simulated temperature controller object.
+#
+# @param temp_sobj, name for temperature controller object.
+proc ::environment::temperature::mkwest400sim {temp_sobj} {
+  EvFactory new $temp_sobj sim
+  sicslist setatt $temp_sobj numsensors 1
+  sicslist setatt $temp_sobj controlsensor sensora
+  sicslist setatt $temp_sobj sensorlist sensora
+  sicslist setatt $temp_sobj units kelvin
+  sicslist setatt $temp_sobj klass @none
+}
+
+#WEST4100 tempcontroller creation
+proc ::environment::temperature::mkwest400 {temp_sobj} {
+MakeRS232Controller sertemp 137.157.201.88 502
+sertemp timeout 300
+sertemp sendterminator 0x0
+sertemp replyterminator 0x0
+EvFactory new tc1 west4100 sertemp 1 2
+
+sicslist setatt tc1 units kelvin
+sicslist setatt tc1 klass @none
+}
+
+# @brief Adds a west400  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_west400 {} {
+	set sim_mode [SplitReply [environment_simulation]]
+		if {$sim_mode == "true"} {
+			::environment::temperature::mkwest400sim tc1
+		} else {
+			::environment::temperature::mkwest400 tc1 
+			tc1 Upperlimit 1500
+			tc1 Lowerlimit 0
+			tc1 tolerance 10
+		}
+
+	sicslist setatt tc1 environment_name tempone 
+	sicslist setatt tc1 long_name control_sensor_reading
+::environment::mkenvinfo tc1 {ramprate {priv user} powerlimit {priv manager} }
+#::environment::mkenvinfo tc1 {heateron {priv user} range {priv manager} }
+
+}