From 382279fb5beb0ada5ce34f69a105d4af14c6e508 Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Wed, 29 Apr 2020 19:15:12 +0200 Subject: [PATCH] (Hun) Fixes in dMajom + pattern that recognises dMajom in smart paradigm --- src/hungarian/NounMorphoHun.gf | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/src/hungarian/NounMorphoHun.gf b/src/hungarian/NounMorphoHun.gf index d214fae30..ebf4e85c0 100644 --- a/src/hungarian/NounMorphoHun.gf +++ b/src/hungarian/NounMorphoHun.gf @@ -91,12 +91,17 @@ oper majm = init majmo ; nMajmo = mkNoun majmo ; nMajom = mkNoun majom ; + o = last (init majom) ; in nMajmo ** { s = \\nc => case nc of { - SgSup -- All plural forms and Sg Acc and Sg Sup use the "majmo" stem - | PlStem - | SgAccStem => nMajmo.s ! nc ; + -- All plural forms and Sg Acc use the "majmo" stem + PlStem | SgAccStem => nMajmo.s ! nc ; + + -- Sg Sup uses the same majm* stem, but vowel can be different: + -- sátor, sátrat -> sátron, not *sátran + -- vászon, vásznat -> vásznon, not *vásznan + SgSup => majm + o + "n" ; -- The plural morpheme before possessive suffixes: majmai PossdPl => majm + harm "a" "e" ! nMajmo.h + "i" ; @@ -296,8 +301,8 @@ oper -- Stem 1: Sg Nom -- Stem 2: Sg Gen, Sg Sup, Pl * - <_ + #shortv + #c, -- majom, majmot - _ + #c + #shortv + "t"> => dMajom n a ; + <_ + #c + #shortv + #c, -- majom, majmot + _ + #c + #c + #shortv + "t"> => dMajom n a ; -- Stem 1: Sg Nom -- Stem 2: Sg Sup