GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-19 10:29:30 +01:00
Code Issues Projects Releases Wiki Activity

CGrammar: Add some missing lowercasing specifiers

Browse Source
This commit is contained in:
Pragmatic Software 2014-07-10 12:24:29 +00:00
parent fab1986a3e
commit 5f9fb29e7e
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PBot/VERSION.pm
View File

@ -13,8 +13,8 @@ use warnings;
# These are set automatically by the build/commit script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 723,
BUILD_DATE => "2014-07-09",
BUILD_REVISION => 724,
BUILD_DATE => "2014-07-10",
};
1;

8
modules/c2english/CGrammar.pm
View File

@ -624,7 +624,7 @@ rel_add_mul_shift_expression:
| <leftop: cast_expression rel_mul_add_ex_op cast_expression>
{
my $expression = join('', @{$item[1]});
if($arg{context} =~ /expression/ and $expression =~ / /) {
if($arg{context} =~ /expression/ and $expression =~ / / and $expression !~ /the result of the expression/i) {
$return = 'the result of the expression ';
}
$return .= $expression;
@ -1210,12 +1210,12 @@ argument_expression_list:
my $last = '';
if (@arg_exp_list > 2) {
$last = pop @arg_exp_list;
$return = 's ' . join(', ', @arg_exp_list) . ", and $last";
$return = 's ' . join(', ^L', @arg_exp_list) . ", and ^L$last";
} elsif (@arg_exp_list == 2 ) {
$return = "s $arg_exp_list[0] and $arg_exp_list[1]";
$return = "s ^L$arg_exp_list[0] and ^L$arg_exp_list[1]";
} else {
if ($arg_exp_list[0]) {
$return = " $arg_exp_list[0]";
$return = " ^L$arg_exp_list[0]";
} else {
$return = '';
}