23 lines
537 B
Tcl
23 lines
537 B
Tcl
# Specify NONE for HOST and PORT if there is no fake device to talk to.
|
|
|
|
# TEST MOTOR HOST AND PORT
|
|
foreach {key host port} {
|
|
MC1 localhost 62730
|
|
MC2 localhost 62731
|
|
MC3 localhost 62732
|
|
MC4 localhost 62733
|
|
MC6 localhost 62735
|
|
} {
|
|
dict set MOTOR_HOSTPORT $key HOST $host
|
|
dict set MOTOR_HOSTPORT $key PORT $port
|
|
}
|
|
|
|
# TEST BEAM MONITOR HOST AND PORT
|
|
foreach {key host port} {
|
|
MONITOR_1 localhost 33000
|
|
MONITOR_2 localhost 33001
|
|
} {
|
|
dict set MONITOR_HOSTPORT $key HOST $host
|
|
dict set MONITOR_HOSTPORT $key PORT $port
|
|
}
|