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

Allow quotes in DBD argument strings

Browse Source
This commit is contained in:
Andrew Johnson
2016-03-03 11:19:22 -06:00
parent 3f4c6abb31
commit 113076a009
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/registry/registerRecordDeviceDriver.pl
View File

@@ -28,24 +28,24 @@ $bldTop =~ s/([\\"])/\\\1/g; # escape back-slashes and double-quotes
open(INP,"$file") or die "$! opening file";
while(<INP>) {
next if m/ ^ \s* \# /x;
if (m/ \b recordtype \s* \( \s* (\w+) \s* \) /x) {
if (m/ \b recordtype \s* \( \s* "?(\w+)"? \s* \) /x) {
$recordType[$numberRecordType++] = $1;
}
elsif (m/ \b device \s* \( \s* (\w+) \W+ \w+ \W+ (\w+) /x) {
elsif (m/ \b device \s* \( \s* "?(\w+)"? \W+ \w+ \W+ (\w+) /x) {
$deviceRecordType[$numberDeviceSupport] = $1;
$deviceSupport[$numberDeviceSupport] = $2;
$numberDeviceSupport++;
}
elsif (m/ \b driver \s* \( \s* (\w+) \s* \) /x) {
elsif (m/ \b driver \s* \( \s* "?(\w+)"? \s* \) /x) {
$driverSupport[$numberDriverSupport++] = $1;
}
elsif (m/ \b registrar \s* \( \s* (\w+) \s* \) /x) {
elsif (m/ \b registrar \s* \( \s* "?(\w+)"? \s* \) /x) {
push @registrars, $1;
}
elsif (m/ \b function \s* \( \s* (\w+) \s* \) /x) {
elsif (m/ \b function \s* \( \s* "?(\w+)"? \s* \) /x) {
push @registrars, "register_func_$1";
}
elsif (m/ \b variable \s* \( \s* (\w+) \s* , \s* (\w+) \s* \) /x) {
elsif (m/ \b variable \s* \( \s* "?(\w+)"? \s* , \s* "?(\w+)"? \s* \) /x) {
$varType{$1} = $2;
push @variables, $1;
}