#! /usr/bin/perl

use locale;
use strict;

my $file = shift;

if ($file eq "") {
    print "Podaj nazwę pliku.\n";
    exit(0);
}


`makeLabels.pl > labels.sym`;

`lexmakelab labels`;

print "Pobieram informacje ze słownika..........................";

`cut -d \\; -f 1 <$file > temp1`;

`sort -u < temp1 > temp2`;

print "OK\n";

print "Kompiluję automat........................................";

`lexcomplex -l labels.lab -S labels.scl <temp2 > temp1`;

print "OK\n";

print "Usuwam epsilon-przejscia.................................";

`fsmrmepsilon temp1> temp2`;

print "OK\n";

print "Determinizuję automat....................................";

`fsmdeterminize temp2 > temp1`;

print "OK\n";

print "Minimalizuję automat.....................................";

`fsmminimize temp1> temp2`;

print "OK\n";

print "Konwertuję automat do formatu fsa........................";

`fsmprint -i labels.lab temp2> temp1`;

`../fsm2aut temp1> temp2`;

`../aut2fsa < temp2> cor.dic`;

print "OK\n";

print "Czyszczę pliki pomocnicze................................";

`rm temp2`;
`rm temp1`;
`rm labels.*`;

print "OK\n";