bug fixes in Finnish

2026-05-16 22:52:50 -06:00 · 2008-11-05 19:28:14 +00:00
parent 5f78c8fa67
commit bd6fb074aa
6 changed files with 74 additions and 33 deletions
--- a/next-lib/src/finnish/ResFin.gf
+++ b/next-lib/src/finnish/ResFin.gf
@@ -586,4 +586,20 @@ oper
    } ;

  etta_Conj : Str = "että" ;
+
+    heavyDet : PDet -> PDet ** {sp : Case => Str} = \d -> d ** {sp = d.s1} ;
+    PDet : Type = {
+      s1 : Case => Str ;
+      s2 : Str ;
+      n : Number ;
+      isNum : Bool ;
+      isPoss : Bool ;
+      isDef : Bool
+      } ;
+
+    heavyQuant : PQuant -> PQuant ** {sp : Number => Case => Str} = \d -> 
+      d ** {sp = d.s1} ; 
+    PQuant : Type =  
+      {s1 : Number => Case => Str ; s2 : Str ; isPoss : Bool ; isDef : Bool} ; 
+
 }