linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SICS-587 (in progress) Put IP and PORT configurations in a single file.

Browse Source 
TODO environment
This commit is contained in:
Ferdi Franceschini
2013-05-06 20:41:37 +10:00
parent 3e33a7b8b2
commit 5c76f7a243
5 changed files with 56 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
site_ansto/instrument/tas/config/counter/counter.tcl
View File

@@ -15,10 +15,14 @@ proc ::counter::isc_initialize {} {
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]
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 ] {