Index: nawszelkiwypadek/tools/lem_dic/makeLabels.pl
===================================================================
--- nawszelkiwypadek/tools/lem_dic/makeLabels.pl	(revision f1563c0f0270f57e03d1fba3f2ce99a3828b3b8c)
+++ nawszelkiwypadek/tools/lem_dic/makeLabels.pl	(revision f1563c0f0270f57e03d1fba3f2ce99a3828b3b8c)
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use locale;
+
+print "lcase	a ± b c æ d e ê f g h i j k l ³ m n ñ o ó p q r s ¶ t u v w x y z Œ ¿ é ö ü ä\n";
+print "ucase	A ¡ B C Æ D E Ê F G H I J K L £ M N Ñ O Ó P Q R S Š T U V W X Y Z ¬ ¯\n";
+print "letter	lcase ucase\n";
+print "digit	0 1 2 3 4 5 6 7 8 9\n";
+print "signs    , . @ \/ \'\n";
+print "sem	~ ; _ - + ? \\ \n";
+print "all	letter digit signs sem\n";
Index: nawszelkiwypadek/tools/lem_dic/prep.pl
===================================================================
--- nawszelkiwypadek/tools/lem_dic/prep.pl	(revision f1563c0f0270f57e03d1fba3f2ce99a3828b3b8c)
+++ nawszelkiwypadek/tools/lem_dic/prep.pl	(revision f1563c0f0270f57e03d1fba3f2ce99a3828b3b8c)
@@ -0,0 +1,75 @@
+#! /usr/bin/perl
+
+use locale;
+use strict;
+
+my $file = shift;
+my $filename;
+
+if ($file eq "") {
+    print "Podaj nazwê pliku.\n";
+    exit(1);
+}
+
+if ($file =~ /(.*)\.dic/)
+{
+    $filename = $1;
+}
+else
+{
+    print "The input file must have .dic extension.";
+    exit(1);
+}
+
+`makeLabels.pl > labels.sym`;
+
+`lexmakelab labels`;
+
+print "Kanonizujê opisy.........................................";
+
+#`canon.pl <$file >temp2`;
+
+print "Kompilujê automat........................................";
+
+`lexcomplex -l labels.lab -S labels.scl <$file > 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`;
+
+`cp temp1 pofsmprint`;
+
+`../fsm2aut temp1> temp2`;
+
+`./aut2fsa.nowy < temp2> $filename.bin`;
+
+print "OK\n";
+
+print "Czyszczê pliki pomocnicze................................";
+
+`rm temp2`;
+`rm temp1`;
+#`rm labels.*`;
+
+print "OK\n";
+