From: Steinar H. Gunderson <steinar+remoteglot@gunderson.no>
Date: Fri, 16 Jul 2021 16:56:38 +0000 (+0200)
Subject: Convert TB scores in low depth.
X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=e6680e77c571d6253140e5429213d6d06d19eb36

Convert TB scores in low depth.
---

diff --git a/remoteglot.pl b/remoteglot.pl
index 56554a6..fb663f8 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -540,9 +540,11 @@ sub parse_infos {
 	my $now_depth = $info->{'depth1'} // $info->{'depth'};
 	if (defined($prev_depth) && POSIX::floor($now_depth / 10) > POSIX::floor($prev_depth / 10)) {
 		my $d = POSIX::floor($now_depth / 10) * 10;  # In case we skipped some.
+		complete_using_tbprobe($pos_calculating, $info, exists($info->{'depth1'}) ? '1' : '');
 		my $cp = $info->{'score_cp1'} // $info->{'score_cp'};
 		my $mate = $info->{'score_mate1'} // $info->{'score_mate'};
-		push @{$info->{'lowdepth'}}, [ $d, $cp, $mate ];
+		my $splicepos = $info->{'splicepos1'} // $info->{'splicepos'};
+		push @{$info->{'lowdepth'}}, [ $d, $cp, $mate, $splicepos ];
 	}
 }
 
@@ -957,7 +959,7 @@ sub output_json {
 	$json->{'lowdepth'} = {};
 	if (exists($info->{'lowdepth'})) {
 		for my $ld (@{$info->{'lowdepth'}}) {
-			$json->{'lowdepth'}{$ld->[0]} = score_digest_inner($ld->[1], $ld->[2], undef, 0, $pos_calculating);
+			$json->{'lowdepth'}{$ld->[0]} = score_digest_inner($ld->[1], $ld->[2], $ld->[3], 0, $pos_calculating);
 		}
 	}