msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Hun) Better guesses for PossdSg_PossrP3 stem in dToll

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-27 20:50:14 +02:00
parent b4fac5bd75
commit 95eb7104c8
1 changed files with 34 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
src/hungarian/NounMorphoHun.gf
View File

@@ -126,8 +126,8 @@ oper
PossdSg_PossrP3 => hajój ; PossdSg_PossrP3 => hajój ;
-- The plural morpheme before possessive suffixes: madarai -- The plural morpheme before possessive suffixes: hajói
PossdPl => hajó + harm "a" "e" ! nHajó.h + "i" ; PossdPl => hajó + "i" ;
-- The rest of the forms are formed with the regular constructor, -- The rest of the forms are formed with the regular constructor,
-- using "toll" as the stem. -- using "toll" as the stem.
@@ -140,25 +140,46 @@ oper
let tolla = init tollat ; let tolla = init tollat ;
nTolla = mkNoun tolla ; nTolla = mkNoun tolla ;
nToll = mkNoun toll ; nToll = mkNoun toll ;
diákj = case ifTok Bool toll tolla True False of { napj = case andB (ifTok Bool toll tolla True False)
True => toll + "j" ; (notB (vowFinal tolla)) of {
False => case tolla of { True => toll ; -- sör, sör|t -> sör|e
x + #v => x ; -- király, király|t -> király|a
x + #v + ("sz"|"z"|"s"|"zs"|"j"|"ly"|"l"|"r"|"n"|"ny"|"ssz" -- TODO fails for plafon, papír
|"zz"|"ss"|"ll"|"rr"|"nn"|"ns"|"nsz"|"nz") => tolla ; False => case tolla of {
_ => tolla + "j" } -- hegy, hegy|et -> hegy|e
} ; _ + ("ty"|"gy"|"ny"|"j"|"ly"|"m"|"h") + ("e"|"a"|"ö"|"o") => init tolla ;
-- ház, ház|at -> ház|a
_ + #c + ("a"|"e") => init tolla ;
-- orr, orr|ot -> orr|a
-- TODO fails for gyümölcs, gyümölcs|öt -> gyümölcs|e
-- I don't know what this list means /IL
_ + #v + ("sz"|"z"|"s"|"zs"|"j"|"ly"|"l"
|"r"|"n"|"ny"|"ssz"|"zz"|"ss"
|"ll"|"rr"|"nn"|"ns"|"nsz"|"nz") + ("o"|"ö") => init tolla ;
-- nap, nap|ot -> napj|a
-- bank, bank|ot -> bankj|a
-- kabát, kabát|ot -> kabátj|a (diák, barát, újság …)
-- NB. fails for virág, ország (virág|ot -> virág|a, ország|ot -> ország|a)
_ + #c + ("o"|"ö") => init tolla + "j" ;
-- háború, háború|t -> háborúj|a
_ => tolla + "j" }
} ;
in nTolla ** { in nTolla ** {
s = \\nc => case nc of { s = \\nc => case nc of {
-- All plural forms and Sg Acc use the "tolla" stem -- All plural forms and Sg Acc use the "tolla" stem
PlStem | PlAcc | SgAccStem => nTolla.s ! nc ; PlStem | PlAcc | SgAccStem => nTolla.s ! nc ;
PossdSg_PossrPl1 => diákj + harm "u" "ü" ! nToll.h ; PossdSg_PossrPl1 => napj + harm "u" "ü" ! nToll.h ;
PossdSg_PossrP3 => diákj ; PossdSg_PossrP3 => napj ;
-- The plural morpheme before possessive suffixes: madarai -- The plural morpheme before possessive suffixes: madarai
PossdPl => diákj + harm "a" "e" ! nToll.h + "i" ; PossdPl => napj + harm "a" "e" ! nToll.h + "i" ;
-- The rest of the forms are formed with the regular constructor, -- The rest of the forms are formed with the regular constructor,
-- using "toll" as the stem. -- using "toll" as the stem.