From 7860e16113a033c5243a997d6d7d97a73f0f0263 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Tue, 29 Dec 2020 17:53:28 +0100
Subject: [PATCH] Remove obsolete book support.

---
 remoteglot.pl | 54 ---------------------------------------------------
 1 file changed, 54 deletions(-)

diff --git a/remoteglot.pl b/remoteglot.pl
index 06549f2..48dbf96 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -858,8 +858,6 @@ sub output_screen {
 		$text .= "\n\n";
 	}
 
-	#$text .= book_info($pos_calculating->fen(), $pos_calculating->{'board'}, $pos_calculating->{'toplay'});
-
 	my @refutation_lines = ();
 	if (defined($engine2)) {
 		for (my $mpv = 1; $mpv < 500; ++$mpv) {
@@ -1250,58 +1248,6 @@ sub plot_score {
 	return undef;
 }
 
-my %book_cache = ();
-sub book_info {
-	my ($fen, $board, $toplay) = @_;
-
-	if (exists($book_cache{$fen})) {
-		return $book_cache{$fen};
-	}
-
-	my $ret = `./booklook $fen`;
-	return "" if ($ret =~ /Not found/ || $ret eq '');
-
-	my @moves = ();
-
-	for my $m (split /\n/, $ret) {
-		my ($move, $annotation, $win, $draw, $lose, $rating, $rating_div) = split /,/, $m;
-
-		my $pmove;
-		if ($move eq '')  {
-			$pmove = '(current)';
-		} else {
-			($pmove) = prettyprint_pv_no_cache($board, $move);
-			$pmove .= $annotation;
-		}
-
-		my $score;
-		if ($toplay eq 'W') {
-			$score = 1.0 * $win + 0.5 * $draw + 0.0 * $lose;
-		} else {
-			$score = 0.0 * $win + 0.5 * $draw + 1.0 * $lose;
-		}
-		my $n = $win + $draw + $lose;
-		
-		my $percent;
-		if ($n == 0) {
-			$percent = "     ";
-		} else {
-			$percent = sprintf "%4u%%", int(100.0 * $score / $n + 0.5);
-		}
-
-		push @moves, [ $pmove, $n, $percent, $rating ];
-	}
-
-	@moves[1..$#moves] = sort { $b->[2] cmp $a->[2] } @moves[1..$#moves];
-	
-	my $text = "Book moves:\n\n              Perf.     N     Rating\n\n";
-	for my $m (@moves) {
-		$text .= sprintf "  %-10s %s   %6u    %4s\n", $m->[0], $m->[2], $m->[1], $m->[3]
-	}
-
-	return $text;
-}
-
 sub extract_clock {
 	my ($pgn, $pos) = @_;
 
-- 
2.39.2