#!/usr/bin/perl -s

our $program; # default
our $problem;

use warnings;
use strict;

use Template;
use Data::Dumper;
use File::ShareDir ':ALL';

my $xml_file = shift;
my $xsl_file = dist_file('Conclave-Utils', 'xslt/idtable2owl.xsl');
if ($problem) {
  $xsl_file = dist_file('Conclave-Utils', 'xslt/concepts2owl.xsl');
}

my $tts_dir = dist_dir('Conclave-Utils') . '/tts/';
my $config = {
    INCLUDE_PATH => $tts_dir,
  };
my $template = Template->new($config);

my $individuals = `conc-apply-xslt $xml_file $xsl_file`;
$individuals =~ s/^<\?xml.*?>\n*//;

my $vars = {
    individuals => $individuals,
  };

my $main = 'program_main.tt';
if ($problem) {
  $main = 'problem_main.tt';
}

$template->process($main, $vars) or die $template->error();