Changeset 389de9a for app/dist

Timestamp:

03/20/08 12:08:21 (17 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

c8e8fa8

Parents:

20b4e44

git-author:

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

git-committer:

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

Message:

Program generujacy konfiguracje pyta sie o wybor slownika.
Dolozylem obsluge plikow tymczasowych w compiledict.
Zamienilem system na ` w perlu.

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

File:

• app/dist/common/utt_make_config.pl (modified) (4 diffs)

app/dist/common/utt_make_config.pl

@@ -12 +12 @@
 
 prepareUttUsrHome($usr_home);
+conf_utt(catfile($usr_home, 'utt.conf'), $sys_home);
+
 conf_cor(catfile($usr_home, 'cor.conf'), $sys_home);
 conf_grp(catfile($usr_home, 'grp.conf'), $sys_home);
@@ -17 +19 @@
 conf_lem(catfile($usr_home, 'lem.conf'), $sys_home);
 conf_ser(catfile($usr_home, 'ser.conf'), $sys_home);
-conf_utt(catfile($usr_home, 'utt.conf'), $sys_home);
 
 print "UTT user configuration created in $usr_home\n";
@@ -27 +28 @@
     my $dir = shift;
 
-        if(-d $dir) {
-                print "Old configuration will be deleted!\n";
-                my $cnt = unlink <$dir/*>;
-                print "$cnt files deleted.\n";
+    print "Preparing user configuration.\n";
+
+    if(-d $dir) {
+        print "Old configuration detected. ";
+        my $cnt = unlink <$dir/*>;
+        print "($cnt files deleted)\n";
+    }
+    else {
+        print "Creating directory $dir\n";
+        if(1 != mkdir $dir) {
+            die "Unable to create UTT user configuration!\n";
         }
-        else {
-                print "Creating directory $dir\n";
-                if(1 != mkdir $dir) {
-                  die "Unable to create UTT user configuration!\n";
-                }
-        }
+    }
 }
 
@@ -114 +117 @@
         my $utt_file = shift;
         my $utthome = shift;
+
+        my $lang = getUserLanguage(abs_path(catdir($utthome, "share/utt")));
+
   open(FILE, ">$utt_file");
 
   print FILE makeConfigHeader();
-  print FILE "# user locale\n";
-  print FILE "language=", findLocale(), "\n";
+  print FILE "# user locale (dictionary)\n";
+  print FILE "language=", $lang, "\n";
 
   close FILE;
+}
+
+sub getUserLanguage() {
+    my $dict_dir = shift;
+
+    print "Setup dictionaries.\n";
+    
+    opendir(DIR, $dict_dir) || die "Install dictionary first!\n";
+    @files = grep(/[^\.{1,2}]/ && -d "$dict_dir/$_", readdir(DIR));
+    closedir DIR;
+    my $cnt = scalar @files;
+    print "$cnt dictionary(ies) found.\n";
+    if(0 == $cnt) {
+        die("Install dictionary first!\n");
+    }
+
+    foreach my $file (@files) {
+        print "Do you select dictionary $file [yes/no]? ";
+        my $ans = <STDIN>;
+        if($ans =~ /y(es)?/i) {
+            return $file;
+        }
+    }
+    die "No dictionary selected - setup failed!\n";
 }