(Ara) VV and related functions

src/arabic/VerbAra.gf

@@ -17,9 +17,13 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra in {
                  a = {pgn = Per3 Masc Sg ; isPron = False} } --FIXME
       (predV v) ;-}
 
-    -- First dummy implementation / IL 2018-09-06
-    ComplVV v vp = insertStr (linVP vp) (predV v) ;
---
+    ComplVV vv vp =  --- IL
+      predV vv ** {
+       s2   = vv.c2 ;     -- add the preposition of the VV. TODO: do we need a separate field in the VP?
+       pred = compVP vp ; -- add VP complement in pred. TODO: what agreement features are needed?
+       isPred = False } ; {- Despite verb complement being in pred, it's not predicative.
+                             Changing this to True causes PredVP to not include the verb. -}
+
 --    ComplVS v s  = insertObj (\\_ => conjThat ++ s.s) (predV v) ;
 --    ComplVQ v q  = insertObj (\\_ => q.s ! QIndir) (predV v) ;
 --