#!/usr/bin/perl -s

our $pidl;
our $pt;

use lib 'lib';
use Conclave::Utils::CExpander;
use File::Slurp qw/slurp/;
use Data::Dumper;

# handle arguments
my $term;
my $source;
if ($pidl) {
	my $filename = shift;

	if ($filename) {
		# have file, get pidl
		die "file $filename not found" unless (-e $filename);

		$source = slurp $filename;
	}
	else {
		# expect pidl from stdin
		$source .= $_ while (<STDIN>);
	}
}
else {
	$term = shift;
	die 'need one term' unless $term;
}

my $expander = Conclave::CExpander->new();

if ($pidl) {
	my $result = $expander->expandPiDL($source);
	print Dumper $result;
}
else {
	my $result;
	$result = $expander->expand($term);
	foreach (@$result) {
		printf("[%s] %s (%s\%)\n",$_->{'type'},lc $_->{'word'},$_->{'prob'});
	}
}