(Ara) add parameter to uttVP oper

src/arabic/CatAra.gf

@@ -96,6 +96,6 @@ linref
 
   CN = \cn -> uttCN cn ! Masc ;
   N = \n -> uttCN (useN n) ! Masc ;
-  VP = \vp -> uttVP vp ! Masc ;
+  VP = \vp -> uttVP VPPerf vp ! Masc ;
 
 }

src/arabic/PhraseAra.gf

@@ -18,7 +18,7 @@ concrete PhraseAra of Phrase = CatAra ** open
 
     UttCN cn = {s = ResAra.uttCN cn } ; --IL
     UttNP np = {s = \\_ => np.s ! Nom} ;
-    UttVP vp = {s = uttVP vp} ; --IL
+    UttVP vp = {s = uttVP VPPerf vp} ; --IL
     UttS s = {s = \\_ => s.s ! Verbal} ;
     UttAdv,
     UttIAdv = \s -> {s = \\_ => s.s} ; ---- OK? AR

src/arabic/ResAra.gf

@@ -1749,8 +1749,8 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
       s : PerGenNum => VPForm => Str ;
       } ;
 
-    uttVP : VP -> (Gender=>Str) = \vp ->
-     \\g => vp.s ! Per3 g Sg ! VPPerf
+    uttVP : VPForm -> VP -> (Gender=>Str) = \vpf,vp ->
+     \\g => vp.s ! Per3 g Sg ! vpf
          ++ vp.obj.s ++ vp.pred.s ! {n = Sg ; g = g} ! Nom
          ++ vp.s2 ;
 

src/arabic/SentenceAra.gf

@@ -44,7 +44,7 @@ concrete SentenceAra of Sentence = CatAra ** open
 
     EmbedS  s  = {s = "أَنْ" ++ s.s ! Verbal} ;
     EmbedQS qs = {s = qs.s ! QIndir} ;
-    EmbedVP vp = {s = uttVP vp ! Masc} ;
+    EmbedVP vp = {s = uttVP VPPerf vp ! Masc} ; -- TODO: use VPGer once it's more stable
 
     UseCl t p cl =
       {s = \\o => t.s ++ p.s ++