From 0e8cba1d51b51c9897969adc8cdbbfc986bc5124 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Sun, 30 Dec 2018 19:25:00 +0200
Subject: [PATCH] (Ara) WIP fixing possessive dual forms. Doesn't work yet
 properly.

---
 src/arabic/NounAra.gf | 2 +-
 src/arabic/ResAra.gf  | 8 +++++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/arabic/NounAra.gf b/src/arabic/NounAra.gf
index 003d2eff..1372f5ac 100644
--- a/src/arabic/NounAra.gf
+++ b/src/arabic/NounAra.gf
@@ -106,7 +106,7 @@ lin
   PossPron p = baseQuant ** {
     s = \\_,_,_,_ => BIND ++ p.s ! Gen;
     d = Poss;
-    is1sg = case p.a.pgn of { Per1 Sing => True ; _ => False } ;
+    is1sg = is1sg p.a ;
     isPron = True} ;
 
   NumSg = {
diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf
index aa9286ed..e4b8b20d 100644
--- a/src/arabic/ResAra.gf
+++ b/src/arabic/ResAra.gf
@@ -1181,11 +1181,17 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
     --dual suffixes
     dl : State => Case => Str =
       table {
-        (Const|Poss) =>
+        Const =>
           table {
             Nom => "َا";
             _   => "َيْ"
           };
+        Poss =>
+          table {
+            Nom => "َا" ; -- wrong for 1st person poss. suff
+            Bare => "َيَّ" ; -- this covers 1st person for genitive and accusative
+            _   => "َيْ"
+          };
         _ =>
           table {
             Nom  => "َانِ";