From 8013fecb612c7435bbbadc19f7b1e452c54b2012 Mon Sep 17 00:00:00 2001
From: Jeff Hill <johill@lanl.gov>
Date: Fri, 11 Apr 1997 20:44:03 +0000
Subject: [PATCH] kay's perl branch

---
 Makefile                            |    2 +-
 README.Perl                         |   43 ++
 src/ca/windows_depen.c              |   27 +-
 src/dbtools/Makefile.Host           |    7 +-
 src/include/Makefile.Host           |   17 +-
 src/include/makeEpicsVersion.pl     |   36 +
 src/libCom/Makefile.Host            |   28 +-
 src/libCom/Makefile.Vx              |   20 +-
 src/libCom/bldEnvData.pl            |  151 ++++
 src/libCom/env/bldEnvData.pl        |  151 ++++
 src/libCom/error/makeStatTbl.pl     |  102 +++
 src/libCom/makeStatTbl.pl           |  102 +++
 src/libCom/misc/makeEpicsVersion.pl |   36 +
 src/libCom/os/WIN32/README.getopt   |    4 +
 src/sequencer/Makefile.Host         |    5 +-
 src/sequencer/Makefile.Vx           |    5 +-
 src/sequencer/makeVersion.pl        |   22 +
 src/tools/Makefile.Host             |   55 +-
 src/tools/cp.pl                     |   39 +
 src/tools/installEpics.pl           |  108 +++
 src/tools/makeBaseApp.pl            | 1023 +++++++++++++++++++++++++++
 src/tools/mkdir.pl                  |   23 +
 src/tools/mv.pl                     |   69 ++
 src/tools/rm.pl                     |   32 +
 24 files changed, 1981 insertions(+), 126 deletions(-)
 create mode 100644 README.Perl
 create mode 100644 src/include/makeEpicsVersion.pl
 create mode 100644 src/libCom/bldEnvData.pl
 create mode 100644 src/libCom/env/bldEnvData.pl
 create mode 100644 src/libCom/error/makeStatTbl.pl
 create mode 100644 src/libCom/makeStatTbl.pl
 create mode 100644 src/libCom/misc/makeEpicsVersion.pl
 create mode 100644 src/libCom/os/WIN32/README.getopt
 create mode 100644 src/sequencer/makeVersion.pl
 create mode 100644 src/tools/cp.pl
 create mode 100644 src/tools/installEpics.pl
 create mode 100644 src/tools/makeBaseApp.pl
 create mode 100644 src/tools/mkdir.pl
 create mode 100644 src/tools/mv.pl
 create mode 100644 src/tools/rm.pl

diff --git a/Makefile b/Makefile
index 9dbf9991b..577d5a035 100644
--- a/Makefile
+++ b/Makefile
@@ -30,5 +30,5 @@ built_release:
 
 uninstall::
 	@DIR1=`pwd`;cd $(INSTALL_LOCATION);DIR2=`pwd`;cd $$DIR1;\
-	if [ "$$DIR1" != "$$DIR2" ]; then rm -fr $(INSTALL_LOCATION)/config; fi
+	if [ "$$DIR1" != "$$DIR2" ]; then $(RMDIR) $(INSTALL_LOCATION)/config; fi
 
diff --git a/README.Perl b/README.Perl
new file mode 100644
index 000000000..c3037c9c9
--- /dev/null
+++ b/README.Perl
@@ -0,0 +1,43 @@
+Perl
+====
+
+A number of shell scripts are now Perl scripts,
+most important:
+
+tools/installEpics.pl
+include/makeEpicsVersion.pl
+libCom/bldEnvData.pl
+libCom/makeStatSymTbl.pl
+sequencer/makeVersion.pl
+
+WIN32 also uses
+tools/cp.pl, mv.pl, rm.pl, mkdir.pl
+which should behave like the UNIX cp, mv, rm, rmdir.
+All systems could use the Perl versions but that seems
+to be overkill for UNIX.
+
+Advantages:
+* no need for ls, date, basename, grep, awk, sed, ...,
+  which made the make UNIX-specific.
+* Perl is currently available for Unix, OS/2, WIN32, VMS
+  and the scripts should work on all those systems
+
+Disadvantage:
+* You have to get Perl, look e.g. at http://www.perl.com
+
+
+Compile Perl:
+No big deal,
+* on UNIX say 'configure' and 'gnumake',
+* on Windows use MX Visual C++,
+  use File/Open Workspace to open the Makefile {PERL}/perl5i.mak,
+  use Build/Batch build to select eiher the Release or Debug targets.
+
+  You can do the same with the Makefile {Perl}/Ext/WIN32/win32.mak
+  - nice tools but not necessary for EPICS.
+
+  Then call {PERL}/bin/perlw32-install.bat
+
+In any case, read the texts that come with perl!
+
+
diff --git a/src/ca/windows_depen.c b/src/ca/windows_depen.c
index b2b626234..cc461fa49 100644
--- a/src/ca/windows_depen.c
+++ b/src/ca/windows_depen.c
@@ -32,6 +32,9 @@
  *      Modification Log:
  *      -----------------
  * $Log$
+ * Revision 1.25  1997/04/10 19:26:20  jhill
+ * asynch connect, faster connect, ...
+ *
  * Revision 1.24  1997/01/09 22:14:26  jhill
  * installed changes on hostBuild branch
  *
@@ -50,27 +53,6 @@
  * Revision 1.20  1995/12/19  19:36:20  jhill
  * function prototype changes
  *
- * Revision 1.19  1995/11/29  19:15:42  jhill
- * added $Log$
- * added Revision 1.24  1997/01/09 22:14:26  jhill
- * added installed changes on hostBuild branch
- * added
- * added Revision 1.23.2.1  1996/11/25 16:29:18  jhill
- * added stuct=>struct and added debug msg
- * added
- * added Revision 1.23  1996/11/02 00:51:12  jhill
- * added many pc port, const in API, and other changes
- * added
- * added Revision 1.22  1996/09/16 16:40:13  jhill
- * added make EPICS version be the console title
- * added
- * added Revision 1.21  1996/08/05 19:20:29  jhill
- * added removed incorrect ver number
- * added
- * Revision 1.20  1995/12/19  19:36:20  jhill
- * function prototype changes
- * to the header
- *
  */
 
 /*
@@ -496,7 +478,7 @@ BOOL epicsShareAPI DllMain(HANDLE hModule, DWORD dwReason, LPVOID lpReserved)
 						
 #if _DEBUG			  /* for gui applications, setup console for error messages */
 		if (AllocConsole())	{
-			SetConsoleTitle(EPICS_VERSION_STRING);
+			SetConsoleTitle(BASE_VERSION_STRING);
     		freopen( "CONOUT$", "a", stderr );
 		}
 #ifndef NO_PROCESS_MSG
@@ -558,4 +540,3 @@ return TRUE;
 }
 
 
-
diff --git a/src/dbtools/Makefile.Host b/src/dbtools/Makefile.Host
index 3af5bee65..265c3a8a9 100644
--- a/src/dbtools/Makefile.Host
+++ b/src/dbtools/Makefile.Host
@@ -19,14 +19,15 @@ MAN1    := dbLoadTemplate.1 subtool.1
 MAN3    := dbLoadRecords.3 dbLoadTemplate.3
 MAN5    := templatefile.5 dbfile.5
 
+#	---------------------------------------
 #	the BSlib is not ported to WIN32,
 #	this results in less buildable products
-#
+#	---------------------------------------
 ifdef WIN32
 
 #	uses getopt, optind, optarg from lib Com:
 PROD_LIBS := Db Com
-PROD      := dbLoadTemplate
+PROD      := subtool dbLoadTemplate
 
 else
 
@@ -39,8 +40,6 @@ LIBRARY := BSlib
 #	all use BSlib, dbLoadTemplate needs lib Db:
 #	(it doesn't hurt if all link Db...)
 #
-#	but
-#
 PROD_LIBS := BSlib Db Com
 PROD      := subtool dbLoadTemplate rdbls rdbapplist PVSserver
 
diff --git a/src/include/Makefile.Host b/src/include/Makefile.Host
index a671dcb20..fa13a39f9 100644
--- a/src/include/Makefile.Host
+++ b/src/include/Makefile.Host
@@ -8,7 +8,7 @@ INC += epicsVersion.h
 INC += gsd_sync_defs.h
 INC += module_types.h
 INC += shareLib.h
-INC += createSoftLinks.sh 
+#INC += createSoftLinks.sh 
 INC += bsdProto.h
 INC += task_params.h
 INC += osiMutexNOOP.h
@@ -17,15 +17,10 @@ OSINC += osiSock.h
 
 include $(TOP)/config/RULES.Host
 
-include $(TOP)/config/CONFIG_BASE_VERSION
-
+#	This seems to be handled wrong by gnumake:
+#	epicsVersion.h is rebuild in any case,
+#	no matter what date ...CONFIG_BASE_VERSION has
 epicsVersion.h: $(TOP)/config/CONFIG_BASE_VERSION
-	@$(RM) $@
-	@echo "#define EPICS_VERSION           $(EPICS_VERSION)" > $@
-	@echo "#define EPICS_REVISION          $(EPICS_REVISION)" >> $@
-	@echo "#define EPICS_MODIFICATION      $(EPICS_MODIFICATION)" >> $@
-	@echo "#define EPICS_UPDATE_NAME       $(EPICS_UPDATE_NAME)" >> $@
-	@echo "#define EPICS_UPDATE_LEVEL      $(EPICS_UPDATE_LEVEL)" >> $@
-	@echo "#define EPICS_VERSION_STRING    \"$(EPICS_VERSION_STRING)\" " >> $@
-	@echo "#define epicsReleaseVersion \"@(#)$(EPICS_VERSION_STRING) $(CVS_DATE)\" " >> $@
+	perl ../makeEpicsVersion.pl $(TOP)/config/CONFIG_BASE_VERSION
+
 
diff --git a/src/include/makeEpicsVersion.pl b/src/include/makeEpicsVersion.pl
new file mode 100644
index 000000000..5c78fc500
--- /dev/null
+++ b/src/include/makeEpicsVersion.pl
@@ -0,0 +1,36 @@
+#!/usr/local/bin/perl
+#
+
+print "Building epicsVersion.h from CONFIG_BASE_VERSION\n";
+
+die unless $#ARGV==0;
+
+open VARS, $ARGV[0] or die "Cannot get variables from $ARGV[0]";
+
+while (<VARS>)
+{
+	if (/EPICS_VERSION=(.*)/)	{ $ver = $1; }
+	if (/EPICS_REVISION=(.*)/)	{ $rev = $1; }
+	if (/EPICS_MODIFICATION=(.*)/)	{ $mod = $1; }
+	if (/EPICS_UPDATE_NAME=(.*)/)	{ $upd_name = $1; }
+	if (/EPICS_UPDATE_LEVEL=(.*)/)	{ $upd_level = $1; }
+	if (/CVS_DATE="\\(.*)"/)	{ $cvs_date = $1; }
+}
+
+$ver_str = "$ver.$rev.$mod.$upd_name.$upd_level";
+
+print "Found EPICS Version $ver_str\n";
+
+open OUT, ">epicsVersion.h";
+
+print OUT "#define BASE_VERSION        $ver\n";
+print OUT "#define BASE_REVISION       $rev\n";
+print OUT "#define BASE_MODIFICATION   $mod\n";
+print OUT "#define BASE_UPDATE_NAME    $upd_name\n";
+print OUT "#define BASE_UPDATE_LEVEL   $upd_level\n";
+print OUT "#define BASE_VERSION_STRING \"EPICS Version $ver_str\"\n";
+print OUT "#define epicsReleaseVersion \"@(#)Version R$ver_str $cvs_date\"\n";
+
+close OUT;
+
+
diff --git a/src/libCom/Makefile.Host b/src/libCom/Makefile.Host
index 5301978c1..033fec8cb 100644
--- a/src/libCom/Makefile.Host
+++ b/src/libCom/Makefile.Host
@@ -64,9 +64,13 @@ LIBSRCS += macCore.c
 LIBSRCS += macUtil.c
 LIBSRCS += sigPipeIgnore.c
 LIBSRCS += dbmf.c
+LIBSRCS += ipAddrToA.c
 
 #
 # if CPLUSPLUS isnt empty then include C++ src codes
+#	Note: After including/excluding files here,
+#	e.g. the C++ stuff,
+#	please check Com.def!
 #
 LIBSRCS += $(patsubst %,fdManager.cc,$(strip $(CPLUSPLUS)))
 LIBSRCS += $(patsubst %,osiTimer.cc,$(strip $(CPLUSPLUS)))
@@ -75,7 +79,8 @@ LIBSRCS += $(patsubst %,osdTime.cc,$(strip $(CPLUSPLUS)))
 
 #	WIN32 has no getopt, we add it to the Com lib,
 #	special initialisation is done in winmain.c
-LIBSRCS_WIN32 := getopt.c dllmain.cc
+#LIBSRCS_WIN32 := getopt.c dllmain.cc
+LIBSRCS_WIN32 := getopt.c
 
 #       Library to build:
 #       lib$(LIBRARY).a  or   ..dll/..exp/..lib
@@ -92,9 +97,7 @@ PROD_LIBS=Com
 #	tsTest does not use the default tsTest.c:
 #TESTPROD_SRCS=tsSubr.c
 #TESTPROD=tsTest 
-
 #TESTPROD=envtest
-#TESTPROD = errMtst.c
 PROD := impExpand
 
 MAN3 = gpHash.3 freeList.3
@@ -118,29 +121,14 @@ ERR_S_FILES += $(TOP)/src/gdd/gddAppFuncTable.h
 
 include $(TOP)/config/RULES.Host
 
-#	The WIN32 scripts are simpler versions that should
-#	work on all systems.
-#	In order to keep the old ones, however, I moved
-#	the new ones to WIN32.  -kuk-
-#	Improvements:
-#	1) use only the simpler scripts (well,..)
-#	2) use C code instead (yes!)
-#
-ifdef WIN32
-TOOLDIR=../os/WIN32
-else
-TOOLDIR=..
-endif
-
 #	The real dependecies seem to confuse GNUmake:
 #	envData.c is rebuild every time...
 #envData.c: ../envDefs.h $(TOP)/config/CONFIG_ENV $(TOP)/config/CONFIG_SITE_ENV
 envData.c: ../envDefs.h
-	$(TOOLDIR)/bldEnvData $(TOP)/config
+	$(PERL) ../bldEnvData.pl $(TOP)/config
 
 errSymTbl.c: $(ERR_S_FILES)
-	@$(RM) -f errSymTbl.c
-	$(TOOLDIR)/makeStatTbl  $(ERR_S_FILES) >errSymTbl.c
+	$(PERL) ../makeStatTbl.pl  $(ERR_S_FILES)
 
 clean::
 	@$(RM) errSymTbl.c envData.c
diff --git a/src/libCom/Makefile.Vx b/src/libCom/Makefile.Vx
index ddf2577ad..cf64db716 100644
--- a/src/libCom/Makefile.Vx
+++ b/src/libCom/Makefile.Vx
@@ -83,23 +83,15 @@ include $(TOP)/config/RULES.Vx
 clean::
 	@$(RM) errSymTbl.c envData.c
 
-#	In principle the simplified scripts in ../WIN32
-#	should work on all archs, but I decided to
-#	keep the "originals" for now.  -kuk-
-ifeq ($(HOST_ARCH),WIN32)
-TOOLDIR=../os/WIN32
-else
-TOOLDIR=..
-endif
-
-envData.c: ../envDefs.h $(TOP)/config/CONFIG_ENV \
-        $(TOP)/config/CONFIG_SITE_ENV
-	$(TOOLDIR)/bldEnvData $(TOP)/config
+# The (otherwise correct) $(TOP)... dependencies are handled wrong by GNUmake,
+# it rebuilds envData.c in any case:
+#envData.c: ../envDefs.h $(TOP)/config/CONFIG_ENV $(TOP)/config/CONFIG_SITE_ENV
+envData.c: ../envDefs.h
+	$(PERL) ../bldEnvData.pl $(TOP)/config
 
 errSymTbl.o: errSymTbl.c
 	$(COMPILE.c) -o $@ $<
 
 errSymTbl.c: $(ERR_S_FILES)
-	$(RM) errSymTbl.c ;\
-	$(TOOLDIR)/makeStatTbl  $(ERR_S_FILES) >errSymTbl.c
+	$(PERL) ../makeStatTbl.pl  $(ERR_S_FILES)
 
diff --git a/src/libCom/bldEnvData.pl b/src/libCom/bldEnvData.pl
new file mode 100644
index 000000000..55b01d360
--- /dev/null
+++ b/src/libCom/bldEnvData.pl
@@ -0,0 +1,151 @@
+#!/usr/local/bin/perl
+#
+# 	Author: Kay-Uwe Kasemir
+# 	based on bldEnvData shell scripts, Andrew Johnson (RGO)
+# 	Date:	1-30-97
+# 
+# 	Experimental Physics and Industrial Control System (EPICS)
+# 
+#	tool to build envData.c from envDefs.h and config/CONFIG*ENV
+
+use Cwd;
+
+#	We need exactly one argument:
+$usage="Usage:\tbldEnvData <config-Directory>";
+die $usage unless $#ARGV==0;
+
+$start_dir=cwd();
+$config_dir=$ARGV[0];
+
+#	Don't see a reason for this directory hopping,
+#	it's copied from the original:
+chdir $config_dir or die "cannot change dir to $config_dir";
+$config_dir=cwd();
+chdir $start_dir;
+
+$SRC      = "../envDefs.h";
+$env_data = "${config_dir}/CONFIG_ENV";
+$site_data= "${config_dir}/CONFIG_SITE_ENV";
+$out_name = "envData.c";
+$OUT      = "> $out_name";
+
+#	$tool = basename of this script
+$tool=$0;
+$tool=~ s'.*/'';
+
+
+#	Start by extracting the ENV_PARAM declarations from $SRC
+#	i.e. gather the names of params we are interested in:
+#
+open SRC or die "Cannot open $SRC";
+while (<SRC>)
+{
+	if (m'epicsShareExtern[ \t]+const[ \t]+ENV_PARAM[ \t]+([A-Za-z_]+)[ \t;]*')
+	{
+		$need_var{$1} = 1;
+	}
+}
+close SRC;
+
+
+
+# Read the default values from the config file into shell variables
+sub GetVars
+{
+	my ($filename) = @_;
+
+	open IN, $filename or die "Cannot read $filename";
+	while (<IN>)
+	{
+		#      word       space = space rest
+		if (m'([A-Za-z_]+)[ \t]*=[ \t]*(.*)')
+		{
+			$var = $1;
+			# Check if we need that variable:
+			next unless $need_var{$var};
+
+			# cosmetics:
+			# Some vars are given as "",
+			# so that $value{$var} is empty (=undefined).
+			# To avoid "no value for .." warning I use %have_value
+			$have_value{$var} = 1;
+			$value{$var} = $2;
+			# remove '"'
+			if ($value{$var} =~ m'"(.*)"')
+			{
+				$value{$var} = $1;
+			}
+		}
+	}
+	close IN;
+}
+
+GetVars ($env_data);
+GetVars ($site_data);
+
+#	Generate header file
+#
+
+print "Generating $out_name\n";
+
+open OUT or die "cannot create $out_name";
+
+#	Write header
+print OUT "/*\t$out_name\n";
+print OUT " *\n";
+print OUT " *\tcreated by $tool\n";
+print OUT " *\n";
+print OUT " *\tfrom:\n";
+print OUT " *\t$SRC\n";
+print OUT " *\t$env_data\n";
+print OUT " *\t$site_data\n";
+print OUT " *\n";
+print OUT " *\t" . localtime() . "\n";
+print OUT " *\n";
+print OUT " */\n";
+print OUT "\n";
+print OUT "#define epicsExportSharedSymbols\n";
+print OUT "#include \"envDefs.h\"\n";
+print OUT "#include \"shareLib.h\"\n";
+print OUT "\n";
+
+
+#	Print variables
+#
+foreach $var ( sort keys %need_var )
+{
+	if ($have_value{$var})
+	{
+		$default = $value{$var};
+	}
+	else
+	{
+		$default = "";
+		print "Cannot find value for $var\n";
+	}
+
+	printf OUT "epicsShareDecl const ENV_PARAM %s = { \"%s\", \"%s\" };\n",
+		$var, $var, $default;
+}
+
+# Now create an array pointing to all parameters
+
+print OUT "\n";
+print OUT "epicsShareDecl const ENV_PARAM* env_param_list[EPICS_ENV_VARIABLE_COUNT+1] =\n";
+print OUT "{\n";
+
+# Contents are the addresses of each parameter
+foreach $var ( sort keys %need_var )
+{
+	print OUT "\t&$var,\n";
+}
+
+# Finally finish list with 0
+print OUT "\t0\n";
+print OUT "};\n";
+print OUT "\n";
+print OUT "/*\tEOF $out_name */\n";
+
+close OUT;
+
+#	EOF bldEnvData.pl
diff --git a/src/libCom/env/bldEnvData.pl b/src/libCom/env/bldEnvData.pl
new file mode 100644
index 000000000..55b01d360
--- /dev/null
+++ b/src/libCom/env/bldEnvData.pl
@@ -0,0 +1,151 @@
+#!/usr/local/bin/perl
+#
+# 	Author: Kay-Uwe Kasemir
+# 	based on bldEnvData shell scripts, Andrew Johnson (RGO)
+# 	Date:	1-30-97
+# 
+# 	Experimental Physics and Industrial Control System (EPICS)
+# 
+#	tool to build envData.c from envDefs.h and config/CONFIG*ENV
+
+use Cwd;
+
+#	We need exactly one argument:
+$usage="Usage:\tbldEnvData <config-Directory>";
+die $usage unless $#ARGV==0;
+
+$start_dir=cwd();
+$config_dir=$ARGV[0];
+
+#	Don't see a reason for this directory hopping,
+#	it's copied from the original:
+chdir $config_dir or die "cannot change dir to $config_dir";
+$config_dir=cwd();
+chdir $start_dir;
+
+$SRC      = "../envDefs.h";
+$env_data = "${config_dir}/CONFIG_ENV";
+$site_data= "${config_dir}/CONFIG_SITE_ENV";
+$out_name = "envData.c";
+$OUT      = "> $out_name";
+
+#	$tool = basename of this script
+$tool=$0;
+$tool=~ s'.*/'';
+
+
+#	Start by extracting the ENV_PARAM declarations from $SRC
+#	i.e. gather the names of params we are interested in:
+#
+open SRC or die "Cannot open $SRC";
+while (<SRC>)
+{
+	if (m'epicsShareExtern[ \t]+const[ \t]+ENV_PARAM[ \t]+([A-Za-z_]+)[ \t;]*')
+	{
+		$need_var{$1} = 1;
+	}
+}
+close SRC;
+
+
+
+# Read the default values from the config file into shell variables
+sub GetVars
+{
+	my ($filename) = @_;
+
+	open IN, $filename or die "Cannot read $filename";
+	while (<IN>)
+	{
+		#      word       space = space rest
+		if (m'([A-Za-z_]+)[ \t]*=[ \t]*(.*)')
+		{
+			$var = $1;
+			# Check if we need that variable:
+			next unless $need_var{$var};
+
+			# cosmetics:
+			# Some vars are given as "",
+			# so that $value{$var} is empty (=undefined).
+			# To avoid "no value for .." warning I use %have_value
+			$have_value{$var} = 1;
+			$value{$var} = $2;
+			# remove '"'
+			if ($value{$var} =~ m'"(.*)"')
+			{
+				$value{$var} = $1;
+			}
+		}
+	}
+	close IN;
+}
+
+GetVars ($env_data);
+GetVars ($site_data);
+
+#	Generate header file
+#
+
+print "Generating $out_name\n";
+
+open OUT or die "cannot create $out_name";
+
+#	Write header
+print OUT "/*\t$out_name\n";
+print OUT " *\n";
+print OUT " *\tcreated by $tool\n";
+print OUT " *\n";
+print OUT " *\tfrom:\n";
+print OUT " *\t$SRC\n";
+print OUT " *\t$env_data\n";
+print OUT " *\t$site_data\n";
+print OUT " *\n";
+print OUT " *\t" . localtime() . "\n";
+print OUT " *\n";
+print OUT " */\n";
+print OUT "\n";
+print OUT "#define epicsExportSharedSymbols\n";
+print OUT "#include \"envDefs.h\"\n";
+print OUT "#include \"shareLib.h\"\n";
+print OUT "\n";
+
+
+#	Print variables
+#
+foreach $var ( sort keys %need_var )
+{
+	if ($have_value{$var})
+	{
+		$default = $value{$var};
+	}
+	else
+	{
+		$default = "";
+		print "Cannot find value for $var\n";
+	}
+
+	printf OUT "epicsShareDecl const ENV_PARAM %s = { \"%s\", \"%s\" };\n",
+		$var, $var, $default;
+}
+
+# Now create an array pointing to all parameters
+
+print OUT "\n";
+print OUT "epicsShareDecl const ENV_PARAM* env_param_list[EPICS_ENV_VARIABLE_COUNT+1] =\n";
+print OUT "{\n";
+
+# Contents are the addresses of each parameter
+foreach $var ( sort keys %need_var )
+{
+	print OUT "\t&$var,\n";
+}
+
+# Finally finish list with 0
+print OUT "\t0\n";
+print OUT "};\n";
+print OUT "\n";
+print OUT "/*\tEOF $out_name */\n";
+
+close OUT;
+
+#	EOF bldEnvData.pl
diff --git a/src/libCom/error/makeStatTbl.pl b/src/libCom/error/makeStatTbl.pl
new file mode 100644
index 000000000..ccac0d8cc
--- /dev/null
+++ b/src/libCom/error/makeStatTbl.pl
@@ -0,0 +1,102 @@
+#!/usr/local/bin/perl
+#
+#	makeStatTbl.pl - Create Error Symbol Table
+#
+#	Kay-Uwe Kasemir, 1-31-97,
+#	based on makeStatTbl shell script.
+#
+# SYNOPSIS
+# perl makeStatTbl.pl hdir [...]
+#
+# DESCRIPTION
+# This tool creates a symbol table (ERRSYMTAB) structure which contains the
+# names and values of all the status codes defined in the .h files in the
+# specified directory(s).  The status codes must be prefixed with "S_"
+# in order to be included in this table.
+# A "err.h" file must exist in each hdir which defines the module
+# numbers, eg. "M_".  The table is created on standard output.
+#
+# This tool's primary use is for creating an error status table used
+# by errPrint, and errSymFind.
+#
+# FILES
+# errMdef.h   module number file for each h directory
+#
+# SEE ALSO: errnoLib(1), symLib(1)
+#*/
+
+use Cwd;
+
+die "No args (files to parse) given"   if ($#ARGV < 0);
+
+#	parse all lines of all files given:
+while (<>)
+{
+	if (m'^#define[ /t]*S_')
+	{
+		chomp;
+		push @err_sym_line, $_;
+	}
+}
+
+$out_name = "errSymTbl.c";
+$dir = cwd();
+
+open OUT, ">$out_name"  or  die "Cannot open $out_name";
+
+print OUT "/*\n";
+print OUT " * status code symbol table\n";
+print OUT " *\n";
+print OUT " * CREATED BY makeStatTbl.pl\n";
+print OUT " *       FROM $dir\n";
+print OUT " *         ON " . localtime() . "\n";
+print OUT " */\n";
+print OUT "\n";
+print OUT "#include \"errMdef.h\"\n";
+print OUT "#include \"errSymTbl.h\"\n";
+print OUT "\n";
+
+$count = 0;
+foreach $line ( @err_sym_line )
+{
+	print OUT "$line\n";
+	#                    define       S_symbol          /* comment */
+	if ($line =~ m'[ \t#]define[ \t]*(S_[A-Za-z0-9_]+).*\/\*(.+)\*\/')
+	{
+		$symbol[$count] = $1;
+		$comment[$count]= $2;
+		++$count;
+	}
+	else
+	{
+		#	Some status values for '0' (=OK) have no comment:
+		unless ($line =~ m'[ \t#]define[ \t]*(S_[A-Za-z0-9_]+)')
+		{
+			die "cannot decode this line:\n$line\n";
+		}
+	}
+}
+
+
+print OUT "\n";
+print OUT "LOCAL ERRSYMBOL symbols[] =\n";
+print OUT "{\n";
+
+for ($i=0; $i<$count; ++$i)
+{
+	printf OUT "\t{ \"%s\", (long) %s },\n",
+		$comment[$i], $symbol[$i];
+}
+
+print OUT "};\n";
+print OUT "\n";
+print OUT "LOCAL ERRSYMTAB symTbl =\n";
+print OUT "{\n";
+print OUT "\tNELEMENTS(symbols),  /* current number of symbols in table */\n";
+print OUT "\tsymbols,             /* ptr to symbol array */\n";
+print OUT "};\n";
+print OUT "\n";
+print OUT "ERRSYMTAB_ID errSymTbl = &symTbl;\n";
+print OUT "\n";
+print OUT "/*\tEOF $out_name */\n";
+
diff --git a/src/libCom/makeStatTbl.pl b/src/libCom/makeStatTbl.pl
new file mode 100644
index 000000000..ccac0d8cc
--- /dev/null
+++ b/src/libCom/makeStatTbl.pl
@@ -0,0 +1,102 @@
+#!/usr/local/bin/perl
+#
+#	makeStatTbl.pl - Create Error Symbol Table
+#
+#	Kay-Uwe Kasemir, 1-31-97,
+#	based on makeStatTbl shell script.
+#
+# SYNOPSIS
+# perl makeStatTbl.pl hdir [...]
+#
+# DESCRIPTION
+# This tool creates a symbol table (ERRSYMTAB) structure which contains the
+# names and values of all the status codes defined in the .h files in the
+# specified directory(s).  The status codes must be prefixed with "S_"
+# in order to be included in this table.
+# A "err.h" file must exist in each hdir which defines the module
+# numbers, eg. "M_".  The table is created on standard output.
+#
+# This tool's primary use is for creating an error status table used
+# by errPrint, and errSymFind.
+#
+# FILES
+# errMdef.h   module number file for each h directory
+#
+# SEE ALSO: errnoLib(1), symLib(1)
+#*/
+
+use Cwd;
+
+die "No args (files to parse) given"   if ($#ARGV < 0);
+
+#	parse all lines of all files given:
+while (<>)
+{
+	if (m'^#define[ /t]*S_')
+	{
+		chomp;
+		push @err_sym_line, $_;
+	}
+}
+
+$out_name = "errSymTbl.c";
+$dir = cwd();
+
+open OUT, ">$out_name"  or  die "Cannot open $out_name";
+
+print OUT "/*\n";
+print OUT " * status code symbol table\n";
+print OUT " *\n";
+print OUT " * CREATED BY makeStatTbl.pl\n";
+print OUT " *       FROM $dir\n";
+print OUT " *         ON " . localtime() . "\n";
+print OUT " */\n";
+print OUT "\n";
+print OUT "#include \"errMdef.h\"\n";
+print OUT "#include \"errSymTbl.h\"\n";
+print OUT "\n";
+
+$count = 0;
+foreach $line ( @err_sym_line )
+{
+	print OUT "$line\n";
+	#                    define       S_symbol          /* comment */
+	if ($line =~ m'[ \t#]define[ \t]*(S_[A-Za-z0-9_]+).*\/\*(.+)\*\/')
+	{
+		$symbol[$count] = $1;
+		$comment[$count]= $2;
+		++$count;
+	}
+	else
+	{
+		#	Some status values for '0' (=OK) have no comment:
+		unless ($line =~ m'[ \t#]define[ \t]*(S_[A-Za-z0-9_]+)')
+		{
+			die "cannot decode this line:\n$line\n";
+		}
+	}
+}
+
+
+print OUT "\n";
+print OUT "LOCAL ERRSYMBOL symbols[] =\n";
+print OUT "{\n";
+
+for ($i=0; $i<$count; ++$i)
+{
+	printf OUT "\t{ \"%s\", (long) %s },\n",
+		$comment[$i], $symbol[$i];
+}
+
+print OUT "};\n";
+print OUT "\n";
+print OUT "LOCAL ERRSYMTAB symTbl =\n";
+print OUT "{\n";
+print OUT "\tNELEMENTS(symbols),  /* current number of symbols in table */\n";
+print OUT "\tsymbols,             /* ptr to symbol array */\n";
+print OUT "};\n";
+print OUT "\n";
+print OUT "ERRSYMTAB_ID errSymTbl = &symTbl;\n";
+print OUT "\n";
+print OUT "/*\tEOF $out_name */\n";
+
diff --git a/src/libCom/misc/makeEpicsVersion.pl b/src/libCom/misc/makeEpicsVersion.pl
new file mode 100644
index 000000000..5c78fc500
--- /dev/null
+++ b/src/libCom/misc/makeEpicsVersion.pl
@@ -0,0 +1,36 @@
+#!/usr/local/bin/perl
+#
+
+print "Building epicsVersion.h from CONFIG_BASE_VERSION\n";
+
+die unless $#ARGV==0;
+
+open VARS, $ARGV[0] or die "Cannot get variables from $ARGV[0]";
+
+while (<VARS>)
+{
+	if (/EPICS_VERSION=(.*)/)	{ $ver = $1; }
+	if (/EPICS_REVISION=(.*)/)	{ $rev = $1; }
+	if (/EPICS_MODIFICATION=(.*)/)	{ $mod = $1; }
+	if (/EPICS_UPDATE_NAME=(.*)/)	{ $upd_name = $1; }
+	if (/EPICS_UPDATE_LEVEL=(.*)/)	{ $upd_level = $1; }
+	if (/CVS_DATE="\\(.*)"/)	{ $cvs_date = $1; }
+}
+
+$ver_str = "$ver.$rev.$mod.$upd_name.$upd_level";
+
+print "Found EPICS Version $ver_str\n";
+
+open OUT, ">epicsVersion.h";
+
+print OUT "#define BASE_VERSION        $ver\n";
+print OUT "#define BASE_REVISION       $rev\n";
+print OUT "#define BASE_MODIFICATION   $mod\n";
+print OUT "#define BASE_UPDATE_NAME    $upd_name\n";
+print OUT "#define BASE_UPDATE_LEVEL   $upd_level\n";
+print OUT "#define BASE_VERSION_STRING \"EPICS Version $ver_str\"\n";
+print OUT "#define epicsReleaseVersion \"@(#)Version R$ver_str $cvs_date\"\n";
+
+close OUT;
+
+
diff --git a/src/libCom/os/WIN32/README.getopt b/src/libCom/os/WIN32/README.getopt
new file mode 100644
index 000000000..815329b73
--- /dev/null
+++ b/src/libCom/os/WIN32/README.getopt
@@ -0,0 +1,4 @@
+I took this from the GNU grep sources that should
+also be part of the NT tools of this EPICS release.
+
+-kuk-
diff --git a/src/sequencer/Makefile.Host b/src/sequencer/Makefile.Host
index aaf7d0bb3..b0e2b039c 100644
--- a/src/sequencer/Makefile.Host
+++ b/src/sequencer/Makefile.Host
@@ -30,9 +30,8 @@ include $(TOP)/config/RULES.Host
 #
 snc.c: snc_lex.c
 
-sncVersion.c: ../Version
-	$(RM) sncVersion.c
-	../makeVersion ../Version > sncVersion.c
+sncVersion.c: ../Version ../makeVersion.pl
+	$(PERL) ../makeVersion.pl ../Version sncVersion
 
 clean::
 	@$(RM) y.output sncVersion.c snc_lex.c snc.c snc.h
diff --git a/src/sequencer/Makefile.Vx b/src/sequencer/Makefile.Vx
index bc445f94b..d3ada5438 100644
--- a/src/sequencer/Makefile.Vx
+++ b/src/sequencer/Makefile.Vx
@@ -22,6 +22,5 @@ $(PROD): $(OBJS)
 	$(RM) $@
 	$(LINK.c) $@ $(OBJS) $(LDLIBS)
 
-seqVersion.c: ../Version
-	$(RM) seqVersion.c
-	../makeSeqVersion ../Version > seqVersion.c
+seqVersion.c: ../Version ../makeVersion.pl
+	$(PERL) ../makeVersion.pl ../Version seqVersion
diff --git a/src/sequencer/makeVersion.pl b/src/sequencer/makeVersion.pl
new file mode 100644
index 000000000..aef6f6cd4
--- /dev/null
+++ b/src/sequencer/makeVersion.pl
@@ -0,0 +1,22 @@
+#!/usr/local/bin/perl 
+#
+# makeVersion - create the snc version module
+#
+# Usage: perl makeVersion.pl {Version_file} {Symbol Name}
+
+$version_file = $ARGV[0];
+$symbol = $ARGV[1];
+$out = "$symbol.c";
+
+open IN, $version_file  or  die "Cannot open $version_file";
+$version=<IN>;
+chomp $version;
+close IN;
+
+$date = localtime();
+
+open OUT, ">$out"  or  die "Cannot create $out";
+print OUT "/* $out - version & date */\n";
+print OUT "/* Created by makeVersion.pl */\n";
+print OUT "char *$symbol = \"\@(#)SNC/SEQ Version $version : $date\";\n";
+close OUT;
diff --git a/src/tools/Makefile.Host b/src/tools/Makefile.Host
index 214a16b0f..69e15cf06 100644
--- a/src/tools/Makefile.Host
+++ b/src/tools/Makefile.Host
@@ -5,57 +5,18 @@ TOP = ../../..
 include $(TOP)/config/CONFIG_BASE
 
 #	install these scripts:
-SCRIPTS := installEpics getrel makeBaseApp
+#
+#	WIN32 also uses rm.pl, cp.pl, mkdir.pl, rmdir.pl
+#	byt they are called from here, not installed
+SCRIPTS       := installEpics.pl makeBaseApp.pl
 
-#	But: before anything is done, installEpics has to be in place
+#	Before anything is done, installEpics has to be in place.
 #	The first action in a full build & install is 'make inc.host',
 #	that's where we hook into:
-inc:: $(INSTALL_BIN)/installEpics
+inc:: $(INSTALL_BIN)/installEpics.pl
 
-
-#	This Makefile.Host is ugly
-#	because the install process (chmod ...)
-#	is different for WIN32.
-#
-#	This is usually hidden in installEpics,
-#	but we are about to install installEpics...
-#
-#	The same applies to the 'os' directory:
-#	If we are on e.g. WIN32 and have os/WIN32/stuff,
-#	that whould have precedence over ./stuff.
-#	But again: we are just installing the Makesystem here.
-#
-#	-kuk-
-
-ifdef WIN32
-
-$(INSTALL_BIN)/installEpics: ../os/WIN32/installEpics
-	@echo "Installing $@ for WIN32"
-	@../os/WIN32/testmkdir $(INSTALL_LOCATION_BIN)
-	@../os/WIN32/testmkdir $(INSTALL_BIN)
-	@../os/WIN32/installEpics ../os/WIN32/testmkdir    $(INSTALL_BIN)
-	@../os/WIN32/installEpics ../os/WIN32/installEpics $(INSTALL_BIN)
-else
-
-$(INSTALL_BIN)/installEpics: testmkdir installEpics 
-	@echo "Installing $@"
-	@./testmkdir $(INSTALL_LOCATION_BIN)
-	@./testmkdir $(INSTALL_BIN)
-	@./installEpics -m 555 testmkdir $(INSTALL_BIN)
-	@./installEpics -m 555 installEpics $(INSTALL_BIN)
-
-#	make sure the scripts are executable:
-testmkdir: ../testmkdir
-	@$(RM) $@
-	@$(CP) $< $@
-	@$(CHMOD) 755 $@
-
-installEpics: ../installEpics
-	@$(RM) $@
-	@$(CP) $< $@
-	@$(CHMOD) 755 $@
-
-endif
+$(INSTALL_BIN)/installEpics.pl: ../installEpics.pl
+	$(PERL) ../installEpics.pl -d -m 555 ../installEpics.pl $(INSTALL_BIN)
 
 include $(TOP)/config/RULES.Host
 
diff --git a/src/tools/cp.pl b/src/tools/cp.pl
new file mode 100644
index 000000000..a1fea0eb4
--- /dev/null
+++ b/src/tools/cp.pl
@@ -0,0 +1,39 @@
+#!/usr/local/bin/perl
+#
+#	UNIX-cp in Perl
+
+use File::Copy;
+
+sub Usage
+{
+	my ($txt) = @_;
+
+	print "Usage:\n";
+	print "\tcp file1 file2\n";
+	print "\tcp file [ file2 file3 ...] directory\n";
+	print "\nError: $txt\n" if $txt;
+
+	exit 2;
+}
+
+# need at least two args: ARGV[0] and ARGV[1]
+Usage("need more args") if $#ARGV < 1;
+
+$target=$ARGV[$#ARGV];
+@sources=@ARGV[0..$#ARGV-1];
+
+if (-d $target)
+{
+	foreach $file ( @sources )
+	{
+		copy ($file, "$target/$file");
+	}
+}
+else
+{
+	Usage("Cannot copy more than one source into a single target")
+		if ($#sources != 0);
+	copy ($sources[0], $target);
+}
+
+# EOF cp.pl
diff --git a/src/tools/installEpics.pl b/src/tools/installEpics.pl
new file mode 100644
index 000000000..2bf171808
--- /dev/null
+++ b/src/tools/installEpics.pl
@@ -0,0 +1,108 @@
+#!/usr/local/bin/perl
+#
+#	InstallEpics.pl
+#
+#	InstallEpics is used within makefiles to copy new versions of
+#	files into a destination directory.
+#	Based on installEpics shell script.
+#
+#	2-4-97 -kuk-
+#
+##########################################################
+
+use Getopt::Std;
+use File::Path;
+use File::Copy;
+
+$tool=$0;
+$tool=~ s'.*[/\\].+'';	# basename
+$mode=0755;
+
+# get command line options
+getopt "m";
+$mode = oct ($opt_m) if ($opt_m);
+
+#	Complain about obsolete options:
+Usage("unknown option given") if ($opt_g or $opt_o or $opt_c or $opt_s);
+
+$num_files = $#ARGV;
+# at least two args required
+Usage ("Nothing to install") if ($num_files < 1);
+
+#	split args in file1 ... fileN target_dir:
+@files=@ARGV[0..$num_files-1];
+$install_dir=$ARGV[$num_files];
+$install_dir =~ s[\\][/]g;	# maybe fix DOS-style path
+$install_dir =~ s[/$][];	# remove trailing '/'
+
+#	Do we have to create the directory?
+unless (-d $install_dir)
+{
+	#	Create dir only if -d option given
+	Usage ("$install_dir does not exist") unless ($opt_d);
+
+	#	Create all the subdirs that lead to $install_dir
+	mkpath ($install_dir, 1, 0777);
+}
+
+foreach $source ( @files )
+{
+	Usage ("Can't find file '$source'") unless -f $source;
+
+	$basename=$source;
+	$basename=~s'.*[/\\]'';
+	$target  = "$install_dir/$basename";
+
+	#	The Win32 filesystem seems to be 'slow',
+	#	i.e. $target may look like 'up to date'
+	#	unless you wait an hour.
+	#	-> skip this test on WIN32 ?
+	#if (-f $target  and  $^O ne "MSWin32")
+	if (-f $target)
+	{
+		if (-M $target  <  -M $source    and
+		    -C $target  <  -C $source)
+		{
+			print "$target is up to date\n";
+			next;
+		}
+		else
+		{
+			#	remove old target, make sure it is deletable:
+			chmod 0777, $target;
+			unlink $target;
+		}
+	}
+
+	# print "Installing $source into $install_dir\n";
+	copy ($source, $target) or die "Copy failed";
+
+	#	chmod 0555 <read-only> DOES work on WIN32, but:
+	#	Another chmod 0777 to make it write- and deletable
+	#	will then fail.
+	#	-> you have to use Win32::SetFileAttributes
+	#	   to get rid of those files from within Perl.
+	#	Because the chmod is not really needed on WIN32,
+	#	just skip it!
+	chmod $mode, $target unless ($^O eq "MSWin32");
+}
+
+sub Usage
+{
+	my ($txt) = @_;
+
+	print "Usage:\n";
+	print "\t$tool [ -m mode ] file ... directory\n";
+	print "\n";
+	print "\t-d             Create non-exising directories\n";
+	print "\t-m mode        Set the mode for the installed file";
+		print " (0755 by default)\n";
+	print "\tfile           Name of file\n";
+	print "\tdirectory      Destination directory\n";
+
+	print "$txt\n" if $txt;
+
+	exit 2;
+}
+
+#	EOF installEpics.pl
diff --git a/src/tools/makeBaseApp.pl b/src/tools/makeBaseApp.pl
new file mode 100644
index 000000000..0ef13bfa4
--- /dev/null
+++ b/src/tools/makeBaseApp.pl
@@ -0,0 +1,1023 @@
+#!/usr/local/bin/perl
+#
+#	Author: Kay-Uwe Kasemir,
+#	based on Marty Kraimer's makeBaseApp
+#
+#	1-27-97
+#
+#	Notes:
+#	1) The perl location /usr/local/bin/perl may be wrong,
+#	   the safest way to run this script is via a direct
+#		perl <script>
+#	2) You need Perl 5.x to run this.
+#	   Get it from http://www.perl.com if you don't have it, yet.
+
+#	These extensions come with the basic perl distribution
+#	and ran on sun4 and WIN32:
+use Cwd;
+use Getopt::Std;
+use File::Copy;
+
+$startdir=cwd();
+#	remove auto-mount path which confuses directory name comparison
+$startdir=~s'^/tmp_mnt'';
+
+Cleanup (1, "Shouldn't run in Home Directory") if (GetHome() eq $startdir);
+print "I hope that '$startdir' is NOT your home directory\n";
+
+
+#	look for options
+getopt("b");
+if ($opt_e)
+{
+	$example=1;
+}
+
+$user=GetUser();
+@apps=@ARGV;
+
+#	if this script was called with full path to base,
+#	extract EPICS/base.
+#	(this failes for '/base/' starting at root but that's unlikely)
+if ($0 =~ m'(/.*/base)/bin/')
+{
+	$epics_base = $1;
+}
+else
+{
+	$epics_base=$opt_b if ($opt_b);
+}
+
+Cleanup (1,"Cannot find EPICS base, use full path or '-b'") unless $epics_base;
+
+print "Found EPICS base: $epics_base\n";
+
+unless (-f 'Makefile')
+{
+	print "Creating Makefile\n";
+
+	open OUT, ">Makefile" or die "Cannot open Makefile";
+	print OUT "#\tMakefile generated by makeBaseApp.pl\n";
+	print OUT "TOP = .\n";
+	print OUT "include \$(TOP)/config/CONFIG_APP\n";
+	print OUT "DIRS += \$(wildcard *App)\n";
+	print OUT "DIRS += iocBoot\n";
+	print OUT "include \$(TOP)/config/RULES_TOP\n";
+	close OUT;
+}
+
+unless (-d 'config')
+{
+	mkdir 'config', 0777;
+	chdir 'config' or die "Cannot create config directory";
+
+	print "Creating files in 'config'\n";
+
+	open OUT, ">CONFIG" or die "Cannot create CONFIG";
+	print OUT "#\tCONFIG\n";
+	print OUT "# Add any changes to make rules here\n";
+	print OUT "#CROSS_COMPILER_TARGET_ARCHS = mv167\n";
+	close OUT;
+
+	open OUT, ">CONFIG_APP" or die "Cannot create CONFIG_APP";
+	print OUT "#\tCONFIG_APP DO NOT EDIT THIS FILE\n";
+	print OUT "include \$(TOP)/config/RELEASE\n";
+	print OUT "ifndef T_A\n";
+	print OUT "T_A = \$(HOST_ARCH)\n";
+	print OUT "endif\n";
+	print OUT "include \$(EPICS_BASE)/config/CONFIG\n";
+
+	print OUT "ifdef SHARE\n";
+	print OUT "USR_INCLUDES += -I\$(SHARE)/include\n";
+	print OUT "SHARE_BIN = \$(SHARE)/bin/\$(T_A)\n";
+	print OUT "endif\n";
+
+	print OUT "ifdef MASTER_IOCAPPS\n";
+	print OUT "USR_INCLUDES += -I\$(MASTER_IOCAPPS)/include\n";
+	print OUT "MASTER_IOCAPPS_BIN = \$(MASTER_IOCAPPS)/bin/\$(T_A)\n";
+	print OUT "endif\n";
+	print OUT "include \$(TOP)/config/CONFIG\n";
+	close OUT;
+
+	open OUT, ">RELEASE" or die "Cannot create RELEASE";
+	print OUT "#\tRELEASE Location of external products\n";
+	print OUT "EPICS_BASE=$epics_base\n";
+	print OUT "#SHARE=\n";
+	print OUT "#MASTER_IOCAPPS=\n";
+	close OUT;
+
+	open OUT, ">RULES.Vx" or die "Cannot create RULES.Vx";
+	print OUT "#\tRULES.Vx\n";
+	print OUT "include \$(EPICS_BASE)/config/RULES.Vx\n";
+	print OUT "VX_WARN_YES = -Wall -pedantic\n";
+	close OUT;
+
+	open OUT, ">RULES_TOP" or die "Cannot create RULES_TOP";
+	print OUT "#\tRULES_TOP\n";
+	print OUT "include \$(EPICS_BASE)/config/RULES_TOP\n";
+	print OUT "\n";
+	print OUT "ifdef MASTER_IOCAPPS\n";
+	print OUT "inc:\tsoftlinks\n";
+	print OUT "buildInstall:\tsoftlinks\n";
+	print OUT "\n";
+	print OUT "softlinks:\n";
+	print OUT "\t\@echo \"softlinks\"\n";
+	foreach $dir ( 'bin', 'lib', 'dbd', 'include', 'man' )
+	{
+		print OUT "\t\$(SHARE)/config/makeSoftLinks ";
+		print OUT "\$(MASTER_IOCAPPS) $dir\n";
+	}
+	print OUT "\n";
+	print OUT ".PHONY :: softlinks\n";
+	print OUT "endif\n";
+	close OUT;
+
+	#	Simple config files that just include the BASE version:
+	foreach $file ( 'RULES.Db', 'RULES.Host', 'RULES.ioc',
+					'RULES_ARCHS', 'RULES_DIRS')
+	{
+		open OUT, ">$file" or die "Cannot create $file";
+		print OUT "#\t$file\n";
+		print OUT "include \$(EPICS_BASE)/config/$file\n";
+		close OUT;
+	}
+	chdir $startdir or die 'cannot return to start directory';
+}
+
+#	Generate app dirs (if any names given)
+#
+foreach $app ( @apps )
+{
+	print "Creating Application '$app'\n";
+	print "with example\n" if $example;
+
+	if (-d "${app}App")
+	{
+		print "App '$app' is already there!\n";
+		next;
+	}
+
+	mkdir "${app}App", 0777;
+	chdir "${app}App" or die "Cannor create dir ${app}App";
+
+	open OUT, ">Makefile" or die "Cannot open Makefile";
+	print OUT "TOP = ..\n";
+	print OUT "include \$(TOP)/config/CONFIG_APP\n";
+	print OUT "DIRS += \$(wildcard src)\n";
+	print OUT "DIRS += \$(wildcard Db)\n";
+	print OUT "include \$(TOP)/config/RULES_DIRS\n";
+	close OUT;
+
+	mkdir "Db", 0777;
+	open OUT, ">Db/Makefile" or die "Cannot open Db/Makefile";
+	print OUT "TOP = ../..\n";
+	print OUT "include \$(TOP)/config/CONFIG_APP\n";
+	print OUT "\n";
+	print OUT "include \$(TOP)/config/RULES.Db\n";
+	close OUT;
+
+	if ($example)
+	{
+		open OUT, ">Db/dbExample.db" or
+						die "Cannot open Db/dbExample.db";
+		print OUT "record(ai, \"\$(user):aiExample\")\n";
+		print OUT "{\n";
+		print OUT "\tfield(DESC, \"Analog input\")\n";
+		print OUT "\tfield(INP,  \"\$(user):calcExample.VAL NPP NMS\")\n";
+		print OUT "\tfield(EGUF, \"10\")\n";
+		print OUT "\tfield(EGU,  \"Counts\")\n";
+		print OUT "\tfield(HOPR, \"10\")\n";
+		print OUT "\tfield(LOPR, \"0\")\n";
+		print OUT "\tfield(HIHI, \"8\")\n";
+		print OUT "\tfield(HIGH, \"6\")\n";
+		print OUT "\tfield(LOW,  \"4\")\n";
+		print OUT "\tfield(LOLO, \"2\")\n";
+		print OUT "\tfield(HHSV, \"MAJOR\")\n";
+		print OUT "\tfield(HSV,  \"MINOR\")\n";
+		print OUT "\tfield(LSV,  \"MINOR\")\n";
+		print OUT "\tfield(LLSV, \"MAJOR\")\n";
+		print OUT "}\n";
+		print OUT "record(calc, \"\$(user):calcExample\")\n";
+		print OUT "{\n";
+		print OUT "\tfield(DESC, \"Counter\")\n";
+		print OUT "\tfield(SCAN, \"1 second\")\n";
+		print OUT "\tfield(FLNK, \"\$(user):aiExample\")\n";
+		print OUT "\tfield(CALC, \"(A<B)?(A+C):D\")\n";
+		print OUT "\tfield(INPA, \"\$(user):calcExample.VAL NPP NMS\")\n";
+		print OUT "\tfield(INPB, \"9\")\n";
+		print OUT "\tfield(INPC, \"1\")\n";
+		print OUT "\tfield(INPD, \"0\")\n";
+		print OUT "\tfield(EGU,  \"Counts\")\n";
+		print OUT "\tfield(HOPR, \"10\")\n";
+		print OUT "\tfield(HIHI, \"8\")\n";
+		print OUT "\tfield(HIGH, \"6\")\n";
+		print OUT "\tfield(LOW,  \"4\")\n";
+		print OUT "\tfield(LOLO, \"2\")\n";
+		print OUT "\tfield(HHSV, \"MAJOR\")\n";
+		print OUT "\tfield(HSV,  \"MINOR\")\n";
+		print OUT "\tfield(LSV,  \"MINOR\")\n";
+		print OUT "\tfield(LLSV, \"MAJOR\")\n";
+		print OUT "}\n";
+		print OUT "record(xxx, \"\$(user):xxxExample\")\n";
+		print OUT "{\n";
+		print OUT "\tfield(DESC, \"xxx record\")\n";
+		print OUT "\tfield(EGU,  \"Counts\")\n";
+		print OUT "\tfield(HOPR, \"10\")\n";
+		print OUT "\tfield(HIHI, \"8\")\n";
+		print OUT "\tfield(HIGH, \"6\")\n";
+		print OUT "\tfield(LOW,  \"4\")\n";
+		print OUT "\tfield(LOLO, \"2\")\n";
+		print OUT "\tfield(HHSV, \"MAJOR\")\n";
+		print OUT "\tfield(HSV,  \"MINOR\")\n";
+		print OUT "\tfield(LSV,  \"MINOR\")\n";
+		print OUT "\tfield(LLSV, \"MAJOR\")\n";
+		print OUT "}\n";
+	}
+
+	mkdir 'src', 0777;
+
+	open OUT, ">src/Makefile" or die "Cannot open src/Makefile";
+	print OUT "TOP=../..\n";
+	print OUT "include \$(TOP)/config/CONFIG_APP\n";
+	print OUT "include \$(TOP)/config/RULES_ARCHS\n";
+	close OUT;
+
+	open OUT, ">src/Makefile.Vx" or die "Cannot open src/Makefile.Vx";
+	print OUT "# Makefile.Vx\n";
+	print OUT "TOP = ../../..\n";
+	print OUT "include \$(TOP)/config/CONFIG_APP\n";
+	print OUT "#----------------------------------------\n";
+	print OUT "#  ADD MACRO DEFINITIONS AFTER THIS LINE\n";
+
+	# OUT still set to Makefile.Vx
+	if ( $example)
+	{
+		print OUT "RECTYPES += xxxRecord.h\n";
+		print OUT "USER_DBDFLAGS += -I .. -I \$(EPICS_BASE)/dbd\n";
+		print OUT "DBDEXPAND = ${app}Include.dbd\n";
+		print OUT "DBDNAME = ${app}App.dbd\n";
+		print OUT "SRCS.c += ../xxxRecord.c\n";
+		print OUT "SRCS.c += ../devXxxSoft.c\n";
+		print OUT "\n";
+		print OUT "include ../baseLIBOBJS\n";
+		print OUT "LIBOBJS += xxxRecord.o\n";
+		print OUT "LIBOBJS += devXxxSoft.o\n";
+		print OUT "LIBOBJS += sncExample.o\n";
+		print OUT "LIBNAME = ${app}Lib\n";
+		print OUT "INSTALLS += vxWorks vxWorks.sym iocCore seq\n";
+	}
+	else
+	{
+		print OUT "#RECTYPES += anyRecord.h\n";
+		print OUT "USER_DBDFLAGS += -I .. -I \$(EPICS_BASE)/dbd\n";
+		print OUT "#DBDEXPAND = ${app}Include.dbd\n";
+		print OUT "#DBDNAME = ${app}App.dbd\n";
+		print OUT "#SRCS.c += ../anysource.c\n";
+		print OUT "\n";
+		print OUT "#include ../baseLIBOBJS\n";
+		print OUT "#LIBOBJS += anysource.o\n";
+		print OUT "#LIBNAME = ${app}Lib\n";
+		print OUT "#INSTALLS += vxWorks vxWorks.sym iocCore seq\n";
+	}
+
+	# OUT still set to Makefile.Vx...
+	print OUT "\n";
+	print OUT "#\tNote that the command line that builds the\n";
+	print OUT "#\tlibrary \$(LIBNAME) may be HUGE (>3kB)\n";
+	print OUT "#\n";
+	print OUT "\n";
+	print OUT "include \$(TOP)/config/RULES.Vx\n";
+	print OUT "#----------------------------------------\n";
+	print OUT "#  ADD RULES AFTER THIS LINE\n";
+	print OUT "inc:: \$(INSTALL_INCREC)\n";
+
+	close OUT;
+
+	open OUT, ">src/Makefile.Host"
+		or die "Cannot open src/Makefile.Host";
+
+	print OUT "# Makefile.Host\n";
+	print OUT "TOP = ../../..\n";
+	print OUT "include \$(TOP)/config/CONFIG_APP\n";
+	print OUT "#----------------------------------------\n";
+	print OUT "#  ADD MACRO DEFINITIONS AFTER THIS LINE\n";
+	print OUT "\n";
+	print OUT "#USR_CFLAGS += \n";
+	print OUT "PROD_LIBS_DEFAULT += m\n";
+	print OUT "PROD_LIBS_WIN32 := -nil-\n";
+	print OUT "PROD_LIBS	+= ca\n";
+	print OUT "PROD_LIBS	+= Db\n";
+	print OUT "PROD_LIBS	+= Com\n";
+	print OUT "\n";
+
+	if ($example)
+	{
+		print OUT "PROD += caExample\n";
+	}
+	else
+	{
+		print OUT "#PROD += xxx\n";
+	}
+
+	# OUT still set to src/Makefile.Host...
+	print OUT "\n";
+	print OUT "include \$(TOP)/config/RULES.Host\n";
+	print OUT "#----------------------------------------\n";
+	print OUT "#  ADD RULES AFTER THIS LINE\n";
+
+	close OUT;
+
+	open OUT, ">src/${app}Include.dbd"
+		or die "Cannot open src/${app}Include.dbd";
+	print OUT "include \"base.dbd\"\n";
+	if ($example)
+	{
+		print OUT "include \"xxxRecord.dbd\"\n";
+		print OUT "device(xxx,CONSTANT,devXxxSoft,\"SoftChannel\")\n";
+	}
+	else
+	{
+		print OUT "#private database definitions go here\n";
+		print OUT "#device(xxx,CONSTANT,devXxxSoft,\"SoftChannel\")\n";
+	}
+	close OUT;
+
+
+	if ( -f "${epics_base}/dbd/base.dbd" )
+	{	copy ("${epics_base}/dbd/base.dbd", "src/base.dbd"); }
+	else
+	{	print "${epics_base}/dbd/base.dbd does not exist" }
+
+	if ( -f "${epics_base}/dbd/baseLIBOBJS" )
+	{	copy ("${epics_base}/dbd/baseLIBOBJS", "src/baseLIBOBJS"); }
+	else
+	{	print "${epics_base}/dbd/baseLIBOBJS does not exist" }
+
+
+	if ($example)
+	{
+		open OUT, ">src/caExample.c" or
+			die "Cannot open src/caExample.c";
+
+		print OUT '
+/* caExample.c */
+#include <stddef.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "cadef.h"
+
+main (int argc,char **argv)
+{
+	double	data;
+	int	status;
+	chid	mychid;
+
+	if(argc != 2)
+	{
+		fprintf(stderr, "usage: caExample pvname\n");
+		exit(1);
+	}
+	SEVCHK( ca_task_initialize(),                   "ca_task_initialize");
+	SEVCHK( ca_search(argv[1],&mychid),             "ca_search failure");
+	SEVCHK( ca_pend_io(5.0),                        "ca_pend_io failure");
+	SEVCHK( ca_get(DBR_DOUBLE,mychid,(void *)&data),"ca_get failure");
+	SEVCHK( ca_pend_io(5.0),                        "ca_pend_io failure");
+	printf("%s %f\n", argv[1], data);
+	return(0);
+}
+
+/*	EOF caExample.c */
+';
+
+		close OUT;
+
+		open OUT, ">src/xxxRecord.c" or
+			die "Cannot open src/xxxRecord.c";
+
+		print OUT '
+/* xxxRecord.c */
+/* Example record support module */
+  
+#include <vxWorks.h>
+#include <stddef.h>
+#include <stdio.h>
+#include <lstLib.h>
+#include <string.h>
+
+#include <alarm.h>
+#include <dbEvent.h>
+#include <dbDefs.h>
+#include <dbAccess.h>
+#include <devSup.h>
+#include <errMdef.h>
+#include <recSup.h>
+#include <special.h>
+#define GEN_SIZE_OFFSET
+#include <xxxRecord.h>
+#undef  GEN_SIZE_OFFSET
+
+/* Create RSET - Record Support Entry Table*/
+#define report NULL
+#define initialize NULL
+static long init_record();
+static long process();
+#define special NULL
+#define get_value NULL
+#define cvt_dbaddr NULL
+#define get_array_info NULL
+#define put_array_info NULL
+static long get_units();
+static long get_precision();
+#define get_enum_str NULL
+#define get_enum_strs NULL
+#define put_enum_str NULL
+static long get_graphic_double();
+static long get_control_double();
+static long get_alarm_double();
+ 
+struct rset xxxRSET={
+	RSETNUMBER,
+	report,
+	initialize,
+	init_record,
+	process,
+	special,
+	get_value,
+	cvt_dbaddr,
+	get_array_info,
+	put_array_info,
+	get_units,
+	get_precision,
+	get_enum_str,
+	get_enum_strs,
+	put_enum_str,
+	get_graphic_double,
+	get_control_double,
+	get_alarm_double};
+
+typedef struct xxxset { /* xxx input dset */
+	long		number;
+	DEVSUPFUN	dev_report;
+	DEVSUPFUN	init;
+	DEVSUPFUN	init_record; /*returns: (-1,0)=>(failure,success)*/
+	DEVSUPFUN	get_ioint_info;
+	DEVSUPFUN	read_xxx;
+}xxxdset;
+
+static void alarm(xxxRecord *pxxx);
+static void monitor(xxxRecord *pxxx);
+
+static long init_record(void *precord,int pass)
+{
+	xxxRecord	*pxxx = (xxxRecord *)precord;
+	xxxdset	*pdset;
+	long	status;
+
+	if (pass==0) return(0);
+
+	if(!(pdset = (xxxdset *)(pxxx->dset))) {
+	recGblRecordError(S_dev_noDSET,(void *)pxxx,"xxx: init_record");
+	return(S_dev_noDSET);
+	}
+	/* must have read_xxx function defined */
+	if( (pdset->number < 5) || (pdset->read_xxx == NULL) ) {
+	recGblRecordError(S_dev_missingSup,(void *)pxxx,"xxx: init_record");
+	return(S_dev_missingSup);
+	}
+
+	if( pdset->init_record ) {
+	if((status=(*pdset->init_record)(pxxx))) return(status);
+	}
+	return(0);
+}
+
+static long process(void *precord)
+{
+	xxxRecord	*pxxx = (xxxRecord *)precord;
+	xxxdset		*pdset = (xxxdset *)(pxxx->dset);
+	long		 status;
+	unsigned char    pact=pxxx->pact;
+
+	if( (pdset==NULL) || (pdset->read_xxx==NULL) ) {
+		pxxx->pact=TRUE;
+		recGblRecordError(S_dev_missingSup,(void *)pxxx,"read_xxx");
+		return(S_dev_missingSup);
+	}
+
+	/* pact must not be set until after calling device support */
+	status=(*pdset->read_xxx)(pxxx);
+	/* check if device support set pact */
+	if ( !pact && pxxx->pact ) return(0);
+	pxxx->pact = TRUE;
+
+	recGblGetTimeStamp(pxxx);
+	/* check for alarms */
+	alarm(pxxx);
+	/* check event list */
+	monitor(pxxx);
+	/* process the forward scan link record */
+		recGblFwdLink(pxxx);
+
+	pxxx->pact=FALSE;
+	return(status);
+}
+
+static long get_units(DBADDR *paddr, char *units)
+{
+	xxxRecord	*pxxx=(xxxRecord *)paddr->precord;
+
+	strncpy(units,pxxx->egu,DB_UNITS_SIZE);
+	return(0);
+}
+
+static long get_precision(DBADDR *paddr, long *precision)
+{
+	xxxRecord	*pxxx=(xxxRecord *)paddr->precord;
+
+	*precision = pxxx->prec;
+	if(paddr->pfield == (void *)&pxxx->val) return(0);
+	recGblGetPrec(paddr,precision);
+	return(0);
+}
+
+static long get_graphic_double(DBADDR *paddr,struct dbr_grDouble *pgd)
+{
+	xxxRecord	*pxxx=(xxxRecord *)paddr->precord;
+	int		fieldIndex = dbGetFieldIndex(paddr);
+
+	if(fieldIndex == xxxRecordVAL
+	|| fieldIndex == xxxRecordHIHI
+	|| fieldIndex == xxxRecordHIGH
+	|| fieldIndex == xxxRecordLOW
+	|| fieldIndex == xxxRecordLOLO
+	|| fieldIndex == xxxRecordHOPR
+	|| fieldIndex == xxxRecordLOPR) {
+		pgd->upper_disp_limit = pxxx->hopr;
+		pgd->lower_disp_limit = pxxx->lopr;
+	} else recGblGetGraphicDouble(paddr,pgd);
+	return(0);
+}
+
+static long get_control_double(DBADDR *paddr,struct dbr_ctrlDouble *pcd)
+{
+	xxxRecord	*pxxx=(xxxRecord *)paddr->precord;
+	int		fieldIndex = dbGetFieldIndex(paddr);
+
+	if(fieldIndex == xxxRecordVAL
+	|| fieldIndex == xxxRecordHIHI
+	|| fieldIndex == xxxRecordHIGH
+	|| fieldIndex == xxxRecordLOW
+	|| fieldIndex == xxxRecordLOLO) {
+	pcd->upper_ctrl_limit = pxxx->hopr;
+	pcd->lower_ctrl_limit = pxxx->lopr;
+	} else recGblGetControlDouble(paddr,pcd);
+	return(0);
+}
+
+static long get_alarm_double(DBADDR *paddr,struct dbr_alDouble *pad)
+{
+	xxxRecord	*pxxx=(xxxRecord *)paddr->precord;
+	int		fieldIndex = dbGetFieldIndex(paddr);
+
+	if(fieldIndex == xxxRecordVAL) {
+	pad->upper_alarm_limit = pxxx->hihi;
+	pad->upper_warning_limit = pxxx->high;
+	pad->lower_warning_limit = pxxx->low;
+	pad->lower_alarm_limit = pxxx->lolo;
+	} else recGblGetAlarmDouble(paddr,pad);
+	return(0);
+}
+
+static void alarm(xxxRecord *pxxx)
+{
+	double		val;
+	float		hyst, lalm, hihi, high, low, lolo;
+	unsigned short	hhsv, llsv, hsv, lsv;
+
+	if(pxxx->udf == TRUE ){
+		recGblSetSevr(pxxx,UDF_ALARM,INVALID_ALARM);
+		return;
+	}
+	hihi = pxxx->hihi; lolo = pxxx->lolo; high = pxxx->high; low = pxxx->low;
+	hhsv = pxxx->hhsv; llsv = pxxx->llsv; hsv = pxxx->hsv; lsv = pxxx->lsv;
+	val = pxxx->val; hyst = pxxx->hyst; lalm = pxxx->lalm;
+
+	/* alarm condition hihi */
+	if (hhsv && (val >= hihi || ((lalm==hihi) && (val >= hihi-hyst)))){
+			if (recGblSetSevr(pxxx,HIHI_ALARM,pxxx->hhsv)) pxxx->lalm = hihi;
+		return;
+	}
+
+	/* alarm condition lolo */
+	if (llsv && (val <= lolo || ((lalm==lolo) && (val <= lolo+hyst)))){
+			if (recGblSetSevr(pxxx,LOLO_ALARM,pxxx->llsv)) pxxx->lalm = lolo;
+		return;
+	}
+
+	/* alarm condition high */
+	if (hsv && (val >= high || ((lalm==high) && (val >= high-hyst)))){
+			if (recGblSetSevr(pxxx,HIGH_ALARM,pxxx->hsv)) pxxx->lalm = high;
+		return;
+	}
+
+	/* alarm condition low */
+	if (lsv && (val <= low || ((lalm==low) && (val <= low+hyst)))){
+			if (recGblSetSevr(pxxx,LOW_ALARM,pxxx->lsv)) pxxx->lalm = low;
+		return;
+	}
+
+	/* we get here only if val is out of alarm by at least hyst */
+	pxxx->lalm = val;
+	return;
+}
+
+static void monitor(xxxRecord *pxxx)
+{
+	unsigned short	monitor_mask;
+	double		delta;
+
+		monitor_mask = recGblResetAlarms(pxxx);
+	/* check for value change */
+	delta = pxxx->mlst - pxxx->val;
+	if(delta<0.0) delta = -delta;
+	if (delta > pxxx->mdel) {
+		/* post events for value change */
+		monitor_mask |= DBE_VALUE;
+		/* update last value monitored */
+		pxxx->mlst = pxxx->val;
+	}
+
+	/* check for archive change */
+	delta = pxxx->alst - pxxx->val;
+	if(delta<0.0) delta = -delta;
+	if (delta > pxxx->adel) {
+		/* post events on value field for archive change */
+		monitor_mask |= DBE_LOG;
+		/* update last archive value monitored */
+		pxxx->alst = pxxx->val;
+	}
+
+	/* send out monitors connected to the value field */
+	if (monitor_mask){
+		db_post_events(pxxx,&pxxx->val,monitor_mask);
+	}
+	return;
+}
+';	# END of xxxRecord.c
+
+		close OUT;
+
+		open OUT, ">src/xxxRecord.dbd" or
+			die "Cannot open src/xxxRecord.dbd";
+
+		print OUT '
+recordtype(xxx) {
+	include "dbCommon.dbd" 
+	field(VAL,DBF_DOUBLE) {
+		prompt("Current EGU Value")
+		asl(ASL0)
+		pp(TRUE)
+	}
+	field(INP,DBF_INLINK) {
+		prompt("Input Specification")
+		promptgroup(GUI_INPUTS)
+		special(SPC_NOMOD)
+		interest(1)
+	}
+	field(PREC,DBF_SHORT) {
+		prompt("Display Precision")
+		promptgroup(GUI_DISPLAY)
+		interest(1)
+	}
+	field(EGU,DBF_STRING) {
+		prompt("Engineering Units")
+		promptgroup(GUI_DISPLAY)
+		interest(1)
+		size(16)
+	}
+	field(HOPR,DBF_FLOAT) {
+		prompt("High Operating Range")
+		promptgroup(GUI_DISPLAY)
+		interest(1)
+	}
+	field(LOPR,DBF_FLOAT) {
+		prompt("Low Operating Range")
+		promptgroup(GUI_DISPLAY)
+		interest(1)
+	}
+	field(HIHI,DBF_FLOAT) {
+		prompt("Hihi Alarm Limit")
+		promptgroup(GUI_ALARMS)
+		pp(TRUE)
+		interest(1)
+	}
+	field(LOLO,DBF_FLOAT) {
+		prompt("Lolo Alarm Limit")
+		promptgroup(GUI_ALARMS)
+		pp(TRUE)
+		interest(1)
+	}
+	field(HIGH,DBF_FLOAT) {
+		prompt("High Alarm Limit")
+		promptgroup(GUI_ALARMS)
+		pp(TRUE)
+		interest(1)
+	}
+	field(LOW,DBF_FLOAT) {
+		prompt("Low Alarm Limit")
+		promptgroup(GUI_ALARMS)
+		pp(TRUE)
+		interest(1)
+	}
+	field(HHSV,DBF_MENU) {
+		prompt("Hihi Severity")
+		promptgroup(GUI_ALARMS)
+		pp(TRUE)
+		interest(1)
+		menu(menuAlarmSevr)
+	}
+	field(LLSV,DBF_MENU) {
+		prompt("Lolo Severity")
+		promptgroup(GUI_ALARMS)
+		pp(TRUE)
+		interest(1)
+		menu(menuAlarmSevr)
+	}
+	field(HSV,DBF_MENU) {
+		prompt("High Severity")
+		promptgroup(GUI_ALARMS)
+		pp(TRUE)
+		interest(1)
+		menu(menuAlarmSevr)
+	}
+	field(LSV,DBF_MENU) {
+		prompt("Low Severity")
+		promptgroup(GUI_ALARMS)
+		pp(TRUE)
+		interest(1)
+		menu(menuAlarmSevr)
+	}
+	field(HYST,DBF_DOUBLE) {
+		prompt("Alarm Deadband")
+		promptgroup(GUI_ALARMS)
+		interest(1)
+	}
+	field(ADEL,DBF_DOUBLE) {
+		prompt("Archive Deadband")
+		promptgroup(GUI_DISPLAY)
+		interest(1)
+	}
+	field(MDEL,DBF_DOUBLE) {
+		prompt("Monitor Deadband")
+		promptgroup(GUI_DISPLAY)
+		interest(1)
+	}
+	field(LALM,DBF_DOUBLE) {
+		prompt("Last Value Alarmed")
+		special(SPC_NOMOD)
+		interest(3)
+	}
+	field(ALST,DBF_DOUBLE) {
+		prompt("Last Value Archived")
+		special(SPC_NOMOD)
+		interest(3)
+	}
+	field(MLST,DBF_DOUBLE) {
+		prompt("Last Val Monitored")
+		special(SPC_NOMOD)
+		interest(3)
+	}
+}
+';	# END of xxxRecord.dbd
+
+		open OUT, ">src/devXxxSoft.c" or
+			die "Cannot open src/devXxxSoft.c";
+
+		print OUT '
+		/* devXxxSoft.c */
+		/* Example device support module */
+		
+		#include	<vxWorks.h>
+		#include	<stdlib.h>
+		#include	<stdio.h>
+		#include	<string.h>
+		
+		#include	<alarm.h>
+		#include	<cvtTable.h>
+		#include	<dbDefs.h>
+		#include	<dbAccess.h>
+		#include        <recSup.h>
+		#include	<devSup.h>
+		#include	<link.h>
+		#include	<xxxRecord.h>
+		
+		/*Create the dset for devXxxSoft */
+		static long init_record();
+		static long read_xxx();
+		struct {
+			long		number;
+			DEVSUPFUN	report;
+			DEVSUPFUN	init;
+			DEVSUPFUN	init_record;
+			DEVSUPFUN	get_ioint_info;
+			DEVSUPFUN	read_xxx;
+		}devXxxSoft={
+			5,
+			NULL,
+			NULL,
+			init_record,
+			NULL,
+			read_xxx,
+		};
+		
+		
+		static long init_record(pxxx)
+			struct xxxRecord	*pxxx;
+		{
+			if(recGblInitConstantLink(&pxxx->inp,DBF_DOUBLE,&pxxx->val))
+				 pxxx->udf = FALSE;
+			return(0);
+		}
+		
+		static long read_xxx(pxxx)
+			struct xxxRecord	*pxxx;
+		{
+			long status;
+		
+			status = dbGetLink(&(pxxx->inp),DBF_DOUBLE, &(pxxx->val),0,0);
+			/*If return was succesful then set undefined false*/
+			if(!status) pxxx->udf = FALSE;
+			return(0);
+		}
+';	# END of devXxxSoft.c
+
+		open OUT, ">src/sncExample.st" or
+			die "Cannot open src/sncExample.st";
+
+		print OUT "program snctest\n";
+		print OUT "float v;\n";
+		print OUT "assign v to \"${user}:xxxExample\";\n";
+		print OUT 'monitor v;
+		
+ss ss1
+{
+	state low
+	{
+		when(v>5.0)
+		{
+		printf("changing to high\n");
+		} state high
+		when(delay(.1)) 
+		{
+		} state low
+	}
+	state high
+	{
+		when(v<=5.0)
+		{
+		printf("changing to low\n");
+		} state low
+		when(delay(.1))
+		{
+		} state high
+	}
+}
+';	# END of sncExample.st
+	}
+
+	chdir $startdir;
+
+	unless (-d 'iocBoot')
+	{
+		mkdir iocBoot, 0777;
+		open OUT, ">iocBoot/Makefile" or die "Cannot open iocBoot/Makefile";
+		print OUT "TOP = ..\n";
+		print OUT "include \$(TOP)/config/CONFIG_APP\n";
+		print OUT "DIRS += \$(wildcard ioc* )\n";
+		print OUT "include \$(TOP)/config/RULES_DIRS\n";
+		close OUT;
+	}
+
+	#	generate ioc stuff for this app?
+	next if -d "iocBoot/ioc$app";
+
+	print "What architecture do you want to use for your IOC?\n";
+	print "e.g. pc486, mv167, ... >";
+	$arch=<STDIN>;
+	chomp $arch;
+
+	mkdir "iocBoot/ioc$app", 0777;
+	chdir "iocBoot/ioc$app" or die "Cannot create iocBoot/ioc$app";
+
+	open OUT, ">Makefile" or die "Cannot open Makefile";
+	print OUT "TOP = ../..\n";
+	print OUT "include \$(TOP)/config/CONFIG_APP\n";
+	print OUT "ARCH = $arch\n";
+	print OUT "include \$(TOP)/config/RULES.ioc\n";
+	close OUT;
+
+
+	open OUT, ">st.cmd" or die "Cannot open st.cmd";
+	print OUT "# Example vxWorks startup file\n";
+	print OUT "#Following must be added for many board support packages\n";
+	print OUT "#cd <full path to target bin directory>\n";
+	print OUT "cd \"" . UNIXStyleName($startdir) . "\"\n";
+	print OUT "ld < bin/$arch/iocCore\n";
+	print OUT "ld < bin/$arch/seq\n";
+	print OUT "ld < bin/$arch/${app}Lib\n";
+	print OUT "\n";
+	print OUT "dbLoadDatabase(\"dbd/${app}App.dbd\")\n";
+	if ($example)
+	{
+		print OUT
+		  "dbLoadRecords(\"${app}App/Db/dbExample.db\",\"user=${user}\")\n";
+		print OUT "iocInit\n";
+		print OUT "seq &snctest\n";
+	}
+	else
+	{
+		print OUT "#dbLoadRecords(\"${app}App/Db/xxx.db\",\"user=${user}\")\n";
+		print OUT "iocInit\n";
+		print OUT "#start sequence programs\n";
+		print OUT "#seq &sncxxx\n";
+	}
+	close OUT;
+
+	chdir $startdir;
+}
+
+
+
+#	Cleanup (return-code [ messsage-line1, line 2, ... ])
+sub Cleanup
+{
+	my ($rtncode, @message) = @_;
+
+	chdir $startdir;
+	print "Usage: $0 [-b EPICS base dir] [-e] {appname ...}\n\n"
+				if ($rtncode != 0);
+
+	foreach $line ( @message )
+	{
+		print "$line\n";
+	}
+
+	exit $rtncode;
+}
+
+sub GetHome # no args
+{
+	my ($home);
+
+	# add to this list if new possibilities arise,
+	# currently it's UNIX and WIN32:
+	$home=$ENV{HOME} || $ENV{HOMEPATH};
+	die "cannot locate home directory" unless $home;
+
+	return $home;
+}
+
+sub UNIXStyleName
+{
+	my ($name) = @_;
+
+	$name =~ s'^[a-z]:''i; # remove driver letter
+	$name =~ s'\\'/'g;     # change slashed
+
+	return $name;
+}
+
+sub GetUser # no args
+{
+	my ($user);
+
+	# add to this list if new possibilities arise,
+	# currently it's UNIX and WIN32:
+	$user=$ENV{USER} || $ENV{USERNAME};
+
+	unless ($user)
+	{
+		print "I cannot figure out your user name.\n";
+		print "What shall you be called ?\n";
+		print ">";
+		$user = <STDIN>;
+		chomp $user;
+	}
+	die "No user name" unless $user;
+
+	return $user;
+}
+
+sub Wait # (seconds)
+{
+	my ($secs, $now, $i) = @_;
+
+	$now=time;
+	while (time() < $now+$secs)
+	{
+		$i=1234; # maybe the worst busy wait ever written
+	}
+}
+
diff --git a/src/tools/mkdir.pl b/src/tools/mkdir.pl
new file mode 100644
index 000000000..100713306
--- /dev/null
+++ b/src/tools/mkdir.pl
@@ -0,0 +1,23 @@
+#!/usr/local/bin/perl
+#
+#	UNIX-mkdir in Perl
+#
+#	-p option generates full path to given dir
+
+use File::Path;
+use Getopt::Std;
+getopt();
+
+foreach $dir ( @ARGV )
+{
+	if ($opt_p)
+	{
+		mkpath ($dir) or die "Cannot make directory $dir";
+	}
+	else
+	{
+		mkdir ($dir, 0777) or die "Cannot make directory $dir";
+	}
+}
+
+# EOF mkdir.pl
diff --git a/src/tools/mv.pl b/src/tools/mv.pl
new file mode 100644
index 000000000..d16c3abd2
--- /dev/null
+++ b/src/tools/mv.pl
@@ -0,0 +1,69 @@
+#!/usr/local/bin/perl
+#
+#	UNIX-mv in Perl
+
+use File::Copy;
+
+sub Usage
+{
+	my ($txt) = @_;
+
+	print "Usage:\n";
+	print "\tmv oldname newname\n";
+	print "\tmv file [ file2 file3 ...] directory\n";
+	print "\nError: $txt\n" if $txt;
+
+	exit 2;
+}
+
+sub Move
+{
+	my ($src, $dest) = @_;
+
+	print "Move($src, $dest)\n";
+
+	copy ($src, $dest) or die "Cannot copy $src to $dest";
+	unlink ($src) or die "Cannot remove $src";
+}
+
+#	return filename.ext from  Drive:/path/a/b/c/filename.ext
+sub Filename
+{
+	my ($file) = @_;
+
+	$file =~ s'.*[/\\]'';
+
+	return $file;
+}
+
+# need at least two args: ARGV[0] and ARGV[1]
+Usage("need more args") if $#ARGV < 1;
+
+$target=$ARGV[$#ARGV];
+@sources=@ARGV[0..$#ARGV-1];
+
+print "move @sources into $target\n";
+
+#	If target is (already existent) directory,
+#	move files into it:
+if (-d $target)
+{
+	foreach $file ( @sources )
+	{
+		Move ($file, "$target/" . Filename($file));
+	}
+	exit 0;
+}
+
+#	Otherwise the target is a filename.
+#	Now 'mv' may be either a 'move' or a 'rename',
+#	in any case it requires exactly two args: old and new name.
+
+Usage("Need exactly one source") if $#sources != 0;
+$source = @sources[0];
+
+#	Move only if a simple rename 
+#	fails (e.g. across file systems):
+Move ($source, $target) unless (rename $source, $target);
+
+# EOF mv.pl
diff --git a/src/tools/rm.pl b/src/tools/rm.pl
new file mode 100644
index 000000000..eaa45cca2
--- /dev/null
+++ b/src/tools/rm.pl
@@ -0,0 +1,32 @@
+#!/usr/local/bin/perl
+#
+#	UNIX-rm in Perl
+
+use File::Path;
+use File::Find;
+use Getopt::Std;
+
+getopt();
+
+foreach $arg ( @ARGV )
+{
+	next unless -e $arg;
+
+	if (-d $arg)
+	{
+		if ($opt_r and $opt_f)
+		{
+			rmtree $arg;
+		}
+		else
+		{
+			rmdir ($arg) or die "Cannot delete $arg";
+		}
+	}
+	else
+	{
+		unlink ($arg) or die "Cannot delete $arg";
+	}
+}
+
+# EOF rm.pl