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

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

Browse Source 
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
This commit is contained in:
Ferdi Franceschini
2008-09-25 08:47:12 +10:00
committed by Douglas Clowes
parent 1f755ccb0d
commit c30ce9c5a0
4 changed files with 74 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
site_ansto/instrument/util/utility.tcl
View File

@@ -1,7 +1,7 @@
# Some useful functions for SICS configuration.
# $Revision: 1.16 $
# $Date: 2008-08-29 12:14:19 $
# $Revision: 1.17 $
# $Date: 2008-09-24 22:47:12 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
@@ -117,39 +117,19 @@ proc ::environment::mkenvinfo {sobj paramlist} {
# }
set setpoint_script ::environment::${sobj}_setpoint
proc $setpoint_script [subst {{val "@none"} {_sobj $sobj}}] {
if [catch {
if {[SplitReply [environment_simulation]]=="true"} {
if {$val=="@none"} {
return [SplitReply [${_sobj}]]
} else {
${_sobj} $val
}
} else {
if {$val=="@none"} {
return [SplitReply [${_sobj} setpoint]]
} else {
${_sobj} $val
}
}
} message ] {
if {$::errorCode == "NONE"} {return $message}
return -code error $message
}
}
publish $setpoint_script user
sicslist setatt $setpoint_script privilege internal
sicslist setatt $setpoint_script access rw
sicslist setatt $setpoint_script long_name setpoint
sicslist setatt $setpoint_script dtype float
sicslist setatt $setpoint_script dlen 1
sicslist setatt $setpoint_script data false
sicslist setatt $setpoint_script nxsave false
sicslist setatt $setpoint_script mutable false
sicslist setatt $setpoint_script control true
sicslist setatt $setpoint_script units K
sicslist setatt $setpoint_script klass sensor
sicslist setatt $setpoint_script kind script
::utility::macro::getset float $setpoint_script {args} {
if {$args == ""} {
return [tc1 setpoint]
} else {
tc1 setpoint $args
}
}
sicslist setatt $setpoint_script klass @none
sicslist setatt $setpoint_script long_name setpoint
sicslist setatt $setpoint_script mutable true
lappend env_macrolist $setpoint_script
foreach {param attlist} $paramlist {