21 lines
845 B
Tcl
21 lines
845 B
Tcl
#FIXME Nexus path info is coded into this source. This means that if you change the
|
|
# monitor data path in the config/hipadaba/common_instrument_dictionary.tcl then
|
|
# you may also need to change the paths here
|
|
bm SetExponent 0
|
|
sicslist setatt bm privilege internal
|
|
namespace eval monitor {
|
|
command count {text:timer,monitor mode float: preset} {
|
|
#FIXME remove dependency on hdb path
|
|
::monitor::count -set feedback status BUSY
|
|
bm setmode $mode
|
|
bm count $preset
|
|
::monitor::count -set feedback counts [SplitReply [bm getcounts]];
|
|
::monitor::count -set feedback status IDLE
|
|
}
|
|
::monitor::count -addfb int counts text status
|
|
::monitor::count -set feedback status IDLE
|
|
array set fbarr [::monitor::count -list feedback]
|
|
::utility::mkData $fbarr(counts) data monitor privilege user mutable true
|
|
array unset fbarr
|
|
}
|