added Lyrebird instrument config

r3038 | jgn | 2010-12-13 16:10:57 +1100 (Mon, 13 Dec 2010) | 1 line

site_ansto/instrument/lyrebird/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 30000 30001 30002 30003 30004 30005 30006 30007]
+    set isc_numchannels [llength $isc_beam_monitor_list]
+    ::counter::ic_initialize
+  } message ] {
+    if {$::errorCode=="NONE"} {return $message}
+    return -code error "$message"
+  }
+}