From 06c56e7798037c0c2e2f3bf26bd4bbe071dbb670 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Wed, 12 Nov 2014 23:12:02 +0100 Subject: [PATCH 1/1] Completely ignore fail-high/fail-low. This got lost at some point, unfortunately. --- remoteglot.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/remoteglot.pl b/remoteglot.pl index 4459015..18b5b17 100755 --- a/remoteglot.pl +++ b/remoteglot.pl @@ -105,6 +105,8 @@ EV::run; sub handle_uci { my ($engine, $line, $primary) = @_; + return if $line =~ /(upper|lower)bound/; + $line =~ s/ / /g; # Sometimes needed for Zappa Mexico print UCILOG localtime() . " $engine->{'tag'} <= $line\n"; if ($line =~ /^info/) { @@ -300,7 +302,7 @@ sub parse_infos { delete $info->{'score_cp' . $mpv}; delete $info->{'score_mate' . $mpv}; - while ($x[0] eq 'cp' || $x[0] eq 'mate' || $x[0] eq 'lowerbound' || $x[0] eq 'upperbound') { + while ($x[0] eq 'cp' || $x[0] eq 'mate') { if ($x[0] eq 'cp') { shift @x; $info->{'score_cp' . $mpv} = shift @x; -- 2.39.2