Merge pull request #144 from inariksit/arabic

(Ara) misc small fixes

src/arabic/AdverbAra.gf

@@ -13,7 +13,7 @@ concrete AdverbAra of Adverb = CatAra ** open ResAra, Prelude in {
 
     PrepNP prep np = {s = prep.s ++ bindIf (orB np.a.isPron prep.binds) ++ np.s ! prep.c} ;
 
-    AdAdv ad av = cc2 av ad ;
+    AdAdv ad av = cc2 ad av ;
 
     -- : Subj -> S -> Adv ;              -- when she sleeps
     SubjS subj s = {s = subj.s ++ s.s ! subj.o} ;

src/arabic/ResAra.gf

@@ -194,7 +194,7 @@ resource ResAra = PatternsAra ** open  Prelude, Predef, OrthoAra, ParamX  in {
       } ;
 
     uttNum : NumOrdCard -> (Gender => Str) ;
-    uttNum n = \\g => n.s ! g ! Const ! Bare ;
+    uttNum n = \\g => n.s ! Fem ! Const ! Bare ;
 
   param
     VForm =
@@ -2031,8 +2031,8 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
 
     regNum : Str -> Str ->
       {s : DForm => CardOrd => Gender => State => Case => Str} =
-      \xams,xAmis ->
-      let { xamsa = xams + "َة";
+      \xams{-card-}, xAmis{-ord-} ->
+      let { xamsa = xams ; -- + "َة";
             xAmisa = xAmis +  "َة"} in
       mkNum xamsa xAmis xAmisa;
 

src/arabic/StructuralAra.gf

@@ -72,7 +72,7 @@ concrete StructuralAra of Structural = CatAra **
   possess_Prep = liPrep ;
 --  quite_Adv = ss "قُِتي" ;
   she_Pron = ResAra.she_Pron ;
---  so_AdA = ss "سْ" ;
+  so_AdA = very_AdA ;
   somebody_NP = regNP "أَحَد" Sg Indef ;
   someSg_Det = mkDet "أَحَد" Sg Const ;
   somePl_Det = mkDet "بَعض" Pl Const ;
@@ -94,7 +94,7 @@ concrete StructuralAra of Structural = CatAra **
 --  too_AdA = ss "تّْ" ;
   to_Prep = mkPrep "إِلَى" ;
   under_Prep = mkPrep "تَحْتَ" ;
---  very_AdA = ss "ثري" ;
+  very_AdA = ss "جِدّاً" ;
   want_VV = mkVV (mkV "رود" FormIV) ;
   we_Pron = ResAra.we_Pron ;
   whatPl_IP = mkIP "ما" "ماذا" Pl ;