From a232919dcad37a8db63244b1aa3e0ffdc8bcf50e Mon Sep 17 00:00:00 2001 From: Pragmatic Software Date: Tue, 24 Jun 2014 08:47:29 +0000 Subject: [PATCH] CGrammar: Add more lower-case markers --- PBot/VERSION.pm | 2 +- modules/c2english/CGrammar.pm | 14 +++++++------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/PBot/VERSION.pm b/PBot/VERSION.pm index 05baea55..7b4cbdc8 100644 --- a/PBot/VERSION.pm +++ b/PBot/VERSION.pm @@ -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", }; diff --git a/modules/c2english/CGrammar.pm b/modules/c2english/CGrammar.pm index d4ec387b..8cba3bb2 100644 --- a/modules/c2english/CGrammar.pm +++ b/modules/c2english/CGrammar.pm @@ -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'; } }