From 18f66b3e23218ff1f851bedeb7076c0ba1c41c59 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 20 Sep 2018 09:58:17 +0200
Subject: [PATCH] (Ara) add which_IQuant

---
 src/arabic/StructuralAra.gf | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/arabic/StructuralAra.gf b/src/arabic/StructuralAra.gf
index 989258830..3982df417 100644
--- a/src/arabic/StructuralAra.gf
+++ b/src/arabic/StructuralAra.gf
@@ -95,8 +95,16 @@ concrete StructuralAra of Structural = CatAra **
   when_IAdv = ss "مَتَى" ;
 --  when_Subj = ss "وهن" ;
   where_IAdv = ss "أَينَ" ;
---  whichPl_IDet = mkDeterminer Pl ["وهِعه"] ;
---  whichSg_IDet = mkDeterminer Sg ["وهِعه"] ;
+  which_IQuant = {
+    s = \\s,c => case <c,s> of {
+		     <Nom,Indef> => "أيٌّ" ;
+		     <Nom,_>     => "أيُّ" ;
+		     <Acc,Indef> => "أيّاً" ;
+		     <Acc,_>     => "أيَّ" ;
+		     <Gen,Indef> => "أيٍّ" ;
+		     <Gen,_>     => "أيِّ"
+		     }
+    } ;
   whoSg_IP = mkIP "مَنْ" Sg ;
   whoPl_IP = mkIP "مَنْ" Pl ;
 --  why_IAdv = ss "وهي" ;