mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-24 11:42:35 +01:00
CGrammar: Fix anchoring of reserved
rule
This commit is contained in:
parent
0b941bf771
commit
a388994d54
@ -13,7 +13,7 @@ use warnings;
|
|||||||
# These are set automatically by the build/commit script
|
# These are set automatically by the build/commit script
|
||||||
use constant {
|
use constant {
|
||||||
BUILD_NAME => "PBot",
|
BUILD_NAME => "PBot",
|
||||||
BUILD_REVISION => 664,
|
BUILD_REVISION => 665,
|
||||||
BUILD_DATE => "2014-06-20",
|
BUILD_DATE => "2014-06-20",
|
||||||
};
|
};
|
||||||
|
|
||||||
|
@ -567,6 +567,7 @@ declaration_list:
|
|||||||
declaration:
|
declaration:
|
||||||
declaration_specifiers init_declarator_list(?) ';'
|
declaration_specifiers init_declarator_list(?) ';'
|
||||||
{
|
{
|
||||||
|
print STDERR "wtf2\n", ::Dumper \%item;
|
||||||
my @init_list = defined $item{'init_declarator_list(?)'}->[0] ? @{$item{'init_declarator_list(?)'}->[0]} : ('');
|
my @init_list = defined $item{'init_declarator_list(?)'}->[0] ? @{$item{'init_declarator_list(?)'}->[0]} : ('');
|
||||||
my $init_declaration_list;
|
my $init_declaration_list;
|
||||||
|
|
||||||
@ -1198,6 +1199,7 @@ declaration_specifiers:
|
|||||||
}
|
}
|
||||||
| comment(?) type_specifier declaration_specifiers(?)
|
| comment(?) type_specifier declaration_specifiers(?)
|
||||||
{
|
{
|
||||||
|
print STDERR "wtf1\n", ::Dumper \%item;
|
||||||
my $decl_spec = join(' ', @{$item{'declaration_specifiers(?)'}});
|
my $decl_spec = join(' ', @{$item{'declaration_specifiers(?)'}});
|
||||||
$return = join('',@{$item{'comment(?)'}});
|
$return = join('',@{$item{'comment(?)'}});
|
||||||
$return .= "$decl_spec " if $decl_spec;
|
$return .= "$decl_spec " if $decl_spec;
|
||||||
@ -1444,9 +1446,7 @@ string:
|
|||||||
/(?:\"(?:\\\"|(?!\").)*\")/
|
/(?:\"(?:\\\"|(?!\").)*\")/
|
||||||
|
|
||||||
reserved:
|
reserved:
|
||||||
('int' | 'double' | 'short' | 'volatile' | 'register' | 'float' | 'signed'
|
/(auto|break|case|char|const|continue|default|do|double|else|enum|extern|float|for|goto
|
||||||
| 'unsigned' | 'char' | 'for' | 'if' | 'switch' | 'while' | 'do' | 'case'
|
|if|int|long|register|return|signed|sizeof|short|static|struct|switch|typedef
|
||||||
| 'extern' | 'void' | 'exit' | 'return' | 'auto' | 'break' | 'const'
|
|union|unsigned|void|volatile|while)\b/x
|
||||||
| 'continue' | 'default' | 'else' | 'enum' | 'struct' | 'goto' | 'long'
|
|
||||||
| 'register' | 'sizeof' | 'static' | 'typedef' | 'union') /\z/
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user