Convert TB scores in low depth.
authorSteinar H. Gunderson <steinar+remoteglot@gunderson.no>
Fri, 16 Jul 2021 16:56:38 +0000 (18:56 +0200)
committerSteinar H. Gunderson <sgunderson@bigfoot.com>
Fri, 16 Jul 2021 16:56:57 +0000 (18:56 +0200)
remoteglot.pl

index 56554a6d6b5589a65c13764a7d9ab0c5740bf624..fb663f8b2ac5c5b06f199c42158c7c15433f53dd 100755 (executable)
@@ -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);
                }
        }