Changeset ff0fc99 for app/dist/common

Timestamp:

04/22/08 21:11:12 (17 years ago)

Author:

pawelk <pawelk@…>

Branches:

master, help

Children:

cfed5c1

Parents:

b6109b9

git-author:

pawelk <pawelk@…> (04/22/08 21:11:12)

git-committer:

pawelk <pawelk@…> (04/22/08 21:11:12)

Message:

Poprawilem dystrybucje z dgp. Pewne pliki sa jeszcze niedokonczone.

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

File:

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

app/dist/common/utt_make_config.pl

@@ -21 +21 @@
 conf_lem(catfile($usr_home, 'lem.conf'), $sys_home);
 conf_ser(catfile($usr_home, 'ser.conf'), $sys_home);
+conf_dgc(catfile($usr_home, 'dgc.conf'), $sys_home);
 
 print "UTT user configuration created in $usr_home\n";
@@ -214 +215 @@
         return $best_locale;
 }
+
+sub conf_dgc() {
+        my $dgc_file = shift;
+        my $utthome = shift;
+  open(FILE, ">$dgc_file");
+
+  print FILE makeConfigHeader();
+  print FILE "categories=", abs_path("$utthome/lib/utt/cats.dgc"), "\n";
+  print FILE "grammar=", abs_path("$utthome/lib/utt/gram.dgc"), "\n";
+
+  close FILE;
+  
+  
+  open(FILE, ">$utthome/bin/Makefile.go");
+  print FILE "\ngram.dgp: ", abs_path("$utthome/lib/utt/gram.dgc"), "\n";
+  print FILE "\tdgc -c ", abs_path("$utthome/lib/utt/cats.dgc"), " < ", abs_path("$utthome/lib/utt/gram.dgc"), " > gram.dgp\n";
+  close FILE;
+  
+}
+