mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-22 18:52:40 +01:00
compiler_vm: Show output from program when using paste
command
google search: Show "No results found" if no results found c99std/c11std: Minor clean-up of output
This commit is contained in:
parent
208f89837f
commit
b8d2d0797e
@ -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 => 390,
|
BUILD_REVISION => 391,
|
||||||
BUILD_DATE => "2012-10-27",
|
BUILD_DATE => "2012-11-02",
|
||||||
};
|
};
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
@ -220,4 +220,11 @@ if($comma eq "") {
|
|||||||
print "[", $found_section_title, "]\n\n" if length $found_section_title;
|
print "[", $found_section_title, "]\n\n" if length $found_section_title;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
$result =~ s/\s*Constraints\s*$//;
|
||||||
|
$result =~ s/\s*Semantics\s*$//;
|
||||||
|
$result =~ s/\s*Description\s*$//;
|
||||||
|
$result =~ s/\s*Returns\s*$//;
|
||||||
|
$result =~ s/\s*Runtime-constraints\s*$//;
|
||||||
|
$result =~ s/\s*Recommended practice\s*$//;
|
||||||
|
|
||||||
print "$result\n";
|
print "$result\n";
|
||||||
|
@ -214,4 +214,11 @@ if($comma eq "") {
|
|||||||
print "[", $found_section_title, "]\n\n" if length $found_section_title;
|
print "[", $found_section_title, "]\n\n" if length $found_section_title;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
$result =~ s/\s*Constraints\s*$//;
|
||||||
|
$result =~ s/\s*Semantics\s*$//;
|
||||||
|
$result =~ s/\s*Description\s*$//;
|
||||||
|
$result =~ s/\s*Returns\s*$//;
|
||||||
|
$result =~ s/\s*Runtime-constraints\s*$//;
|
||||||
|
$result =~ s/\s*Recommended practice\s*$//;
|
||||||
|
|
||||||
print "$result\n";
|
print "$result\n";
|
||||||
|
@ -829,13 +829,7 @@ $code =~ s/(?:\n\n)+/\n\n/g;
|
|||||||
|
|
||||||
print "final code: [$code]\n" if $debug;
|
print "final code: [$code]\n" if $debug;
|
||||||
|
|
||||||
if(defined $got_run and $got_run eq "paste") {
|
print FILE "$nick: [lang:$lang][args:$args][input:$input]\n", pretty($code), "\n" unless $got_run;
|
||||||
my $uri = paste_sprunge(pretty($code));
|
|
||||||
print "$nick: $uri\n";
|
|
||||||
exit 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
print FILE "$nick: [lang:$lang][args:$args][input:$input]\n", pretty($code), "\n";
|
|
||||||
|
|
||||||
$input = "Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet." if not length $input;
|
$input = "Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet." if not length $input;
|
||||||
|
|
||||||
@ -902,6 +896,7 @@ if($output =~ m/^\s*$/) {
|
|||||||
$output =~ s/preprocessor macro>\s+<at\s+>/preprocessor macro>/g;
|
$output =~ s/preprocessor macro>\s+<at\s+>/preprocessor macro>/g;
|
||||||
$output =~ s/<No symbol table is loaded. Use the "file" command.>\s*//g;
|
$output =~ s/<No symbol table is loaded. Use the "file" command.>\s*//g;
|
||||||
$output =~ s/cc1: all warnings being treated as; errors//g;
|
$output =~ s/cc1: all warnings being treated as; errors//g;
|
||||||
|
$output =~ s/, note: this is the location of the previous definition//g;
|
||||||
|
|
||||||
# remove duplicate warnings/infos
|
# remove duplicate warnings/infos
|
||||||
$output =~ s/(\[*.*warning:.*?\s*)\1/$1/g;
|
$output =~ s/(\[*.*warning:.*?\s*)\1/$1/g;
|
||||||
@ -911,7 +906,7 @@ if($output =~ m/^\s*$/) {
|
|||||||
# splint
|
# splint
|
||||||
$output =~ s/Splint 3.1.2 --- 03 May 2009\s*//;
|
$output =~ s/Splint 3.1.2 --- 03 May 2009\s*//;
|
||||||
$output =~ s/Finished checking --- \d+ code warning\s*//;
|
$output =~ s/Finished checking --- \d+ code warning\s*//;
|
||||||
print FILE "splint: [$output]\n";
|
print FILE "splint: [$output]\n" unless $got_run;
|
||||||
$output =~ s/\s*\(in function main\)\s*Fresh\s*storage\s*.*?\s*not\s*released.*?reference\s+to\s+it\s+is\s+lost.\s*//msg;
|
$output =~ s/\s*\(in function main\)\s*Fresh\s*storage\s*.*?\s*not\s*released.*?reference\s+to\s+it\s+is\s+lost.\s*//msg;
|
||||||
$output =~ s/\s*\(in function main\)\s*//g;
|
$output =~ s/\s*\(in function main\)\s*//g;
|
||||||
$output =~ s/\s*\(Use\s+.*?\s+to\s+inhibit\s+warning\)//msg;
|
$output =~ s/\s*\(Use\s+.*?\s+to\s+inhibit\s+warning\)//msg;
|
||||||
@ -943,4 +938,11 @@ unless($got_run) {
|
|||||||
close FILE;
|
close FILE;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if(defined $got_run and $got_run eq "paste") {
|
||||||
|
$code .= "\n\n/************* OUTPUT *************\n$output************** OUTPUT **************/\n";
|
||||||
|
my $uri = paste_sprunge(pretty($code));
|
||||||
|
print "$nick: $uri\n";
|
||||||
|
exit 0;
|
||||||
|
}
|
||||||
|
|
||||||
print "$nick: $output\n";
|
print "$nick: $output\n";
|
||||||
|
@ -32,7 +32,11 @@ my $search = Google::Search->Web(query => $arguments, referrer => 'http://blacks
|
|||||||
print "$nick: ";
|
print "$nick: ";
|
||||||
|
|
||||||
if(not $search->first) {
|
if(not $search->first) {
|
||||||
|
if($search->error) {
|
||||||
print $search->error->reason, "\n";
|
print $search->error->reason, "\n";
|
||||||
|
} else {
|
||||||
|
print "No results found\n";
|
||||||
|
}
|
||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -16,6 +16,8 @@ if ($#ARGV <= 0)
|
|||||||
my $nick = shift(@ARGV);
|
my $nick = shift(@ARGV);
|
||||||
$arguments = join("%20", @ARGV);
|
$arguments = join("%20", @ARGV);
|
||||||
|
|
||||||
|
exit if($arguments =~ m/stackoverflow.com/i);
|
||||||
|
exit if($arguments =~ m/scratch.mit.edu/i);
|
||||||
exit if($arguments =~ m/sprunge.us/i);
|
exit if($arguments =~ m/sprunge.us/i);
|
||||||
exit if($arguments =~ m/hastebin.com/i);
|
exit if($arguments =~ m/hastebin.com/i);
|
||||||
exit if($arguments =~ m/lmgtfy.com/i);
|
exit if($arguments =~ m/lmgtfy.com/i);
|
||||||
|
Loading…
Reference in New Issue
Block a user