38 lines
1.1 KiB
Tcl
38 lines
1.1 KiB
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
|
|
if {0} {
|
|
variable isc_beam_monitor_list {MONITOR_1 MONITOR_2}
|
|
|
|
set isc_monitor_address "das1-[SplitReply [instrument]]"
|
|
set isc_portlist [list 30000 30001 30002 30003 30004 30005 30006 30007]
|
|
}
|
|
dict for {k v} $::MONITOR_HOSTPORT {
|
|
lappend monlist $k
|
|
lappend hostlist [dict get $v HOST]
|
|
lappend isc_portlist [dict get $v PORT]
|
|
}
|
|
variable isc_beam_monitor_list $monlist
|
|
set isc_monitor_address [lindex $hostlist 0]
|
|
set isc_numchannels [llength $isc_beam_monitor_list]
|
|
::counter::ic_initialize
|
|
} message ] {
|
|
if {$::errorCode=="NONE"} {return $message}
|
|
return -code error "$message"
|
|
}
|
|
}
|