mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-30 07:59:42 +01:00
CGrammar: Fix array translation text
This commit is contained in:
parent
026db04e4a
commit
df1fa14b2a
@ -13,7 +13,7 @@ use warnings;
|
||||
# These are set automatically by the build/commit script
|
||||
use constant {
|
||||
BUILD_NAME => "PBot",
|
||||
BUILD_REVISION => 631,
|
||||
BUILD_REVISION => 632,
|
||||
BUILD_DATE => "2014-06-11",
|
||||
};
|
||||
|
||||
|
@ -604,6 +604,7 @@ declaration_list:
|
||||
declaration:
|
||||
declaration_specifiers init_declarator_list(?) ';'
|
||||
{
|
||||
print STDERR "wtf\n"; print STDERR ::Dumper \%item;
|
||||
# This whole thing needs to be re-written to parse declarations inside-out.
|
||||
my @init_list = defined $item{'init_declarator_list(?)'}->[0] ? @{$item{'init_declarator_list(?)'}->[0]} : ('');
|
||||
my $init_declaration_list;
|
||||
@ -689,7 +690,7 @@ declaration:
|
||||
$return .= ' be ';
|
||||
|
||||
if($first_qualifier) {
|
||||
if(@identifiers == 1) {
|
||||
if(@identifiers == 1 and $first_qualifier !~ /^(a|an)\s+/) {
|
||||
$return .= $first_qualifier =~ m/^[aeiouy]/ ? 'an ' : 'a ';
|
||||
}
|
||||
$return .= "$first_qualifier $item{declaration_specifiers}";
|
||||
|
Loading…
Reference in New Issue
Block a user