CompCN added to Ger Fin Dut Rus Pol

2010-12-07 20:23:57 +00:00
parent ff23d6db76
commit 1c2b1828b1
6 changed files with 71 additions and 3 deletions
--- a/lib/src/finnish/VerbFin.gf
+++ b/lib/src/finnish/VerbFin.gf
@@ -99,6 +99,16 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
              }            --- definiteness of NP ?
          in ap.s ! False ! (NCase n c)
      } ;
+    CompCN cn = {
+      s = \\agr => 
+          let
+            n = complNumAgr agr ;
+            c = case n of {
+              Sg => Nom ;  -- minä olen iso ; te olette iso
+              Pl => Part   -- me olemme isoja ; te olette isoja
+              }            --- definiteness of NP ?
+          in cn.s ! (NCase n c)
+      } ;
    CompNP np = {s = \\_ => np.s ! NPCase Nom} ;
    CompAdv a = {s = \\_ => a.s} ;