Files
startup/startup.script_linux

107 lines
5.5 KiB
Plaintext

# set EPICS according to BASE or default to 3.14.12
epicsEnvSet EPICS R$(EPICS_RELEASE=$(BASE=3.14.12))
# Start Logging
date 'epicsEnvSet IOC_STARTTIME "%Y-%m-%dT%H:%M:%S"' > /tmp/$(IOC).starttime
< /tmp/$(IOC).starttime
system "rm /tmp/$(IOC).starttime"
epicsEnvSet EPICS_IOC_LOG_INET $(EPICS_IOC_LOG_INET=gfa-syslog)
epicsEnvSet EPICS_IOC_LOG_PORT $(EPICS_IOC_LOG_PORT=1514)
# iocLogPrefix will fail for EPICS 3 but that's OK
iocLogPrefix "$(IOC) "
iocLogInit
errlog "starting EPICS $(EPICS) at $(IOC_STARTTIME)"
# Set up CA search lists for different networks
# ip command is supported by IFC1210, Moxa (old and new), Deltatau, Zynq, NI, SL6, RHEL7, Debian10
# To test: Gigafrost, rPI
system "ip a s `ip r|awk '/^default /{print $5;exit}'`|awk -F'[/ ]+' -vP='epicsEnvSet IP_ADDR' '/inet /{print P,$3;exit}'>/tmp/$(IOC).net"
< /tmp/$(IOC).net
system "rm /tmp/$(IOC).net"
# Default: Automatic, we will switch it off when necessary
epicsEnvSet EPICS_CA_AUTO_ADDR_LIST YES
epicsEnvUnset EPICS_CA_ADDR_LIST
# Office (only officicial EPICS subnets, not SLS beamlines!)
ifEnvSet $(IP_ADDR) ~129.129.130.* EPICS_CA_ADDR_LIST "129.129.131.255 129.129.137.255"
ifEnvSet $(IP_ADDR) ~129.129.131.* EPICS_CA_ADDR_LIST "129.129.130.255 129.129.137.255"
ifEnvSet $(IP_ADDR) ~129.129.137.* EPICS_CA_ADDR_LIST "129.129.130.255 129.129.131.255"
# SLS machine network
ifEnvSet $(IP_ADDR) ~172.20.* EPICS_CA_ADDR_LIST "cryo-cagw.psi.ch:5062 sls129-softioc-mevis.psi.ch x01dc-cagw.psi.ch:5062 x02da-cagw.psi.ch:5062 x03da-cagw.psi.ch:5062 x03ma-cagw.psi.ch:5062 x04db-cagw.psi.ch:5062 x04sa-cagw.psi.ch:5062 x05da-cagw.psi.ch:5062 x05la-cagw.psi.ch:5062 x06da-cagw.psi.ch:5062 x06mx-cagw.psi.ch:5062 x06sa-cagw.psi.ch:5062 x07da-cagw.psi.ch:5062 x07ma-cagw.psi.ch:5062 x09la-cagw.psi.ch:5062 x09lb-cagw.psi.ch:5062 x10da-cagw.psi.ch:5062 x10sa-cagw.psi.ch:5062 x11ma-cagw.psi.ch:5062 x12sa-cagw.psi.ch:5062"
# SLS beamlines
ifEnvSet $(IP_ADDR) ~129.129.98.* EPICS_CA_ADDR_LIST sls-x01dc-cagw.psi.ch:5800
ifEnvSet $(IP_ADDR) ~129.129.99.* EPICS_CA_ADDR_LIST sls-x02da-cagw.psi.ch:5802
ifEnvSet $(IP_ADDR) ~129.129.102.* EPICS_CA_ADDR_LIST sls-x03da-cagw.psi.ch:5804
ifEnvSet $(IP_ADDR) ~129.129.101.* EPICS_CA_ADDR_LIST sls-x03ma-cagw.psi.ch:5806
ifEnvSet $(IP_ADDR) ~129.129.105.* EPICS_CA_ADDR_LIST sls-x04db-cagw.psi.ch:5808
ifEnvSet $(IP_ADDR) ~129.129.104.* EPICS_CA_ADDR_LIST sls-x04sa-cagw.psi.ch:5810
ifEnvSet $(IP_ADDR) ~129.129.107.* EPICS_CA_ADDR_LIST sls-x05da-cagw.psi.ch:5812
ifEnvSet $(IP_ADDR) ~129.129.106.* EPICS_CA_ADDR_LIST sls-x05la-cagw.psi.ch:5814
ifEnvSet $(IP_ADDR) ~129.129.110.* EPICS_CA_ADDR_LIST sls-x06da-cagw.psi.ch:5816
ifEnvSet $(IP_ADDR) ~129.129.126.* EPICS_CA_ADDR_LIST sls-x06mx-cagw.psi.ch:5818
ifEnvSet $(IP_ADDR) ~129.129.109.* EPICS_CA_ADDR_LIST sls-x06sa-cagw.psi.ch:5820
ifEnvSet $(IP_ADDR) ~129.129.113.* EPICS_CA_ADDR_LIST sls-x07da-cagw.psi.ch:5822
ifEnvSet $(IP_ADDR) ~129.129.112.* EPICS_CA_ADDR_LIST sls-x07ma-cagw.psi.ch:5824
ifEnvSet $(IP_ADDR) ~129.129.117.* EPICS_CA_ADDR_LIST sls-x09la-cagw.psi.ch:5826
ifEnvSet $(IP_ADDR) ~129.129.116.* EPICS_CA_ADDR_LIST "sls-x09lb-cagw.psi.ch:5828 x09la-cagw.psi.ch:5062"
ifEnvSet $(IP_ADDR) ~129.129.119.* EPICS_CA_ADDR_LIST sls-x10da-cagw.psi.ch:5830
ifEnvSet $(IP_ADDR) ~129.129.118.* EPICS_CA_ADDR_LIST sls-x10sa-cagw.psi.ch:5832
ifEnvSet $(IP_ADDR) ~129.129.121.* EPICS_CA_ADDR_LIST sls-x11ma-cagw.psi.ch:5834
ifEnvSet $(IP_ADDR) ~129.129.122.* EPICS_CA_ADDR_LIST sls-x12sa-cagw.psi.ch:5836
# SwissFEL machine networks
# with directed broadcasts
ifEnvSet $(IP_ADDR) ~172.26.* EPICS_CA_ADDR_LIST "172.26.0.255 172.26.2.255 172.26.8.255 172.26.16.255 172.26.24.255 172.26.32.255 172.26.40.255 172.26.110.255 172.26.111.255 172.26.120.255 saresa-cagw.psi.ch:5062 saresb-cagw.psi.ch:5062 saresc-cagw.psi.ch:5062 satese-cagw.psi.ch:5062 satesf-cagw.psi.ch:5062"
ifEnvSet $(IP_ADDR) ~172.26.* EPICS_CA_AUTO_ADDR_LIST NO
# SwissFEL end stations to machine via gateway
ifEnvSet $(IP_ADDR) ~129.129.242.* EPICS_CA_ADDR_LIST sf-saresa-cagw:5062
ifEnvSet $(IP_ADDR) ~129.129.243.* EPICS_CA_ADDR_LIST sf-saresb-cagw:5062
ifEnvSet $(IP_ADDR) ~129.129.244.* EPICS_CA_ADDR_LIST sf-saresc-cagw:5062
ifEnvSet $(IP_ADDR) ~129.129.245.* EPICS_CA_ADDR_LIST sf-satesd-cagw:5062
ifEnvSet $(IP_ADDR) ~129.129.246.* EPICS_CA_ADDR_LIST sf-satese-cagw:5062
ifEnvSet $(IP_ADDR) ~129.129.247.* EPICS_CA_ADDR_LIST sf-satesf-cagw:5062
# HIPA
ifEnvSet $(IP_ADDR) ~172.19.* EPICS_CA_ADDR_LIST "172.19.10.255 172.19.30.255"
ifEnvSet $(IP_ADDR) ~172.19.* EPICS_CA_AUTO_ADDR_LIST NO
# PROSCAN
ifEnvSet $(IP_ADDR) ~172.25.* EPICS_CA_ADDR_LIST "172.25.60.255 172.25.11.255"
ifEnvSet $(IP_ADDR) ~172.25.* EPICS_CA_AUTO_ADDR_LIST NO
# WLHA
ifEnvSet $(IP_ADDR) ~172.21.11.* EPICS_CA_ADDR_LIST 172.21.11.255
ifEnvSet $(IP_ADDR) ~172.21.11.* EPICS_CA_AUTO_ADDR_LIST NO
# set some search paths
epicsEnvSet EPICS_DRIVER_PATH "bin/R$(EPICS_RELEASE)_$(EPICS_HOST_ARCH):bin:snl:$(EPICS_MODULES=/ioc/modules)"
epicsEnvSet CFG, $(PWD)/cfg
epicsEnvSet STREAM_PROTOCOL_PATH, .:$(PWD)/cfg
# Allow non-monotonic breaktables
var dbBptNotMonotonic 1
# IOC monitoring
require iocStats $(iocStats_VERSION=ifexists)
# Database Upload
require iocinfo $(iocinfo_VERSION=ifexists)
# caPutLog
epicsEnvSet EPICS_CA_PUT_LOG_ADDR, "gfa-syslog:1515"
# Set EPICS_CA_PUT_LOG_PREFIX for EPICS 3 but not for 7 because there we have iocLogPrefix
epicsEnvSet EPICS_CA_PUT_LOG_PREFIX_CMD_3 "epicsEnvSet EPICS_CA_PUT_LOG_PREFIX $(IOC)"
$(EPICS_CA_PUT_LOG_PREFIX_CMD_$(EPICS_VERSION_MAJOR=3)=)
require caPutLog $(caPutLog_VERSION=ifexists)
# sw installation version number
require versionnumbers ifexists
# autoSR location
epicsEnvSet SRBASE /ioc/data