Changeset e1942be

Timestamp:

03/27/08 12:29:02 (17 years ago)

Author:

obrebski <obrebski@…>

Branches:

master, help

Children:

ef85bd7

Parents:

c8e8fa8

git-author:

obrebski <obrebski@…> (03/27/08 12:29:02)

git-committer:

obrebski <obrebski@…> (03/27/08 12:29:02)

Message:

poprawiony compiledic, dziala

tyle, ze compiledic.conf dorobilem recznie i plik .sym umiescilem recznie
w jakims tam katalogu (zostal znaleziony)

git-svn-id: ​svn://atos.wmid.amu.edu.pl/utt@16 e293616e-ec6a-49c2-aa92-f4a8b91c5d16

File:

• app/src/compiledic/compiledic (modified) (11 diffs)

app/src/compiledic/compiledic

@@ -53 +53 @@
 #########################################################
 
-
 GetOptions("symbols=s" => \$symbols,
            "help|h" => \$help);
@@ -70 +69 @@
 }
 
-
-
 ##################################################
 
 -f $symbols or die("Symbol file not found.");
 
-@ARGV < 1   or die("Source dictionary not given.");
+@ARGV > 0   or die("Source dictionary not given.");
 
 my $file = shift;
@@ -89 +86 @@
 
 # Tworzymy katalog tymczasowy, gdzie wszystko bedzie umieszczane.
-$tmp_root = tempdir( CLEANUP => 1 );
-
-print "TMPROOT: $tmp_root\n";
-
+my $tmp_root = File::Temp::tempdir( CLEANUP => 1 );
 
 (undef, my $symfile) = File::Temp::tempfile( DIR => $tmp_root, SUFFIX => ".sym" );
@@ -109 +103 @@
 # Analiza pliku slownika
 
-print "preparing file...........................................\n";
-print "... sed section .....\n";
+print "preparing file...........................................";
+#print "... sed section .....\n";
 (undef, my $file_sed) = File::Temp::tempfile( DIR => $tmp_root, SUFFIX => ".sed" );
 `sed -r "s/([[:punct:]])/\[\\1\]/g" < $file > $file_sed`;
@@ -123 +117 @@
 open(IN, $file_sed);
 
-$lineCount = 0;
-$fileCount = 0;
+my $lineCount = 0;
+my $fileCount = 0;
 
 open(FILE, ">$tmp_root/slo_$fileCount");
@@ -147 +141 @@
 
 #32 kropki, fileCount plikow
-$filesPerDot = $fileCount/32;
-$files=$filesPerDot;
-$dots=0;
-
-for ($i=0; $i<=$fileCount; $i++) {
+my $filesPerDot = $fileCount/32;
+my $files=$filesPerDot;
+my $dots=0;
+
+for (my $i=0; $i<=$fileCount; $i++) {
 
     if ($files >= $filesPerDot) {
@@ -164 +158 @@
 }
 if ($dots < 32) {
-    for ($i=0; $i<32 - $dots; $i++) {
+    for (my $i=0; $i<32 - $dots; $i++) {
         print ".";
     }
@@ -176 +170 @@
 
 #35 kropek...
-$ndots=33;
+my $ndots=33;
 $filesPerDot = $fileCount/$ndots;
 $files=$filesPerDot;
@@ -183 +177 @@
 copy("$tmp_root/slownik_0.fsm", "$tmp_root/slownik1.fsm");
 
-for ($i=1; $i<=$filecount; $i++) {
+for (my $i=1; $i<=$fileCount; $i++) {
 
     if ($files >= $filesPerDot) {
@@ -192 +186 @@
     $files++;
 
-    `fsmunion $tmp_root/slownik_$i slownik1.fsm > $tmp_file/slownik2.fsm`;
+    `fsmunion $tmp_root/slownik_$i slownik1.fsm > $tmp_root/slownik2.fsm`;
 
     move("$tmp_root/slownik2.fsm", "$tmp_root/slownik1.fsm") || die "Unable to move $tmp_root/slownik2.fsm!\n";
@@ -198 +192 @@
 
 if ($dots < $ndots) {
-    for ($i=0; $i<$ndots - $dots; $i++) {
-        print ".";
-    }
-}
-
-`fsmunion $tmp_root/* > $tmp_root/slownik1.fsm`;
+    for (my $i=0; $i<$ndots - $dots; $i++) {
+        print ".";
+    }
+}
+
+#`fsmunion $tmp_root/* > $tmp_root/slownik1.fsm`;
 
 print "OK\n";