From 422ace88793295e3ecc589bad739d713516a2161 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 31 Dec 2018 14:11:04 +0200
Subject: [PATCH] (Ara) Add n_units_AP in ConstructionAra

---
 src/arabic/ConstructionAra.gf | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/arabic/ConstructionAra.gf b/src/arabic/ConstructionAra.gf
index 4a06efc23..21a008470 100644
--- a/src/arabic/ConstructionAra.gf
+++ b/src/arabic/ConstructionAra.gf
@@ -46,10 +46,19 @@ lin
   intYear = symb ;
   intMonthday = symb ;
 
---  n_units_AP
-
+  -- : Card -> CN -> A -> AP
+  n_units_AP card cn a = 
+    let ap = mkAP a in ap ** {
+      s = \\s,g,n,d,c => 
+           ap.s ! s ! g ! n ! d ! c 
+        ++ (mkAdv R.biPrep (mkNP amount_N)).s 
+        ++ (mkNP card cn).s ! R.Bare ---- ? /IL
+      } ;
 
 oper
+
+  amount_N : N = mkN "مِقْدَار" "مَقَادِير‎" masc nohum ;
+
   -- hack used in the name constructions
   toNP : Bool -> NP -> NP = \b -> if_then_else NP b R.emptyNP ;