165 |
if /^\s*$/ || /^\s*\#/; |
if /^\s*$/ || /^\s*\#/; |
166 |
|
|
167 |
# '<word> <macro invocation>' or... |
# '<word> <macro invocation>' or... |
168 |
# '<word> warn: <message>' or... |
# '<word> warn: <message>'. |
169 |
# '<word>'. |
if (/^(\S+)\s+(\S.*)$/) |
|
if (/^(\S+)\s+(\S.*)$/ || /^(\S+)\s*$/) |
|
170 |
{ |
{ |
171 |
my $word = $1; |
my $word = $1; |
172 |
my $macro = $2 || $generic_macro{$kind}; |
my $macro = $2; |
173 |
# The default macro must be explicitly listed for words |
# The default macro must be explicitly listed for words |
174 |
# which have a specific macros. This allows to enforce |
# which have a specific macros. This allows to enforce |
175 |
# consistency checks. |
# consistency checks. |