diff --git a/App/tools/driver.makefile b/App/tools/driver.makefile
new file mode 100644
index 0000000000000000000000000000000000000000..b2019b7e383158b3febf4d7cc4d48924a42d23fa
--- /dev/null
+++ b/App/tools/driver.makefile
@@ -0,0 +1,856 @@
+# driver.makefile
+#
+# $Id: driver.makefile,v 1.1 2010/07/26 11:20:46 zimoch Exp $
+#
+# This generic makefile compiles EPICS code (drivers, records, snl, ...)
+# for all installed EPICS versions in parallel.
+# Read this documentation and the inline comments carefully before
+# changing anything in this file.
+#
+# Usage: Create a Makefile containig the line:
+# include /ioc/tool/driver.makefile
+# Optionally add variable definitions below that line.
+#
+# This makefile automatically finds the source file (unless overwritten with
+# the SOURCES variable in your Makefile) and generates a
+# library for each EPICS version and each target architecture.
+# Therefore, it calls Makefile (i.e. itself) recursively.
+#
+# - First run: (see comment ## RUN 1)
+# Find out what to build
+# Iterate over all installed EPICS versions
+#
+# - Second run: (see comment ## RUN 2)
+# Find the sources etc.
+# Include EPICS configuration files for this ${EPICSVERSION}
+# Iterate over all target architectures (${T_A}) defined for this version
+# Create O.${EPICSVERSION}_${T_A} subdirectories if necessary.
+#
+# - Third run: (see comment ## RUN 3)
+# Compile (or install, uninstall, etc) everything
+#
+# Library names are derived from the directory name (unless overwritten
+# with the PROJECT variable in your Makefile).
+# A version number is appended to the name which is derived from
+# the latest CVS tag on the files in the source directory.
+# If any file is not up-to-date in CVS, not tagged, or tagged differently
+# from the other files, the version is called "test".
+# The library is installed to ${INSTALL_ROOT}/R${EPICSVERSION}/${T_A}.
+# Symbolic links are set to the latest version, the highest minor release
+# if each major release, and the highest patch level of each minor release.
+# Test versions are never linked, however.
+# The library can be loaded with require "<libname>" [,"<version>"]
+#
+# This makefile can also be used to build local libraries for IOC projects
+# instead of drivers. Here however, no versioning is done (i.e. no
+# version string is appended) and the libraries cannot be installed with
+# this makefile. Use slsinstall to install the IOC project instead.
+#
+# User variables (add them to your Makefile, none is required):
+# PROJECT
+# Basename of the built library.
+# If not defined, it is derived from the directory name.
+# SOURCES
+# All source files to compile.
+# If not defined, default is all *.c *.cc *.cpp *.st *.stt in
+# the source directory (where your Makefile is).
+# If you define this, you must list ALL sources.
+# DBDS
+# All dbd files of the project.
+# If not defined, default is all *.dbd files in the source directory.
+# HEADERS
+# Header files to install (e.g. to be included by other drivers)
+# If not defined, all headers are for local use only.
+# EXCLUDE_VERSIONS
+# EPICS versions to skip. Usually 3.13 or 3.14
+
+# get the location of this file
+MAKEHOME:=$(dir $(lastword ${MAKEFILE_LIST}))
+# get the name of the Makefile that included this file
+USERMAKEFILE:=$(lastword $(filter-out $(lastword ${MAKEFILE_LIST}), ${MAKEFILE_LIST}))
+
+# Some configuration
+DEFAULT_EPICS_VERSIONS = 3.13.9 3.13.10 3.14.8
+BUILDCLASSES = vxWorks
+ifdef INSTBASE
+INSTALL_ROOT=${INSTBASE}/iocBoot
+else
+INSTALL_ROOT=/work/iocBoot
+endif
+EPICS_LOCATION = /usr/local/epics
+
+DOCUEXT = txt html htm doc pdf ps tex dvi gif jpg png
+DOCUEXT += TXT HTML HTM DOC PDF PS TEX DVI GIF JPG PNG
+DOCUEXT += template db subst script
+VERSIONFILE = ${PRJ}_Version${LIBVERSION}.c
+REGISTRYFILE = ${PRJ}_registerRecordDeviceDriver.cpp
+EXPORTFILE = ${PRJ}_exportAddress.c
+
+# Some shortcuts
+MAKEVERSION = ${MAKE} -f ${USERMAKEFILE} LIBVERSION=${LIBVERSION}
+ifdef LIBVERSION
+LIBVERSIONSTR=-${LIBVERSION}
+endif
+
+# Some shell commands
+LN = ln -s
+EXISTS = test -e
+NM = nm
+
+REPOSITORY_HOST = pc770
+CP_PROD = repository -H ${REPOSITORY_HOST} add
+
+ifndef EPICSVERSION
+## RUN 1
+# in source directory, first run
+
+# Find out which EPICS versions to build
+INSTALLED_EPICS_VERSIONS := $(patsubst ${EPICS_LOCATION}/base-%/config/CONFIG,%,$(wildcard ${EPICS_LOCATION}/base-*[0-9]/config/CONFIG))
+EPICS_VERSIONS = $(filter-out ${EXCLUDE_VERSIONS:=%},${DEFAULT_EPICS_VERSIONS})
+MISSING_EPICS_VERSIONS = $(filter-out ${BUILD_EPICS_VERSIONS},${EPICS_VERSIONS})
+BUILD_EPICS_VERSIONS = $(filter ${EPICS_VERSIONS},${INSTALLED_EPICS_VERSIONS})
+EPICS_VERSIONS_3.13 = $(filter 3.13.%,${BUILD_EPICS_VERSIONS})
+EPICS_VERSIONS_3.14 = $(filter 3.14.%,${BUILD_EPICS_VERSIONS})
+
+# Are we in an IOC project directory?
+# YES:
+# - Don't use versions.
+# - Install to IOC directory with slsinstall.
+# - Use for local code (snl, subroutine records, etc.)
+# - Autodetected: SLS beamline and machine, PROSCAN, FEL
+# NO:
+# - Get version number from CVS tag.
+# - Install to driver pool with make install.
+# - Use for drivers and other modules of global interest.
+# - This is the default.
+# User can overwrite USE_LIBVERSION in the Makefile.
+USE_LIBVERSION = YES
+
+# Where are we in CVS (or in PWD if no CVS is around)?
+THISDIR := ${PWD}
+ifneq ($(wildcard CVS/Repository),)
+THISDIR := /$(shell cat CVS/Repository)
+endif
+
+ifneq ($(findstring /PROJECTS/subsystems/,${THISDIR}),)
+#in PROJECTS/subsystems/ project directory (obsolete)
+USE_LIBVERSION = NO
+endif
+ifneq ($(findstring /X/,${THISDIR}),)
+#in SLS beamline project directory
+USE_LIBVERSION = NO
+endif
+ifneq ($(findstring /A/,${THISDIR}),)
+#in SLS machine project directory
+USE_LIBVERSION = NO
+endif
+ifneq ($(findstring /P/,${THISDIR}),)
+#in PROSCAN project directory
+USE_LIBVERSION = NO
+endif
+ifneq ($(findstring /F/,${THISDIR}),)
+#in FEL project directory
+USE_LIBVERSION = NO
+endif
+ifneq ($(findstring /TRAINING/,${THISDIR}),)
+#in FEL project directory
+USE_LIBVERSION = NO
+endif
+
+VERSIONCHECKFILES = ${SOURCES} ${SOURCES_3.13} ${SOURCES_3.14} ${DBDS} ${DBDS_3.13} ${DBD_3.14}
+VERSIONCHECKCMD = ${MAKEHOME}/getVersion.tcl ${VERSIONCHECKFILES}
+LIBVERSION_YES = $(shell ${VERSIONCHECKCMD})
+LIBVERSION_Yes = $(LIBVERSION_YES)
+LIBVERSION_yes = $(LIBVERSION_YES)
+LIBVERSION = ${LIBVERSION_${USE_LIBVERSION}}
+
+# Default project name is name of current directory.
+# But don't use "src" or "snl", go up directory tree instead.
+PRJDIR:=$(notdir $(patsubst %Lib,%,$(patsubst %/snl,%,$(patsubst %/src,%,${PWD}))))
+PRJ = $(if ${PROJECT},${PROJECT},${PRJDIR})
+export PRJ
+
+OS_CLASS_LIST = $(BUILDCLASSES)
+export OS_CLASS_LIST
+
+# Default target is "build" for all versions.
+# Don't install anything (different from default EPICS make rules)
+build::
+
+clean::
+ rm -rf O.*
+ find . -name "*~" -exec rm -f {} \;
+
+clean.3.%::
+ rm -rf O.${@:clean.%=%}*
+
+help:
+ @echo "usage:"
+ @for target in '' build '<EPICS version>' \
+ install 'install.<EPICS version>' \
+ uninstall 'uninstall.<EPICS version>' \
+ install-headers 'install-headers.<EPICS version>' \
+ install-doc install-templates clean help version; \
+ do echo " make $$target"; \
+ done
+ @echo "Makefile variables: (defaults)"
+ @echo " EPICS_VERSIONS (${DEFAULT_EPICS_VERSIONS})"
+ @echo " PROJECT (${PRJDIR}) [from current directory name]"
+ @echo " SOURCES (*.c *.cc *.cpp *.st *.stt *.gt)"
+ @echo " HEADERS () [only those to install]"
+ @echo " TEMPLATES ()"
+ @echo " DBDS (*.dbd)"
+ @echo " EXCLUDE_VERSIONS () [versions not to build, e.g. 3.14]"
+ @echo " BUILDCLASSES (vxWorks) [other choices: Linux]"
+
+# "make version" shows the the version and why it is how it is.
+version:
+ @${VERSIONCHECKCMD}
+
+debug::
+ @echo "BUILD_EPICS_VERSIONS = ${BUILD_EPICS_VERSIONS}"
+ @echo "MISSING_EPICS_VERSIONS = ${MISSING_EPICS_VERSIONS}"
+ @echo "EPICS_VERSIONS_3.13 = ${EPICS_VERSIONS_3.13}"
+ @echo "EPICS_VERSIONS_3.14 = ${EPICS_VERSIONS_3.14}"
+
+# Loop over all EPICS versions for second run.
+build install uninstall install-headers install-doc install-templates debug::
+ for VERSION in ${EPICS_VERSIONS}; do \
+ ${MAKEVERSION} EPICSVERSION=$$VERSION $@ || exit; done
+
+# Handle cases where user requests 3.13 or 3.14
+# make <action>.3.13 or make <action>.3.14 instead of make <action> or
+# make 3.13 or make 3.14 instread of make
+3.13:
+ for VERSION in ${EPICS_VERSIONS_3.13}; do \
+ ${MAKEVERSION} EPICSVERSION=$$VERSION build || exit; done
+
+%.3.13:
+ for VERSION in ${EPICS_VERSIONS_3.13}; do \
+ ${MAKEVERSION} EPICSVERSION=$$VERSION ${@:%.3.13=%} || exit; done
+
+3.14:
+ for VERSION in ${EPICS_VERSIONS_3.14}; do \
+ ${MAKEVERSION} EPICSVERSION=$$VERSION build || exit; done
+
+%.3.14:
+ for VERSION in ${EPICS_VERSIONS_3.14}; do \
+ ${MAKEVERSION} EPICSVERSION=$$VERSION ${@:%.3.14=%} || exit; done
+
+# Handle cases where user requests one specific version
+# make <action>.<version> instead of make <action> or
+# make <version> instead of make
+# EPICS version must be installed but need not be in EPICS_VERSIONS
+${INSTALLED_EPICS_VERSIONS}:
+ ${MAKEVERSION} EPICSVERSION=$@ build
+
+${INSTALLED_EPICS_VERSIONS:%=build.%}:
+ ${MAKEVERSION} EPICSVERSION=${@:build.%=%} build
+
+${INSTALLED_EPICS_VERSIONS:%=install.%}:
+ ${MAKEVERSION} EPICSVERSION=${@:install.%=%} install
+
+${INSTALLED_EPICS_VERSIONS:%=uninstall.%}:
+ ${MAKEVERSION} EPICSVERSION=${@:uninstall.%=%} uninstall
+
+${INSTALLED_EPICS_VERSIONS:%=install-headers.%}:
+ ${MAKEVERSION} EPICSVERSION=${@:install-headers.%=%} install-headers
+
+${INSTALLED_EPICS_VERSIONS:%=debug.%}:
+ ${MAKEVERSION} EPICSVERSION=${@:debug.%=%} debug
+
+else # EPICSVERSION
+# EPICSVERSION defined
+# second or third turn (see T_A branch below)
+
+ifneq ($(filter 3.14.%,$(EPICSVERSION)),)
+EPICS_BASETYPE=3.14
+endif # 3.14
+ifneq ($(filter 3.13.%,$(EPICSVERSION)),)
+EPICS_BASETYPE=3.13
+endif # 3.13
+
+EPICS_BASE=${EPICS_LOCATION}/base-${EPICSVERSION}
+
+# Is a version requested which is not installed?
+# Look if ${EPICS_BASE}/config/CONFIG file exists.
+${EPICS_BASE}/config/CONFIG:
+ @echo "ERROR: EPICS release ${EPICSVERSION} not installed on this host."
+ @if [ `hostname -i` != slslc03 ]; then \
+ echo "ERROR: Try to log in on slslc."; \
+ fi
+
+# Include and overwrite default config for this EPICS version
+# This is how a "normal" EPICS Makefile.Vx would start.
+ifeq (${EPICS_BASETYPE},3.13)
+-include ${EPICS_BASE}/config/CONFIG
+export BUILD_TYPE=Vx
+else # 3.14
+# Some TOP and EPICS_BASE tweeking necessary to work around release check in 3.14.10+
+CONFIG=${EPICS_BASE}/configure
+EB=${EPICS_BASE}
+TOP:=${EPICS_BASE}
+-include ${EPICS_BASE}/configure/CONFIG
+EPICS_BASE:=${EB}
+SHRLIB_VERSION=
+endif # 3.14
+INSTALL_LOCATION= ${INSTALL_ROOT}/R${EPICSVERSION}
+
+ifndef T_A
+### RUN 2
+# target achitecture not yet defined
+# but EPICSVERSION is already known
+# still in source directory, second run
+
+# Look for sources etc.
+# Export everything for third run
+
+AUTOSRCS := $(filter-out ~%,$(wildcard *.c) $(wildcard *.cc) $(wildcard *.cpp) $(wildcard *.st) $(wildcard *.stt) $(wildcard *.gt))
+SRCS = $(if ${SOURCES},$(filter-out -none-,${SOURCES}),${AUTOSRCS})
+SRCS += ${SOURCES_${EPICS_BASETYPE}}
+export SRCS
+
+DBDFILES = $(if ${DBDS},${DBDS},$(wildcard *Record.dbd) $(strip $(filter-out *Include.dbd dbCommon.dbd *Record.dbd,$(wildcard *.dbd)) ${BPTS}))
+DBDFILES += ${DBDS_${EPICS_BASETYPE}}
+DBDFILES += $(patsubst %.gt,%.dbd,$(notdir $(filter %.gt,${SRCS})))
+ifeq (${EPICS_BASETYPE},3.14)
+DBDFILES += $(patsubst %.st,%_snl.dbd,$(notdir $(filter %.st,${SRCS})))
+DBDFILES += $(patsubst %.stt,%_snl.dbd,$(notdir $(filter %.stt,${SRCS})))
+endif # 3.14
+PROJECTDBD=${PRJ}${LIBVERSIONSTR}.dbd
+export DBDFILES PROJECTDBD
+
+RECORDS = $(sort $(patsubst %.dbd,%.h,$(notdir $(filter %Record.dbd,${DBDFILES}))))
+export RECORDS
+
+MENUS = $(patsubst %.dbd,%.h,$(wildcard menu*.dbd))
+export MENUS
+
+BPTS = $(patsubst %.data,%.dbd,$(wildcard bpt*.data))
+export BPTS
+
+HDRS = ${HEADERS} ${RECORDS}
+export HDRS
+
+TEMPLS = ${TEMPLATES}
+export TEMPLS
+
+DOCUDIR = .
+DOCU = $(foreach DIR,${DOCUDIR},$(wildcard ${DIR}/*README*) $(foreach EXT,${DOCUEXT}, $(wildcard ${DIR}/*.${EXT})))
+export DOCU
+
+# Loop over all target architectures for third run
+# Go to O.${T_A} subdirectory because Rules.Vx only work there:
+
+ifeq (${EPICS_BASETYPE},3.14)
+CROSS_COMPILER_TARGET_ARCHS += ${EPICS_HOST_ARCH}
+endif # 3.14
+
+SRCS_Linux = ${SOURCES_Linux}
+SRCS_Linux += ${SOURCES_${EPICS_BASETYPE}_Linux}
+SRCS_Linux += ${SOURCES_Linux_${EPICS_BASETYPE}}
+export SRCS_Linux
+SRCS_vxWorks = ${SOURCES_vxWorks}
+SRCS_vxWorks += ${SOURCES_${EPICS_BASETYPE}_vxWorks}
+SRCS_vxWorks += ${SOURCES_vxWorks_${EPICS_BASETYPE}}
+export SRCS_vxWorks
+DBDFILES_Linux = ${DBDS_Linux}
+DBDFILES_Linux += ${DBDS_${EPICS_BASETYPE}_Linux}
+DBDFILES_Linux += ${DBDS_Linux_${EPICS_BASETYPE}}
+export DBDFILES_Linux
+DBDFILES_vxWorks = ${DBDS_vxWorks}
+DBDFILES_vxWorks += ${DBDS_${EPICS_BASETYPE}_vxWorks}
+DBDFILES_vxWorks += ${DBDS_vxWorks_${EPICS_BASETYPE}}
+export DBDFILES_vxWorks
+
+# Do not install without version
+install uninstall install-headers::
+ifndef LIBVERSION
+ @echo "ERROR: Can't $@ without LIBVERSION defined"
+ @exit 1
+endif # !LIBVERSION
+
+install build install-headers debug:: .cvsignore
+ @echo "MAKING EPICS VERSION R${EPICSVERSION}"
+ @for ARCH in ${CROSS_COMPILER_TARGET_ARCHS}; do \
+ if [ ! -d O.${EPICSVERSION}_$$ARCH ]; then \
+ mkdir -p O.${EPICSVERSION}_$$ARCH; \
+ if [ -z "${LIBVERSION}" ]; then \
+ ${EXISTS} O.${EPICSVERSION}.syncTS_$$ARCH || ${LN} O.${EPICSVERSION}_$$ARCH O.${EPICSVERSION}.syncTS_$$ARCH; \
+ ${EXISTS} O.${EPICSVERSION}_$${ARCH/-/-test-} || ${LN} O.${EPICSVERSION}_$$ARCH O.${EPICSVERSION}_$${ARCH/-/-test-}; \
+ fi; \
+ fi; \
+ ${MAKE} -C O.${EPICSVERSION}_$$ARCH -f ../${USERMAKEFILE} T_A=$$ARCH $@; \
+ done
+
+.cvsignore:
+ echo "O.* .cvsignore" > .cvsignore
+
+# No need to create O.${T_A} subdirectory here:
+uninstall install-doc install-templates::
+ @echo "MAKING EPICS VERSION R${EPICSVERSION}"
+ for ARCH in ${CROSS_COMPILER_TARGET_ARCHS}; do \
+ ${MAKEVERSION} T_A=$$ARCH $@; done
+
+debug::
+ @echo "EPICSVERSION = ${EPICSVERSION}"
+ @echo "EPICS_BASETYPE = ${EPICS_BASETYPE}"
+ @echo "CROSS_COMPILER_TARGET_ARCHS = ${CROSS_COMPILER_TARGET_ARCHS}"
+ @echo "EPICS_BASE = ${EPICS_BASE}"
+ @echo "INSTALL_LOCATION = ${INSTALL_LOCATION}"
+ @echo "LIBVERSION = ${LIBVERSION}"
+
+else # T_A
+## RUN 3
+# target architecture defined
+# third run, in O.* directory for build, install, install-headers
+# still in source directory for uninstall, install-doc, install-templates
+
+ifeq ($(filter ${OS_CLASS},${OS_CLASS_LIST}),)
+
+build%: build
+build:
+ @echo skipping ${T_A} because ${OS_CLASS} is not in BUILDCLASSES
+%:
+ @true
+else # OS_CLASS in BUILDCLASSES
+
+CFLAGS += ${EXTRA_CFLAGS}
+INSTALL_BIN = ${INSTALL_LOCATION}/${T_A}
+INSTALL_DOC = $(dir ${INSTALL_LOCATION})driverdoc
+INSTALL_TEMPL = $(dir ${INSTALL_LOCATION})templates
+INSTALL_LIBRARY = $(addprefix ${INSTALL_BIN}/,${PROJECTLIB})
+INSTALL_PROJECTDBD = $(addprefix ${INSTALL_DBD}/,${PROJECTDBD})
+INSTALL_HDRS = $(patsubst %.h,${INSTALL_INCLUDE}/%${LIBVERSIONSTR}.h, $(notdir ${HDRS}))
+INSTALL_DOCUS = $(addprefix ${INSTALL_DOC}/${PRJ}/,$(notdir ${DOCU}))
+INSTALL_TEMPLATES = $(addprefix ${INSTALL_TEMPL}/,$(subst .,${LIBVERSIONSTR}.,$(notdir ${TEMPLS})))
+INSTALL_DEP = ${INSTALL_BIN}/${DEPFILE}
+
+DEPFILE = ${PRJ}${LIBVERSIONSTR}.dep
+
+INSTALLDIRS = ${INSTALL_LOCATION} ${INSTALL_INCLUDE} ${INSTALL_BIN}
+INSTALLDIRS += ${INSTALL_DBD} ${INSTALL_DOC} ${INSTALL_DOC}/${PRJ}
+INSTALLDIRS += ${INSTALL_TEMPL}
+
+DBDLINKS = ${INSTALL_BIN}/dbd
+
+ifeq ($(words ${DBDFILES}),0)
+PROJECTDBD=
+endif # !DBDFILES
+
+#INSTALL = install -m 444
+
+debug::
+ @echo "BUILDCLASSES = ${BUILDCLASSES}"
+ @echo "OS_CLASS = ${OS_CLASS}"
+ @echo "SOURCES = ${SOURCES}"
+ @echo "SOURCES_${EPICS_BASETYPE} = ${SOURCES_${EPICS_BASETYPE}}"
+ @echo "SOURCES_${OS_CLASS} = ${SOURCES_${OS_CLASS}}"
+ @echo "SRCS = ${SRCS}"
+ @echo "LIBOBJS = ${LIBOBJS}"
+ @echo "DBDFILES = ${DBDFILES}"
+ @echo "RECORDS = ${RECORDS}"
+ @echo "PROJECTDBD = ${PROJECTDBD}"
+ @echo "T_A = ${T_A}"
+ @echo "ARCH_PARTS = ${ARCH_PARTS}"
+
+ifeq (${EPICS_BASETYPE},3.13)
+install:: ${INSTALLDIRS} ${DBDLINKS} ${INSTALL_HDRS} ${INSTALL_TEMPLATES}
+else # 3.14
+install: ${INSTALLDIRS} ${DBDLINKS} ${INSTALL_HDRS} ${INSTALL_TEMPLATES}
+endif # 3.14
+
+install-headers:: ${INSTALL_LOCATION} ${INSTALL_INCLUDE}
+install-headers:: ${INSTALL_HDRS}
+install-templates:: ${INSTALL_TEMPLATES}
+install-doc:: ${INSTALL_LOCATION} ${INSTALL_DOC} ${INSTALL_DOC}/${PRJ} ${INSTALL_DOCUS}
+
+${INSTALLDIRS}:
+ mkdir -m 775 $@
+
+${INSTALL_BIN}/dbd:
+ ${LN} ../dbd $@
+
+${INSTALL_DOC}/${PRJ}/%: %
+ @echo "Installing documentation $@"
+ rm -f $@
+ cp $^ $@
+ chmod 444 $@
+
+${INSTALL_TEMPL}/%${LIBVERSIONSTR}.template: %.template
+ @echo "Installing template file $@"
+ rm -f $@
+ echo "#${PRJ}Lib ${LIBVERSION}" > $@
+ cat $^ >> $@
+ chmod 444 $@
+ @[ "${LIBVERSION}" == "test" ] || \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_TEMPL} .template $(basename $(notdir $^))
+
+${INSTALL_TEMPL}/%${LIBVERSIONSTR}.db: %.db
+ @echo "Installing template file $@"
+ rm -f $@
+ echo "#${PRJ}Lib ${LIBVERSION}" > $@
+ cat $^ >> $@
+ chmod 444 $@
+ @[ "${LIBVERSION}" == "test" ] || \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_TEMPL} .db $(basename $(notdir $^))
+
+ifeq ($(filter O.%,$(notdir ${CURDIR})),)
+# still in source directory, third run
+# EPICSVERSION and T_A defined
+
+RMFILES += ${INSTALL_BIN}/${PRJ}Lib${LIBVERSIONSTR}
+RMFILES += ${INSTALL_BIN}/${PRJ}Lib${LIBVERSIONSTR}.munch
+RMFILES += ${INSTALL_BIN}/lib${PRJ}${LIBVERSIONSTR}.so
+RMFILES += ${INSTALL_DEP}
+RMFILES += ${INSTALL_PROJECTDBD}
+RMFILES += ${INSTALL_HDRS}
+RMFILES += ${INSTALL_TEMPLATES}
+
+uninstall::
+ @for i in ${RMFILES}; \
+ do ${EXISTS} $$i && echo "Uninstalling $$i" && rm -f $$i; \
+ done; true
+ @if [ "${LIBVERSION}" != "test" ]; \
+ then \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_BIN} "" ${PRJ}Lib; \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_BIN} .munch ${PRJ}Lib; \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_BIN} .so lib${PRJ}; \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_BIN} .dep ${PRJ}; \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_DBD} .dbd ${INSTALL_PROJECTDBD:%${LIBVERSIONSTR}.dbd=%}; \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_INCLUDE} .h $(notdir ${HDRS:%.h=%}); \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_TEMPL} .template $(notdir ${TEMPLS:%.template=%}); \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_TEMPL} .db $(notdir ${TEMPLS:%.db=%}); \
+ fi
+
+${INSTALL_INCLUDE}/%${LIBVERSIONSTR}.h: %.h
+ @echo "Installing header file $@"
+ rm -f $@
+ echo "#define __${PRJ}Lib__ ${MAJOR}.${MINOR}" > $@
+ cat $^ >> $@
+ chmod 444 $@
+ @[ "${LIBVERSION}" == "test" ] || \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_INCLUDE} .h $(basename $(notdir $^))
+
+vpath %.db $(sort $(dir ${TEMPLS}))
+vpath %.template $(sort $(dir ${TEMPLS}))
+vpath % $(sort $(dir ${DOCU}))
+
+else # in O.* directory, third run
+
+# add sources for specific epics types (3.13 or 3.14) or architectures
+ARCH_PARTS = ${T_A} $(subst -, ,${T_A}) ${OS_CLASS}
+SRCS += $(foreach PART, ${ARCH_PARTS}, ${SRCS_${PART}})
+SRCS += $(foreach PART, ${ARCH_PARTS}, ${SRCS_${EPICS_BASETYPE}_${PART}})
+DBDFILES += $(foreach PART, ${ARCH_PARTS}, ${DBDFILES_${PART}})
+DBDFILES += $(foreach PART, ${ARCH_PARTS}, ${DBDFILES_${EPICS_BASETYPE}_${PART}})
+
+# Different settings required to build library in 3.13. and 3.14
+
+ifeq (${EPICS_BASETYPE},3.13) # only 3.13 from here
+
+PROJECTLIB = $(if ${LIBOBJS},${PRJ}Lib${LIBVERSIONSTR},)
+# Convert sources to object code, skip .a and .o here
+LIBOBJS += $(patsubst %,%.o,$(notdir $(basename $(filter-out %.o %.a,${SRCS}))))
+# add all .a and .o with absolute path
+LIBOBJS += $(filter /%.o /%.a,${SRCS})
+# add all .a and .o with relative path, but prefix with ../
+LIBOBJS += $(patsubst %,../%,$(filter-out /%,$(filter %.o %.a,${SRCS})))
+LIBOBJS += ${LIBRARIES:%=${INSTALL_BIN}/%Lib}
+LIBNAME = ${PROJECTLIB}
+
+else # only 3.14 from here
+
+ifeq (${OS_CLASS},vxWorks)
+PROJECTLIB = $(if ${LIBOBJS},${PRJ}Lib${LIBVERSIONSTR},)
+else # !vxWorks
+PROJECTLIB = $(if ${LIBOBJS},${LIB_PREFIX}${PRJ}${LIBVERSIONSTR}${SHRLIB_SUFFIX},)
+endif # !vxWorks
+
+# vxWorks
+PROD_vxWorks=${PROJECTLIB}.
+LIBOBJS += $(addsuffix $(OBJ),$(notdir $(basename $(filter-out %.o %.a,$(sort ${SRCS})))))
+LIBOBJS += ${LIBRARIES:%=${INSTALL_BIN}/%Lib}
+LIBS = -L ${EPICS_BASE_LIB} ${BASELIBS:%=-l%}
+LINK.cpp += ${LIBS}
+PRODUCT_OBJS = ${LIBOBJS}
+
+# Linux
+LOADABLE_LIBRARY=$(if ${LIBOBJS},${PRJ}${LIBVERSIONSTR},)
+LIBRARY_OBJS = ${LIBOBJS}
+ifneq ($(words $(filter %.st %.stt,${SRCS})),0)
+SHRLIB_SEARCH_DIRS += $(EPICS_LOCATION)/seq/lib/$(T_A)
+LIB_LIBS += pv seq
+endif # .st or .stt
+
+# Handle registry stuff automagically if we have a dbd file.
+# See ${REGISTRYFILE} and ${EXPORTFILE} rules below.
+ifdef PROJECTDBD
+SRCS += ${REGISTRYFILE} ${EXPORTFILE}
+endif # PROJECTDBD
+
+endif # both, 3.13 and 3.14 from here
+
+# If we build a library and use versions, provide a version variable.
+ifdef PROJECTLIB
+ifdef LIBVERSION
+LIBOBJS += $(basename ${VERSIONFILE}).o
+endif # LIBVERSION
+endif # PROJECTLIB
+
+ifdef LIBVERSION
+ifneq (${LIBVERSION},test)
+# Provide a global symbol for every version with the same
+# major and equal or smaller minor version number.
+# Other code using this will look for one of those symbols.
+# Add an undefined symbol for the version of every used driver.
+# This is done with the #define in the used headers (see below).
+MAJOR_MINOR_PATCH=$(subst ., ,${LIBVERSION})
+MAJOR=$(word 1,${MAJOR_MINOR_PATCH})
+MINOR=$(word 2,${MAJOR_MINOR_PATCH})
+PATCH=$(word 3,${MAJOR_MINOR_PATCH})
+ALLMINORS := $(shell for ((i=0;i<=${MINOR};i++));do echo $$i;done)
+PREREQUISITES = $(shell ${MAKEHOME}/getPrerequisites.tcl ${INSTALL_INCLUDE} | grep -vw ${PRJ})
+ifeq (${OS_CLASS}, vxWorks)
+PROVIDES = ${ALLMINORS:%=--defsym __${PRJ}Lib_${MAJOR}.%=0}
+#REQUIRES = ${PREREQUISITES:%=-u __%}
+endif # vxWorks
+ifeq (${OS_CLASS}, Linux)
+REQUIRES = ${PREREQUISITES:%=-Wl,-u,%}
+PROVIDES = ${ALLMINORS:%=-Wl,--defsym,${PRJ}Lib_${MAJOR}.%=0}
+endif # Linux
+endif # !test
+endif # LIBVERSION defined
+
+LDFLAGS += ${PROVIDES} ${REQUIRES}
+
+# Create and include dependency files
+CPPFLAGS += -MD
+-include *.d
+
+# Setup searchpaths from all used files
+DIRS = $(sort $(dir ${SRCS:%=../%} ${HDRS:%=../%} ${TEMPLS:%=../%} ${DOCU:%=../%}))
+vpath % ..
+vpath % $(sort $(dir ${SRCS:%=../%}))
+vpath %.h $(sort $(dir ${HDRS:%=../%}))
+vpath %.template $(sort $(dir ${TEMPLS:%=../%}))
+vpath %.db $(sort $(dir ${TEMPLS:%=../%}))
+#VPATH += $(sort $(dir ${DOCU:%=../%}))
+
+DBDDIRS = $(sort $(dir ${DBDFILES:%=../%}))
+DBDDIRS += ${INSTALL_DBD} ${EPICS_BASE}/dbd
+DBDEXPANDPATH = $(addprefix -I , ${DBDDIRS})
+USR_DBDFLAGS += $(DBDEXPANDPATH)
+
+ifeq (${EPICS_BASETYPE},3.13)
+USR_INCLUDES += $(addprefix -I, $(sort $(dir ${SRCS:%=../%} ${HDRS:%=../%})))
+build:: ${PROJECTDBD} ${RECORDS} ${PROJECTLIB}
+ifneq ($(filter %.cc %.cpp,${SRCS}),)
+ifneq (${T_A},T1-ppc604)
+#add munched library for C++ code (does not work for T1-ppc604)
+PROD += ${PROJECTLIB}.munch
+endif # T1-ppc604
+endif # .cc or .cpp found
+else # 3.14
+GENERIC_SRC_INCLUDES = $(addprefix -I, $(sort $(dir ${SRCS:%=../%} ${HDRS:%=../%})))
+build: ${PROJECTDBD} ${RECORDS}
+EXPANDARG = -3.14
+endif # 3.14
+
+# Build one dbd file by expanding all source dbd files.
+# We can't use dbExpand (from the default EPICS make rules)
+# because it has too strict checks for a loadable module.
+${PROJECTDBD}: ${DBDFILES}
+ @echo "Expanding $@"
+ ${MAKEHOME}/expandDBD.tcl ${EXPANDARG} ${DBDEXPANDPATH} $^ > $@
+
+# Install everything and set up symbolic links
+${INSTALL_BIN}/${PROJECTLIB}.munch: ${PROJECTLIB}.munch
+ @echo "Installing munched library $@"
+ rm -f $@
+ cp $^ $@
+ chmod 444 $@
+ @[ "${LIBVERSION}" == "test" ] || \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_BIN} .munch ${PRJ}Lib
+
+${INSTALL_BIN}/${PROJECTLIB}: ${PROJECTLIB}
+ @echo "Installing library $@"
+ rm -f $@
+ cp $^ $@
+ chmod 444 $@
+ @[ "${LIBVERSION}" == "test" ] || \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_BIN} "" ${PRJ}Lib
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_BIN} .so lib${PRJ}
+
+${INSTALL_BIN}/${DEPFILE}: ${DEPFILE}
+ @echo "Installing dependency file $@"
+ rm -f $@
+ cp $^ $@
+ chmod 444 $@
+ @[ "${LIBVERSION}" == "test" ] || \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_BIN} .dep ${PRJ}
+
+${INSTALL_DBD}/%.dbd: %.dbd
+ @echo "Installing dbd file $@"
+ rm -f $@
+ cp $^ $@
+ chmod 444 $@
+ @[ "${LIBVERSION}" == "test" ] || \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_DBD} .dbd ${^:%${LIBVERSIONSTR}.dbd=%}
+
+# Add a #define so that users of the header know the version.
+${INSTALL_INCLUDE}/%${LIBVERSIONSTR}.h: %.h
+ @echo "Installing header file $@"
+ rm -f $@
+ echo "#define __${PRJ}Lib__ ${MAJOR}.${MINOR}" > $@
+ cat $^ >> $@
+ chmod 444 $@
+ @[ "${LIBVERSION}" == "test" ] || \
+ ${MAKEHOME}/setLinks.tcl ${INSTALL_INCLUDE} .h $(basename $(notdir $^))
+
+# Include default EPICS Makefiles (version dependent)
+ifeq (${EPICS_BASETYPE},3.13)
+include ${EPICS_BASE}/config/RULES.Vx
+install:: ${INSTALL_DOCUS} ${INSTALL_PROJECTDBD} ${INSTALL_DEP}
+else # 3.14
+COMMON_DIR = .
+RELEASE_DBDFLAGS = -I ${EPICS_BASE}/dbd
+RELEASE_INCLUDES = -I ${EPICS_BASE}/include -I ${EPICS_BASE}/include/os/${OS_CLASS}
+# avoid library installation when doing 'make build'
+INSTALL_LOADABLE_SHRLIBS=
+include ${EPICS_BASE}/configure/RULES
+RULES_TOP=${EPICS_BASE}/../seq
+include ${RULES_TOP}/configure/RULES_BUILD
+SNC_CFLAGS=-I ${RULES_TOP}/include
+install: ${INSTALL_DOCUS} ${INSTALL_PROJECTDBD} ${INSTALL_LIBRARY} ${INSTALL_DEP}
+endif # 3.14
+
+# Create SNL code from st/stt file
+# (RULES.Vx only allows ../%.st, 3.14 has no .st rules at all)
+# Important to have %.o: %.st and %.o: %.stt rule before %.o: %.c rule!
+# Preprocess in any case because docu and EPICS makefiles mismatch here
+
+CPPSNCFLAGS1 = $(filter -D%, ${OP_SYS_CFLAGS})
+CPPSNCFLAGS1 += $(filter-out ${OP_SYS_INCLUDE_CPPFLAGS} ,${CPPFLAGS}) ${CPPSNCFLAGS}
+SNCFLAGS += -r
+
+%.o: %.st
+ @echo "Preprocessing $*.st"
+ $(RM) $(*F).i
+ $(CPP) ${CPPSNCFLAGS1} $< > $(*F).i
+ @echo "Converting $(*F).i"
+ $(RM) $@
+ $(SNC) $(TARGET_SNCFLAGS) $(SNCFLAGS) $(*F).i
+ @echo "Compiling $(*F).c"
+ $(RM) $@
+ $(COMPILE.c) ${SNC_CFLAGS} $(*F).c
+
+%.o: %.stt
+ @echo "Preprocessing $*.stt"
+ $(RM) $(*F).i
+ $(CPP) ${CPPSNCFLAGS1} $< > $(*F).i
+ @echo "Converting $(*F).i"
+ $(RM) $@
+ $(SNC) $(TARGET_SNCFLAGS) $(SNCFLAGS) $(*F).i
+ @echo "Compiling $(*F).c"
+ $(RM) $@
+ $(COMPILE.c) ${SNC_CFLAGS} $(*F).c
+
+# For 3.14, create dbd file with registrar call for snl program
+# (Find "program programname" in preprocessed snl file.)
+
+%_snl.dbd: %.st
+ $(CPP) ${CPPSNCFLAGS1} $< | awk -F '[\t (]+' '/^[ \t]*program[ \t]/ {print "registrar (" ($$1==""?$$3:$$2) "Registrar)"; exit}' > $@
+
+%_snl.dbd: %.stt
+ $(CPP) ${CPPSNCFLAGS1} $< | awk -F '[\t (]+' '/^[ \t]*program[ \t]/ {print "registrar (" ($$1==""?$$3:$$2) "Registrar)"; exit}' > $@
+
+# Create GPIB code from gt file
+%.c %.dbd %.list: %.gt
+ @echo "Converting $*.gt"
+ ${LN} $< $(*F).gt
+ gdc $(*F).gt
+
+# Check object code for wrong argument types in va_arg.
+# Some compilers seem to have problems with this.
+%.o: %.c
+ @echo "Compiling $<"
+ $(RM) $@
+ $(COMPILE.c) $<
+ @$(NM) $@ | if grep -q __va_arg_type_violation; \
+ then \
+ echo "Error: va_arg type violation. Did you use float, char, or short in va_arg() ?" >&2; \
+ $(RM) $@; exit 1; \
+ else true; \
+ fi
+
+# The original 3.13 munching rule does not really work well
+
+MUNCH = $(PERL) $(EPICS_LOCATION)/base/bin/$(EPICS_HOST_ARCH)/munch.pl
+%.munch: %
+ $(RM) $*_ctct.o $*_ctdt.c
+ $(NM) $< | $(MUNCH) > $*_ctdt.c
+ $(GCC) -traditional $(CFLAGS) -fdollars-in-identifiers -c $(SOURCE_FLAG) $*_ctdt.c
+ $(LINK.c) $@ $< $*_ctdt.o
+
+${VERSIONFILE}:
+ifneq (${LIBVERSION},test)
+ echo "double _${PRJ}LibVersion = ${MAJOR}.${MINOR};" > $@
+endif # test
+ echo "char _${PRJ}LibRelease[] = \"${LIBVERSION}\";" >> $@
+
+# EPICS R3.14.*:
+# Create file to fill registry from dbd file.
+${REGISTRYFILE}: ${PROJECTDBD}
+ $(RM) $@ temp.cpp
+ $(PERL) $(EPICS_BASE_HOST_BIN)/registerRecordDeviceDriver.pl $< $(basename $@) > temp.cpp
+ $(MV) temp.cpp $@
+
+# For 3.13 code used with 3.14:
+# Add missing epicsExportAddress() calls for registry.
+
+define makexportfile
+BEGIN { print "/* This is a generated file. Do not modify! */"; \
+ print "#include <drvSup.h>"; \
+ print "#include <devSup.h>"; \
+ print "#include <recSup.h>"; \
+ print "#include <registryFunction.h>"; \
+ print "#include <epicsExport.h>"; \
+ print "/* These are the RegisterFunction and ExportAddress calls missing for 3.14 compatible code. */"} \
+/ U pvar_func_register_func_/ {name=substr($$2,25); \
+ print "void " name "();"; \
+ print "epicsRegisterFunction(" name ");"; next} \
+/ U pvar_func_/ {name=substr($$2,11);\
+ print "REGISTRYFUNCTION " name ";"; \
+ print "epicsRegisterFunction(" name ");"; next} \
+/ U pvar_/ {i=index(substr($$2,6),"_"); type=substr($$2,6,i-1); name=substr($$2,i+6); \
+ print "extern " type " " name ";"; \
+ print "epicsExportAddress(" type ", " name ");"}
+endef
+
+
+${EXPORTFILE}: $(filter-out $(basename ${EXPORTFILE}).o,${LIBOBJS})
+ $(RM) $@ temp.c templib
+ $(LD) -o templib $(filter-out $(basename ${EXPORTFILE}).o,${LIBOBJS}) $(LIBS) $(ARCH_DEP_LDFLAGS)
+ $(NM) templib | awk '$(makexportfile)' > temp.c
+ $(MV) temp.c $@
+
+# Create dependency file for recursive requires
+${PROJECTLIB}: ${DEPFILE}
+${DEPFILE}: $(SRCS)
+ @echo "Collecting prerequisites"
+ $(RM) $@
+ @echo "# Generated file. Do not edit." > $@
+ ${MAKEHOME}/getPrerequisites.tcl -dep ${INSTALL_INCLUDE} | grep -vw ${PRJ} >> $@; true
+
+ifeq (${EPICS_BASETYPE},3.14)
+ifneq (${OS_CLASS},vxWorks)
+build:
+ ${RM} MakefileInclude
+endif # !vxWorks
+endif # 3.14
+
+endif # in O.* directory
+endif # T_A defined
+endif # OS_CLASS in BUILDCLASSES
+endif # EPICSVERSION defined
diff --git a/App/tools/expandDBD.tcl b/App/tools/expandDBD.tcl
new file mode 100755
index 0000000000000000000000000000000000000000..f5fca439334e195ae55fccdd89a7a7f363fec338
--- /dev/null
+++ b/App/tools/expandDBD.tcl
@@ -0,0 +1,79 @@
+#!/usr/bin/tclsh
+
+package require Tclx
+
+set epicsversion 3.13
+set global_context [scancontext create]
+
+proc opendbd {name} {
+ global seachpatch
+ foreach dir $seachpatch {
+ if ![catch {
+ set file [open [file join $dir $name]]
+ }] {
+ return $file
+ }
+ }
+ return -code error "file $name not found"
+}
+
+scanmatch $global_context {^[ \t]*(#|%|$)} {
+ continue
+}
+
+scanmatch $global_context {include[ \t]+"(.*)"} {
+ global FileName
+ if [catch {
+ includeFile $global_context $matchInfo(submatch0)
+ } msg] {
+ puts stderr "ERROR: $msg in $FileName($matchInfo(handle)) line $matchInfo(linenum)"
+ exit 1
+ }
+ continue
+}
+
+scanmatch $global_context {include[ \t]+(.*)} {
+ if [catch {
+ includeFile $global_context $matchInfo(submatch0)
+ } msg] {
+ puts stderr "ERROR: $msg in $FileName($matchInfo(handle)) line $matchInfo(linenum)"
+ exit 1
+ }
+ continue
+}
+
+scanmatch $global_context {(registrar|variable|function)[ \t]*\(} {
+ global epicsversion
+ if {$epicsversion == 3.14} {puts $matchInfo(line)}
+}
+
+scanmatch $global_context {
+ puts $matchInfo(line)
+}
+
+proc includeFile {context name} {
+ global global_context FileName
+ set file [opendbd $name]
+ set FileName($file) $name
+ scanfile $context $file
+ close $file
+}
+
+if {[lindex $argv 0] == "-3.14"} {
+ set epicsversion 3.14
+ set argv [lreplace $argv 0 0]
+}
+
+set seachpatch {}
+while {[lindex $argv 0] == "-I"} {
+ lappend seachpatch [lindex $argv 1]
+ set argv [lreplace $argv 0 1]
+}
+
+foreach filename $argv {
+ set file [open $filename]
+ set FileName($file) $filename
+ scanfile $global_context $file
+ close $file
+}
+
diff --git a/App/tools/getPrerequisites.tcl b/App/tools/getPrerequisites.tcl
new file mode 100755
index 0000000000000000000000000000000000000000..d6a7e935d77110d47943c6db3818ccb76bf0a8af
--- /dev/null
+++ b/App/tools/getPrerequisites.tcl
@@ -0,0 +1,32 @@
+#!/usr/bin/tclsh
+
+if {[lindex $argv 0] == "-dep"} {
+ set depstyle 1
+ set argv [lrange $argv 1 end]
+} else {
+ set depstyle 0
+}
+set installdir [lindex $argv 0]
+set prerequisites {}
+foreach filename [glob -nocomplain *.d] {
+ set file [open $filename]
+ set contents [read $file]
+ close $file
+ foreach word $contents {
+ set header [string trim $word]
+ if [string match $installdir/* $header] {
+ set file [open $header]
+ while {[regexp {^#define __(.*)Lib__ ([0-9]+\.[0-9]+)$} \
+ [gets $file] match lib version]} {
+ if $depstyle {
+ lappend prerequisites "$lib $version"
+ } else {
+ lappend prerequisites ${lib}Lib_$version
+ }
+ }
+ close $file
+ }
+ }
+}
+set prerequisites [lsort -unique $prerequisites]
+puts [join $prerequisites "\n"]
diff --git a/App/tools/getVersion.tcl b/App/tools/getVersion.tcl
new file mode 100755
index 0000000000000000000000000000000000000000..78a8eea37d7d6001ebf9b8ce4de95fa9d2f03322
--- /dev/null
+++ b/App/tools/getVersion.tcl
@@ -0,0 +1,108 @@
+#!/usr/bin/tclsh
+
+package require Tclx
+
+set global_context [scancontext create]
+set file_context [scancontext create]
+set skip_context [scancontext create]
+
+scanmatch $global_context {^File: .*Up-to-date} {
+ set file [lindex $matchInfo(line) 1]
+ puts -nonewline stderr "checking $file: "
+ scanfile $file_context $matchInfo(handle)
+ if {![info exists major($file)]} {
+ puts stderr "revision $rev($file) not tagged => version test"
+ set version test
+ continue
+ }
+ puts stderr "revision $rev($file) tag $tag($file) => version $major($file).$minor($file).$patch($file)"
+ if {![info exists version]} {
+ set version $major($file).$minor($file).$patch($file)
+ } else {
+ if ![cequal $major($file).$minor($file).$patch($file) $version] {
+ set version test
+ continue
+ }
+ }
+ continue
+}
+
+scanmatch $global_context {^File: .*} {
+ set file [lindex $matchInfo(line) 1]
+ puts stderr "checking $file: [lrange $matchInfo(line) 3 end] => version test"
+ set version test
+ continue
+}
+
+scanmatch $global_context {^\? .*} {
+ set file [lindex $matchInfo(line) 1]
+ puts stderr "checking $file: not in cvs => version test"
+ set version test
+ continue
+}
+
+scanmatch $file_context {Working revision:} {
+ set rev($file) [lindex $matchInfo(line) 2]
+}
+
+scanmatch $file_context {Sticky Tag:.*_([0-9]+)_([0-9]+)_([0-9]+)[ \t]+\(revision: } {
+ set major($file) $matchInfo(submatch0)
+ set minor($file) $matchInfo(submatch1)
+ set patch($file) $matchInfo(submatch2)
+ set tag($file) "[lindex $matchInfo(line) 2] (sticky)"
+ scanfile $skip_context $matchInfo(handle)
+ return
+}
+
+scanmatch $file_context {Sticky Tag:.*_([0-9]+)_([0-9]+)[ \t]+\(revision: } {
+ set major($file) $matchInfo(submatch0)
+ set minor($file) $matchInfo(submatch1)
+ set patch($file) 0
+ set tag($file) "[lindex $matchInfo(line) 2] (sticky)"
+ scanfile $skip_context $matchInfo(handle)
+ return
+}
+
+scanmatch $file_context {_([0-9]+)_([0-9]+)(_([0-9]+))?[ \t]+\(revision: ([\.0-9]+)\)} {
+ if [cequal $rev($file) $matchInfo(submatch4)] {
+ set Major $matchInfo(submatch0)
+ set Minor $matchInfo(submatch1)
+ set Patch [expr $matchInfo(submatch3) + 0]
+ if {![info exists major($file)] ||
+ $Major>$major($file) ||
+ ($Major==$major($file) && ($Minor>$minor($file)
+ || ($Minor==$minor($file) && $Patch>$patch($file))))} {
+ set major($file) $Major
+ set minor($file) $Minor
+ set patch($file) $Patch
+ set tag($file) [lindex $matchInfo(line) 0]
+ }
+ }
+}
+
+scanmatch $skip_context {=================} {
+ return
+}
+
+scanmatch $file_context {=================} {
+ return
+}
+
+#cvs bug: calling cvs status for files in other directories spoils status information for local files.
+#fix: make localfiles non-local: x -> ../dir/x
+set dir ../[file tail [pwd]]
+set files $dir
+foreach file $argv {
+ if {[file tail $file] == $file} {
+ lappend files $dir/$file
+ } else {
+ lappend files $file
+ }
+}
+
+set cvsstatus [open "|cvs status -l -v $files 2>/dev/null"]
+scanfile $global_context $cvsstatus
+close $cvsstatus
+
+if {![info exists version]} {set version test}
+puts $version
diff --git a/App/tools/setLinks.tcl b/App/tools/setLinks.tcl
new file mode 100755
index 0000000000000000000000000000000000000000..d775792d80f8b5d707e966b0b2ee03430b5b109c
--- /dev/null
+++ b/App/tools/setLinks.tcl
@@ -0,0 +1,60 @@
+#!/usr/bin/tclsh
+
+package require Tclx
+
+set dir [lindex $argv 0]
+set ext [lindex $argv 1]
+set names [lrange $argv 2 end]
+if {![file isdirectory $dir]} exit
+
+if {[lindex [file split $dir] 1] == "prod"} {
+ proc mklink {target link} {
+ global dir
+ puts "Linking $link -> $target"
+ puts "repository -H pc770 slink $target $dir/$link"
+ }
+ proc rmlink {link} {
+ }
+} else {
+ proc mklink {target link} {
+ puts "Linking $link -> $target"
+ link -sym $target $link
+ }
+ proc rmlink {link} {
+ #puts "removing link $link"
+ file delete $link
+ }
+}
+
+cd $dir
+foreach name $names {
+ set links [glob -nocomplain -type l $name-*$ext]
+ lappend links $name$ext
+ foreach file $links {
+ rmlink $file
+ }
+ set files [glob -nocomplain -types f $name-*$ext]
+ set files [lsort -decreasing -dictionary $files]
+ set oldmajor ""
+ set oldminor ""
+ set first 1
+ foreach file $files {
+ if {[regexp {(.*)-([0-9]+)\.([0-9]+)\.([0-9]+)(.*)} $file \
+ match head major minor patch tail] && \
+ $head == $name && $tail == $ext} {
+ if {$first} {
+ mklink $file $name$ext
+ set first 0
+ }
+ if {$major != $oldmajor} {
+ mklink $file $name-$major$ext
+ set oldmajor $major
+ set oldminor ""
+ }
+ if {$minor != $oldminor} {
+ mklink $file $name-$major.$minor$ext
+ set oldminor $minor
+ }
+ }
+ }
+}