From 7c75771acf18ffde84ffa5e15cb23ee0a26ba931 Mon Sep 17 00:00:00 2001
From: "(no author)" <(no author)@ansto.gov.au>
Date: Fri, 11 Dec 2009 13:09:57 +1100
Subject: [PATCH] This commit was manufactured by cvs2svn to create branch
 'RELEASE-2_5-BRANCH'. r2846 | (no author) | 2009-12-11 13:09:57 +1100 (Fri,
 11 Dec 2009) | 2 lines

---
 .../environment/temperature/west400.tcl       | 53 -------------------
 1 file changed, 53 deletions(-)
 delete mode 100644 site_ansto/instrument/hrpd/config/environment/temperature/west400.tcl

diff --git a/site_ansto/instrument/hrpd/config/environment/temperature/west400.tcl b/site_ansto/instrument/hrpd/config/environment/temperature/west400.tcl
deleted file mode 100644
index eb9d1e3c..00000000
--- a/site_ansto/instrument/hrpd/config/environment/temperature/west400.tcl
+++ /dev/null
@@ -1,53 +0,0 @@
-# $Revision: 1.2 $
-# $Date: 2009-12-11 02:08:43 $
-# 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 IP } {
-MakeRS232Controller sertemp $IP 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 {IP} {
-	set sim_mode [SplitReply [environment_simulation]]
-		if {$sim_mode == "true"} {
-			::environment::temperature::mkwest400sim tc1
-		} else {
-			::environment::temperature::mkwest400 tc1 $IP
-			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} }
-
-}