diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf index 2300521f4..06b181f3e 100644 --- a/src/arabic/ParadigmsAra.gf +++ b/src/arabic/ParadigmsAra.gf @@ -467,7 +467,10 @@ resource ParadigmsAra = open rbT = mkRoot3 rootStr ; v8fun = case rbT.f of { ("و"|"ي"|"ّ") => v8assimilated ; - _ => v8sound } + _ => + case rbT.c of { + #weak => v8hollow ; + _ => v8sound }} } in lin V (v8fun rbT) ; v10 = diff --git a/src/arabic/PatternsAra.gf b/src/arabic/PatternsAra.gf index 1390d67a8..23175098b 100644 --- a/src/arabic/PatternsAra.gf +++ b/src/arabic/PatternsAra.gf @@ -77,6 +77,9 @@ flags coding=utf8 ; ficAl = { h = "" ; m1 = "ِ" ; m2 = "َا" ; t = "" } ; ficlp = { h = "" ; m1 = "ِ" ; m2 = "ْ" ; t = "َة" } ; ftacal = { h = "" ; m1 = "ْتَ" ; m2 = "َ" ; t = "" } ; + ftical = ftacal ** { m1 = "ْتِ" } ; -- IL hollow VIII + ftAcal = ftacal ** { m1 = "ْتَا" } ; -- IL hollow VIII + ftIcal = ftacal ** { m1 = "ْتِي" } ; -- IL hollow VIII ftacil = { h = "" ; m1 = "ْتَ" ; m2 = "ِ" ; t = "" } ; ttacal = ftacal ** { m1 = "" ; h = "تَّ" } ; ---- IL assimilated VIII ttacil = ftacil ** { m1 = "" ; h = "تَّ" } ; ---- IL assimilated VIII diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf index 28b725918..65f504f40 100644 --- a/src/arabic/ResAra.gf +++ b/src/arabic/ResAra.gf @@ -708,6 +708,28 @@ v8assimilated : Root3 -> Verb = --- IL 8a1 muttafaq = "م" + uttafaq } in verb eittafaq euttufiq attafiq uttafaq eittafiq muttafaq; +v8hollow : Root3 -> Verb = -- IL + \Hwj -> + let { + _Htaj = mkHollow ftacal Hwj ; + _HtAj = mkHollow ftAcal Hwj ; + _Htij = mkHollow ftical Hwj ; + _HtIj = mkHollow ftIcal Hwj ; + iHtaj = "اِ" + _Htaj ; -- VPerf Act (Per3 Fem Pl) + iHtAj = "اِ" + _HtAj ; -- VPerf Act _ + uHtij = "اُ" + _Htij ; -- VPerf Pas (Per3 Fem Pl) + uHtIj = "اُ" + _HtIj ; -- VPerf Pas _ + aHtaj = "َ" + _Htaj ; -- VImpf Act (Per2/Per3 Fem Pl) + aHtAj = "َ" + _HtAj ; -- VImpf Act _ + uHtaj = "ُ" + _Htaj ; -- VImpf Pas (Per2/Per3 Fem Pl) + uHtAj = "ُ" + _Htaj ; -- VImpf Pas _ + -- iHtaj again -- VImp Sg Masc / Pl Fem + -- iHtAj again -- VImp Pl Masc / Sg Fem + ppart = "مُ" + _HtAj -- PPart + + } in verbHollow (toDefForms + iHtAj iHtaj uHtIj uHtij aHtAj aHtaj + uHtAj uHtaj iHtAj iHtaj ppart) ; v10sound : Root3 -> Verb = ---- IL 10s -- to be checked \qtl -> let {