GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-19 10:29:30 +01:00
Code Issues Projects Releases Wiki Activity

Improve formatting

Browse Source
This commit is contained in:
Pragmatic Software 2013-09-16 10:35:32 +00:00
parent 7decfdf28a
commit dc1390fca2
3 changed files with 5 additions and 4 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 # These are set automatically by the build/commit script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 432, BUILD_REVISION => 433,
BUILD_DATE => "2013-09-13", BUILD_DATE => "2013-09-16",
}; };
1; 1;

1
modules/c2english.pl
View File

@ -81,6 +81,7 @@ $output =~ s/whose initial value is/with value being/g;
$output =~ s/each element of which is a(n?)/of type a$1/g; $output =~ s/each element of which is a(n?)/of type a$1/g;
$output =~ s/\s+s\s*$//g; $output =~ s/\s+s\s*$//g;
$output =~ s/variable/object/g; $output =~ s/variable/object/g;
$output =~ s/of type a pointer/of type pointer/g;
$output =~ s/of type a character/of type char/g; $output =~ s/of type a character/of type char/g;
$output =~ s/of type an integer/of type int/g; $output =~ s/of type an integer/of type int/g;
$output =~ s/to a character/to char/g; $output =~ s/to a character/to char/g;

4
modules/compiler_vm/compiler_vm_client.pl
View File

@ -874,11 +874,11 @@ if($lang eq 'C89' or $lang eq 'C99' or $lang eq 'C11' or $lang eq 'C++') {
$precode =~ s/^{(.*)}$/$1/s; $precode =~ s/^{(.*)}$/$1/s;
if(not $has_main and not $got_nomain) { if(not $has_main and not $got_nomain) {
$code = "$prelude\n\n$code\n\nint main(void) {\n$precode\n;\nreturn 0;\n}\n"; $code = "$prelude\n$code" . "int main(void) {\n$precode\n;\nreturn 0;\n}\n";
$nooutput = "No warnings, errors or output."; $nooutput = "No warnings, errors or output.";
} else { } else {
print "code: [$code]; precode: [$precode]\n" if $debug; print "code: [$code]; precode: [$precode]\n" if $debug;
$code = "$prelude\n\n$precode\n\n$code\n"; $code = "$prelude\n$precode\n\n$code\n";
$nooutput = "No warnings, errors or output."; $nooutput = "No warnings, errors or output.";
} }
} else { } else {