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

Update "Decimal" processing for 4100/6100

Browse Source
This commit is contained in:
Douglas Clowes
2014-09-10 14:22:50 +10:00
parent 99fae91ff9
commit 0867f5a315
2 changed files with 22 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
site_ansto/instrument/config/environment/temperature/west_6100.sct
View File

@@ -34,7 +34,7 @@ driver west_6100 = {
fetch_function = getInteger;
read_function = rdInteger;
var model = { type = int; read_command = "122"; }
var decimal = { type = int; read_command = "18"; }
var decimal = { type = int; read_command = "18"; value = 0; }
var instatus = { type = int; read_command = "133"; }
}
code fetch_function getInteger = {
@@ -59,12 +59,20 @@ driver west_6100 = {
}
code read_function rdDecimal = {
@TCL
set data [expr {0.10 * ${data}}]
set decimal [hval ${tc_root}/aux/decimal]
if { ${decimal} > 0 } {
set data [expr {pow(10, -${decimal}) * ${data}}]
}
@END
}
code write_function wrDecimal = {
@TCL
set par [expr {round(10.0 * [sct target])}]
set decimal [hval ${tc_root}/aux/decimal]
set par [sct target]
if { ${decimal} > 0 } {
set par [expr {pow(10, ${decimal}) * ${par}}]
}
set par [expr {round(${par})}]
set cmd "1:16:${cmd_str}:1:U16:${par}"
@END
}