linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Incorporated the cg123He_temp local mod from the R2_1 deployment.

Browse Source 
Added validation and fixed attributes.

r2708 | ffr | 2008-09-25 10:49:06 +1000 (Thu, 25 Sep 2008) | 3 lines
This commit is contained in:
Ferdi Franceschini
2008-09-25 10:49:06 +10:00
committed by Douglas Clowes
parent e1978867e9
commit 815eeefc1c
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
site_ansto/instrument/config/source/source_common.tcl
View File

@ -90,6 +90,20 @@ proc ::source::ic_initialize {guide} {
sicslist setatt cns_flow long_name cns_flow_temp
sicslist setatt cns_flow mutable true
sicslist setatt cns_flow units "ls-1"
::utility::macro::getset float cg123He_temp {} {
set str [opal "CG 1,2,3 HELIUM TEMPERATURE"]
set value [lindex [lindex [split $str =] 1] 0]
if [string is double $value] {
return "cg123He_temp = $value"
} else {
return "cg123He_temp = -1"
}
}
sicslist setatt cg123He_temp klass source
sicslist setatt cg123He_temp long_name cg123He_temp
sicslist setatt cg123He_temp mutable true
sicslist setatt cg123He_temp units "K"
}
"thermal" {
}