Completely ignore fail-high/fail-low. This got lost at some point, unfortunately.
authorSteinar H. Gunderson <sgunderson@bigfoot.com>
Wed, 12 Nov 2014 22:12:02 +0000 (23:12 +0100)
committerSteinar H. Gunderson <sgunderson@bigfoot.com>
Wed, 12 Nov 2014 22:12:02 +0000 (23:12 +0100)
remoteglot.pl

index 4459015..18b5b17 100755 (executable)
@@ -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;