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

code cleanup

Browse Source 
r2960 | dcl | 2010-06-25 15:06:37 +1000 (Fri, 25 Jun 2010) | 2 lines
This commit is contained in:
Douglas Clowes
2010-06-25 15:06:37 +10:00
parent 687ed01c01
commit cebd4d5600
3 changed files with 24 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
site_ansto/instrument/config/environment/temperature/sct_qlink.tcl
View File

@@ -20,9 +20,9 @@ namespace eval ::scobj::qlink {
proc rdValue {tc_root} {
set data [sct result]
if [ catch {
if {[ catch {
debug_log "rdValue $tc_root [sct] result=$data"
} message ] {
} message ]} {
debug_log "rdValue $tc_root failure"
}
switch -glob -- $data {
@@ -34,7 +34,7 @@ debug_log "rdValue $tc_root failure"
sct oldval $data
sct update $data
sct utime readtime
debug_log "rdValue new data for $tc_root [sct] $my_model result=$data"
debug_log "rdValue new data for $tc_root [sct] result=$data"
}
}
}
@@ -48,7 +48,7 @@ debug_log "rdValue new data for $tc_root [sct] $my_model result=$data"
}
proc mk_sct_qlink {sct_controller klass tempobj tol} {
if [ catch {
if {[ catch {
set ns ::scobj::qlink
MakeSICSObj $tempobj SCT_OBJECT
@@ -99,7 +99,8 @@ debug_log "rdValue new data for $tc_root [sct] $my_model result=$data"
hsetprop $scobj_hpath/$snsr/value sdsinfo ::nexus::scobj::sdsinfo
}
hsetprop $scobj_hpath privilege spy
} message ] {
# ::scobj::hinitprops $tempobj setpoint
} message ]} {
return -code error $message
}
}
@@ -132,4 +133,4 @@ close $fd
namespace import ::scobj::qlink::*
#add_qlink qlink 137.157.201.213 502 5
add_qlink qlink localhost 30508 5
#add_qlink qlink localhost 30508 5