#!/usr/bin/perl

my $prefix = '@prefix@';
my $home = "@datadir@";
my $size = shift;
my $file = shift;

$| = 1;

$exepref = "senta-";

execute("${exepref}tokenizer $file $home/${exepref}setofchars");
execute("${exepref}extractor $size $file.int mwus.int");
execute("${exepref}translator -O mwus.int $file.dic");

print "removing temporary files...\n";
remove("mwus.int");
remove("$file.dic");
remove("$file.int");
open F, "$file" or die "Cannot open file\n";
while(<F>) {
  chomp;
  remove("$_.int");
}
close F;
`mv mwus.int.txt output`;

sub execute {
  my $cmd = shift;
  print "$cmd\n";
  system("$cmd");
}

sub remove {
  my $file = shift;
  print "$file\n";
  unlink $file
}