From c660dd6aa5922722ac1c66f03cbe4c7f5137cddc Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari@gokubi.local>
Date: Mon, 17 Sep 2018 15:57:09 +0200
Subject: [PATCH] (Ara) couple of additions

---
 src/arabic/LexiconAra.gf    | 2 +-
 src/arabic/PhraseAra.gf     | 4 +++-
 src/arabic/StructuralAra.gf | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/arabic/LexiconAra.gf b/src/arabic/LexiconAra.gf
index 7f52d52bd..1230c4e67 100644
--- a/src/arabic/LexiconAra.gf
+++ b/src/arabic/LexiconAra.gf
@@ -112,7 +112,7 @@ flags
   iron_N       = brkN "حدّ" "فَعِيل" "فَعائِل" Masc NoHum ;
   king_N       = brkN "ملك" "فَعِل" "فُعُول" Masc Hum ;
   know_V2      = dirV2 (regV "عَرِف") ;
---  know_V2      = dirV2 (v1 "عرف" i a) ;
+  know_VS      = mkVS (regV "عَرِف") ; -- or with ع ل م‎?
   lake_N       = sdfN "بحر" "فُعَيلة" Fem NoHum ;
   lamp_N       = brkN "صبح" "مِفعال" "مَفاعِيل" Masc NoHum ; --qanDIl, fAnUs
   learn_V2     = dirV2 (v5 "علم") ;
diff --git a/src/arabic/PhraseAra.gf b/src/arabic/PhraseAra.gf
index f60f0c788..8f5f2bb01 100644
--- a/src/arabic/PhraseAra.gf
+++ b/src/arabic/PhraseAra.gf
@@ -18,7 +18,9 @@ concrete PhraseAra of Phrase = CatAra ** open
     UttIP ip = {s = \\_ => ip.s} ; ---- AR
 
      -- AP = { s : Species => Gender => Number => State => Case => Str } ;
-    UttAP ap = {s = \\g => ap.s ! NoHum ! g ! Sg ! Def ! Nom } ;  ---- OK? IL
+    UttAP ap = {s = \\g => ap.s ! NoHum ! g ! ResAra.Sg ! Def ! Nom } ;  ---- OK? IL
+    -- Card =  {s : Gender => State => Case => Str } ;
+    UttCard c = {s =  \\g => c.s ! g ! Def ! Nom } ;  ---- OK? IL
 
 --    UttIAdv iadv = iadv ;
     UttNP np = {s = \\_ => np.s ! Nom} ;
diff --git a/src/arabic/StructuralAra.gf b/src/arabic/StructuralAra.gf
index e58a76b25..989258830 100644
--- a/src/arabic/StructuralAra.gf
+++ b/src/arabic/StructuralAra.gf
@@ -39,7 +39,7 @@ concrete StructuralAra of Structural = CatAra **
 --  here7to_Adv = ss ["تْ هري"] ;
 --  here7from_Adv = ss ["فرْم هري"] ;
   how_IAdv = ss "كَيفَ" ;
---  how8many_IDet = mkDeterminer Pl ["هْو مَني"] ;
+--  how8many_IDet = mkDet "كَمْ" Pl Const ;   -- IL: check (was ["هْو مَني"]) ;
 --  if_Subj = ss "ِف" ;
   in8front_Prep = ss "مُقَابِلَ" ;
   i_Pron  = mkPron "أَنَا" "نِي" "ِي" (Per1 Sing);