GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-23 19:22:40 +01:00
Code Issues Projects Releases Wiki Activity

CGrammar: Improve and optimize conditional_expression rule; improve translation of parenthetical expressions

Browse Source
This commit is contained in:
Pragmatic Software 2014-06-15 00:46:49 +00:00
parent bf9586b6a8
commit 632a9582d5
2 changed files with 29 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PBot/VERSION.pm
View File

@ -13,7 +13,7 @@ use warnings;
# These are set automatically by the build/commit script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 639,
BUILD_REVISION => 640,
BUILD_DATE => "2014-06-14",
};

63
modules/c2english/CGrammar.pm
View File

@ -419,14 +419,19 @@ assignment_expression:
| conditional_expression[context => $arg{context}]
conditional_expression:
logical_OR_AND_expression[context => $arg{context}]
'?' expression[context => 'conditional_expression1']
':' conditional_expression[context => 'conditional_expression2']
logical_OR_AND_expression[context => $arg{context}] conditional_ternary_expression
{
$return = "the value depending on if $item{logical_OR_AND_expression} is true" .
" then $item{expression} otherwise $item{conditional_expression}";
if($item{conditional_ternary_expression}) {
$return = "depending on if $item{logical_OR_AND_expression} is true then $item{conditional_ternary_expression}";
} else {
$return = $item{logical_OR_AND_expression};
}
| logical_OR_AND_expression[context => $arg{context}]
}
conditional_ternary_expression:
'?' expression ':' conditional_expression
{ $return = "$item{expression} otherwise $item{conditional_expression}"; }
| { "" } # nothing
assignment_operator:
'='
@ -606,19 +611,8 @@ cast_expression:
{ $return = "$item{cast_expression} type-casted as $item{type_name}"; }
| unary_expression[context => $arg{context}]
{ $return = $item{unary_expression}; }
#( ...closure )(?)
# {
# if ($arg{context} eq 'statement' #&& !($return =~ /^Perform/)
# )
# {
# if (${$item[-1]}[0]) {
# $return .= ".\n";
# }
# }
#}
declaration_list:
# <skip: '\s*'>
preproc[context => 'statement'](?) declaration(s)
{ $return = join('', @{$item{'preproc(?)'}}) . join('', @{$item{'declaration(s)'}}); }
@ -1000,39 +994,28 @@ narrow_closure:
primary_expression:
'(' expression ')' (...narrow_closure)(?)
{
print STDERR "wtf\n";
print STDERR "expression: [$item{expression}]; text: [$text]\n";
my $expression = $item{expression} ;
my $repeats = 1;
my $ending = 1;
if ($expression =~ /^the (\d+)-layered parenthetical expression/) {
$repeats = $1 + 1;
$expression =~ s/^the \d+-layered parenthetical expression //;
} elsif ($expression =~ /^the parenthetical expression/) {
$repeats = 2;
$expression =~ s/^the parenthetical expression //;
if ($expression =~ /^the expression (\(+)/) {
$repeats = (length $1) + 1;
print STDERR "Got repeats: $repeats from matching [$1]\n";
$expression =~ s/^the expression \(+//;
}
if ($expression =~ / now$/) {
$ending++;
$expression =~ s/ now$//;
$expression .= " (now drop $ending layers of context)" ;
} elsif ($expression =~ /now drop (\d+) layers of context\)$/ ) {
$ending = $1 + 1;
$expression =~ s/\d+ layers of context\)$/$ending layers of context \)/;
} else { $expression .= ' now'; }
if ($repeats > 1) {
$return = "the $repeats-layered parenthetical expression $expression";
} else {
$return = "the parenthetical expression $expression";
}
print STDERR "repeats: $repeats\n";
if (@{$item[-1]}) {
$return =~ s/ now$//;
}
$expression .= ')';
$return = "the expression ";
$return .= '(' x $repeats;
$return .= $expression;
}
| constant
| string
| identifier
| { "" } # nothing
declarator:
direct_declarator