diff --git a/dbLoadTemplate b/dbLoadTemplate index 88d8215..7a8a68c 100755 --- a/dbLoadTemplate +++ b/dbLoadTemplate @@ -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";