15 lines
364 B
Tcl
15 lines
364 B
Tcl
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
|
|
source $cfPath(anticollider)/anticollider_common.tcl
|
|
|
|
# NOTE: This is called with a list of motorname target pairs
|
|
proc ::anticollider::enable {args} {
|
|
if {[SplitReply [::anticollider::protect_detector]] == "false"} {
|
|
return "false"
|
|
} else {
|
|
return "true"
|
|
}
|
|
}
|
|
|
|
::anticollider::loadscript acscript.txt
|