msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Ara) add which_IQuant

Browse Source
This commit is contained in:
Inari Listenmaa
2018-09-20 09:58:17 +02:00
parent 6502f0df4f
commit 18f66b3e23
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/arabic/StructuralAra.gf
View File

@@ -95,8 +95,16 @@ concrete StructuralAra of Structural = CatAra **
when_IAdv = ss "مَتَى" ; when_IAdv = ss "مَتَى" ;
-- when_Subj = ss "وهن" ; -- when_Subj = ss "وهن" ;
where_IAdv = ss "أَينَ" ; where_IAdv = ss "أَينَ" ;
-- whichPl_IDet = mkDeterminer Pl ["وهِعه"] ; which_IQuant = {
-- whichSg_IDet = mkDeterminer Sg ["وهِعه"] ; s = \\s,c => case <c,s> of {
<Nom,Indef> => "أيٌّ" ;
<Nom,_> => "أيُّ" ;
<Acc,Indef> => "أيّاً" ;
<Acc,_> => "أيَّ" ;
<Gen,Indef> => "أيٍّ" ;
<Gen,_> => "أيِّ"
}
} ;
whoSg_IP = mkIP "مَنْ" Sg ; whoSg_IP = mkIP "مَنْ" Sg ;
whoPl_IP = mkIP "مَنْ" Pl ; whoPl_IP = mkIP "مَنْ" Pl ;
-- why_IAdv = ss "وهي" ; -- why_IAdv = ss "وهي" ;