CGrammar: Add more lower-case markers

This commit is contained in:
Pragmatic Software 2014-06-24 08:47:29 +00:00
parent a8320f52f9
commit a232919dca
2 changed files with 8 additions and 8 deletions

View File

@ -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 => 675, BUILD_REVISION => 676,
BUILD_DATE => "2014-06-24", BUILD_DATE => "2014-06-24",
}; };

View File

@ -551,19 +551,19 @@ rel_mul_add_ex_op:
| '<' { $return = ' is less than ^L'; } | '<' { $return = ' is less than ^L'; }
unary_operator: unary_operator:
'&' { $return = 'the address of '; } '&' { $return = 'the address of ^L'; }
| '*' { $return = 'the dereference of '; } | '*' { $return = 'the dereference of ^L'; }
| '+' { $return = ''; } | '+' { $return = ''; }
| '-' ...identifier { $return = 'negative '; } | '-' ...identifier { $return = 'negative ^L'; }
| '-' { $return = 'minus '; } | '-' { $return = 'minus ^L'; }
| '~' { $return = "the one's complement of "; } | '~' { $return = "the one's complement of ^L"; }
| '!' '!' { $return = 'the normalized boolean value of '; } | '!' '!' { $return = 'the normalized boolean value of ^L'; }
| '!' | '!'
{ {
if($arg{context} =~ /conditional/) { if($arg{context} =~ /conditional/) {
$return = ['', ' is false']; $return = ['', ' is false'];
} else { } else {
$return = 'the logical negation of '; $return = 'the logical negation of ^L';
} }
} }