Improve the tbhits output a bit, in particular wrt. singular form.

diff --git a/remoteglot.pl b/remoteglot.pl
index b36487d2987cad84a4654741e8eb594c95fe5ec9..16a4f8dc6b2f6e9b0b6918451ef3f7d531847c11 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -610,8 +610,12 @@ sub output_screen {
                        $text .= "  ($score)" if (defined($score));
 
                        my $tbhits = '';
-                       if (exists($uciinfo{'tbhits' . $mpv})) {
-                               $tbhits = sprintf ", %u tbhits", $uciinfo{'tbhits' . $mpv};
+                       if (exists($uciinfo{'tbhits' . $mpv}) && $uciinfo{'tbhits' . $mpv} > 0) {
+                               if ($uciinfo{'tbhits' . $mpv} == 1) {
+                                       $tbhits = ", 1 tbhit";
+                               } else {
+                                       $tbhits = sprintf ", %u tbhits", $uciinfo{'tbhits' . $mpv};
+                               }
                        }
 
                        if (exists($uciinfo{'nodes' . $mpv}) && exists($uciinfo{'nps' . $mpv}) && exists($uciinfo{'depth' . $mpv})) {
@@ -635,8 +639,12 @@ sub output_screen {
                        $text .= sprintf "  %u nodes, %7u nodes/sec, depth %u ply",
                                $uciinfo{'nodes'}, $uciinfo{'nps'}, $uciinfo{'depth'};
                }
-               if (exists($uciinfo{'tbhits'})) {
-                       $text .= sprintf ", %u Nalimov hits", $uciinfo{'tbhits'};
+               if (exists($uciinfo{'tbhits'}) && $uciinfo{'tbhits'} > 0) {
+                       if ($uciinfo{'tbhits'} == 1) {
+                               $text .= ", one Nalimov hit";
+                       } else {
+                               $text .= sprintf ", %u Nalimov hits", $uciinfo{'tbhits'};
+                       }
                }
                if (exists($uciinfo{'seldepth'})) {
                        $text .= sprintf " (%u selective)", $uciinfo{'seldepth'};