X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=bd10cd020475f50a4b3ca0db6e08108e3babead6;hp=a6de634d9f3e43bfc92be254e74ba608662cf76e;hb=9e923c34a6788eb9780a151316b196d4a18c3bbd;hpb=2e7dae9e44dc28d14356353f02a4781a2df2ee17 diff --git a/remoteglot.pl b/remoteglot.pl index a6de634..bd10cd0 100755 --- a/remoteglot.pl +++ b/remoteglot.pl @@ -18,17 +18,17 @@ use warnings; # Configuration my $server = "freechess.org"; -my $target = "278"; -# my $engine = "/usr/games/toga2"; -# my $engine = "wine Rybkav2.3.2a.mp.w32.exe"; -my $engine = "~/microwine-0.2/microwine Rybkav2.3.2a.mp.x64.exe"; +my $target = "GMCarlsen"; +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 = 1; # dangerous :-) +my $uci_assume_full_compliance = 0; # dangerous :-) my @masters = ( 'Sesse', 'Sessse', - 'Sesssse' + 'Sesssse', + 'greatestguns', + 'beuki' ); # Program starts here @@ -50,7 +50,7 @@ $| = 1; 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); @@ -58,23 +58,12 @@ my $last_text = ''; my $last_told_text = ''; my ($pos_waiting, $pos_calculating); -uciprint("uci"); - -# gobble the options -while () { - /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"; @@ -82,7 +71,7 @@ print "Chess engine ready.\n"; my $t = Net::Telnet->new(Timeout => 10, Prompt => '/fics% /'); $t->input_log(\*FICSLOG); $t->open($server); -$t->print("guest"); +$t->print("SesseBOT"); $t->waitfor('/Press return to enter the server/'); $t->cmd(""); @@ -97,7 +86,7 @@ print "FICS 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); @@ -124,21 +113,21 @@ while (1) { # 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; } @@ -164,7 +153,7 @@ while (1) { $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."); } @@ -174,7 +163,7 @@ while (1) { } # any fun on the UCI channel? - if ($nfound > 0 && vec($rout, fileno(UCIREAD), 1) == 1) { + if ($nfound > 0 && vec($rout, fileno($engine->{'read'}), 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 @@ -183,7 +172,7 @@ while (1) { my $line = ''; while ($line !~ /\n/) { my $tmp; - my $ret = sysread UCIREAD, $tmp, 1; + my $ret = sysread $engine->{'read'}, $tmp, 1; if (!defined($ret)) { next if ($!{EINTR}); @@ -211,6 +200,7 @@ sub handle_uci { 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; @@ -226,8 +216,8 @@ sub handle_uci { } 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; @@ -333,6 +323,7 @@ sub style12_to_fen { $castling .= "k" if ($x[13] == 1); $castling .= "q" if ($x[14] == 1); $castling = "-" if ($castling eq ""); + # $castling = "-"; # chess960 $fen .= " "; $fen .= $castling; @@ -400,7 +391,7 @@ sub prettyprint_pv { my $piece = substr($board->[$from_row], $from_col, 1); if ($piece eq '-') { - die "Invalid move"; + die "Invalid move $pv"; } # white short castling @@ -653,7 +644,7 @@ sub output_screen { $text .= "\n\n"; } - $text .= book_info($pos_calculating->{'fen'}, $pos_calculating->{'board'}, $pos_calculating->{'toplay'}); + #$text .= book_info($pos_calculating->{'fen'}, $pos_calculating->{'board'}, $pos_calculating->{'toplay'}); if ($last_text ne $text) { print ""; # clear the screen @@ -908,8 +899,8 @@ sub can_reach { } sub uciprint { - my $msg = shift; - print UCIWRITE "$msg\n"; + my ($engine, $msg) = @_; + print { $engine->{'write'} } "$msg\n"; print UCILOG localtime() . " => $msg\n"; } @@ -966,7 +957,7 @@ sub book_info { } my $ret = `./booklook $fen`; - return '' if ($ret =~ /Not found/ || $ret eq ''); + return "" if ($ret =~ /Not found/ || $ret eq ''); my @moves = (); @@ -1008,3 +999,25 @@ sub book_info { 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; +}