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

Added rva_datafile name and added rva to /sample group

Browse Source 
r3151 | ffr | 2011-05-20 12:02:45 +1000 (Fri, 20 May 2011) | 1 line
This commit is contained in:
Ferdi Franceschini
2011-05-20 12:02:45 +10:00
committed by Douglas Clowes
parent afa42563a0
commit c1b90c4f7d
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
site_ansto/instrument/config/environment/temperature/sct_rvasm2.tcl
View File

@@ -398,6 +398,7 @@ debug_log "rdVisc [sct] [sct result]"
debug_log "file: ${file_name}" debug_log "file: ${file_name}"
sct datafile "${file_name}" sct datafile "${file_name}"
set f [open "[sct datafile].txt" "w"] set f [open "[sct datafile].txt" "w"]
rva_datafile [ file tail [sct datafile] ]
puts $f "SRY[clock format [sct test_time] -format "%d%m%Y"]" puts $f "SRY[clock format [sct test_time] -format "%d%m%Y"]"
puts $f "SRO[clock format [sct test_time] -format "%H%M%S"]" puts $f "SRO[clock format [sct test_time] -format "%H%M%S"]"
close $f close $f
@@ -470,6 +471,9 @@ debug_log "rdVisc [sct] [sct result]"
debug_log "getState error: $catch_message" debug_log "getState error: $catch_message"
} }
if {[sct oldval] == "UNKNOWN"} {
rva_datafile "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
}
if {[sct my_state] != [sct oldval]} { if {[sct my_state] != [sct oldval]} {
sct oldval [sct my_state] sct oldval [sct my_state]
sct update [sct my_state] sct update [sct my_state]
@@ -944,6 +948,9 @@ proc createNode {scobj_hpath sct_controller cmdGroup varName readable writable\
sicslist setatt $tempobj klass $klass sicslist setatt $tempobj klass $klass
sicslist setatt $tempobj long_name $tempobj sicslist setatt $tempobj long_name $tempobj
::utility::mkVar rva_datafile text user rva_datafile true $klass true true
sicslist setatt rva_datafile link data_set
set scobj_hpath /sics/$tempobj set scobj_hpath /sics/$tempobj
set deviceCommand {\ set deviceCommand {\
@@ -1023,8 +1030,8 @@ proc createNode {scobj_hpath sct_controller cmdGroup varName readable writable\
$sct_controller poll $scobj_hpath/device_state 1 halt read $sct_controller poll $scobj_hpath/device_state 1 halt read
} }
hsetprop $scobj_hpath klass $klass
::scobj::hinitprops $tempobj ::scobj::hinitprops $tempobj
hsetprop $scobj_hpath klass NXenvironment
::scobj::set_required_props $scobj_hpath ::scobj::set_required_props $scobj_hpath
foreach {rootpath hpath klass priv} " foreach {rootpath hpath klass priv} "
$scobj_hpath sensor NXsensor spy $scobj_hpath sensor NXsensor spy