01dcc14d5a
Added a /sample/temperature node which links to the sensor reading for the ls340 on the 11T magnet sct_julabo_lh45.tcl Fixed regression which stopped tc1 interface from being linked into sample group. r2942 | ffr | 2010-05-28 16:32:28 +1000 (Fri, 28 May 2010) | 6 lines
37 lines
1.0 KiB
Tcl
37 lines
1.0 KiB
Tcl
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
|
|
::utility::macro::getset float temperature {} {
|
|
return [sicsmsgfmt [hval /sample/tc1_cntrl/sensora/value]]
|
|
}
|
|
sicslist setatt temperature long_name temperature
|
|
sicslist setatt temperature klass sample
|
|
sicslist setatt temperature units K
|
|
tc1 controlsensor sensorA
|
|
|
|
}
|
|
default {
|
|
clientput "No temperature controller configured"
|
|
}
|
|
}
|
|
} msg ] {
|
|
puts "Failed to configure $envtemp: $msg"
|
|
}
|
|
}
|