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

Make cdCommands environment variable names match envPaths,

Browse Source 
i.e. don't upper-case the app name.
Also added ARCH and IOC environment variables.
This commit is contained in:
Andrew Johnson
2003-11-21 21:11:30 +00:00
parent 3d5ab5cca5
commit 0a3edefb39
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
configure/tools/convertRelease.pl
View File

@@ -250,13 +250,18 @@ sub cdCommands {
print OUT "startup = \"$startup\"\n";
$ioc = $cwd;
$ioc =~ s/^.*\///; # iocname is last component of directory name
print OUT "putenv \"ARCH=$arch\"\n";
print OUT "putenv \"IOC=$ioc\"\n";
foreach $app (@includes) {
$iocpath = $path = $macros{$app};
$iocpath =~ s/^$root/$iocroot/o if ($opt_t);
$app_lc = lc($app);
$app_uc = uc($app);
print OUT "$app_lc = \"$iocpath\"\n" if (-d $path);
print OUT "putenv \"$app_uc=$iocpath\"\n" if (-d $path);
print OUT "putenv \"$app=$iocpath\"\n" if (-d $path);
print OUT "${app_lc}bin = \"$iocpath/bin/$arch\"\n" if (-d "$path/bin/$arch");
}
close OUT;