#! /usr/bin/perl
use strict;
use warnings;
use CGI;
use JSON::XS;
use lib '..';
use Position;
use IPC::Open2;

my $cgi = CGI->new;
my $fen = $ARGV[0];
my $filter_prev_pos_hash = $ARGV[1] // 0;
my ($chld_out, $chld_in);
my $pid = IPC::Open2::open2($chld_out, $chld_in, "./binlookup", "./open.mtbl", "40");

# Root position.
my $pos = Position->from_fen($fen);
my $bpfen_hex = unpack('H*', $pos->bitpacked_fen);
my $prev_pos_hash_hex = unpack('H*', pack('S', $filter_prev_pos_hash));
print $chld_in $bpfen_hex, "\n", $prev_pos_hash_hex, "\n";

chomp (my $line = <$chld_out>);  # Root position hash.
print $line, "\n";

chomp ($line = <$chld_out>);  # Actual stats.
print $line, "\n";
my ($white, $draw, $black, $computer, $opening_num, $white_avg_elo, $black_avg_elo, $num_elo, $timestamp, $pgn_file_number, $pgn_start_position, @moves) = split / /, $line;

# Explore one move out.
for my $move (@moves) {
	my ($np, $uci_move) = $pos->make_pretty_move($move);
	my $hex = unpack('H*', $np->bitpacked_fen);
	print $chld_in $hex, "\n\n";
	my $line = <$chld_out>;  # Ignore position hash.
	$line = <$chld_out>;
	print "$move $line";
}
