29 lines
819 B
Tcl
29 lines
819 B
Tcl
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"
|
|
}
|
|
}
|