package tool::RunCompilationServer;
use strict;
use warnings;

use tool::Util;

use Time::HiRes ();
use File::Basename ();

use Net::EmptyPort ();
use Proc::Guard ();

use constant ROOT => File::Basename::dirname(__FILE__);

my $home = $ENV{JSX_HOME} or die "no JSX_HOME";

my $jsx_compiler = ROOT . "/../bin/jsx-compiler.js";

my $app_jsx = ROOT . "/jsx.pl";
require $app_jsx; # App::jsx

our $server_guard;

if (! $ENV{JSX_TEST_NO_COMPILATION_SERVER}) {
    start();
}

sub start {
    my $p = Net::EmptyPort::empty_port();

    $server_guard = Proc::Guard->new(
        code => sub {
           $ENV{JSX_NO_AUTO_SHUTDOWN} = 1;
           open STDOUT, ">>$home/server.log" or die $!;
           open STDERR, ">&", \*STDOUT;
           exec $jsx_compiler, "--compilation-server", $p
              or die $!;
           },
    );

    # wait for running compilation server
    while (1) {
        Time::HiRes::sleep(0.100);
        my($ok, $stdout, $stderr) = jsx("--version");
        if ($ok) {
            chomp $stdout;
            print "# $stdout\n";
            last;
        }
    }
}

1;