From bae17e52831b86407f21d6cb4bead49e390a29fb Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 23 May 2019 14:07:49 +0200
Subject: [PATCH] (Ara) add AdjAsNP to ExtendAra

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

diff --git a/src/arabic/ExtendAra.gf b/src/arabic/ExtendAra.gf
index ec6437831..27868c963 100644
--- a/src/arabic/ExtendAra.gf
+++ b/src/arabic/ExtendAra.gf
@@ -6,7 +6,7 @@ concrete ExtendAra of Extend =
     EmptyRelSlash, PredAPVP,
     ComplDirectVS, ComplDirectVQ, -- because of Utt
     VPS, MkVPS, PredVPS, BaseVPS, ConsVPS, ConjVPS,
-    EmbedSSlash
+    EmbedSSlash, AdjAsNP
 ]
   with (Grammar=GrammarAra)
   ** open
@@ -43,6 +43,15 @@ lin
   DetNPMasc det = emptyNP ** {s = det.s ! NoHum ! Masc} ;
   DetNPFem det = emptyNP ** {s = det.s ! NoHum ! Fem} ;
 
+  -- : AP -> NP
+  AdjAsNP ap = 
+  let adjAsN : Noun = {
+        s = ap.s ! NoHum ! Masc ;
+        s2 = emptyNTable ;
+        g = Masc ;
+        h = NoHum ;
+        isDual = False } ;
+   in MassNP (UseN adjAsN) ;
 
   -- : ClSlash -> RCl  -- he lives in
   EmptyRelSlash = RelSlash (IdRP ** {s = \\_ => []}) ;