ev => $ev,
cb => $cb,
seen_uciok => 0,
+ stopping => 0,
+ chess960 => 0,
};
print $uciwrite "uci\n";
if (!$engine->{'seen_uciok'}) {
# Gobble up lines until we see uciok.
- if ($line =~ /^uciok$/) {
+ if ($line =~ /^id (\S+) (.*?)\s*$/) {
+ $engine->{'id'}->{$1} = $2;
+ } elsif ($line =~ /^uciok$/) {
$engine->{'seen_uciok'} = 1;
}
} else {