|
|
|
|
@@ -1,38 +1,45 @@
|
|
|
|
|
# $Source: /cvs/A/CS/startup/startup.script_common,v $
|
|
|
|
|
# This is the common part of all startup scripts
|
|
|
|
|
# This is the common part of all vxWorks startup scripts
|
|
|
|
|
# It is included by all generated scripts
|
|
|
|
|
|
|
|
|
|
# The following variables should be set before:
|
|
|
|
|
# * INSTBASE where to boot from
|
|
|
|
|
# * EPICS the epics release (e.g "R3.13.9")
|
|
|
|
|
# * EPICS the epics release (e.g "R3.14.12")
|
|
|
|
|
|
|
|
|
|
EPICS_MODULES = "/ioc/modules"
|
|
|
|
|
|
|
|
|
|
# find a better way later to know current require version
|
|
|
|
|
REQUIRE_VERSION="2.9.2"
|
|
|
|
|
# Find a better way later to know current require version
|
|
|
|
|
REQUIRE_VERSION="2.10.9"
|
|
|
|
|
|
|
|
|
|
#set EPICS_HOST_ARCH according to vxWorks version and cpu type
|
|
|
|
|
# Set EPICS_HOST_ARCH according to vxWorks version and cpu type
|
|
|
|
|
VX6=(*runtimeVersion>>24)&255-'5'
|
|
|
|
|
VMI=(*runtimeVersion>>8)&255
|
|
|
|
|
EPICS_HOST_ARCH=malloc(16)
|
|
|
|
|
sprintf(EPICS_HOST_ARCH,"%s%c-ppc60%d",VX6?"V6":"T",VX6?VMI:VMI>'3'?'2':'1',sysCpu-90)
|
|
|
|
|
sprintf EPICS_HOST_ARCH, "%s%c-ppc60%d", VX6 ? "V6" : "T", VX6 ? VMI : VMI>'3' ? '2' : '1', sysCpu-90
|
|
|
|
|
printf "EPICS_HOST_ARCH = %s\n",EPICS_HOST_ARCH
|
|
|
|
|
|
|
|
|
|
#set target name as IOC name
|
|
|
|
|
# Set target name as IOC name
|
|
|
|
|
IOC=&sysBootParams+60
|
|
|
|
|
printf "IOC = %s\n",IOC
|
|
|
|
|
|
|
|
|
|
BOOTPC=&sysBootHost
|
|
|
|
|
printf "BOOTPC = %s\n",BOOTPC
|
|
|
|
|
|
|
|
|
|
STRINGBUFFER=malloc(256)
|
|
|
|
|
# set the prompt
|
|
|
|
|
|
|
|
|
|
# Set the prompt
|
|
|
|
|
sprintf STRINGBUFFER, "%s (startup.script aborted) > ", IOC
|
|
|
|
|
shellPromptSet STRINGBUFFER
|
|
|
|
|
|
|
|
|
|
# Set DNS if necessary
|
|
|
|
|
resolvInit "129.129.190.11","psi.ch"
|
|
|
|
|
resolvInit "129.129.190.11", "psi.ch"
|
|
|
|
|
|
|
|
|
|
# do the NFS mounts and other network dependend stuff
|
|
|
|
|
< ../../startup/network
|
|
|
|
|
# autoSR location
|
|
|
|
|
putenv "SRBASE=/ioc/data"
|
|
|
|
|
|
|
|
|
|
# Do the NFS mounts and other network dependend stuff
|
|
|
|
|
nfsAuthUnixSet &sysBootHost,500,9102
|
|
|
|
|
< /ioc/startup/network
|
|
|
|
|
|
|
|
|
|
# Set environment variables
|
|
|
|
|
sprintf STRINGBUFFER, "IOC=%s", IOC
|
|
|
|
|
putenv STRINGBUFFER
|
|
|
|
|
|
|
|
|
|
@@ -42,10 +49,7 @@ putenv STRINGBUFFER
|
|
|
|
|
sprintf STRINGBUFFER, "EPICS_HOST_ARCH=%s", EPICS_HOST_ARCH
|
|
|
|
|
putenv STRINGBUFFER
|
|
|
|
|
|
|
|
|
|
# create some path variables
|
|
|
|
|
BASEBIN=malloc(80)
|
|
|
|
|
sprintf BASEBIN, "/epics/base-%s/bin/%s", EPICS+1, EPICS_HOST_ARCH
|
|
|
|
|
|
|
|
|
|
# Create some path variables
|
|
|
|
|
HOME=malloc(80)
|
|
|
|
|
sprintf HOME, "/ioc/%s", IOC
|
|
|
|
|
sprintf STRINGBUFFER, "HOME=%s", HOME
|
|
|
|
|
@@ -60,63 +64,58 @@ putenv STRINGBUFFER
|
|
|
|
|
STREAM_PROTOCOL_DIR=malloc(80)
|
|
|
|
|
sprintf STREAM_PROTOCOL_DIR, "%s/cfg", HOME
|
|
|
|
|
|
|
|
|
|
LIB=malloc(80)
|
|
|
|
|
sprintf LIB, "%s/iocBoot/%s/%s", INSTBASE, EPICS, EPICS_HOST_ARCH
|
|
|
|
|
|
|
|
|
|
DBD=malloc(80)
|
|
|
|
|
sprintf DBD, "dbd:%s/iocBoot/%s/dbd", INSTBASE, EPICS
|
|
|
|
|
|
|
|
|
|
sprintf STRINGBUFFER, "EPICS_DRIVER_PATH=.:bin/%s_%s:bin:snl:%s:%s", EPICS, EPICS_HOST_ARCH, EPICS_MODULES, LIB
|
|
|
|
|
sprintf STRINGBUFFER, "EPICS_DRIVER_PATH=.:bin/%s_%s:bin:snl:%s", EPICS, EPICS_HOST_ARCH, EPICS_MODULES
|
|
|
|
|
putenv STRINGBUFFER
|
|
|
|
|
|
|
|
|
|
TEMPLATES=malloc(80)
|
|
|
|
|
sprintf TEMPLATES, ".:%s/iocBoot/templates", INSTBASE
|
|
|
|
|
|
|
|
|
|
# Release memory above 32 MB
|
|
|
|
|
# Code loaded after this must be compiled with -mlongcall
|
|
|
|
|
# at the moment snp24 does not work with this
|
|
|
|
|
memAddToPool (sysMemTop(),sysPhysMemTop()-sysMemTop())
|
|
|
|
|
memAddToPool sysMemTop(),sysPhysMemTop()-sysMemTop()
|
|
|
|
|
EXTENDED_MEMORY=0
|
|
|
|
|
|
|
|
|
|
# Setup Time
|
|
|
|
|
# 2019:
|
|
|
|
|
putenv "EPICS_TIMEZONE=MET::-60:033102:102703"
|
|
|
|
|
putenv "EPICS_TS_MIN_WEST=-60"
|
|
|
|
|
# Need to branch a few times on EPICS base release
|
|
|
|
|
R3_13 = strncmp(EPICS,"R3.13.",6)==0
|
|
|
|
|
R3_14 = strncmp(EPICS,"R3.14.",6)==0
|
|
|
|
|
R3_14_8 = strcmp(EPICS,"R3.14.8")==0
|
|
|
|
|
R3_15 = strncmp(EPICS,"R3.15.",6)==0
|
|
|
|
|
R3 = strncmp(EPICS,"R3.",3)==0
|
|
|
|
|
R7 = strncmp(EPICS,"R7.",3)==0
|
|
|
|
|
|
|
|
|
|
# Time server (must be set before loading iocCoreLibrary.munch for 3.14.12)
|
|
|
|
|
# Need EPICS_TS_FORCE_NTPTIME for 7.0
|
|
|
|
|
putenv "EPICS_TS_NTP_INET=129.129.190.1"
|
|
|
|
|
putenv "EPICS_TS_FORCE_NTPTIME=YES"
|
|
|
|
|
|
|
|
|
|
# Need to branch a few times on EPICS base release
|
|
|
|
|
R3_13=strncmp(EPICS,"R3.13.",6)==0
|
|
|
|
|
R3_14=strncmp(EPICS,"R3.14.",6)==0
|
|
|
|
|
|
|
|
|
|
# Load EPICS system core (different names for different EPICS versions)
|
|
|
|
|
# Unfortunately we have no 'if' and line length is quite limited
|
|
|
|
|
# 3.13: load "iocCore"
|
|
|
|
|
# 3.14: load "iocCoreLibrary.munch"
|
|
|
|
|
# 3.15+: load "softIoc.munch" (could do this from 3.14.12 on)
|
|
|
|
|
sprintf STRINGBUFFER, "%s/%s",BASEBIN,R3_13?"iocCore":R3_14?"iocCoreLibrary.munch":"softIoc.munch"
|
|
|
|
|
# 3.13: "iocCore"
|
|
|
|
|
# 3.14: "iocCoreLibrary.munch"
|
|
|
|
|
# 3.15+: "softIoc.munch" (could do this from 3.14.12 on)
|
|
|
|
|
EPICS_APP = R3_13 ? "iocCore" : R3_14 ? "iocCoreLibrary.munch" : "softIoc.munch"
|
|
|
|
|
sprintf STRINGBUFFER, "/epics/base-%s/bin/%s/%s", EPICS+1, EPICS_HOST_ARCH, EPICS_APP
|
|
|
|
|
printf "loading %s\n",STRINGBUFFER
|
|
|
|
|
ld 0, 0, STRINGBUFFER
|
|
|
|
|
|
|
|
|
|
# Setup Time (must be set after loading iocCoreLibrary.munch)
|
|
|
|
|
# 2021:
|
|
|
|
|
putenv "EPICS_TIMEZONE=MET::-60:032802:103103"
|
|
|
|
|
putenv "TIMEZONE=MET::-60:032802:103103"
|
|
|
|
|
putenv "EPICS_TS_MIN_WEST=-60"
|
|
|
|
|
|
|
|
|
|
# Allow backward compatible non-monotonic breaktables
|
|
|
|
|
dbBptNotMonotonic=1
|
|
|
|
|
|
|
|
|
|
# Start Logging
|
|
|
|
|
putenv "EPICS_IOC_LOG_INET=gfa-syslog"
|
|
|
|
|
putenv "EPICS_IOC_LOG_PORT=1514"
|
|
|
|
|
putenv getenv("EPICS_IOC_LOG_INET") ? "" : "EPICS_IOC_LOG_INET=gfa-syslog"
|
|
|
|
|
putenv getenv("EPICS_IOC_LOG_PORT") ? "" : "EPICS_IOC_LOG_PORT=1514"
|
|
|
|
|
sprintf STRINGBUFFER, R3_13||R3_14_8 ? "putenv \"EPICS_CA_PUT_LOG_PREFIX=%s\"" : "iocLogPrefix \"%s \"", IOC
|
|
|
|
|
execute STRINGBUFFER
|
|
|
|
|
iocLogInit
|
|
|
|
|
errlogPrintf "Starting EPICS %s\n", EPICS
|
|
|
|
|
|
|
|
|
|
# Allow backward compatible non-monotonic breaktables for EPICS > 3.14.8
|
|
|
|
|
dbBptNotMonotonic=1
|
|
|
|
|
|
|
|
|
|
# try for user-defined menus scan and convert
|
|
|
|
|
dbLoadDatabase "dbd/scan.dbd"
|
|
|
|
|
dbLoadDatabase "dbd/convert.dbd"
|
|
|
|
|
dbLoadDatabase "dbd/slsConvert.dbd"
|
|
|
|
|
taskDelay sysClkRateGet()
|
|
|
|
|
|
|
|
|
|
sprintf STRINGBUFFER,R3_13||R3_14?";":"dbLoadDatabase \"/epics/base-%s/dbd/softIoc.dbd\"",EPICS+1
|
|
|
|
|
sprintf STRINGBUFFER, R3_13||R3_14 ? ";" : "dbLoadDatabase \"/epics/base-%s/dbd/softIoc.dbd\"", EPICS+1
|
|
|
|
|
execute STRINGBUFFER
|
|
|
|
|
|
|
|
|
|
sprintf STRINGBUFFER,R3_13||R3_14?";":"softIoc_registerRecordDeviceDriver pdbbase"
|
|
|
|
|
sprintf STRINGBUFFER, R3_13||R3_14 ? ";" : "softIoc_registerRecordDeviceDriver pdbbase"
|
|
|
|
|
execute STRINGBUFFER
|
|
|
|
|
|
|
|
|
|
# load "require"
|
|
|
|
|
@@ -130,30 +129,12 @@ ld 0, 0, STRINGBUFFER
|
|
|
|
|
#load standard drivers (allow user to specify version in environment variable)
|
|
|
|
|
require "base", getenv("base_VERSION") ? getenv("base_VERSION") : "ifexists"
|
|
|
|
|
registerModule "require", getenv("require_VERSION"), getenv("require_DIR")
|
|
|
|
|
sprintf STRINGBUFFER,R3_13?";":"require_registerRecordDeviceDriver pdbbase"
|
|
|
|
|
sprintf STRINGBUFFER, R3_13 ? ";" : "require_registerRecordDeviceDriver pdbbase"
|
|
|
|
|
execute STRINGBUFFER
|
|
|
|
|
require "utilities", getenv("utilities_VERSION")
|
|
|
|
|
require "misc", getenv("misc_VERSION")
|
|
|
|
|
|
|
|
|
|
# caPutLog
|
|
|
|
|
#putenv "EPICS_CA_PUT_LOG_ADDR=gfa-syslog:1515 sf-logstash.psi.ch:1515"
|
|
|
|
|
sprintf STRINGBUFFER, "EPICS_CA_PUT_LOG_PREFIX=%s",IOC
|
|
|
|
|
putenv STRINGBUFFER
|
|
|
|
|
require "caPutLog", getenv("caPutLog_VERSION")?getenv("caPutLog_VERSION"):"ifexists"
|
|
|
|
|
|
|
|
|
|
# IOC monitoring
|
|
|
|
|
require R3_13||R3_14?"iocmon":"iocStats", getenv(R3_13||R3_14?"iocmon_VERSION":"iocStats_VERSION")
|
|
|
|
|
|
|
|
|
|
# Battery monitoring
|
|
|
|
|
require "M48T37", "ifexists"
|
|
|
|
|
|
|
|
|
|
# Database Upload
|
|
|
|
|
require "iocinfo", getenv("iocinfo_VERSION")?getenv("iocinfo_VERSION"):"ifexists"
|
|
|
|
|
|
|
|
|
|
# Sequencer for backward compatibility with missing dependencies
|
|
|
|
|
require "seq", R3_13||R3_14?"2.0":"none"
|
|
|
|
|
|
|
|
|
|
# run EPICS only on 1st network port
|
|
|
|
|
# Run Channel Access only on 1st network port
|
|
|
|
|
putenv "EPICS_CA_AUTO_ADDR_LIST=NO"
|
|
|
|
|
putenv bootInfo("EPICS_CA_ADDR_LIST=%B")
|
|
|
|
|
putenv bootInfo("EPICS_CAS_INTF_ADDR_LIST=%e")
|
|
|
|
|
@@ -161,7 +142,7 @@ putenv "EPICS_CAS_AUTO_BEACON_ADDR_LIST=NO"
|
|
|
|
|
putenv bootInfo("EPICS_CAS_BEACON_ADDR_LIST=%B")
|
|
|
|
|
|
|
|
|
|
# EPICS 3.13 needs this to not use synchronized timestamps
|
|
|
|
|
sprintf STRINGBUFFER,R3_13?"TSconfigure(0,10,10,18323,18322,250,1)":";"
|
|
|
|
|
sprintf STRINGBUFFER, R3_13 ? "TSconfigure(0,10,10,18323,18322,250,1)" : ";"
|
|
|
|
|
execute STRINGBUFFER
|
|
|
|
|
|
|
|
|
|
# end of startup.script_common
|
|
|
|
|
# End of startup.script_common
|
|
|
|
|
|