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

registerRecordDeviceDriver needs DBD search path

Browse Source
This commit is contained in:
Michael Davidsaver
2012-05-24 14:11:09 -04:00
parent 386a2f73a7
commit 434f6346fa
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/ioc/registry/registerRecordDeviceDriver.pl
View File

@@ -18,12 +18,18 @@ use DBD;
use DBD::Parser;
use EPICS::Readfile;
use EPICS::Path;
use EPICS::Getopts;
use Text::Wrap;
getopts('I@') or
die "Usage: registerRecordDeviceDriver [-I dir] in.dbd subroutinename [TOP]";
my @path = map { split /[:;]/ } @EPICS::Getopts::opt_I; # FIXME: Broken on Win32?
my ($file, $subname, $bldTop) = @ARGV;
my $dbd = DBD->new();
&ParseDBD($dbd, &Readfile($file));
&ParseDBD($dbd, &Readfile($file, "", \@path));
$Text::Wrap::columns = 75;