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

Allow #including <headers>

Browse Source
This commit is contained in:
Pragmatic Software 2010-03-28 18:37:53 +00:00
parent c93174ac15
commit aaa6b2782d
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
modules/codepad.pl
View File

@ -41,11 +41,15 @@ my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/5.0"); $ua->agent("Mozilla/5.0");
push @{ $ua->requests_redirectable }, 'POST'; push @{ $ua->requests_redirectable }, 'POST';
if(($lang eq "C" or $lang eq "C++") and not $code =~ m/\w+ main\s?\([^)]+\)\s?{/) { $code =~ s/#include <([^>]+)>/#include <$1>\n/g;
$code = "int main(void) { $code ; return 0; }";
if(($lang eq "C" or $lang eq "C++") and not $code =~ m/\w+ main\s?\([^)]*\)\s?{/) {
my $includes = '';
$includes = $1 if $code =~ s/^(#include.*>)//;
$code = "$includes\n int main(int argc, char **argv) { $code ; return 0; }";
} }
my $escaped_code = uri_escape($code, "\0-\377"); # my $escaped_code = uri_escape($code, "\0-\377");
my %post = ( 'lang' => $lang, 'code' => $code, 'private' => 'True', 'run' => 'True', 'submit' => 'Submit' ); my %post = ( 'lang' => $lang, 'code' => $code, 'private' => 'True', 'run' => 'True', 'submit' => 'Submit' );