From ca3f218122f0a345eed2de38385c7f8d37e65fd7 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 6 May 2016 08:13:35 +0000
Subject: [PATCH] fix the tenses in slovenian

---
 lib/src/slovenian/ResSlv.gf | 42 +++++++++++++++++++++++++++++++++++--
 1 file changed, 40 insertions(+), 2 deletions(-)

diff --git a/lib/src/slovenian/ResSlv.gf b/lib/src/slovenian/ResSlv.gf
index 15a7fd185..5bb56be86 100644
--- a/lib/src/slovenian/ResSlv.gf
+++ b/lib/src/slovenian/ResSlv.gf
@@ -35,13 +35,51 @@ oper
   predV : (VForm => Str) -> VP =
     \v -> { s = table {
                   Pres => \\a => v ! VPres a.n a.p ;
-                  Past => \\a => "biti" ++ v ! VPastPart a.g a.n ;
-                  Fut  => \\a => "biti" ++ v ! VPastPart a.g a.n ;
+                  Past => \\a => sem_V ! a.n ! a.p ++ v ! VPastPart a.g a.n ;
+                  Fut  => \\a => bom_V ! a.n ! a.p ++ v ! VPastPart a.g a.n ;
                   Cond => \\a => "bi" ++ v ! VPastPart a.g a.n
                 } ;
             s2= \\a => ""
           } ;
 
+  sem_V : Number => Person => Str =
+    table {
+      Sg => table {
+              P1 => "sem" ;
+              P2 => "si" ;
+              P3 => "je"
+            } ;
+      Dl => table {
+              P1 => "sva" ;
+              P2 => "sta" ;
+              P3 => "sta"
+            } ;
+      Pl => table {
+              P1 => "smo" ;
+              P2 => "ste" ;
+              P3 => "so"
+            }
+    } ;
+
+  bom_V : Number => Person => Str =
+    table {
+      Sg => table {
+              P1 => "bom" ;
+              P2 => "boš" ;
+              P3 => "bo"
+            } ;
+      Dl => table {
+              P1 => "bova" ;
+              P2 => "bosta" ;
+              P3 => "bosta"
+            } ;
+      Pl => table {
+              P1 => "bomo" ;
+              P2 => "boste" ;
+              P3 => "bodo"
+            }
+    } ;
+
   Clause : Type = {
     s : Tense => Anteriority => Polarity => Str
     } ;