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

r3772 | jgn | 2012-10-24 16:26:47 +1100 (Wed, 24 Oct 2012) | 1 line

Browse Source
This commit is contained in:
Jing Chen
2012-10-24 16:26:47 +11:00
committed by Douglas Clowes
parent 731c83786b
commit e21b3eb135
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
site_ansto/instrument/pelican/config/beamline/sct_power.tcl
View File

@@ -371,7 +371,8 @@ proc ::scobj::ag1010::rdValue {} {
set ns /sics/ag1010 set ns /sics/ag1010
#set ns [sct] #set ns [sct]
if {[ catch { if {[ catch {
set data [string trim [sct result] " "] set curVal [sct result]
set data [string trim $curVal " "]
hset $ns/responseMsg "$data" hset $ns/responseMsg "$data"
#broadcast "rdValue : $data" #broadcast "rdValue : $data"
@@ -583,6 +584,11 @@ proc ::scobj::ag1010::rdValue {} {
} }
default { return -code error "Unexpected returned values from the device in rdValue()" } default { return -code error "Unexpected returned values from the device in rdValue()" }
} }
if {$curVal != [sct oldval]} {
sct oldval $curVal
sct update $curVal
sct utime readtime
}
} message ]} { } message ]} {
return -code error "Error in rdValue: $message." return -code error "Error in rdValue: $message."
} }
@@ -621,11 +627,9 @@ proc createNode {scobj_hpath sct_controller cmdGroup varName readable writable p
} }
hfactory $nodeName plain $permission $dataType hfactory $nodeName plain $permission $dataType
switch $dataType { switch $dataType {
"none" {hset $nodeName none} "int" {hsetprop $nodeName oldval 0}
"text" {hset $nodeName UNKNOWN} "float" {hsetprop $nodeName oldval 0.0}
"int" {hset $nodeName 0} default {hsetprop $nodeName oldval UNKNOWN}
"float" {hset $nodeName 0.0}
default {hset $nodeName UNKNOWN}
} }
if {$readable == 1} { if {$readable == 1} {
hsetprop $nodeName read ${ns}::getValue $scobj_hpath $rdFunc $rdPara hsetprop $nodeName read ${ns}::getValue $scobj_hpath $rdFunc $rdPara