Regen SCT drivers
This commit is contained in:
Douglas Clowes
@@ -250,9 +250,10 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
|
||||
set scobj_hpath /sics/${name}
|
||||
|
||||
# Start of named group: disk_1
|
||||
hfactory ${scobj_hpath}/disk_1 plain spy none
|
||||
|
||||
|
||||
# Start of var: aphase
|
||||
hfactory ${scobj_hpath}/disk_1/aphase plain user float
|
||||
hsetprop ${scobj_hpath}/disk_1/aphase control true
|
||||
hsetprop ${scobj_hpath}/disk_1/aphase data true
|
||||
@@ -264,7 +265,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_1/aphase type "part"
|
||||
hsetprop ${scobj_hpath}/disk_1/aphase nxalias "${name}_disk_1_aphase"
|
||||
|
||||
|
||||
# Start of var: aspeed
|
||||
hfactory ${scobj_hpath}/disk_1/aspeed plain user float
|
||||
hsetprop ${scobj_hpath}/disk_1/aspeed control true
|
||||
hsetprop ${scobj_hpath}/disk_1/aspeed data true
|
||||
@@ -276,7 +277,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_1/aspeed type "part"
|
||||
hsetprop ${scobj_hpath}/disk_1/aspeed nxalias "${name}_disk_1_aspeed"
|
||||
|
||||
|
||||
# Start of var: frequency
|
||||
hfactory ${scobj_hpath}/disk_1/frequency plain user float
|
||||
hsetprop ${scobj_hpath}/disk_1/frequency control true
|
||||
hsetprop ${scobj_hpath}/disk_1/frequency data true
|
||||
@@ -288,7 +289,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_1/frequency type "part"
|
||||
hsetprop ${scobj_hpath}/disk_1/frequency nxalias "${name}_disk_1_frequency"
|
||||
|
||||
|
||||
# Start of var: master
|
||||
hfactory ${scobj_hpath}/disk_1/master plain user text
|
||||
hsetprop ${scobj_hpath}/disk_1/master control true
|
||||
hsetprop ${scobj_hpath}/disk_1/master data true
|
||||
@@ -300,7 +301,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_1/master type "part"
|
||||
hsetprop ${scobj_hpath}/disk_1/master nxalias "${name}_disk_1_master"
|
||||
|
||||
|
||||
# Start of var: rphase
|
||||
hfactory ${scobj_hpath}/disk_1/rphase plain user float
|
||||
hsetprop ${scobj_hpath}/disk_1/rphase control true
|
||||
hsetprop ${scobj_hpath}/disk_1/rphase data true
|
||||
@@ -312,7 +313,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_1/rphase type "part"
|
||||
hsetprop ${scobj_hpath}/disk_1/rphase nxalias "${name}_disk_1_rphase"
|
||||
|
||||
|
||||
# Start of var: rspeed
|
||||
hfactory ${scobj_hpath}/disk_1/rspeed plain user float
|
||||
hsetprop ${scobj_hpath}/disk_1/rspeed control true
|
||||
hsetprop ${scobj_hpath}/disk_1/rspeed data true
|
||||
@@ -324,7 +325,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_1/rspeed type "part"
|
||||
hsetprop ${scobj_hpath}/disk_1/rspeed nxalias "${name}_disk_1_rspeed"
|
||||
|
||||
|
||||
# Start of var: state
|
||||
hfactory ${scobj_hpath}/disk_1/state plain user text
|
||||
hsetprop ${scobj_hpath}/disk_1/state read ${ns}::fetchState ${scobj_hpath} readState {1}
|
||||
hsetprop ${scobj_hpath}/disk_1/state readState ${ns}::readState ${scobj_hpath}
|
||||
@@ -341,16 +342,20 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/disk_1/state 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::astrium_chopper::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for astrium_chopper"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
hsetprop ${scobj_hpath}/disk_1 data "true"
|
||||
hsetprop ${scobj_hpath}/disk_1 klass "@none"
|
||||
hsetprop ${scobj_hpath}/disk_1 type "part"
|
||||
# End of named group: disk_1
|
||||
|
||||
# Start of named group: disk_2
|
||||
hfactory ${scobj_hpath}/disk_2 plain spy none
|
||||
|
||||
|
||||
# Start of var: aphase
|
||||
hfactory ${scobj_hpath}/disk_2/aphase plain user float
|
||||
hsetprop ${scobj_hpath}/disk_2/aphase control true
|
||||
hsetprop ${scobj_hpath}/disk_2/aphase data true
|
||||
@@ -362,7 +367,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_2/aphase type "part"
|
||||
hsetprop ${scobj_hpath}/disk_2/aphase nxalias "${name}_disk_2_aphase"
|
||||
|
||||
|
||||
# Start of var: aspeed
|
||||
hfactory ${scobj_hpath}/disk_2/aspeed plain user float
|
||||
hsetprop ${scobj_hpath}/disk_2/aspeed control true
|
||||
hsetprop ${scobj_hpath}/disk_2/aspeed data true
|
||||
@@ -374,7 +379,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_2/aspeed type "part"
|
||||
hsetprop ${scobj_hpath}/disk_2/aspeed nxalias "${name}_disk_2_aspeed"
|
||||
|
||||
|
||||
# Start of var: frequency
|
||||
hfactory ${scobj_hpath}/disk_2/frequency plain user float
|
||||
hsetprop ${scobj_hpath}/disk_2/frequency control true
|
||||
hsetprop ${scobj_hpath}/disk_2/frequency data true
|
||||
@@ -386,7 +391,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_2/frequency type "part"
|
||||
hsetprop ${scobj_hpath}/disk_2/frequency nxalias "${name}_disk_2_frequency"
|
||||
|
||||
|
||||
# Start of var: master
|
||||
hfactory ${scobj_hpath}/disk_2/master plain user text
|
||||
hsetprop ${scobj_hpath}/disk_2/master control true
|
||||
hsetprop ${scobj_hpath}/disk_2/master data true
|
||||
@@ -398,7 +403,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_2/master type "part"
|
||||
hsetprop ${scobj_hpath}/disk_2/master nxalias "${name}_disk_2_master"
|
||||
|
||||
|
||||
# Start of var: rphase
|
||||
hfactory ${scobj_hpath}/disk_2/rphase plain user float
|
||||
hsetprop ${scobj_hpath}/disk_2/rphase control true
|
||||
hsetprop ${scobj_hpath}/disk_2/rphase data true
|
||||
@@ -410,7 +415,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_2/rphase type "part"
|
||||
hsetprop ${scobj_hpath}/disk_2/rphase nxalias "${name}_disk_2_rphase"
|
||||
|
||||
|
||||
# Start of var: rspeed
|
||||
hfactory ${scobj_hpath}/disk_2/rspeed plain user float
|
||||
hsetprop ${scobj_hpath}/disk_2/rspeed control true
|
||||
hsetprop ${scobj_hpath}/disk_2/rspeed data true
|
||||
@@ -422,7 +427,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_2/rspeed type "part"
|
||||
hsetprop ${scobj_hpath}/disk_2/rspeed nxalias "${name}_disk_2_rspeed"
|
||||
|
||||
|
||||
# Start of var: state
|
||||
hfactory ${scobj_hpath}/disk_2/state plain user text
|
||||
hsetprop ${scobj_hpath}/disk_2/state read ${ns}::fetchState ${scobj_hpath} readState {2}
|
||||
hsetprop ${scobj_hpath}/disk_2/state readState ${ns}::readState ${scobj_hpath}
|
||||
@@ -439,16 +444,20 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/disk_2/state 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::astrium_chopper::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for astrium_chopper"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
hsetprop ${scobj_hpath}/disk_2 data "true"
|
||||
hsetprop ${scobj_hpath}/disk_2 klass "@none"
|
||||
hsetprop ${scobj_hpath}/disk_2 type "part"
|
||||
# End of named group: disk_2
|
||||
|
||||
# Start of named group: disk_3
|
||||
hfactory ${scobj_hpath}/disk_3 plain spy none
|
||||
|
||||
|
||||
# Start of var: aphase
|
||||
hfactory ${scobj_hpath}/disk_3/aphase plain user float
|
||||
hsetprop ${scobj_hpath}/disk_3/aphase control true
|
||||
hsetprop ${scobj_hpath}/disk_3/aphase data true
|
||||
@@ -460,7 +469,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_3/aphase type "part"
|
||||
hsetprop ${scobj_hpath}/disk_3/aphase nxalias "${name}_disk_3_aphase"
|
||||
|
||||
|
||||
# Start of var: aspeed
|
||||
hfactory ${scobj_hpath}/disk_3/aspeed plain user float
|
||||
hsetprop ${scobj_hpath}/disk_3/aspeed control true
|
||||
hsetprop ${scobj_hpath}/disk_3/aspeed data true
|
||||
@@ -472,7 +481,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_3/aspeed type "part"
|
||||
hsetprop ${scobj_hpath}/disk_3/aspeed nxalias "${name}_disk_3_aspeed"
|
||||
|
||||
|
||||
# Start of var: frequency
|
||||
hfactory ${scobj_hpath}/disk_3/frequency plain user float
|
||||
hsetprop ${scobj_hpath}/disk_3/frequency control true
|
||||
hsetprop ${scobj_hpath}/disk_3/frequency data true
|
||||
@@ -484,7 +493,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_3/frequency type "part"
|
||||
hsetprop ${scobj_hpath}/disk_3/frequency nxalias "${name}_disk_3_frequency"
|
||||
|
||||
|
||||
# Start of var: master
|
||||
hfactory ${scobj_hpath}/disk_3/master plain user text
|
||||
hsetprop ${scobj_hpath}/disk_3/master control true
|
||||
hsetprop ${scobj_hpath}/disk_3/master data true
|
||||
@@ -496,7 +505,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_3/master type "part"
|
||||
hsetprop ${scobj_hpath}/disk_3/master nxalias "${name}_disk_3_master"
|
||||
|
||||
|
||||
# Start of var: rphase
|
||||
hfactory ${scobj_hpath}/disk_3/rphase plain user float
|
||||
hsetprop ${scobj_hpath}/disk_3/rphase control true
|
||||
hsetprop ${scobj_hpath}/disk_3/rphase data true
|
||||
@@ -508,7 +517,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_3/rphase type "part"
|
||||
hsetprop ${scobj_hpath}/disk_3/rphase nxalias "${name}_disk_3_rphase"
|
||||
|
||||
|
||||
# Start of var: rspeed
|
||||
hfactory ${scobj_hpath}/disk_3/rspeed plain user float
|
||||
hsetprop ${scobj_hpath}/disk_3/rspeed control true
|
||||
hsetprop ${scobj_hpath}/disk_3/rspeed data true
|
||||
@@ -520,7 +529,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_3/rspeed type "part"
|
||||
hsetprop ${scobj_hpath}/disk_3/rspeed nxalias "${name}_disk_3_rspeed"
|
||||
|
||||
|
||||
# Start of var: state
|
||||
hfactory ${scobj_hpath}/disk_3/state plain user text
|
||||
hsetprop ${scobj_hpath}/disk_3/state read ${ns}::fetchState ${scobj_hpath} readState {3}
|
||||
hsetprop ${scobj_hpath}/disk_3/state readState ${ns}::readState ${scobj_hpath}
|
||||
@@ -537,16 +546,20 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/disk_3/state 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::astrium_chopper::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for astrium_chopper"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
hsetprop ${scobj_hpath}/disk_3 data "true"
|
||||
hsetprop ${scobj_hpath}/disk_3 klass "@none"
|
||||
hsetprop ${scobj_hpath}/disk_3 type "part"
|
||||
# End of named group: disk_3
|
||||
|
||||
# Start of named group: disk_4
|
||||
hfactory ${scobj_hpath}/disk_4 plain spy none
|
||||
|
||||
|
||||
# Start of var: aphase
|
||||
hfactory ${scobj_hpath}/disk_4/aphase plain user float
|
||||
hsetprop ${scobj_hpath}/disk_4/aphase control true
|
||||
hsetprop ${scobj_hpath}/disk_4/aphase data true
|
||||
@@ -558,7 +571,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_4/aphase type "part"
|
||||
hsetprop ${scobj_hpath}/disk_4/aphase nxalias "${name}_disk_4_aphase"
|
||||
|
||||
|
||||
# Start of var: aspeed
|
||||
hfactory ${scobj_hpath}/disk_4/aspeed plain user float
|
||||
hsetprop ${scobj_hpath}/disk_4/aspeed control true
|
||||
hsetprop ${scobj_hpath}/disk_4/aspeed data true
|
||||
@@ -570,7 +583,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_4/aspeed type "part"
|
||||
hsetprop ${scobj_hpath}/disk_4/aspeed nxalias "${name}_disk_4_aspeed"
|
||||
|
||||
|
||||
# Start of var: frequency
|
||||
hfactory ${scobj_hpath}/disk_4/frequency plain user float
|
||||
hsetprop ${scobj_hpath}/disk_4/frequency control true
|
||||
hsetprop ${scobj_hpath}/disk_4/frequency data true
|
||||
@@ -582,7 +595,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_4/frequency type "part"
|
||||
hsetprop ${scobj_hpath}/disk_4/frequency nxalias "${name}_disk_4_frequency"
|
||||
|
||||
|
||||
# Start of var: master
|
||||
hfactory ${scobj_hpath}/disk_4/master plain user text
|
||||
hsetprop ${scobj_hpath}/disk_4/master control true
|
||||
hsetprop ${scobj_hpath}/disk_4/master data true
|
||||
@@ -594,7 +607,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_4/master type "part"
|
||||
hsetprop ${scobj_hpath}/disk_4/master nxalias "${name}_disk_4_master"
|
||||
|
||||
|
||||
# Start of var: rphase
|
||||
hfactory ${scobj_hpath}/disk_4/rphase plain user float
|
||||
hsetprop ${scobj_hpath}/disk_4/rphase control true
|
||||
hsetprop ${scobj_hpath}/disk_4/rphase data true
|
||||
@@ -606,7 +619,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_4/rphase type "part"
|
||||
hsetprop ${scobj_hpath}/disk_4/rphase nxalias "${name}_disk_4_rphase"
|
||||
|
||||
|
||||
# Start of var: rspeed
|
||||
hfactory ${scobj_hpath}/disk_4/rspeed plain user float
|
||||
hsetprop ${scobj_hpath}/disk_4/rspeed control true
|
||||
hsetprop ${scobj_hpath}/disk_4/rspeed data true
|
||||
@@ -618,7 +631,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
hsetprop ${scobj_hpath}/disk_4/rspeed type "part"
|
||||
hsetprop ${scobj_hpath}/disk_4/rspeed nxalias "${name}_disk_4_rspeed"
|
||||
|
||||
|
||||
# Start of var: state
|
||||
hfactory ${scobj_hpath}/disk_4/state plain user text
|
||||
hsetprop ${scobj_hpath}/disk_4/state read ${ns}::fetchState ${scobj_hpath} readState {4}
|
||||
hsetprop ${scobj_hpath}/disk_4/state readState ${ns}::readState ${scobj_hpath}
|
||||
@@ -635,12 +648,15 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/disk_4/state 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::astrium_chopper::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for astrium_chopper"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
hsetprop ${scobj_hpath}/disk_4 data "true"
|
||||
hsetprop ${scobj_hpath}/disk_4 klass "@none"
|
||||
hsetprop ${scobj_hpath}/disk_4 type "part"
|
||||
# End of named group: disk_4
|
||||
hsetprop ${scobj_hpath} klass ${device_class}
|
||||
hsetprop ${scobj_hpath} data true
|
||||
hsetprop ${scobj_hpath} debug_threshold 5
|
||||
|
||||
@@ -204,8 +204,9 @@ proc ::scobj::shutters::mkDriver { sct_controller name device_class simulation_f
|
||||
sicslist setatt ${name} long_name ${name}
|
||||
|
||||
set scobj_hpath /sics/${name}
|
||||
# Start of unnamed group
|
||||
|
||||
|
||||
# Start of var: fast_shutter
|
||||
hfactory ${scobj_hpath}/fast_shutter plain user text
|
||||
hsetprop ${scobj_hpath}/fast_shutter read ${ns}::getValue ${scobj_hpath} read_switch_pair {MG @IN[5], @IN[6]}
|
||||
hsetprop ${scobj_hpath}/fast_shutter read_switch_pair ${ns}::read_switch_pair ${scobj_hpath}
|
||||
@@ -221,11 +222,13 @@ proc ::scobj::shutters::mkDriver { sct_controller name device_class simulation_f
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/fast_shutter 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::shutters::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for shutters"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
|
||||
|
||||
# Start of var: rough_100
|
||||
hfactory ${scobj_hpath}/rough_100 plain user text
|
||||
hsetprop ${scobj_hpath}/rough_100 read ${ns}::getValue ${scobj_hpath} read_switch_pair {MG @IN[15], @IN[16]}
|
||||
hsetprop ${scobj_hpath}/rough_100 read_switch_pair ${ns}::read_switch_pair ${scobj_hpath}
|
||||
@@ -246,11 +249,13 @@ proc ::scobj::shutters::mkDriver { sct_controller name device_class simulation_f
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/rough_100 1
|
||||
${sct_controller} write ${scobj_hpath}/rough_100
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::shutters::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for shutters"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
|
||||
|
||||
# Start of var: rough_40
|
||||
hfactory ${scobj_hpath}/rough_40 plain user text
|
||||
hsetprop ${scobj_hpath}/rough_40 read ${ns}::getValue ${scobj_hpath} read_switch_pair {MG @IN[13], @IN[14]}
|
||||
hsetprop ${scobj_hpath}/rough_40 read_switch_pair ${ns}::read_switch_pair ${scobj_hpath}
|
||||
@@ -271,14 +276,17 @@ proc ::scobj::shutters::mkDriver { sct_controller name device_class simulation_f
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/rough_40 1
|
||||
${sct_controller} write ${scobj_hpath}/rough_40
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::shutters::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for shutters"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
|
||||
hsetprop ${scobj_hpath} data "true"
|
||||
hsetprop ${scobj_hpath} klass "@none"
|
||||
hsetprop ${scobj_hpath} nxsave "true"
|
||||
hsetprop ${scobj_hpath} type "part"
|
||||
# End of unnamed group
|
||||
hsetprop ${scobj_hpath} klass ${device_class}
|
||||
hsetprop ${scobj_hpath} data true
|
||||
hsetprop ${scobj_hpath} debug_threshold 5
|
||||
|
||||
@@ -212,8 +212,9 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
|
||||
sicslist setatt ${name} long_name ${name}
|
||||
|
||||
set scobj_hpath /sics/${name}
|
||||
# Start of unnamed group
|
||||
|
||||
|
||||
# Start of var: pos
|
||||
hfactory ${scobj_hpath}/pos plain spy float
|
||||
hsetprop ${scobj_hpath}/pos read ${ns}::getValue ${scobj_hpath} read_pos {MG _TPH}
|
||||
hsetprop ${scobj_hpath}/pos read_pos ${ns}::read_pos ${scobj_hpath}
|
||||
@@ -229,17 +230,21 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/pos 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
|
||||
hsetprop ${scobj_hpath} data "true"
|
||||
hsetprop ${scobj_hpath} klass "@none"
|
||||
hsetprop ${scobj_hpath} type "part"
|
||||
# End of unnamed group
|
||||
|
||||
# Start of named group: limits
|
||||
hfactory ${scobj_hpath}/limits plain spy none
|
||||
|
||||
|
||||
# Start of var: forward
|
||||
hfactory ${scobj_hpath}/limits/forward plain user text
|
||||
hsetprop ${scobj_hpath}/limits/forward read ${ns}::getValue ${scobj_hpath} read_switch {MG _LFH}
|
||||
hsetprop ${scobj_hpath}/limits/forward read_switch ${ns}::read_switch ${scobj_hpath}
|
||||
@@ -255,11 +260,13 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/limits/forward 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
|
||||
|
||||
# Start of var: reverse
|
||||
hfactory ${scobj_hpath}/limits/reverse plain user text
|
||||
hsetprop ${scobj_hpath}/limits/reverse read ${ns}::getValue ${scobj_hpath} read_switch {MG _LRH}
|
||||
hsetprop ${scobj_hpath}/limits/reverse read_switch ${ns}::read_switch ${scobj_hpath}
|
||||
@@ -275,16 +282,20 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/limits/reverse 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
hsetprop ${scobj_hpath}/limits data "true"
|
||||
hsetprop ${scobj_hpath}/limits klass "@none"
|
||||
hsetprop ${scobj_hpath}/limits type "part"
|
||||
# End of named group: limits
|
||||
|
||||
# Start of named group: switches
|
||||
hfactory ${scobj_hpath}/switches plain spy none
|
||||
|
||||
|
||||
# Start of var: forward
|
||||
hfactory ${scobj_hpath}/switches/forward plain user text
|
||||
hsetprop ${scobj_hpath}/switches/forward read ${ns}::getValue ${scobj_hpath} read_switch {MG @IN[5]}
|
||||
hsetprop ${scobj_hpath}/switches/forward read_switch ${ns}::read_switch ${scobj_hpath}
|
||||
@@ -300,11 +311,13 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/switches/forward 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
|
||||
|
||||
# Start of var: reverse
|
||||
hfactory ${scobj_hpath}/switches/reverse plain user text
|
||||
hsetprop ${scobj_hpath}/switches/reverse read ${ns}::getValue ${scobj_hpath} read_switch {MG @IN[6]}
|
||||
hsetprop ${scobj_hpath}/switches/reverse read_switch ${ns}::read_switch ${scobj_hpath}
|
||||
@@ -320,12 +333,15 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
|
||||
|
||||
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
||||
${sct_controller} poll ${scobj_hpath}/switches/reverse 1
|
||||
hsetprop ${scobj_hpath}/%s simulated false
|
||||
} else {
|
||||
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
|
||||
hsetprop ${scobj_hpath}/%s simulated true
|
||||
}
|
||||
hsetprop ${scobj_hpath}/switches data "true"
|
||||
hsetprop ${scobj_hpath}/switches klass "@none"
|
||||
hsetprop ${scobj_hpath}/switches type "part"
|
||||
# End of named group: switches
|
||||
hsetprop ${scobj_hpath} klass ${device_class}
|
||||
hsetprop ${scobj_hpath} data true
|
||||
hsetprop ${scobj_hpath} debug_threshold 5
|
||||
|
||||
Reference in New Issue
Block a user