GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 19:48:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/NounMorphoHun.gf
+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 ;