From 5a2aedbffa6357fea1ec2da35ae87db372fdaa08 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 22 Feb 2019 17:50:15 +0100
Subject: [PATCH] (Pes) WIP merge auxBe and beVerb

---
 src/persian/MorphoPes.gf | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/src/persian/MorphoPes.gf b/src/persian/MorphoPes.gf
index 3a85bf809..adc16b280 100644
--- a/src/persian/MorphoPes.gf
+++ b/src/persian/MorphoPes.gf
@@ -329,6 +329,7 @@ oper
           _ => mkCmnVF dasht dar pol t ag
         } ;
 
+  -- TODO: merge with auxBe in ResPes
   beVerb : Verb = { s = table {
     Vvform agr => imperfectSuffixD agr "باش" ;
     Imp Pos Sg => "باش" ;
@@ -338,7 +339,18 @@ oper
     Inf => "بودن" ;
     Root1 => "بود" ;
     Root2 => "باش" ;
-    VF pol tense agr => mkCmnVF "بود" "باش" pol tense agr
-   }
+    VF pol tense agr =>
+      let impfSuff = imperfectSuffix agr ;
+          perfSuff = perfectSuffix agr
+      in case <pol,tense,agr> of {
+       <Pos,PPresent2 PrImperf,Ag Sg P3> => "است" ;
+       <Pos,PPresent2 PrImperf>          => impfSuff "هست" ;
+       <Pos,PPresent2 PrPerf>            => perfSuff "بوده" ;
+       <Neg,PPresent2 PrImperf,Ag Sg P3> => "نیست" ;
+       <Neg,PPresent2 PrImperf>          => impfSuff "نیست" ;
+       <Neg,PPresent2 PrPerf>            => perfSuff "نبوده" ;
+       _                                 => mkCmnVF "بود" "باش" pol tense agr
+       }
+    }
   } ;
 }