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

SICS-723 Provide a detector/reset_trip node to notify GumTree and allow reset.

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-11-03 14:28:41 +11:00
parent 22d81d4195
commit 4dbaa0f73d
1 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
site_ansto/instrument/sans/config/hmm/hmm_configuration.tcl
View File

@ -64,6 +64,26 @@ proc ::histogram_memory::isc_initialize {} {
}
}
# Returns 0 If all trips acknowledged, -n if n trips unacknowledged, +n if too many acks?
::utility::macro::getset float ::histogram_memory::reset_trip {args} {
set num_trips [ SplitReply [hmm configure detector_protect_num_trip] ]
set num_acks [ SplitReply [hmm configure detector_protect_num_trip_ack] ]
set trip_cnt_diff [expr {$num_acks - $num_trips}]
if {$args == ""} {
return "reset_trip = $trip_cnt_diff"
} else {
if {$trip_cnt_diff != 0} {
hmm configure fat_detector_protect_num_trip_ack $num_trips
hmm astop
wait 2
hmm init
}
}
}
sicslist setatt ::histogram_memory::reset_trip klass detector
sicslist setatt ::histogram_memory::reset_trip long_name reset_trip
sicslist setatt ::histogram_memory::reset_trip data false
proc histmem {cmd args} {
eval "_histmem $cmd $args"
}