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

Regen sct drivers after refactoring

Browse Source
This commit is contained in:
Douglas Clowes
2014-09-29 15:38:32 +10:00
parent 814c8741c3
commit 29650b420c
20 changed files with 1014 additions and 322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
site_ansto/instrument/bilby/config/chopper/astrium_chopper_sct.tcl
View File

@@ -251,9 +251,7 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
set scobj_hpath /sics/${name}
hfactory ${scobj_hpath}/disk_1 plain spy none
hsetprop ${scobj_hpath}/disk_1 data "true"
hsetprop ${scobj_hpath}/disk_1 klass "@none"
hsetprop ${scobj_hpath}/disk_1 type "part"
hfactory ${scobj_hpath}/disk_1/aphase plain user float
hsetprop ${scobj_hpath}/disk_1/aphase control true
@@ -266,6 +264,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"
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
@@ -277,6 +276,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"
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,6 +288,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"
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
@@ -299,6 +300,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"
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
@@ -310,6 +312,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"
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
@@ -321,6 +324,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"
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}
@@ -340,11 +344,12 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
} else {
::scobj::astrium_chopper::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for astrium_chopper"
}
hsetprop ${scobj_hpath}/disk_1 data "true"
hsetprop ${scobj_hpath}/disk_1 klass "@none"
hsetprop ${scobj_hpath}/disk_1 type "part"
hfactory ${scobj_hpath}/disk_2 plain spy none
hsetprop ${scobj_hpath}/disk_2 data "true"
hsetprop ${scobj_hpath}/disk_2 klass "@none"
hsetprop ${scobj_hpath}/disk_2 type "part"
hfactory ${scobj_hpath}/disk_2/aphase plain user float
hsetprop ${scobj_hpath}/disk_2/aphase control true
@@ -357,6 +362,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"
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
@@ -368,6 +374,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"
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
@@ -379,6 +386,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"
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
@@ -390,6 +398,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"
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
@@ -401,6 +410,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"
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
@@ -412,6 +422,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"
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}
@@ -431,11 +442,12 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
} else {
::scobj::astrium_chopper::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for astrium_chopper"
}
hsetprop ${scobj_hpath}/disk_2 data "true"
hsetprop ${scobj_hpath}/disk_2 klass "@none"
hsetprop ${scobj_hpath}/disk_2 type "part"
hfactory ${scobj_hpath}/disk_3 plain spy none
hsetprop ${scobj_hpath}/disk_3 data "true"
hsetprop ${scobj_hpath}/disk_3 klass "@none"
hsetprop ${scobj_hpath}/disk_3 type "part"
hfactory ${scobj_hpath}/disk_3/aphase plain user float
hsetprop ${scobj_hpath}/disk_3/aphase control true
@@ -448,6 +460,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"
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
@@ -459,6 +472,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"
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
@@ -470,6 +484,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"
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
@@ -481,6 +496,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"
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
@@ -492,6 +508,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"
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
@@ -503,6 +520,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"
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}
@@ -522,11 +540,12 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
} else {
::scobj::astrium_chopper::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for astrium_chopper"
}
hsetprop ${scobj_hpath}/disk_3 data "true"
hsetprop ${scobj_hpath}/disk_3 klass "@none"
hsetprop ${scobj_hpath}/disk_3 type "part"
hfactory ${scobj_hpath}/disk_4 plain spy none
hsetprop ${scobj_hpath}/disk_4 data "true"
hsetprop ${scobj_hpath}/disk_4 klass "@none"
hsetprop ${scobj_hpath}/disk_4 type "part"
hfactory ${scobj_hpath}/disk_4/aphase plain user float
hsetprop ${scobj_hpath}/disk_4/aphase control true
@@ -539,6 +558,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"
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
@@ -550,6 +570,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"
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
@@ -561,6 +582,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"
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
@@ -572,6 +594,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"
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
@@ -583,6 +606,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"
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
@@ -594,6 +618,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"
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}
@@ -613,6 +638,9 @@ proc ::scobj::astrium_chopper::mkDriver { sct_controller name device_class simul
} else {
::scobj::astrium_chopper::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for astrium_chopper"
}
hsetprop ${scobj_hpath}/disk_4 data "true"
hsetprop ${scobj_hpath}/disk_4 klass "@none"
hsetprop ${scobj_hpath}/disk_4 type "part"
hsetprop ${scobj_hpath} klass ${device_class}
hsetprop ${scobj_hpath} data true
hsetprop ${scobj_hpath} debug_threshold 5

29
site_ansto/instrument/bilby/config/motors/shutters_sct.tcl
View File

@@ -205,6 +205,7 @@ proc ::scobj::shutters::mkDriver { sct_controller name device_class simulation_f
set scobj_hpath /sics/${name}
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}
@@ -218,6 +219,13 @@ proc ::scobj::shutters::mkDriver { sct_controller name device_class simulation_f
hsetprop ${scobj_hpath}/fast_shutter sdsinfo "::nexus::scobj::sdsinfo"
hsetprop ${scobj_hpath}/fast_shutter type "part"
if {[string equal -nocase "${simulation_flag}" "false"]} {
${sct_controller} poll ${scobj_hpath}/fast_shutter 1
} else {
::scobj::shutters::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for shutters"
}
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}
@@ -235,6 +243,14 @@ proc ::scobj::shutters::mkDriver { sct_controller name device_class simulation_f
hsetprop ${scobj_hpath}/rough_100 sdsinfo "::nexus::scobj::sdsinfo"
hsetprop ${scobj_hpath}/rough_100 type "part"
if {[string equal -nocase "${simulation_flag}" "false"]} {
${sct_controller} poll ${scobj_hpath}/rough_100 1
${sct_controller} write ${scobj_hpath}/rough_100
} else {
::scobj::shutters::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for shutters"
}
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}
@@ -252,20 +268,17 @@ proc ::scobj::shutters::mkDriver { sct_controller name device_class simulation_f
hsetprop ${scobj_hpath}/rough_40 sdsinfo "::nexus::scobj::sdsinfo"
hsetprop ${scobj_hpath}/rough_40 type "part"
hsetprop ${scobj_hpath} data "true"
hsetprop ${scobj_hpath} klass "@none"
hsetprop ${scobj_hpath} nxsave "true"
hsetprop ${scobj_hpath} type "part"
if {[string equal -nocase "${simulation_flag}" "false"]} {
${sct_controller} poll ${scobj_hpath}/fast_shutter 1
${sct_controller} poll ${scobj_hpath}/rough_100 1
${sct_controller} poll ${scobj_hpath}/rough_40 1
${sct_controller} write ${scobj_hpath}/rough_100
${sct_controller} write ${scobj_hpath}/rough_40
} else {
::scobj::shutters::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for shutters"
}
hsetprop ${scobj_hpath} data "true"
hsetprop ${scobj_hpath} klass "@none"
hsetprop ${scobj_hpath} nxsave "true"
hsetprop ${scobj_hpath} type "part"
hsetprop ${scobj_hpath} klass ${device_class}
hsetprop ${scobj_hpath} data true
hsetprop ${scobj_hpath} debug_threshold 5

39
site_ansto/instrument/bilby/config/motors/tank_sct.tcl
View File

@@ -213,6 +213,7 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
set scobj_hpath /sics/${name}
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}
@@ -226,20 +227,18 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
hsetprop ${scobj_hpath}/pos type "part"
hsetprop ${scobj_hpath}/pos nxalias "${name}_pos"
hsetprop ${scobj_hpath} data "true"
hsetprop ${scobj_hpath} klass "@none"
hsetprop ${scobj_hpath} type "part"
if {[string equal -nocase "${simulation_flag}" "false"]} {
${sct_controller} poll ${scobj_hpath}/pos 1
} else {
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
}
hsetprop ${scobj_hpath} data "true"
hsetprop ${scobj_hpath} klass "@none"
hsetprop ${scobj_hpath} type "part"
hfactory ${scobj_hpath}/limits plain spy none
hsetprop ${scobj_hpath}/limits data "true"
hsetprop ${scobj_hpath}/limits klass "@none"
hsetprop ${scobj_hpath}/limits type "part"
hfactory ${scobj_hpath}/limits/forward plain user text
hsetprop ${scobj_hpath}/limits/forward read ${ns}::getValue ${scobj_hpath} read_switch {MG _LFH}
@@ -254,6 +253,13 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
hsetprop ${scobj_hpath}/limits/forward type "part"
hsetprop ${scobj_hpath}/limits/forward nxalias "${name}_limits_forward"
if {[string equal -nocase "${simulation_flag}" "false"]} {
${sct_controller} poll ${scobj_hpath}/limits/forward 1
} else {
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
}
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}
@@ -268,16 +274,16 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
hsetprop ${scobj_hpath}/limits/reverse nxalias "${name}_limits_reverse"
if {[string equal -nocase "${simulation_flag}" "false"]} {
${sct_controller} poll ${scobj_hpath}/limits/forward 1
${sct_controller} poll ${scobj_hpath}/limits/reverse 1
} else {
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
}
hsetprop ${scobj_hpath}/limits data "true"
hsetprop ${scobj_hpath}/limits klass "@none"
hsetprop ${scobj_hpath}/limits type "part"
hfactory ${scobj_hpath}/switches plain spy none
hsetprop ${scobj_hpath}/switches data "true"
hsetprop ${scobj_hpath}/switches klass "@none"
hsetprop ${scobj_hpath}/switches type "part"
hfactory ${scobj_hpath}/switches/forward plain user text
hsetprop ${scobj_hpath}/switches/forward read ${ns}::getValue ${scobj_hpath} read_switch {MG @IN[5]}
@@ -292,6 +298,13 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
hsetprop ${scobj_hpath}/switches/forward type "part"
hsetprop ${scobj_hpath}/switches/forward nxalias "${name}_switches_forward"
if {[string equal -nocase "${simulation_flag}" "false"]} {
${sct_controller} poll ${scobj_hpath}/switches/forward 1
} else {
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
}
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}
@@ -306,11 +319,13 @@ proc ::scobj::tank::mkDriver { sct_controller name device_class simulation_flag
hsetprop ${scobj_hpath}/switches/reverse nxalias "${name}_switches_reverse"
if {[string equal -nocase "${simulation_flag}" "false"]} {
${sct_controller} poll ${scobj_hpath}/switches/forward 1
${sct_controller} poll ${scobj_hpath}/switches/reverse 1
} else {
::scobj::tank::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for tank"
}
hsetprop ${scobj_hpath}/switches data "true"
hsetprop ${scobj_hpath}/switches klass "@none"
hsetprop ${scobj_hpath}/switches type "part"
hsetprop ${scobj_hpath} klass ${device_class}
hsetprop ${scobj_hpath} data true
hsetprop ${scobj_hpath} debug_threshold 5