From 186c41bdbb9ebdc2a4bba553928121afbfabe50a Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 10 Jan 2019 14:25:10 +0100
Subject: [PATCH] (Ara) add nothing_NP + improve smart paradigm for nisbaA

---
 src/arabic/ParadigmsAra.gf  | 5 ++++-
 src/arabic/StructuralAra.gf | 1 +
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf
index 5d180379..3f4aa6ed 100644
--- a/src/arabic/ParadigmsAra.gf
+++ b/src/arabic/ParadigmsAra.gf
@@ -708,7 +708,10 @@ resource ParadigmsAra = open
     } ;
 
   nisbaA : Str -> Adj = \Haal ->
-    let Haaliyy = Haal + "ِيّ" in {
+    let Haaliyy = case Haal of {
+          x + "ِيّ" => Haal ; -- if the ending is already given, don't add it
+          _         => Haal + "ِيّ" -- intended usage: give only stem
+        } in {
       s = table {
         APosit g n d c  => positAdj Haaliyy ! g ! n ! d ! c ;
         AComp d c => "أَكْثَر" ++ indeclN Haaliyy ! d ! c
diff --git a/src/arabic/StructuralAra.gf b/src/arabic/StructuralAra.gf
index e86d5939..671b02e4 100644
--- a/src/arabic/StructuralAra.gf
+++ b/src/arabic/StructuralAra.gf
@@ -61,6 +61,7 @@ concrete StructuralAra of Structural = CatAra **
 --         ["هَد تْ"] ; ["هَثِنغ تْ"] ; "مُستنءت" ; ["هَدنءت تْ"]] ; ----
 --    isAux = True
 --    } ;
+  nothing_NP = regNP "لَا شَيْء" Sg Def ;
   no_Utt = {s = \\_ => "لا"} ;
   on_Prep = mkPrep "عَلَى" ;
   only_Predet = mkPredet "فَقَط" False;