(Ara) Prepositions + improve Paradigms API functions

src/arabic/StructuralAra.gf

@@ -4,8 +4,8 @@ concrete StructuralAra of Structural = CatAra **
   flags optimize=all ;  coding=utf8 ;
 
   lin
-  above_Prep = ss "فَوْقَ" ;
-  after_Prep = ss "بَعْدَ" ;
+  above_Prep = mkPrep "فَوْقَ" ;
+  after_Prep = mkPrep "بَعْدَ" ;
   all_Predet = mkPredet "كُلّ" True ;
   almost_AdA = ss "تَقْرِيباً";
   almost_AdN = ss "حَوَالي" ; -- or  "تَقرِيبا"
@@ -13,20 +13,20 @@ concrete StructuralAra of Structural = CatAra **
 --  always_AdV = ss "َلوَيس" ;
   and_Conj = ss "وَ" ** {n = Pl} ;
 --  because_Subj = ss "بعَُسي" ;
-  before_Prep = ss "قَبْلَ" ;
-  behind_Prep = ss "خَلْفَ" ;
-  between_Prep = ss "بَيْنَ" ;
+  before_Prep = mkPrep "قَبْلَ" ;
+  behind_Prep = mkPrep "خَلْفَ" ;
+  between_Prep = mkPrep "بَيْنَ" ;
 --  both7and_DConj = sd2 "بْته" "َند" ** {n = Pl} ;
 --  but_PConj = ss "بُت" ;
-  by8agent_Prep = ss "بِ" ;
-  by8means_Prep = ss "بِ" ;
+  by8agent_Prep = mkPrep "بِ" ;
+  by8means_Prep = mkPrep "بِ" ;
   can_VV = mkVV (mkV "طوع" FormX) ;
 --  can8know_VV = {
 --    s = table VVForm [["بي َبلي تْ"] ; "عَن" ; "عُْلد" ;
 --         ["بّن َبلي تْ"] ; ["بِنغ َبلي تْ"] ; "عَنءت" ; "عُْلدنءت"] ;
 --    isAux = True
 --    } ;
-  during_Prep = ss "خِلَالَ" ;
+  during_Prep = mkPrep "خِلَالَ" ;
 --  either7or_DConj = sd2 "ِتهر" "ْر" ** {n = Sg} ;
   everybody_NP = regNP "الجَمِيع" Pl ;
   every_Det = mkDet "كُلّ" Sg Const ;
@@ -34,7 +34,7 @@ concrete StructuralAra of Structural = CatAra **
 --  everywhere_Adv = ss "ثريوهري" ;
   few_Det = mkDet "بَعض" Pl Const ;
 --  first_Ord = ss "فِرست" ;
-  from_Prep = ss "مِنَ" ;
+  from_Prep = mkPrep "مِنَ" ;
   he_Pron = mkPron "هُوَ" "هُ" "هُ" (Per3 Masc Sg) ;
   here_Adv = ss "هُنا" ;
 --  here7to_Adv = ss ["تْ هري"] ;
@@ -42,9 +42,9 @@ concrete StructuralAra of Structural = CatAra **
   how_IAdv = ss "كَيفَ" ;
 --  how8many_IDet = mkDet "كَمْ" Pl Const ;   -- IL: check (was ["هْو مَني"]) ;
 --  if_Subj = ss "ِف" ;
-  in8front_Prep = ss "مُقَابِلَ" ;
+  in8front_Prep = mkPrep "مُقَابِلَ" ;
   i_Pron  = mkPron "أَنَا" "نِي" "ي" (Per1 Sing);
-  in_Prep = ss "فِي" ;
+  in_Prep = mkPrep "فِي" ;
   it_Pron = he_Pron ; -- was: it_Pron = mkPron "ِت" "ِت" "ِتس" (Per3 Masc Sg);
 --  less_CAdv = ss "لسّ" ;
   many_Det = mkDet "جَمِيع" Pl Const ;
@@ -57,14 +57,14 @@ concrete StructuralAra of Structural = CatAra **
 --    isAux = True
 --    } ;
   no_Utt = {s = \\_ => "لا"} ;
-  on_Prep = ss "عَلى" ;
+  on_Prep = mkPrep "عَلى" ;
 --- DEPREC  one_Quant = mkQuantNum "واحِد" Sg Indef ;
   only_Predet = mkPredet "فَقَط" False;
 --  or_Conj = ss "ْر" ** {n = Sg} ;
 --  otherwise_PConj = ss "ْتهروِسي" ;
-  part_Prep = ss "مِنَ" ;
+  part_Prep = mkPrep "مِنَ" ;
 --  please_Voc = ss "ةلَسي" ;
-  possess_Prep = ss "ل" ;
+  possess_Prep = mkPrep "ل" ;
 --  quite_Adv = ss "قُِتي" ;
   she_Pron = mkPron "هِيَ" "ها" "ها" (Per3 Fem Sg) ;
 --  so_AdA = ss "سْ" ;
@@ -84,10 +84,10 @@ concrete StructuralAra of Structural = CatAra **
   this_Quant = mkQuant7 "هَذا" "هَذِهِ" "هَذَان" "هَذَيْن" "هَاتَان" "هَاتَيْن" "هَؤُلَاء" Def;
 ----b  this_NP = indeclNP "هَذا" Sg ;
 ----b  those_NP = indeclNP "هَؤُلَاءكَ" Pl ;
-  through_Prep = ss "عَبْرَ" ;
+  through_Prep = mkPrep "عَبْرَ" ;
 --  too_AdA = ss "تّْ" ;
-  to_Prep = ss "إِلى" ;
-  under_Prep = ss "تَحْتَ" ;
+  to_Prep = mkPrep "إِلى" ;
+  under_Prep = mkPrep "تَحْتَ" ;
 --  very_AdA = ss "ثري" ;
 --  want_VV = P.mkVV (P.regV "وَنت") ;
   we_Pron = mkPron "نَحنُ" "نا" "نا" (Per1 Plur) ;
@@ -110,8 +110,8 @@ concrete StructuralAra of Structural = CatAra **
   whoSg_IP = mkIP "مَنْ" "مَنْ" Sg ;
   whoPl_IP = mkIP "مَنْ" "مَنْ" Pl ;
 --  why_IAdv = ss "وهي" ;
-  without_Prep = ss "بِدُونِ" ;
-  with_Prep = ss "مَع" ;
+  without_Prep = mkPrep "بِدُونِ" ;
+  with_Prep = mkPrep "مَع" ;
   yes_Utt = {s = \\_ => "نَعَم"} ;
   youSg_Pron = mkPron "أَنتَ" "كَ" "كَ" (Per2 Masc Sg) ;
   youPl_Pron = mkPron "أَنتُمْ" "كُمْ" "كُمْ" (Per2 Masc Sg) ;