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

Merge pull request #337 from inariksit/hungarian

Browse Source 
(Hun) Add possessive forms in MassNP
This commit is contained in:
Inari Listenmaa
2020-05-29 17:30:05 +02:00
committed by GitHub
parent 4fc26369b8 eefefbf792
commit ca9d3df09e
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 ; -- : CN -> NP ;
MassNP cn = emptyNP ** { MassNP cn = emptyNP ** {
s = \\p,c => caseFromStem glue cn c Sg ++ -- TODO add possessors s = \\p,c => case p of {
cn.compl ! Sg ! c ; 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> ; agr = <P3,Sg> ;
} ; } ;