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

+= \ to / conversion for all commandline arguments (incl. $0 -> $command)

Browse Source
This commit is contained in:
Ralph Lange
1998-06-19 12:30:46 +00:00
parent 4626994388
commit f0a76674af
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/makeBaseApp/makeBaseApp.pl
View File

@@ -14,10 +14,6 @@ $cwd = cwd();
$eAPPTYPE = $ENV{EPICS_MBA_DEF_APP_TYPE};
$eTOP = $ENV{EPICS_MBA_TEMPLATE_TOP};
# For winXX convert each instance of \ to /
$command = $0;
$command =~ s|\\|/|g;
&get_commandline_opts; # Read and check options
#
@@ -130,8 +126,9 @@ sub get_commandline_opts { #no args
$Debug = 1 if $opt_d;
# Locate epics_base
my ($command) = UnixPath($0);
if ($opt_b) { # first choice is -b base
$epics_base = $opt_b;
$epics_base = UnixPath($opt_b);
} elsif (-r "config/RELEASE") { # second choice is config/RELEASE
open(IN, "config/RELEASE") or die "Cannot open config/RELEASE";
while (<IN>) {
@@ -147,7 +144,7 @@ sub get_commandline_opts { #no args
# Locate template top directory
if ($opt_T) { # first choice is -T templ-top
$top = $opt_T;
$top = UnixPath($opt_T);
} elsif (-r "config/RELEASE") { # second choice is config/RELEASE
open(IN, "config/RELEASE") or die "Cannot open config/RELEASE";
while (<IN>) {
@@ -342,3 +339,10 @@ sub GetUser { # no args
die "No user name" unless $user;
return $user;
}
# replace "\" by "/" (for WINxx)
sub UnixPath { # path
my($newpath) = $_[0];
$newpath =~ s|\\|/|go;
return $newpath;
}