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

Change nodenames to lowercase and add a 'stash' function in he3_polanal

Browse Source
This commit is contained in:
Douglas Clowes
2014-11-07 09:10:17 +11:00
parent 67b6c5c7ee
commit 6c6292bbb2
1 changed files with 39 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
site_ansto/instrument/config/beamline/he3_polanal.sct
View File

@ -18,23 +18,23 @@ driver he3_polanal = {
check_function = chkWrite;
allowed = "+,-,Refresh"
}
var Amplitude = { }
var Freq = { units = 'Hertz'; }
var Phase = { units = 'Degree'; }
var Time2 = { units = 'Second'; }
var Field = { units = 'Oersted'; }
var Timestamp = { }
var amplitude = { }
var freq = { units = 'Hertz'; }
var phase = { units = 'Degree'; }
var time2 = { units = 'Second'; }
var field = { units = 'Oersted'; }
var timestamp = { }
}
group polariser_start = {
conditional = '[string equal -nocase ${has_pol} "true"]';
type = text;
var spin = { }
var Amplitude = { }
var Freq = { units = 'Hertz'; }
var Phase = { units = 'Degree'; }
var Time2 = { units = 'Second'; }
var Field = { units = 'Oersted'; }
var Timestamp = { }
var amplitude = { }
var freq = { units = 'Hertz'; }
var phase = { units = 'Degree'; }
var time2 = { units = 'Second'; }
var field = { units = 'Oersted'; }
var timestamp = { }
}
group analyser = {
@ -49,23 +49,23 @@ driver he3_polanal = {
check_function = chkWrite;
allowed = "+,-,Refresh"
}
var Amplitude = { }
var Freq = { units = 'Hertz'; }
var Phase = { units = 'Degree'; }
var Time2 = { units = 'Second'; }
var Field = { units = 'Oersted'; }
var Timestamp = { }
var amplitude = { }
var freq = { units = 'Hertz'; }
var phase = { units = 'Degree'; }
var time2 = { units = 'Second'; }
var field = { units = 'Oersted'; }
var timestamp = { }
}
group analyser_start = {
conditional = '[string equal -nocase ${has_anal} "true"]';
type = text;
var spin = { }
var Amplitude = { }
var Freq = { units = 'Hertz'; }
var Phase = { units = 'Degree'; }
var Time2 = { units = 'Second'; }
var Field = { units = 'Oersted'; }
var Timestamp = { }
var amplitude = { }
var freq = { units = 'Hertz'; }
var phase = { units = 'Degree'; }
var time2 = { units = 'Second'; }
var field = { units = 'Oersted'; }
var timestamp = { }
}
code chkWrite = {%%
@ -98,21 +98,21 @@ driver he3_polanal = {
if { "${new_value}" == "NaN" } {
set new_value 0
}
hupdateif ${path}/Amplitude "${new_value}"
hupdateif ${path}/amplitude "${new_value}"
}
if {[llength ${dlist}] > 3} {
hupdateif ${path}/Freq "[lindex ${dlist} 3]"
hupdateif ${path}/freq "[lindex ${dlist} 3]"
}
if {[llength ${dlist}] > 4} {
hupdateif ${path}/Phase "[lindex ${dlist} 4]"
hupdateif ${path}/phase "[lindex ${dlist} 4]"
}
if {[llength ${dlist}] > 5} {
hupdateif ${path}/Time2 "[lindex ${dlist} 5]"
hupdateif ${path}/time2 "[lindex ${dlist} 5]"
}
if {[llength ${dlist}] > 6} {
hupdateif ${path}/Field "[lindex ${dlist} 6]"
hupdateif ${path}/field "[lindex ${dlist} 6]"
}
hupdateif ${path}/Timestamp "${timestamp}"
hupdateif ${path}/timestamp "${timestamp}"
%%}
code setValue = {%%
@ -142,4 +142,13 @@ driver he3_polanal = {
set cmd "${cmd_str} +"
}
%%}
code postamble = {
@TCL
proc stash {node} {
foreach arg {spin amplitude freq phase time2 field timestamp} {
hupdateif ${node}_start/${arg} [hval ${node}/${arg}]
}
}
@END
}
}