Changeset ac7d970 for app/dist/common/utt_make_config.pl

Timestamp:

04/08/08 13:53:51 (17 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

0214596

Parents:

317d53b

git-author:

pawelk <pawelk@…> (04/08/08 13:53:51)

git-committer:

pawelk <pawelk@…> (04/08/08 13:53:51)

Message:

Uaktualnilismy kora.

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

File:

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

app/dist/common/utt_make_config.pl

@@ -15 +15 @@
 
 conf_cor(catfile($usr_home, 'cor.conf'), $sys_home);
+conf_kor(catfile($usr_home, 'kor.conf'), $sys_home);
 conf_compiledic(catfile($usr_home, 'compiledic.conf'), $sys_home);
 conf_grp(catfile($usr_home, 'grp.conf'), $sys_home);
@@ -99 +100 @@
 }
 
+sub conf_kor() {
+        my $kor_file = shift;
+        my $utthome = shift;
+  open(FILE, ">$kor_file");
+
+  print FILE makeConfigHeader();
+  print FILE "dictionary-home=", abs_path("$utthome/share/utt"), "\n";
+  print FILE "weights=", abs_path("$utthome/lib/utt/weights.cor"), "\n";
+  print FILE "threshold=1.0\n";
+
+  close FILE;
+}
+
 sub conf_grp() {
         my $grp_file = shift;