(Hun) Add possessive suffixes to lincat of Pron

This commit is contained in:
Inari Listenmaa
2020-04-23 19:34:26 +02:00
parent 3b18fadfdf
commit f3fd085318
2 changed files with 15 additions and 3 deletions

View File

@@ -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

View File

@@ -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 = ;