godis tram grammars, augmented with Fin

2006-11-08 15:08:09 +00:00
parent 5815ec730a
commit 8680d918f6
45 changed files with 2626 additions and 0 deletions
--- a/examples/godis-tram/Tram/TramUserFin.gf
+++ b/examples/godis-tram/Tram/TramUserFin.gf
@@ -0,0 +1,14 @@
+--# -path=.:../Common:prelude:alltenses:mathematical
+
+concrete TramUserFin of TramUser = TramUserFin0-[stop_dest_stop, stop_dept_stop] **
+  open GrammarFin, GodisLangFin, TramLexiconFin in {
+
+lin
+  stop_dest_stop x y = 
+    UttAdv (mkAdv (
+      fromStr Adv (PrepNP (casePrep from_Case) x) ++
+      fromStr Adv (PrepNP (casePrep to_Case) y)
+        )
+      ) ;
+}
+