re-produce package for Dingo

r3596 | jgn | 2012-06-06 12:01:42 +1000 (Wed, 06 Jun 2012) | 1 line

site_ansto/instrument/dingo/config/counter/counter.tcl

@@ -0,0 +1,28 @@
+source $cfPath(counter)/counter_common_1.tcl
+
+## TODO Put all the counter macros in the counter namespace
+namespace eval counter {
+  variable isc_numchannels
+  variable isc_monitor_address
+  variable isc_portlist
+  variable isc_beam_monitor_list 
+  proc set_sobj_attributes {} {
+  }
+}
+
+proc ::counter::isc_initialize {} {
+  if [catch {
+    variable isc_numchannels
+    variable isc_monitor_address
+    variable isc_portlist
+    variable isc_beam_monitor_list {MONITOR_1 MONITOR_2 MONITOR_3}
+
+    set isc_monitor_address "das1-[SplitReply [instrument]]"
+    set isc_portlist [list 33000 33001 33002 33003 33004 33005 33006 33007]
+    set isc_numchannels [llength $isc_beam_monitor_list]
+    ::counter::ic_initialize
+  } message ] {
+    if {$::errorCode=="NONE"} {return $message}
+    return -code error "$message"
+  }
+}