(Ara) add AdjAsNP to ExtendAra

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 = \\_ => []}) ;