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

Fix envPaths output for cexp users.

Browse Source
This commit is contained in:
Andrew Johnson committed 2008-04-08 17:49:33 +00:00
1 parent fb930b6b0e
commit 85b20ffaea
1 file changed
+3 -3
Download Patch File Download Diff File Expand all files Collapse all files
src/tools/convertRelease.pl@
+3 -3
View File
@@ -146,13 +146,13 @@ sub envPaths {
my $ioc = $cwd;
$ioc =~ s/^.*\///; # iocname is last component of directory name
print OUT "epicsEnvSet(ARCH,\"$arch\")\n";
print OUT "epicsEnvSet(IOC,\"$ioc\")\n";
print OUT "epicsEnvSet(\"ARCH\",\"$arch\")\n";
print OUT "epicsEnvSet(\"IOC\",\"$ioc\")\n";
foreach my $app (@includes) {
my $iocpath = my $path = $macros{$app};
$iocpath =~ s/^$root/$iocroot/o if ($opt_t);
print OUT "epicsEnvSet($app,\"$iocpath\")\n" if (-d $path);
print OUT "epicsEnvSet(\"$app\",\"$iocpath\")\n" if (-d $path);
}
close OUT;
}