diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf index 505aad88d..8aa944c58 100644 --- a/src/arabic/ParadigmsAra.gf +++ b/src/arabic/ParadigmsAra.gf @@ -368,7 +368,6 @@ resource ParadigmsAra = open = mkAN ; mkN : N -> AP -> N = mkAPN - } ; attrN : Number -> N -> N -> N = \num,n1,n2 -> n1 ** { diff --git a/src/arabic/ResAra.gf b/src/arabic/ResAra.gf index 5a5f244ca..f39acc207 100644 --- a/src/arabic/ResAra.gf +++ b/src/arabic/ResAra.gf @@ -1049,8 +1049,8 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf -> -- determine the declension and gives the corresponding inf table brkPl : Str -> State => Case => Str = \word -> \\s,c => defArt s c (case word of { - lemma + "ِيّ" => fixShd word (decNisba ! s ! c) ; - lemma + "ِي" => fixShd lemma (dec2sg ! s ! c) ; + lemma + "ِيّ" => fixShd word (dec1sg ! s ! c) ; -- nisba + lemma + "ِي" => fixShd lemma (dec2sg ! s ! c) ; -- 2nd declension _ + ("ا"|"ى") => fixShd word (dec3sg ! s ! c) ; lemma + (#hamza|#hamzaseat) => word + dec1sgNoDoubleAlif ! s ! c ; @@ -1170,16 +1170,6 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf -> _ => [] }; - --declension 2 (ends in yaa') - decNisba : State => Case => Str = \\s,c => - case of { - <_, Bare> => [] ; - => "اً" ; - => "ٍ" ; - <_, Acc> => "َ" ; - _ => [] - }; - --dual suffixes dl : State => Case => Str = table { diff --git a/src/arabic/StructuralAra.gf b/src/arabic/StructuralAra.gf index 7dc0d322f..749a25617 100644 --- a/src/arabic/StructuralAra.gf +++ b/src/arabic/StructuralAra.gf @@ -45,7 +45,7 @@ concrete StructuralAra of Structural = CatAra ** s = \\g,s,c => "كَمْ عَدَد" + caseTbl ! c ; n = Pl ; d = Def } ; -- IL - + how8much_IAdv = ss "كَمْ" ; if_Subj = mkSubj "إِذَا" Verbal ; in8front_Prep = mkPrep "مُقَابِلَ" ; i_Pron = ResAra.i_Pron ;