From fc0c5041071690899e90a90a37f244ff0fe2d8a3 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 30 Nov 2018 14:12:28 +0100
Subject: [PATCH] (Ara) Add new constructor irregFemA

---
 src/arabic/ParadigmsAra.gf | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf
index f13c1664d..9c4a22c50 100644
--- a/src/arabic/ParadigmsAra.gf
+++ b/src/arabic/ParadigmsAra.gf
@@ -145,6 +145,8 @@ resource ParadigmsAra = open
 
   degrA : (posit,compar,plur : Str) -> A ;
 
+  irregFemA : (masc : A) -> (fem : A) -> A ; -- adjective with irregular feminine. Takes two adjectives (masc. "regular" and fem. "regular") and puts them together.
+
 --Takes a root string and a pattern string
   sndA : (root,patt : Str) -> Adj ;
 
@@ -623,6 +625,8 @@ resource ParadigmsAra = open
   degrA : (posit,compar,plur : Str) -> A
     = \posit,compar,plur -> lin A {s = clr posit compar plur} ;
 
+
+
   sndA root pat =
     let  raw = sndA' root pat in {
       s = \\af =>
@@ -643,6 +647,13 @@ resource ParadigmsAra = open
         }
     };
 
+  irregFemA : (masc : A) -> (fem : A) -> A = \m,f -> m ** {
+    s = table {
+      APosit Masc n d c => m.s ! APosit Masc n d c ;
+      APosit Fem  n d c => f.s ! APosit Masc n d c ; -- The fem. adjective is built as if the irregular fem. forms were Masc. This is on purpose.
+      x => m.s ! x }
+    } ;
+
   nisbaA : Str -> Adj = \Haal ->
     let Haaliyy = Haal + "ِيّ" in {
       s = table {