Merged new hdb and nexus code.

r2099 | ffr | 2007-07-22 15:23:41 +1000 (Sun, 22 Jul 2007) | 2 lines

site_ansto/instrument/config/counter/counter_common_1.tcl

@@ -1 +1,23 @@
 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
+    array set param [::data::gumtree_save -list param]
+    data axis 1 $param(run_number)
+    data data_set [::utility::hgetplainprop /instrument/monitor/counts sicsdev]
+    ::hdb::set_save /instrument/monitor true
+    ::hdb::set_save /data true
+    ::hdb::set_save /instrument/detector false
+  }
+  ::monitor::count -addfb int counts text status
+  ::monitor::count -set feedback status IDLE
+  array set fbarr [::monitor::count -list feedback]
+  ::utility::mkData $fbarr(counts) counts monitor privilege user mutable true
+  array unset fbarr
+}