(Ara) Supporting possessive suffixes, WIP

2018-10-16 17:47:35 +02:00
parent 5f39c41988
commit f5525dfbf0
6 changed files with 110 additions and 101 deletions
@@ -98,6 +98,7 @@ concrete StructuralAra of Structural = CatAra **
  where_IAdv = ss "أَينَ" ;
  which_IQuant = {
    s = \\s,c => case <c,s> of {
+             <Bare,_>    => "أيّ" ;
             <Nom,Indef> => "أيٌّ" ;
             <Nom,_>     => "أيُّ" ;
             <Acc,Indef> => "أيّاً" ;