# Configuration
my $server = "freechess.org";
my $target = "GMCarlsen";
-# my $engine = "/usr/games/toga2";
-#my $engine = "wine Rybkav2.3.2a.mp.w32.exe";
-my $engine = "~/microwine-0.5/microwine Rybkav2.3.2a.mp.x64.exe";
-#my $engine = "ssh -t sesse\@84.48.204.209 ./microwine-0.5/microwine ./Rybkav2.3.2a.mp.x64.exe";
-#my $engine = "ssh -t sesse\@cirkus.samfundet.no nice -n 19 ./microwine-0.5/microwine ./microwine-0.5/Rybkav2.3.2a.mp.x64.exe";
+my $engine_cmdline = "'./Deep Rybka 4 SSE42 x64'";
my $telltarget = undef; # undef to be silent
my @tell_intervals = (5, 20, 60, 120, 240, 480, 960); # after each move
my $uci_assume_full_compliance = 0; # dangerous :-)
select(STDOUT);
# open the chess engine
-my $pid = IPC::Open2::open2(*UCIREAD, *UCIWRITE, $engine);
+my $engine = open_engine($engine_cmdline);
my %uciinfo = ();
my %uciid = ();
my ($last_move, $last_tell);
my $last_told_text = '';
my ($pos_waiting, $pos_calculating);
-uciprint("uci");
-
-# gobble the options
-while (<UCIREAD>) {
- /uciok/ && last;
- handle_uci($_);
-}
-
-uciprint("setoption name UCI_AnalyseMode value true");
-# uciprint("setoption name Preserve Analysis value true");
-# uciprint("setoption name NalimovPath value /srv/tablebase");
-uciprint("setoption name NalimovUsage value Rarely");
-uciprint("setoption name Hash value 1024");
-uciprint("setoption name MultiPV value 2");
-# uciprint("setoption name Contempt value 1000");
-# uciprint("setoption name Outlook value Ultra Optimistic");
-uciprint("ucinewgame");
+uciprint($engine, "setoption name UCI_AnalyseMode value true");
+# uciprint($engine, "setoption name NalimovPath value /srv/tablebase");
+uciprint($engine, "setoption name NalimovUsage value Rarely");
+uciprint($engine, "setoption name Hash value 1024");
+# uciprint($engine, "setoption name MultiPV value 2");
+uciprint($engine, "ucinewgame");
print "Chess engine ready.\n";
while (1) {
my $rin = '';
my $rout;
- vec($rin, fileno(UCIREAD), 1) = 1;
+ vec($rin, fileno($engine->{'read'}), 1) = 1;
vec($rin, fileno($t), 1) = 1;
my ($nfound, $timeleft) = select($rout=$rin, undef, undef, 5.0);
# to approve
if (defined($pos_calculating)) {
if (!defined($pos_waiting)) {
- uciprint("stop");
+ uciprint($engine, "stop");
}
if ($uci_assume_full_compliance) {
$pos_waiting = $pos;
} else {
- uciprint("position fen " . $pos->{'fen'});
- uciprint("go infinite");
+ uciprint($engine, "position fen " . $pos->{'fen'});
+ uciprint($engine, "go infinite");
$pos_calculating = $pos;
}
} else {
# it's wrong just to give the FEN (the move history is useful,
# and per the UCI spec, we should really have sent "ucinewgame"),
# but it's easier
- uciprint("position fen " . $pos->{'fen'});
- uciprint("go infinite");
+ uciprint($engine, "position fen " . $pos->{'fen'});
+ uciprint($engine, "go infinite");
$pos_calculating = $pos;
}
$t->cmd($1);
} elsif ($msg =~ /^uci (.*?)$/) {
$t->cmd("tell $who Sending '$1' to the engine.");
- print UCIWRITE "$1\n";
+ print { $engine->{'write'} } "$1\n";
} else {
$t->cmd("tell $who Couldn't understand '$msg', sorry.");
}
}
# any fun on the UCI channel?
- if ($nfound > 0 && vec($rout, fileno(UCIREAD), 1) == 1) {
- #
- # Read until we've got a full line -- if the engine sends part of
- # a line and then stops we're pretty much hosed, but that should
- # never happen.
- #
- my $line = '';
- while ($line !~ /\n/) {
- my $tmp;
- my $ret = sysread UCIREAD, $tmp, 1;
-
- if (!defined($ret)) {
- next if ($!{EINTR});
- die "error in reading from the UCI engine: $!";
- } elsif ($ret == 0) {
- die "EOF from UCI engine";
- }
-
- $line .= $tmp;
- }
-
- $line =~ tr/\r\n//d;
+ if ($nfound > 0 && vec($rout, fileno($engine->{'read'}), 1) == 1) {
+ my $line = read_line($engine->{'read'});
handle_uci($line);
$sleep = 0;
chomp $line;
$line =~ tr/\r//d;
+ $line =~ s/ / /g; # Sometimes needed for Zappa Mexico
print UCILOG localtime() . " <= $line\n";
if ($line =~ /^info/) {
my (@infos) = split / /, $line;
}
if ($line =~ /^bestmove/ && $uci_assume_full_compliance) {
if (defined($pos_waiting)) {
- uciprint("position fen " . $pos_waiting->{'fen'});
- uciprint("go infinite");
+ uciprint($engine, "position fen " . $pos_waiting->{'fen'});
+ uciprint($engine, "go infinite");
$pos_calculating = $pos_waiting;
$pos_waiting = undef;
# specified.
#
if (exists($uciinfo{'pv1'}) && !exists($uciinfo{'pv2'})) {
- for my $key qw(pv score_cp score_mate nodes nps depth seldepth tbhits) {
+ for my $key (qw(pv score_cp score_mate nodes nps depth seldepth tbhits)) {
if (exists($uciinfo{$key . '1'}) && !exists($uciinfo{$key})) {
$uciinfo{$key} = $uciinfo{$key . '1'};
}
}
sub uciprint {
- my $msg = shift;
- print UCIWRITE "$msg\n";
+ my ($engine, $msg) = @_;
+ print { $engine->{'write'} } "$msg\n";
print UCILOG localtime() . " => $msg\n";
}
return $text;
}
+
+sub open_engine {
+ my $cmdline = shift;
+ my ($uciread, $uciwrite);
+ my $pid = IPC::Open2::open2($uciread, $uciwrite, $cmdline);
+
+ my $engine = {
+ pid => $pid,
+ read => $uciread,
+ write => $uciwrite
+ };
+
+ uciprint($engine, "uci");
+
+ # gobble the options
+ while (<$uciread>) {
+ /uciok/ && last;
+ handle_uci($_);
+ }
+
+ return $engine;
+}
+
+sub read_line {
+ my $fh = shift;
+
+ #
+ # Read until we've got a full line -- if the engine sends part of
+ # a line and then stops we're pretty much hosed, but that should
+ # never happen.
+ #
+ my $line = '';
+ while ($line !~ /\n/) {
+ my $tmp;
+ my $ret = sysread $engine->{'read'}, $tmp, 1;
+
+ if (!defined($ret)) {
+ next if ($!{EINTR});
+ die "error in reading from the UCI engine: $!";
+ } elsif ($ret == 0) {
+ die "EOF from UCI engine";
+ }
+
+ $line .= $tmp;
+ }
+
+ $line =~ tr/\r\n//d;
+ return $line;
+}
projects / remoteglot / blobdiff