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

Remove 'create_node' from driver generator and '*.sct' files

Browse Source 
It wasn't in working condition nor was it being used in any drivers
This commit is contained in:
Douglas Clowes
2014-03-18 09:29:30 +11:00
parent ef236ecb1b
commit ad06ef1711
7 changed files with 26 additions and 167 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
site_ansto/instrument/bilby/config/motors/sct_shutters.tcl
View File

@@ -112,8 +112,15 @@ proc ::scobj::shutters::setValue {tc_root nextState cmd_str} {
}
set par [sct target]
set cmd "${cmd_str}${par}"
if { [hpropexists [sct] driving] } {
if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } {
sct driving 1
}
}
debug_log 1 "setValue sct send ${cmd}"
sct send "${cmd}"
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
sct send "${cmd}"
}
return ${nextState}
}
@@ -138,8 +145,15 @@ proc ::scobj::shutters::write_switch {tc_root nextState cmd_str} {
debug_log 1 "[sct] error: [sct geterror]"
return -code error "[sct geterror]"
}
if { [hpropexists [sct] driving] } {
if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } {
sct driving 1
}
}
debug_log 1 "write_switch sct send ${cmd}"
sct send "${cmd}"
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
sct send "${cmd}"
}
return ${nextState}
}