1
0
forked from GitHub/gf-rgl

(Hun) Add a stem for Sg1, Sg2 and Pl2 possessive form

This commit is contained in:
Inari Listenmaa
2020-06-04 08:19:01 +02:00
parent e5985f390a
commit 1471ee563e
3 changed files with 13 additions and 5 deletions
+9 -3
View File
@@ -37,7 +37,7 @@ oper
s = \\nc => case nc of {
-- All plural forms and Sg Acc use the "lova" stem
PlStem | SgAccStem
PlStem | SgAccStem | PossdSg_PossrSg1P2
=> nLova.s ! nc ;
SgSup | -- Sg Sup has vowel o/ö, not a/e
@@ -96,7 +96,7 @@ oper
s = \\nc => case nc of {
-- All plural forms and Sg Acc use the "majmo" stem
PlStem | SgAccStem => nMajmo.s ! nc ;
PlStem | SgAccStem | PossdSg_PossrSg1P2 => nMajmo.s ! nc ;
-- Sg Sup uses the same majm* stem, but vowel can be different:
-- sátor, sátrat -> sátron, not *sátran
@@ -169,6 +169,11 @@ oper
let tolla = init tollat ;
nTolla = mkNoun tolla ;
nToll = mkNoun toll ;
sörö = case vowFinal tolla of {
True => tolla ;
False => tolla -- város+o+m, sör+ö+m, vér+e+m
+ harm3 "o" "e" "ö" ! getHarm tolla
} ;
napj = case andB (ifTok Bool toll tolla True False)
(notB (vowFinal tolla)) of {
True => toll ; -- sör, sör|t -> sör|e
@@ -206,6 +211,7 @@ oper
PossdSg_PossrPl1 => napj + harm "u" "ü" ! nToll.h ;
PossdSg_PossrP3 => napj ;
PossdSg_PossrSg1P2 => sörö ;
-- The plural morpheme before possessive suffixes: madarai
PossdPl => napj + harm "a" "e" ! nToll.h + "i" ;
@@ -225,7 +231,7 @@ oper
in nMadara ** {
s = \\nc => case nc of {
-- All plural forms and Sg Acc use the "tolla" stem
PlStem | SgAccStem => nMadara.s ! nc ;
PlStem | SgAccStem | PossdSg_PossrSg1P2 => nMadara.s ! nc ;
PossdSg_PossrPl1 => madar + harm "u" "ü" ! nMadara.h ;