(Ara) Fixes in DetNP + some Dets and Quants

src/arabic/NounAra.gf

@@ -47,7 +47,14 @@ lin
 
   UsePron p = p ;
 
-  DetNP det = emptyNP ** {s = det.s ! NoHum ! Masc} ; ----
+  DetNP det = case det.isEmpty of {
+    True => case <det.d,det.n> of {  -- if the s field is empty, make up some other determiner
+              <Def,One>   => he_Pron ;
+              <Def,_>     => theyMasc_Pron ;
+              <Indef,One> => emptyNP ** {s = someSg_Det.s ! NoHum ! Masc} ;
+              _           => emptyNP ** {s = somePl_Det.s ! NoHum ! Masc}
+            } ;
+    False => emptyNP ** {s = det.s ! NoHum ! Masc} } ;
 
   PredetNP det np = np ** {
     s = \\c => case det.isDecl of {
@@ -75,7 +82,7 @@ lin
 
   DetQuantOrd quant num ord = quant ** {
     s = \\h,g,c => let d = toDef quant.d num.n in
-         quant.s ! Pl ! h ! g ! c
+         quant.s ! Pl ! h ! g ! c -- TODO what is this Pl? Was there when I started /IL
       ++ num.s ! g ! d ! c
       --FIXME check this:
       ++ ord.s ! g