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

4
configure/RULES.Db
View File

@@ -398,12 +398,12 @@ IOC_INST_TOP := $(firstword $(IOCS_APPL_TOP) \
%_registerRecordDeviceDriver.cpp: $(COMMON_DIR)/%.dbd
@$(RM) $@ $*.tmp
$(REGISTERRECORDDEVICEDRIVER) $< $(basename $@) $(IOC_INST_TOP) > $*.tmp
$(REGISTERRECORDDEVICEDRIVER) $(DBDFLAGS) $< $(basename $@) $(IOC_INST_TOP) > $*.tmp
$(MV) $*.tmp $@
%_registerRecordDeviceDriver.cpp: %.dbd
@$(RM) $@ $*.tmp
$(REGISTERRECORDDEVICEDRIVER) $< $(basename $@) $(IOC_INST_TOP) > $*.tmp
$(REGISTERRECORDDEVICEDRIVER) $(DBDFLAGS) $< $(basename $@) $(IOC_INST_TOP) > $*.tmp
$(MV) $*.tmp $@
.PRECIOUS: %_registerRecordDeviceDriver.cpp

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;