From 1adffb2b9d86bd4c66996a6cac9fbaef7426937e Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Tue, 28 Apr 2020 09:36:59 +0200 Subject: [PATCH] =?UTF-8?q?(Hun)=20Tweak=20dHaj=C3=B3=20to=20work=20for=20?= =?UTF-8?q?words=20ending=20in=20i?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/hungarian/NounMorphoHun.gf | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/src/hungarian/NounMorphoHun.gf b/src/hungarian/NounMorphoHun.gf index 1f7bcd0b4..36c831b02 100644 --- a/src/hungarian/NounMorphoHun.gf +++ b/src/hungarian/NounMorphoHun.gf @@ -116,14 +116,18 @@ oper -- Examples: "hajó, hajója, zseni, zsenije, kestyű, kestyűje" dHajó : (nom : Str) -> (acc : Str) -> Noun = \hajó,hajót -> let nHajó = mkNoun hajó ; + hajój = hajó + "j" ; + h = nHajó.h ; in nHajó ** { s = \\nc => case nc of { + -- hajó|nk, zseni|nk PossdSg_PossrPl1 => hajó ; + -- hajój|a, zsenij|e + PossdSg_PossrP3 => hajój ; - PossdSg_PossrP3 => hajó + "j" ; - - -- The plural morpheme before possessive suffixes: hajói - PossdPl => hajó + "i" ; + PossdPl => case hajó of { + _ + "i" => hajój + harm "a" "e" ! h + "i" ; -- zsenij|ei + _ => hajó + "i" } ; -- hajó|i -- The rest of the forms are formed with the regular constructor _ => nHajó.s ! nc @@ -294,6 +298,11 @@ oper |<_ + "é", -- lé, levet _ + "e" + #c + #v + "t"> => dLó n a ; + -- Stem 1 == Stem 2 == Stem 3 + -- j in PossdSg_PossrP3 but not elsewhere: gumi -> gumi|nk, gumij|a + <_ + "i", -- gumi, gumit: + _ + "it"> => dHajó n a ; + -- Stem 1: Sg Nom, Sg * - [Gen] -- Stem 2: Sg Gen, Pl * <_ + "á" + #c, _ + "a" + #c + "at">