- #
- # 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;