Changeset a4d0da5 for app/dist/common

Timestamp:

03/27/08 20:49:46 (16 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

2fe08ac

Parents:

ef85bd7

git-author:

pawelk <pawelk@…> (03/27/08 20:49:46)

git-committer:

pawelk <pawelk@…> (03/27/08 20:49:46)

Message:

Zmodyfikowalem pliki licencji i praw, poprawilem generowanie tarballa dla slownikow, uaktualnilem generowanie konfiguracji o plik compiledict.conf.

git-svn-id: ​svn://atos.wmid.amu.edu.pl/utt@18 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_compiledic(catfile($usr_home, 'compiledic.conf'), $sys_home);
 conf_grp(catfile($usr_home, 'grp.conf'), $sys_home);
 conf_gue(catfile($usr_home, 'gue.conf'), $sys_home);
@@ -59 +60 @@
 }
 
+sub conf_compiledic() {
+        my $compiledic_file = shift;
+        my $utthome = shift;
+  open(FILE, ">$compiledic_file");
+
+  print FILE makeConfigHeader();
+  my $hm = home();
+  my $lang=`grep language $hm/.utt/utt.conf | cut -d= -f 2`;
+  chomp $lang;
+# powinno byc $utthome/share/utt/pl_PL.ISO-8859-2/pl_PL.ISO-8892-2.sym
+# ale to bez sensu
+  print FILE "symbols=", abs_path("$utthome/share/utt");
+  print FILE "/$lang/$lang.sym\n";
+
+  close FILE;
+}
+
+sub conf_grp() {
+        my $grp_file = shift;
+        my $utthome = shift;
+  open(FILE, ">$grp_file");
+
+  print FILE makeConfigHeader();
+  print FILE "macros=", abs_path("$utthome/lib/utt/terms.m4"), "\n";
+
+  close FILE;
+}
+
 sub conf_cor() {
         my $cor_file = shift;