mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-24 11:42:35 +01:00
CGrammar: Add more lower-case markers
This commit is contained in:
parent
a8320f52f9
commit
a232919dca
@ -13,7 +13,7 @@ use warnings;
|
||||
# These are set automatically by the build/commit script
|
||||
use constant {
|
||||
BUILD_NAME => "PBot",
|
||||
BUILD_REVISION => 675,
|
||||
BUILD_REVISION => 676,
|
||||
BUILD_DATE => "2014-06-24",
|
||||
};
|
||||
|
||||
|
@ -551,19 +551,19 @@ rel_mul_add_ex_op:
|
||||
| '<' { $return = ' is less than ^L'; }
|
||||
|
||||
unary_operator:
|
||||
'&' { $return = 'the address of '; }
|
||||
| '*' { $return = 'the dereference of '; }
|
||||
'&' { $return = 'the address of ^L'; }
|
||||
| '*' { $return = 'the dereference of ^L'; }
|
||||
| '+' { $return = ''; }
|
||||
| '-' ...identifier { $return = 'negative '; }
|
||||
| '-' { $return = 'minus '; }
|
||||
| '~' { $return = "the one's complement of "; }
|
||||
| '!' '!' { $return = 'the normalized boolean value of '; }
|
||||
| '-' ...identifier { $return = 'negative ^L'; }
|
||||
| '-' { $return = 'minus ^L'; }
|
||||
| '~' { $return = "the one's complement of ^L"; }
|
||||
| '!' '!' { $return = 'the normalized boolean value of ^L'; }
|
||||
| '!'
|
||||
{
|
||||
if($arg{context} =~ /conditional/) {
|
||||
$return = ['', ' is false'];
|
||||
} else {
|
||||
$return = 'the logical negation of ';
|
||||
$return = 'the logical negation of ^L';
|
||||
}
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user