Realign SCT drivers with R3.2

This commit is contained in:
Douglas Clowes
2014-11-13 14:14:04 +11:00
parent 5fefe5f009
commit c443411764
3 changed files with 24 additions and 30 deletions

View File

@@ -2,7 +2,7 @@ driver astrium_chopper = {
vendor = astrium; device = chopper; protocol = std;
class = NXdisk_chopper; simulation_group = chopper_simulation;
group blade_1 = {
group disk_1 = {
var state = {
type = text; mutable = true; priv = user; readable = 1;
read_command = '1'; fetch_function = fetchState; read_function = readState;
@@ -13,9 +13,10 @@ driver astrium_chopper = {
var aspeed = { type = float; mutable = true; }
var rphase = { type = float; }
var aphase = { type = float; mutable = true; }
var frequency = { type = float; mutable = true; }
}
group blade_2 = {
group disk_2 = {
var state = {
type = text; mutable = true; priv = user; readable = 1;
read_command = '2'; fetch_function = fetchState; read_function = readState;
@@ -26,9 +27,10 @@ driver astrium_chopper = {
var aspeed = { type = float; mutable = true; }
var rphase = { type = float; }
var aphase = { type = float; mutable = true; }
var frequency = { type = float; mutable = true; }
}
group blade_3 = {
group disk_3 = {
var state = {
type = text; mutable = true; priv = user; readable = 1;
read_command = '3'; fetch_function = fetchState; read_function = readState;
@@ -39,9 +41,10 @@ driver astrium_chopper = {
var aspeed = { type = float; mutable = true; }
var rphase = { type = float; }
var aphase = { type = float; mutable = true; }
var frequency = { type = float; mutable = true; }
}
group blade_4 = {
group disk_4 = {
var state = {
type = text; mutable = true; priv = user; readable = 1;
read_command = '4'; fetch_function = fetchState; read_function = readState;
@@ -52,6 +55,7 @@ driver astrium_chopper = {
var aspeed = { type = float; mutable = true; }
var rphase = { type = float; }
var aphase = { type = float; mutable = true; }
var frequency = { type = float; mutable = true; }
}
code fetch_function fetchState = {%%
@@ -87,8 +91,16 @@ driver astrium_chopper = {
set rhs "[string trim [lindex ${lst} 1]]"
sct "attr_${lhs}" "${rhs}"
set base [pathname [sct]]
foreach node [list ASPEED RSPEED APHASE RPHASE MASTER] {
if { [string equal -nocase "${lhs}" "${node}"] } {
switch [string toupper ${lhs}] {
"ASPEED" {
if [string is double "${rhs}"] {
set freq [expr "${rhs}" / 60.0]
if { "[hval ${base}/frequency]" != "${freq}" } {
hset ${base}/frequency ${freq}
}
}
}
"RSPEED" - "APHASE" - "RPHASE" - "MASTER" {
if { "[hval ${base}/${node}]" != "${rhs}" } {
hset ${base}/${node} "${rhs}"
}