From f3fd0853181243118b76712e227c1b408c7711b7 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Thu, 23 Apr 2020 19:34:26 +0200
Subject: [PATCH] (Hun) Add possessive suffixes to lincat of Pron

---
 src/hungarian/ResHun.gf        | 10 +++++++++-
 src/hungarian/StructuralHun.gf |  8 ++++++--
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/src/hungarian/ResHun.gf b/src/hungarian/ResHun.gf
index ffb147e4..fdf538c9 100644
--- a/src/hungarian/ResHun.gf
+++ b/src/hungarian/ResHun.gf
@@ -65,9 +65,17 @@ oper
 -- Pronouns
 
   Pronoun : Type = NounPhrase ** {
-    --poss : Str ; -- for PossPron : Pron -> Quant
+    poss : HarmForms ; -- for PossPron : Pron -> Quant
     } ;
 
+  possForms : Person*Number => HarmForms = \\agr => case agr of {
+    <P1,Sg> => harm1 "m" ;
+    <P2,Sg> => harm1 "d" ;
+    <P3,Sg> => harm "a" "e" ;
+    <P1,Pl> => harm1 "nk" ; -- u/ü/other vowel in stem
+    <P2,Pl> => harm "tok" "tök" ;
+    <P3,Pl> => harm "uk" "ük"
+  } ;
 --------------------------------------------------------------------------------
 -- Det, Quant, Card, Ord
 
diff --git a/src/hungarian/StructuralHun.gf b/src/hungarian/StructuralHun.gf
index a4f6aa08..14275ca9 100644
--- a/src/hungarian/StructuralHun.gf
+++ b/src/hungarian/StructuralHun.gf
@@ -132,7 +132,7 @@ lin under_Prep = nomAdp "alatt" ;
                   nonExist ; -- Translative
     agr = <P1,Sg> ;
     objdef = Def ;
-    poss = "em" ;
+    poss = possForms ! <P1,Sg> ;
     } ;
   youPol_Pron,
   youSg_Pron = emptyNP ** {
@@ -145,7 +145,7 @@ lin under_Prep = nomAdp "alatt" ;
                   nonExist ; -- Translative
     agr = <P2,Sg> ;
     objdef = Def ;
-    poss = "d" ;
+    poss = possForms ! <P2,Sg> ;
     } ;
   he_Pron,
   she_Pron = emptyNP ** {
@@ -157,6 +157,7 @@ lin under_Prep = nomAdp "alatt" ;
                   "vele" -- Instrumental
                   nonExist ; -- Translative
     objdef = Def ;
+    poss = possForms ! <P3,Sg> ;
     } ;
   we_Pron = emptyNP ** {
     s = caseTable "mi" "minket" "nekünk"
@@ -168,6 +169,7 @@ lin under_Prep = nomAdp "alatt" ;
                   nonExist ; -- Translative
     agr = <P1,Pl> ;
     objdef = Def ;
+    poss = possForms ! <P1,Pl> ;
     } ;
 
   youPl_Pron = emptyNP ** {
@@ -180,6 +182,7 @@ lin under_Prep = nomAdp "alatt" ;
                   nonExist ; -- Translative
     agr = <P2,Pl> ;
     objdef = Def ;
+    poss = possForms ! <P2,Pl> ;
     } ;
   they_Pron = emptyNP ** {
     s = caseTable "ők" "őket" "nekik"
@@ -191,6 +194,7 @@ lin under_Prep = nomAdp "alatt" ;
                   nonExist ; -- Translative
     agr = <P3,Pl> ;
     objdef = Def ;
+    poss = possForms ! <P3,Pl> ;
     } ;
 
 --lin whatPl_IP = ;