#!/usr/bin/perl
use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE, "pt_PT") or die;

require '/home/morfolimpiadas/programas/biblioteca_mol.pl';
($programa=$0)=~s#.+\/##;
if (($fx=$ARGV[0])!~/\./) {
	$fx=&Max((grep /$ARGV[0]\.def/, &DirConteudo(".")));
}

#print STDERR "Estou a executar o programa $programa sobre o ficheiro $fx\n";

open F1, $fx;
@tokens=split /\n\xd7\n/, join "", grep ! /TEXTO/, <F1>;
close F1;


@tokens=&TokensSeleccionados($ARGV[2],@tokens) if ($ARGV[2]);
print STDERR "$programa $ARGV[1]\n";

$resultado=&$programa ( ($ARGV[1], @tokens) );

print "Tokens que satisfazem a condição: $resultado de ".(scalar @tokens);
print sprintf(" (%5.2f%%)\n",$resultado/(scalar @tokens)*100);

sub TokensSeleccionados {
	return grep /$_[0]/, @_;
}