diff --git a/src/arabic/ConstructionAra.gf b/src/arabic/ConstructionAra.gf index 7c39fce17..4a06efc23 100644 --- a/src/arabic/ConstructionAra.gf +++ b/src/arabic/ConstructionAra.gf @@ -69,7 +69,12 @@ lin what_IP : R.IP = R.mkIP "مَا هُوَ" R.Sg ; in mkQCl what_IP myName ; --- how_old_QCl + how_old_QCl np = + let subjPron : Pron = R.np2pron np ; + me : R.NP = toNP np.a.isPron np ; + age_N = mkN "عُمر" ; + myAge : NP = E.ApposNP me (mkNP (mkDet subjPron) L.name_N) ; + in mkQCl what_IP myAge ; -- hungry_VP = -- thirsty_VP = diff --git a/src/arabic/StructuralAra.gf b/src/arabic/StructuralAra.gf index e8bb48b6f..5f3c34516 100644 --- a/src/arabic/StructuralAra.gf +++ b/src/arabic/StructuralAra.gf @@ -114,7 +114,7 @@ concrete StructuralAra of Structural = CatAra ** } ; whoSg_IP = mkIP "مَنْ" "مَنْ" Sg ; whoPl_IP = mkIP "مَنْ" "مَنْ" Pl ; --- why_IAdv = ss "وهي" ; + why_IAdv = ss "لِمَاذَا" ; without_Prep = mkPrep "بِدُونِ" ; with_Prep = mkPrep "مَع" ; yes_Utt = {s = \\_ => "نَعَم"} ;