21 lines
487 B
Tcl
21 lines
487 B
Tcl
# MOTOR HOST AND PORT
|
|
foreach {mc host port} {
|
|
MC1 mc1-taipan pmc1-taipan
|
|
MC2 mc2-taipan pmc2-taipan
|
|
MC3 mc3-taipan pmc3-taipan
|
|
MC4 mc4-taipan pmc4-taipan
|
|
MC6 mc6-taipan pmc6-taipan
|
|
} {
|
|
dict set MOTOR_HOSTPORT $mc HOST $host
|
|
dict set MOTOR_HOSTPORT $mc PORT $port
|
|
}
|
|
|
|
# BEAM MONITOR HOST AND PORT
|
|
foreach {bm host port} {
|
|
MONITOR_1 das1-taipan 33000
|
|
MONITOR_2 das1-taipan 33001
|
|
} {
|
|
dict set MONITOR_HOSTPORT $bm HOST $host
|
|
dict set MONITOR_HOSTPORT $bm PORT $port
|
|
}
|