GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-24 11:42:35 +01:00
Code Issues Projects Releases Wiki Activity

Make c2english output slightly more clean

Browse Source
This commit is contained in:
Pragmatic Software 2013-10-19 18:42:05 +00:00
parent c6e67200c1
commit 111847340e
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PBot/VERSION.pm
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 => 454, BUILD_REVISION => 455,
BUILD_DATE => "2013-10-19", BUILD_DATE => "2013-10-19",
}; };

4
modules/c2english.pl
View File

@ -72,7 +72,7 @@ open my $fh, '>', 'code.c' or die "Could not write code: $!";
print $fh $code; print $fh $code;
close $fh; close $fh;
my ($ret, $result) = execute(10, "gcc -std=c89 -pedantic -Werror -Wno-unused -c code.c"); my ($ret, $result) = execute(10, "gcc -std=c89 -pedantic -Werror -Wno-unused -fsyntax-only -fno-diagnostics-show-option code.c");
if($ret != 0) { if($ret != 0) {
$output = $result; $output = $result;
@ -128,6 +128,7 @@ if($ret != 0) {
$output =~ s/<'(.*)' = char>/<'$1' = int>/g; $output =~ s/<'(.*)' = char>/<'$1' = int>/g;
$output =~ s/= (-?\d+) ''/= $1/g; $output =~ s/= (-?\d+) ''/= $1/g;
$output =~ s/, <incomplete sequence >//g; $output =~ s/, <incomplete sequence >//g;
$output =~ s/\s*error: expected ';' before 'return'//g;
print "$output\n"; print "$output\n";
exit 0; exit 0;
@ -155,6 +156,7 @@ $output =~ s/with no arguments returning/with unspecified arguments returning/g;
$output =~ s/with argument a void/with no arguments/g; $output =~ s/with argument a void/with no arguments/g;
$output =~ s/\s*After that,\s*$//; $output =~ s/\s*After that,\s*$//;
$output =~ s/as long as zero does not equal 1/while the condition is true/g; $output =~ s/as long as zero does not equal 1/while the condition is true/g;
$output =~ s/\ncompute nothing.//g;
$output =~ s/\s+/ /; $output =~ s/\s+/ /;
if($output eq " ") { if($output eq " ") {