From 0a737299c12fda58086fdb77f98c274584284d3a Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 1 Jan 2019 09:51:27 +0200
Subject: [PATCH] (Ara) replace old have_V2 ('X owns Y') with the structure 'Y
 is on X'

---
 src/arabic/ResAra.gf        | 18 +++++++++++++++++-
 src/arabic/StructuralAra.gf |  3 ++-
 2 files changed, 19 insertions(+), 2 deletions(-)

diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf
index e4d18bbd..ff48d1e7 100644
--- a/src/arabic/ResAra.gf
+++ b/src/arabic/ResAra.gf
@@ -1466,7 +1466,6 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
     theyMasc_Pron   : NP = mkPron "هُمْ"  "هُمْ"  "هُمْ"  (Per3 Masc Pl) ;
     theyFem_Pron    : NP = mkPron "هُنَّ" "هُنَّ" "هُنَّ" (Per3 Fem  Pl) ;
 
-
     -- Used e.g. to encode the subject as an object clitic
     -- or to find a possessive suffix corresponding to the NP.
     -- If the NP is a pronoun, just use itself.
@@ -1512,6 +1511,23 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
         VPPart        => v.s ! vf ++ reflPron Acc (Per3 Masc Sg) ----
         }
       } ;
+
+  ladaa_V : Verb =
+    let laday : PerGenNum -> Str = \pgn -> case pgn of {
+          Per1 Sing    => "لَدَيَّ" ;
+          Per3 Masc Sg => "لَدَيْهِ" ;    -- vowel assimilation
+          Per3 Masc Dl => "لَدَيْهِمَا" ; -- vowel assimilation
+          Per3 Masc Pl => "لَدَيْهِم" ;   -- vowel assimilation
+          Per3 Fem  Pl => "لَدَيْهِنَّ" ; -- vowel assimilation
+          _            => "لَدَيْ" + (pgn2pron pgn).s ! Gen
+        } ;
+     in { s = table {
+      VImpf Ind Act pgn  => laday pgn ;
+      vf@(VImpf _ _ pgn) => copula.s ! vf ++ laday pgn ;
+      vf@(VPerf _ pgn)   => copula.s ! vf ++ laday pgn ;
+      vf@(VImp g n)      => copula.s ! vf ++ laday (Per2 g n) ;
+      VPPart             => copula.s ! VPPart ++ "لَدَى" }
+    } ;
 -----------------------------------------------------------------------------
 -- IP, questions
 
diff --git a/src/arabic/StructuralAra.gf b/src/arabic/StructuralAra.gf
index 01b41b4c..5db24286 100644
--- a/src/arabic/StructuralAra.gf
+++ b/src/arabic/StructuralAra.gf
@@ -122,7 +122,8 @@ concrete StructuralAra of Structural = CatAra **
   youPl_Pron = youPlMasc_Pron ;
   youPol_Pron = youPlFem_Pron ; -- arbitrary?
 
-  have_V2      = dirV2 (regV "يَملِك") ;
+  have_V2 = mkV2 ladaa_V (casePrep nom) ; -- "X has Y" literally "Y<nom> is on X<nom>"
+  --have_V2 = dirV2 (regV "يَملِك") ; -- "X<nom> owns/possesses Y<acc>"
 
   lin language_title_Utt = {s = \\_ => "العربية"} ;