From eefefbf792ac3e7802b7d388a0d0856b5dc52a50 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 29 May 2020 15:23:48 +0200
Subject: [PATCH] (Hun) Add possessive forms in MassNP

---
 src/hungarian/NounHun.gf | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/hungarian/NounHun.gf b/src/hungarian/NounHun.gf
index e3d3e2e4e..a843c41a4 100644
--- a/src/hungarian/NounHun.gf
+++ b/src/hungarian/NounHun.gf
@@ -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> ;
     } ;