resource = resource-1.0

2006-06-22 22:25:55 +00:00
parent 7e5584b1ab
commit 251bc4c738
881 changed files with 31130 additions and 31130 deletions
--- a/lib/resource/finnish/ExtraFin.gf
+++ b/lib/resource/finnish/ExtraFin.gf
@@ -0,0 +1,20 @@
+concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Prelude in {
+
+  lin
+    GenNP np = {
+      s1 = \\_,_ => np.s ! NPCase Gen ;
+      s2 = [] ;
+      isNum  = False ;
+      isPoss = False ;
+      isDef  = True  --- "Jussin kolme autoa ovat" ; thus "...on" is missing
+      } ;
+
+    AdvExistNP adv np = 
+      mkClause (\_ -> adv.s) np.a (insertObj 
+        (\\_,b,_ => np.s ! NPCase Nom) (predV (verbOlla ** {sc = NPCase Nom}))) ;
+
+    AdvPredNP  adv v np =
+      mkClause (\_ -> adv.s) np.a (insertObj 
+        (\\_,b,_ => np.s ! NPCase Nom) (predV v)) ;
+
+}