GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-23 19:22:40 +01:00
Code Issues Projects Releases Wiki Activity

CGrammar: Fix character-literal and string-literal regexs; add more character-literal constants

Browse Source
This commit is contained in:
Pragmatic Software 2014-06-11 07:42:16 +00:00
parent d8703faf0e
commit 5c8b845e6d
2 changed files with 18 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 => 628,
BUILD_DATE => "2014-06-10",
BUILD_REVISION => 629,
BUILD_DATE => "2014-06-11",
};
1;

20
modules/c2english/CGrammar.pm
View File

@ -1346,14 +1346,26 @@ constant:
$return =~ s/[Uu]$/(unsigned)/;
$return =~ s/[Ll]$/(long)/;
}
| m{'.*?[^\']'} # character constant FIXME: doesn't handle escaped quotes
| /(?:\'((?:\\\'|(?!\').)*)\')/ # character constant
{
my $constant = $item[1];
if($constant eq q/'\n'/) {
if($constant eq q('\n')) {
$return = 'a newline';
} elsif($constant eq q/'\t'/) {
} elsif($constant eq q('\f')) {
$return = 'a form-feed character';
} elsif($constant eq q('\t')) {
$return = 'a tab';
} elsif($constant eq q('\v')) {
$return = 'a vertical tab';
} elsif($constant eq q('\b')) {
$return = 'an alert character';
} elsif($constant eq q('\r')) {
$return = 'a carriage-return';
} elsif($constant eq q('\b')) {
$return = 'a backspace character';
} elsif($constant eq q('\'')) {
$return = 'a single-quote';
} else {
$return = $constant;
}
@ -1369,7 +1381,7 @@ identifier_word:
{ $return = "`$item[-1]`"; }
string:
/".*?[^\"]"/ # FIXME: doesn't handle escaped quotes
/(?:\"(?:\\\"|(?!\").)*\")/
reserved:
'int' | 'double' | 'short' | 'volatile' | 'register' | 'float' | 'signed'