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}
|
|
|
|
set isc_monitor_address [hostnam "das2-[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"
|
|
}
|
|
}
|