*** empty log message ***

App/tools/driver.makefile

+# 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

App/tools/expandDBD.tcl

+#!/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
+}
+

App/tools/getPrerequisites.tcl

+#!/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"]

App/tools/getVersion.tcl

+#!/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

App/tools/setLinks.tcl

+#!/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
+            }
+        }
+    }
+}