From 7a2d4d2cfaeeb1f7383fb25b656ac462168a0dc2 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 29 Aug 2019 22:34:50 +0200
Subject: [PATCH] (Som) Bugfix in ComplVV + new test + small cleanup

---
 src/somali/VerbSom.gf         | 13 +++----------
 src/somali/unittest/vp.gftest |  3 +++
 2 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/src/somali/VerbSom.gf b/src/somali/VerbSom.gf
index fe20e85b6..42cccd0ee 100644
--- a/src/somali/VerbSom.gf
+++ b/src/somali/VerbSom.gf
@@ -22,17 +22,15 @@ lin
       miscAdv = vp.miscAdv ++ vp.obj2.s -- dump the object to miscAdv
       } ;
 
-    Subjunctive => vp ** {
-      s = vv.s ; -- check Saeed p. 169
+    Subjunctive => useV vv ** {
       stm = Waxa ;
-      vComp = vc ** {
+      vComp = vc ** { -- The whole previous VP becomes the subordinate clause
                 subcl = \\agr => 
                           let subj = pronTable ! agr ;
                               cls = predVPSlash subj vp ;
                               rcl = mergeRCl (cls.s ! True) ;
                            in "in" ++ rcl.s ! Pres ! Simul ! Pos
-              } ; -- TODO check
-      obj2 = vp.obj2 ** {s = []} ; -- dump the object to vComp.subcl
+              }
       } ;
 
     Infinitive => vp ** {
@@ -41,7 +39,6 @@ lin
         inf = vc.inf ++ vp.s ! VInf
         } ;
       stm = Waa NoPred ;
---      pred = NoPred ;
       } 
     } ;
 
@@ -144,28 +141,24 @@ lin
   CompAP ap = {
     comp = \\a => <[], ap.s ! AF (getNum a) Abs> ;
     stm = Waa Copula ;
---    pred = Copula ;
     } ;
 
   -- : CN  -> Comp ;
   CompCN cn = {
     comp = \\a => <[], cn2str Sg Abs cn> ;
     stm = Waa NoCopula ;
---    pred = NoCopula ;
     } ;
 
   --  NP  -> Comp ;
   CompNP np = {
     comp = \\a => <[], np.s ! Abs> ;
     stm = Waa NoCopula ;
---    pred = NoCopula ;
     } ;
 
   -- : Adv  -> Comp ;
   CompAdv adv = {
     comp = \\a => <[], linAdv adv> ;
     stm = Waa Copula ;
---    pred = Copula ;
     } ;
 
   -- : VP -- Copula alone;
diff --git a/src/somali/unittest/vp.gftest b/src/somali/unittest/vp.gftest
index 7de93eda5..4a29b6725 100644
--- a/src/somali/unittest/vp.gftest
+++ b/src/somali/unittest/vp.gftest
@@ -86,6 +86,9 @@ Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_P
 LangSom: ma rabo in aan buug BIND ga akhriyo
 Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PNeg (PredVP (UsePron i_Pron) (ComplVV want_VV (ComplSlash (SlashV2a read_V2) (DetCN (DetQuant DefArt NumSg) (UseN book_N))))))) NoVoc
 
+-- LangEng: you want to see us under the chair
+LangSom: waxa aad rabtaa in aad inagu aragto kursi BIND ga hoos BIND tiis BIND a
+Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron youSg_Pron) (ComplVV want_VV (AdvVP (ComplSlash (SlashV2a see_V2) (UsePron we_Pron)) (PrepNP under_Prep (DetCN (DetQuant DefArt NumSg) (UseN chair_N)))))))) NoVoc
 
 --------------------------------------------------------------------------------
 -- Adverbials