epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Fixed problem with Cygwin Perl not supporting globs properly,

Browse Source 
and bug that -l option needed an argument.
This commit is contained in:
Andrew Johnson
2001-05-25 20:11:45 +00:00
parent 564ca4a6f6
commit e3203ca468
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/makeBaseApp/makeBaseApp.pl
View File

@@ -144,7 +144,7 @@ exit 0; # END OF SCRIPT
# Get commandline options and check for validity
#
sub get_commandline_opts { #no args
getopts("a:b:dhilT:t:") and @ARGV or Cleanup(1);
getopts("a:b:dhilT:t:") or Cleanup(1);
# Options help
Cleanup(0) if $opt_h;
@@ -184,6 +184,8 @@ sub get_commandline_opts { #no args
&ListAppTypes;
exit 0; # finished for -l command
}
Cleanup(1) if @ARGV;
# ioc architecture
if ($opt_i) {
@@ -247,15 +249,18 @@ sub ReadReleaseFile {
# List application types
#
sub ListAppTypes { # no args
opendir TYPES, "$top" or die "Can't open $top: $!";
my @allfiles = readdir TYPES;
closedir TYPES;
my @apps = grep /.*App$/, @allfiles;
my @boots = grep /.*Boot$/, @allfiles;
print "Valid application types are:\n";
foreach $name (<$top/*App>) {
$name =~ s|$top/||;
foreach $name (@apps) {
$name =~ s|App||;
printf "\t$name\n" if ($name && -r "$top/$name" . "App");
}
print "Valid iocBoot types are:\n";
foreach $name (<$top/*Boot>) {
$name =~ s|$top/||;
foreach $name (@boots) {
$name =~ s|Boot||;
printf "\t$name\n" if ($name && -r "$top/$name" . "Boot");;
}