(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
+9 -1
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