quokka config/environment/environment.tcl

Move the select_environment_controller function from quokka_configuration.tcl to here.

SICS-402 Implement Quokka spin flipper control

server_config.tcl
Added rfgen_simulation variable

r2932 | ffr | 2010-05-22 17:01:09 +1000 (Sat, 22 May 2010) | 8 lines

site_ansto/instrument/sans/config/environment/environment.tcl

@@ -0,0 +1,29 @@
+proc select_environment_controller {envtemp} {
+if [ catch {
+puts "selecting $envtemp for environment control"
+switch $envtemp {
+  "lh45" {
+    add_lh45 tc1 ca5-quokka 4003 1
+  }
+  "rhqc" {
+    puts "Configuring RHQC"
+    ::environment::temperature::add_ls340 tc1 137.157.202.85 1
+    tc1 controlsensor sensorB
+    puts "Added tc1 with [tc1 controlsensor]"
+    ::environment::temperature::add_ls340 tc2 137.157.202.85 2
+    tc2 controlsensor sensorD
+    puts "Added tc2 with [tc2 controlsensor]"
+  }
+  "11TMagnet" {
+    puts "Configuring 11TMagnet"
+    ::environment::temperature::add_ls340 tc1 137.157.202.85 1
+    tc1 controlsensor sensorA
+  }
+  default {
+    clientput "No temperature controller configured"
+  }
+}
+} msg ] {
+  puts "Failed to configure $envtemp: $msg"
+}
+}