GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-01-09 11:32:34 +01:00
Code Issues Projects Releases Wiki Activity

compiler_vm: updated compiler_client with comments

Browse Source
This commit is contained in:
Pragmatic Software 2011-01-26 02:02:21 +00:00
parent 93658e0f6f
commit 8fd584a9e7
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
modules/compiler_vm/compiler_client.pl
View File

@ -1,19 +1,34 @@
#!/usr/bin/perl #!/usr/bin/perl
# compiler_client.pl connects to compiler_server.pl hosted at PeerAddr/PeerPort below
# and sends a nick, language and code, then retreives and prints the compilation/execution output.
#
# this way we can run the compiler virtual machine on any remote server.
use warnings; use warnings;
use strict; use strict;
use IO::Socket; use IO::Socket;
my $sock = IO::Socket::INET->new( my $sock = IO::Socket::INET->new(
PeerAddr => '71.93.78.61', PeerAddr => '127.0.0.1',
PeerPort => 9000, PeerPort => 9000,
Proto => 'tcp') || die "Cannot create socket: $!"; Proto => 'tcp');
if(not defined $sock) {
print "Fatal error compiling: $!; try the !cc2 command instead\n";
die $!;
}
my $nick = shift @ARGV; my $nick = shift @ARGV;
my $lang = shift @ARGV;
my $code = join ' ', @ARGV; my $code = join ' ', @ARGV;
my $lang = "C99";
if($code =~ s/-lang=([^ ]+)//) {
$lang = uc $1;
}
print $sock "compile:$nick:$lang\n"; print $sock "compile:$nick:$lang\n";
print $sock "$code\n"; print $sock "$code\n";
print $sock "compile:end\n"; print $sock "compile:end\n";