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
|
# 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",
|
||||||
};
|
};
|
||||||
|
|
||||||
|
@ -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';
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user