53 lines
1.2 KiB
Tcl
53 lines
1.2 KiB
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 63030
|
|
MC2 localhost 63031
|
|
MC3 localhost 63032
|
|
MC4 localhost 63033
|
|
MC5 localhost 63034
|
|
MC6 localhost 63035
|
|
MC7 localhost 63036
|
|
MC8 localhost 63037
|
|
} {
|
|
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 30000
|
|
} {
|
|
dict set MONITOR_HOSTPORT $key HOST $host
|
|
dict set MONITOR_HOSTPORT $key PORT $port
|
|
}
|
|
|
|
# TEST HISTOGRAM SERVER HOST AND PORT
|
|
foreach {key host port} {
|
|
HMM das1-test.nbi.ansto.gov.au 8080
|
|
HMSTAT das1-test.nbi.ansto.gov.au 8081
|
|
ORDELA localhost 4001
|
|
NHQ200 localhost 4002
|
|
} {
|
|
dict set HISTMEM_HOSTPORT $key HOST $host
|
|
dict set HISTMEM_HOSTPORT $key PORT $port
|
|
}
|
|
|
|
# VELOCITY SELECTOR HOST AND PORT
|
|
foreach {key host port} {
|
|
NVS localhost 10000
|
|
} {
|
|
dict set VELSEL_HOSTPORT $key HOST $host
|
|
dict set VELSEL_HOSTPORT $key PORT $port
|
|
}
|
|
|
|
# Safety Interlock System
|
|
# TODO
|
|
foreach {host port} {
|
|
NONE NONE
|
|
} {
|
|
dict set PLC_HOSTPORT HOST $host
|
|
dict set PLC_HOSTPORT PORT $port
|
|
}
|