conjunction in Slovenian

2016-08-16 10:35:30 +00:00
parent 6c88dcd7a3
commit c0d2623e59
5 changed files with 32 additions and 5 deletions
@@ -30,6 +30,18 @@ param
 oper
  Agr = {g : Gender; n : Number; p : Person} ;

+  conjNumber : Number -> Number -> Number = \m,n -> 
+    case m of {
+      Sg => n ;
+      _  => Pl 
+    } ;
+
+  conjAgr : Agr -> Agr -> Agr = \a,b -> {
+    g = b.g ;
+    n = conjNumber a.n b.n ;
+    p = b.p
+  } ;
+
  VP = {s : VForm => Str; s2 : Agr => Str} ;

  neg : Polarity => Tense => Str =