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

(Hun) Add possessive forms in MassNP

Browse Source
This commit is contained in:
Inari Listenmaa
2020-05-29 15:23:48 +02:00
parent 52d475e040
commit eefefbf792
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/hungarian/NounHun.gf
View File

@@ -77,8 +77,13 @@ concrete NounHun of Noun = CatHun ** open
-- : CN -> NP ;
MassNP cn = emptyNP ** {
s = \\p,c => caseFromStem glue cn c Sg ++ -- TODO add possessors
cn.compl ! Sg ! c ;
s = \\p,c => case p of {
NoPoss => caseFromStem glue cn c Sg ;
Poss per rnum =>
let pron : Pronoun = pronTable ! <per,rnum> ; -- Possessor's number
dnum : CatHun.Num = NumSg ; -- because this is MassNP, no Det
in caseFromPossStem cn (DetQuant (PossPron pron) dnum) c
} ++ cn.compl ! Sg ! c ;
agr = <P3,Sg> ;
} ;