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

SICS-840: Added selrs to select roughing slits and guarantee that a slit is always selected.

Browse Source 
Also disabled driving slits via hset on GumTree.
This commit is contained in:
Ferdi Franceschini
2015-01-16 16:17:53 +11:00
parent 9c3a0931ce
commit 0c6168a526
2 changed files with 165 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
site_ansto/instrument/bilby/config/motors/shutters.sct
View File

@@ -31,7 +31,7 @@ driver shutters = {
read_function = read_switch_pair;
read_command = 'MG @IN[13], @IN[14]'
writeable = 1
write_function = write_switch;
write_function = no_write;
write_command = '10'
allowed = 'in,out'
property 'nxalias' = 'rough_40'
@@ -41,7 +41,7 @@ driver shutters = {
read_function = read_switch_pair;
read_command = 'MG @IN[15], @IN[16]'
writeable = 1
write_function = write_switch;
write_function = no_write;
write_command = '11'
allowed = 'in,out'
property 'nxalias' = 'rough_100'
@@ -55,6 +55,7 @@ driver shutters = {
code read_function read_switch_pair = {
@ if { [string equal -nocase -length 1 "${data}" "?"] } {
@ sct geterror "Galil error in: '${data}'"
@ set cb_event "fatal_error"
@ } else {
@ set data_list [split [string trim "${data}"]]
@ if { [llength ${data_list}] > 2 && [lindex ${data_list} end] == ":" } {
@@ -65,15 +66,20 @@ driver shutters = {
@ set right [expr [lindex ${data_list} 1]]
@ if { ${left} == 1 && ${right} == 0 } { # open
@ set data "out"
@ set cb_event $data
@ } elseif { ${left} == 0 && ${right} == 1 } { # closed
@ set data "in"
@ set cb_event $data
@ } else { # indeterminate
@ set data "moving"
@ set cb_event $data
@ }
@ } else {
@ sct geterror "Syntax error in: '${data}'=>'${data_list}'"
@ set cb_event "fatal_error"
@ }
@ }
@ call_oneshot [sct] $cb_event
}
code write_function write_switch = {
@ if { [string equal -nocase -length 2 "${par}" "in"] } {
@@ -84,9 +90,70 @@ driver shutters = {
@ sct geterror "Value error: '${par}' not in ('in', 'out')"
@ }
}
code write_function no_write = {
@ error "Setting this value is disallowed"
}
#
# This code is after database creation
#
code mkDriver = {
}
code postamble = {
@ variable rough_slits_enabled 0
@ variable rough_slits_cb_pending 0
@ proc selrs {slit {cb_timeout 60}} {
@ variable rough_slits_enabled
@ variable rough_slits_cb_pending
@ set usage_msg "Valid arguments are 40 or 100 or use 'reset' to terminate a previous selrs call"
@ set catch_status [ catch {
@ if {$slit == "help"} {
@ clientput "Usage: $usage_msg"
@ return
@ }
@ if { $rough_slits_enabled != 1 } {
@ error "Roughing slit selection disabled"
@ }
@ if {$slit == "reset"} {
@ set_oneshot /sics/shutters/rough_40 xxx "in" "clear"
@ set_oneshot /sics/shutters/rough_100 xxx "in" "clear"
@ return
@ } else {
@ if {$slit != 40 && $slit != 100} {
@ error "[info level 0]: Invalid roughing slit $slit. $usage_msg"
@ }
@ if [hpropexists /sics/shutters/rough_40 oneshot_state] {
@ set R40_state [hgetpropval /sics/shutters/rough_40 oneshot_state]
@ } else {
@ set R40_state 0
@ }
@ if [hpropexists /sics/shutters/rough_100 oneshot_state] {
@ set R100_state [hgetpropval /sics/shutters/rough_100 oneshot_state]
@ } else {
@ set R100_state 0
@ }
@ if {$R40_state == 1 || $R100_state == 1} {
@ error "Waiting for a previous selrs call to complete"
@ }
@ }
@ if {![string is integer $cb_timeout]} {
@ error "The timeout must be an integer"
@ }
@ switch $slit {
@ 40 {
@ mc4 send SB10
@ # Raise RS100 on receiving the "in" event on RS40 within the given timeout
@ set_oneshot /sics/shutters/rough_40 { apply {{hp args} {mc4 send CB11}} } "in" $cb_timeout
@ }
@ 100 {
@ mc4 send SB11
@ # Raise RS40 on receiving the "in" event on RS100 within the given timeout
@ set_oneshot /sics/shutters/rough_100 { apply {{hp args} {mc4 send CB10}} } "in" $cb_timeout
@ }
@ }
@ } catch_message ]
@ handle_exception ${catch_status} ${catch_message}
@ }
@ namespace export selrs
@ publish selrs mugger
}
};