Merge pull request #145 from inariksit/arabic

(Ara) add a few words in Structural and Construction

src/arabic/ConstructionAra.gf

@@ -85,9 +85,12 @@ lin
         myAge : NP = E.ApposNP me (mkNP (mkDet subjPron) L.name_N) ;
      in mkQCl what_IP myAge ;
 
---  hungry_VP =
---  thirsty_VP =
+  hungry_VP = mkVP hungry_A ;
+  thirsty_VP = mkVP thirsty_A ;
 
+oper
+  hungry_A = mkA "جءع" "فَاعِل" ;
+  thirsty_A = mkA True "عطش" "فَعْلَان" "فَعْلَى" ;
 lincat Language = N ;
 
 lin InLanguage l = mkAdv in_Prep (mkNP l) ;

src/arabic/StructuralAra.gf

@@ -38,8 +38,8 @@ concrete StructuralAra of Structural = CatAra **
   from_Prep = mkPrep "مِنَ" ;
   he_Pron = ResAra.he_Pron ;
   here_Adv = ss "هُنا" ;
---  here7to_Adv = ss ["تْ هري"] ;
---  here7from_Adv = ss ["فرْم هري"] ;
+  here7to_Adv = ss "إلَىَ هُنَا" ;
+  here7from_Adv = ss "مِنْ هُنَا" ;
   how_IAdv = ss "كَيفَ" ;
   how8many_IDet = {
     s = \\g,s,c => "كَمْ عَدَد" + caseTbl ! c ;
@@ -91,10 +91,10 @@ concrete StructuralAra of Structural = CatAra **
 ----b  this_NP = indeclNP "هَذا" Sg ;
 ----b  those_NP = indeclNP "هَؤُلَاءكَ" Pl ;
   through_Prep = mkPrep "عَبْرَ" ;
---  too_AdA = ss "تّْ" ;
+  too_AdA = very_AdA ;
   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 ;