GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

compiler_vm: added -paste flag to send formatted source/output to paste site and show link instead of output; e.g. `cc -paste <code>` --> http://somepastesite.com

This commit is contained in:
Pragmatic Software 2012-11-14 18:36:04 +00:00
parent 39a38b58f8
commit 3f771df8bc
2 changed files with 6 additions and 3 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 => 392, BUILD_REVISION => 393,
BUILD_DATE => "2012-11-04", BUILD_DATE => "2012-11-14",
}; };
1; 1;

5
modules/compiler_vm/compiler_vm_client.pl
View File

@ -151,6 +151,9 @@ $lang = uc $1 if $code =~ s/-lang=([^\b\s]+)//i;
my $input = ""; my $input = "";
$input = $1 if $code =~ s/-(?:input|stdin)=(.*)$//i; $input = $1 if $code =~ s/-(?:input|stdin)=(.*)$//i;
my $got_paste = undef;
$got_paste = 1 if $code =~ s/^\s*-paste\s*//i;
my $args = ""; my $args = "";
$args .= "$1 " while $code =~ s/^\s*(-[^ ]+)\s*//; $args .= "$1 " while $code =~ s/^\s*(-[^ ]+)\s*//;
$args =~ s/\s+$//; $args =~ s/\s+$//;
@ -938,7 +941,7 @@ unless($got_run) {
close FILE; close FILE;
} }
if(defined $got_run and $got_run eq "paste") { if(defined $got_paste or (defined $got_run and $got_run eq "paste")) {
$code .= "\n\n/************* OUTPUT *************\n$output************** OUTPUT **************/\n"; $code .= "\n\n/************* OUTPUT *************\n$output************** OUTPUT **************/\n";
my $uri = paste_sprunge(pretty($code)); my $uri = paste_sprunge(pretty($code));
print "$nick: $uri\n"; print "$nick: $uri\n";