From aadc00f971dfe01d71ba40d6ff11dd489f2ac1b5 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 1 Jan 2019 17:48:57 +0200
Subject: [PATCH] (Ara) Fix geminate verb constructor

---
 src/arabic/ResAra.gf | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf
index cc6302bf5..db0d864c4 100644
--- a/src/arabic/ResAra.gf
+++ b/src/arabic/ResAra.gf
@@ -323,12 +323,14 @@ oper
         }
     } ;
 
-  --macro for geminate verbs: same behaviour as hollow verbs, except for jussive.
-  -- IL -- to be tested: there are no geminate verbs in LexiconAra
+  -- macro for geminate verbs: same behaviour as hollow verbs,
+  -- except for jussive and imperative. /IL
   verbGeminate : DefForms -> Verb = \vforms ->
-    let verbHol = verbHollow vforms
-    in { s = table {
+    let verbHol = verbHollow vforms ;
+        patImp = patGeminateImp (vforms ! 8) (vforms ! 9)
+    in { s = table { -- Jussive and imperative have fatha instead of sukun
            VImpf Jus v pgn => verbHol.s ! VImpf Cnj v pgn ;
+           VImp        g n => patImp ! g ! n + suffixImpfCJ Cnj ! Per2 g n ;
            x               => verbHol.s ! x
            }
        } ;
@@ -1002,6 +1004,12 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
     Fem  => table { Pl => xaf ; _ => xAf}
   } ;
 
+patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
+  \\g,n => case <g,n> of {
+      <Fem,Pl> => facic ;
+      _        => facc
+  } ;
+
 --Nominal Morphology
 
   caseTbl : Case => Str =