From fc7bede5633056f5a9f715e9b5bb8cd6a39a13e7 Mon Sep 17 00:00:00 2001
From: David Bamutura <davidbamutura@gmail.com>
Date: Tue, 27 Oct 2020 01:35:41 +0300
Subject: [PATCH] modified the fun UttVP in PhraseCgg.gf to allow formation of
 Verb Phrase Utterances with various complements e.g to sleep == kugwenjegyera

---
 src/rukiga/PhraseCgg.gf | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/rukiga/PhraseCgg.gf b/src/rukiga/PhraseCgg.gf
index d8b6eae0..72f19571 100755
--- a/src/rukiga/PhraseCgg.gf
+++ b/src/rukiga/PhraseCgg.gf
@@ -33,8 +33,14 @@ lin
   --UttAdv    : Adv  -> Utt ;               -- here
   UttAdv adv = {s= adv.s};
 
-  --can be improved upon
-  UttVP vp  = {s = vp.adv ++ vp.s ++ BIND ++ vp.pres ++ vp.comp ++vp.comp2 ++ vp.ap };
+  -- better but can be improved upon
+  UttVP vp  = case <vp.isCompApStem,vp.containsAdv, vp.containsAdV,vp.containsComp, vp.containsComp2> of {
+                <False,False,True,False,False> => {s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres ++ vp.adV};
+                <False,True,False,False,False> =>{s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres ++ vp.adv};
+                <_, _,_,True,False>  => {s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres ++ vp.comp};
+                <_, _,_,True, True> => {s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres ++ vp.comp ++ vp.comp2};
+                <_, _,_,_, _>    => {s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres}
+              };
 
   UttAP ap  = {s=ap.s!(AgP3 Sg KI_BI)};