Changeset 20b4e44 for app/src/compiledic

Timestamp:

03/19/08 12:29:21 (16 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

389de9a

Parents:

d593c5e

git-author:

pawelk <pawelk@…> (03/19/08 12:29:21)

git-committer:

pawelk <pawelk@…> (03/19/08 12:29:21)

Message:

Wersja niestabilna, zawiera wstepne poprawki.

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

Location:

app/src/compiledic

Files:

• aut2fsa (deleted)
• compiledic (modified) (2 diffs)

app/src/compiledic/compiledic

@@ -1 +1 @@
 #! /usr/bin/env perl
+
+#package:       UAM Text Tools
+#component:     compiledic
+#version:       1.0
+#author:        Tomasz Obrebski
+
+use strict;
+use locale;
+use File::HomeDir;
+use File::Basename;
+use File::Temp;
+use Getopt::Long;
+
+my $systemconfigfile='';
+my $userconfigfile=home()."/.utt/compiledic.conf";
+
+Getopt::Long::Configure('no_ignore_case_always');
 
 $symfile='~/.utt/pl/pl_PL.iso-8859-2.sym';
@@ -7 +24 @@
 $sclfile = $symfilenoext . '.scl';
 
-use locale;
-#use strict;
-
 ##################################################
 $linesPerFile = 20000;
 
 if (@ARGV < 1) {
-    print "usage: prep_user_dict.pl dictionary_file\n";
+    print "usage: ", basename($0), " dictionary_file\n";
     exit;
 }