From 06f35bf4db6918d72717154dcaa843f37103f1e6 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Mon, 1 Jun 1998 19:41:52 +0000
Subject: [PATCH] More changes for beta12

---
 src/makeBaseApp/Makefile.Host  |  2 +-
 src/makeBaseApp/makeBaseApp.pl | 22 +++++++++-------------
 2 files changed, 10 insertions(+), 14 deletions(-)

diff --git a/src/makeBaseApp/Makefile.Host b/src/makeBaseApp/Makefile.Host
index d01398f81..3428468e3 100644
--- a/src/makeBaseApp/Makefile.Host
+++ b/src/makeBaseApp/Makefile.Host
@@ -14,7 +14,7 @@ TEMPLATES += top/config/RULES.iocBoot
 TEMPLATES += top/config/RULES_ARCHS
 TEMPLATES += top/config/RULES_DIRS
 TEMPLATES += top/config/RULES_TOP
-TEMPLATES += top/config/makeIoccdcmds.pl
+TEMPLATES += top/config/makeIocCdCommands.pl
 
 TEMPLATES += top/exampleApp/Makefile
 TEMPLATES += top/exampleApp/Db/Makefile
diff --git a/src/makeBaseApp/makeBaseApp.pl b/src/makeBaseApp/makeBaseApp.pl
index 3657ce333..81dab03a7 100755
--- a/src/makeBaseApp/makeBaseApp.pl
+++ b/src/makeBaseApp/makeBaseApp.pl
@@ -26,7 +26,7 @@ $eTOP     = $ENV{EPICS_MBA_TEMPLATE_TOP};
 # Empty string: Don't copy this file
 sub ReplaceFilename { # (filename)
     my($file) = $_[0];
-    $file =~ s|.*/CVS/?.*||;	# template might be kept under CVS
+    $file =~ s|.*/CVS/?.*||;	# Ignore CVS files
     if($opt_i) {
 	$file =~ s|/$apptypename|/iocBoot|;
     }
@@ -214,20 +214,11 @@ sub get_commandline_opts { #no args
 #
 sub ListAppTypes { # no args
     print "Valid application types are:\n";
-    find(\&Fapp_types, "$top");
-    for $type (keys %Types) {
-	printf "%-15s %-15s\n", $TypeNameA{$type}, $TypeNameE{$type};
+    foreach $name (<$top/*App $top/*Boot>) {
+	$name =~ s|$top/||;
+	printf "$name\n";
     }
 }
-sub Fapp_types {
-    ! /$topn/ && ! /defaultApp$/ && /App$/ &&
-    ($File::Find::prune = 1) && s/App$// &&
-    (($type = $_) =~ s/^example_//, 1) &&
-    ($t = /^example_.*/?TypeNameE:TypeNameA,
-     s/^example_.*/(including example: use \'-e\' option)/, 1) &&
-    (eval "\$$t\{\$type\} = \$_", 1) &&
-    ($Types{$type} = 1);
-}
 
 #
 # Copy a file with replacements
@@ -304,6 +295,11 @@ where
 Environment:
 EPICS_MBA_DEF_APP_TYPE  The application type you want to use as default
 EPICS_MBA_TEMPLATE_TOP  The template top directory
+
+Example: Create exampleApp 
+
+<base>/bin/<arch>/makeBaseApp.pl -t example example
+<base>/bin/<arch>/makeBaseApp.pl -i -t example example
 EOF
 
     exit $rtncode;