# any fun on the UCI channel?
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
- # 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;
+ my $line = read_line($engine->{'read'});
handle_uci($line);
$sleep = 0;
# 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'};
}
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;
+}