From 57101f78080481ae5130a1e0d4cd8d75c184d93f Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Sat, 29 Dec 2018 21:25:51 +0200
Subject: [PATCH] (Ara) add how_old_QCl and why_IAdv

---
 src/arabic/ConstructionAra.gf | 7 ++++++-
 src/arabic/StructuralAra.gf   | 2 +-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/arabic/ConstructionAra.gf b/src/arabic/ConstructionAra.gf
index 7c39fce1..4a06efc2 100644
--- a/src/arabic/ConstructionAra.gf
+++ b/src/arabic/ConstructionAra.gf
@@ -69,7 +69,12 @@ lin
         what_IP : R.IP = R.mkIP "مَا هُوَ" R.Sg ;
      in mkQCl what_IP myName ;
 
---  how_old_QCl
+  how_old_QCl np =
+    let subjPron : Pron = R.np2pron np ;
+        me : R.NP = toNP np.a.isPron np ;
+        age_N = mkN "عُمر" ;
+        myAge : NP = E.ApposNP me (mkNP (mkDet subjPron) L.name_N) ;
+     in mkQCl what_IP myAge ;
 
 --  hungry_VP =
 --  thirsty_VP =
diff --git a/src/arabic/StructuralAra.gf b/src/arabic/StructuralAra.gf
index e8bb48b6..5f3c3451 100644
--- a/src/arabic/StructuralAra.gf
+++ b/src/arabic/StructuralAra.gf
@@ -114,7 +114,7 @@ concrete StructuralAra of Structural = CatAra **
     } ;
   whoSg_IP = mkIP "مَنْ" "مَنْ" Sg ;
   whoPl_IP = mkIP "مَنْ" "مَنْ" Pl ;
---  why_IAdv = ss "وهي" ;
+  why_IAdv = ss "لِمَاذَا" ;
   without_Prep = mkPrep "بِدُونِ" ;
   with_Prep = mkPrep "مَع" ;
   yes_Utt = {s = \\_ => "نَعَم"} ;