Merge pull request #18 from inariksit/master

(Ara) couple of additions

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 "علم") ;

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} ;

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);