epics/utilities
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

accept (and ignore) info fields

Browse Source
This commit is contained in:
zimoch
2014-07-23 09:15:57 +00:00
parent 2826a0ef71
commit 2dcca7a904
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
dbLoadTemplate
View File

@@ -1,6 +1,6 @@
#!/usr/bin/env perl
# $Header: /cvs/G/EPICS/App/scripts/dbLoadTemplate,v 1.9 2013/11/13 09:33:12 zimoch Exp $
# $Header: /cvs/G/EPICS/App/scripts/dbLoadTemplate,v 1.10 2014/07/23 09:15:57 zimoch Exp $
use strict;
@@ -90,12 +90,16 @@ sub parseRecord {
my @fields;
my @aliases;
while (1) {
expect "field|alias|} 'field or alias'";
expect "field|alias|info|} 'field or alias or info'";
if ($_ eq "alias") {
push @aliases, expect "(", "$STRING quoted alias name";
expect ")";
next;
}
if ($_ eq "info") {
expect "(", "$WORD info name", ",", "$STRING|$SUBST quoted info value", ")";
next;
}
last if $_ eq "}";
push @fields, expect "(", "$WORD field name";
push @fields, expect ",", "$STRING|$SUBST quoted field value";