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

Make the parser slightly more robust against comments and

Browse Source 
other uses of the keywords.
This commit is contained in:
Andrew Johnson
2004-01-23 19:26:11 +00:00
parent a2b69080ca
commit 8087b29199
1 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/registry/registerRecordDeviceDriver.pl
View File

@@ -18,25 +18,22 @@ $numberRegistrar = 0;
open(INP,"$file") or die "$! opening file";
while(<INP>) {
if( /recordtype/) {
/recordtype\s*\(\s*(\w+)/;
next if /^\s*#/;
if (/\brecordtype\s*\(\s*(\w+)/) {
$recordType[$numberRecordType++] = $1;
}
if( /device/) {
/device\s*\(\s*(\s*\w+)\W+\w+\W+(\w+)/;
elsif (/\bdevice\s*\(\s*(\s*\w+)\W+\w+\W+(\w+)/) {
$deviceRecordType[$numberDeviceSupport] = $1;
$deviceSupport[$numberDeviceSupport] = $2;
$numberDeviceSupport++;
}
if( /driver/) {
/driver\s*\(\s*(\w+)/;
elsif (/\bdriver\s*\(\s*(\w+)/) {
$driverSupport[$numberDriverSupport++] = $1;
}
if( /registrar/) {
/registrar\s*\(\s*(\w+)/;
elsif (/\bregistrar\s*\(\s*(\w+)/) {
$registrar[$numberRegistrar++] = $1;
}
if (/variable\s*\(\s*(\w+)\s*,\s*(\w+)/) {
elsif (/\bvariable\s*\(\s*(\w+)\s*,\s*(\w+)/) {
$varType{$1} = $2;
push @variables, $1;
}