From ab838836791eb3c52d3045c8fd01cba77c8f1e4d Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Thu, 4 Jun 2020 08:19:29 +0200 Subject: [PATCH] (Hun) Update worst-case mkN with P1Sg possessive form of the noun --- src/hungarian/LexiconHun.gf | 4 ++-- src/hungarian/NounMorphoHun.gf | 5 +++-- src/hungarian/ParadigmsHun.gf | 4 ++-- 3 files changed, 7 insertions(+), 6 deletions(-) diff --git a/src/hungarian/LexiconHun.gf b/src/hungarian/LexiconHun.gf index 2de054a3..fd832b4f 100644 --- a/src/hungarian/LexiconHun.gf +++ b/src/hungarian/LexiconHun.gf @@ -133,7 +133,7 @@ lin floor_N = mkN "padló" "padlót" ; lin flower_N = mkN "virág" "virágot" "virágok" "virága" ; lin fly_V = mkV "repül" ; lin fog_N = mkN "köd" "ködöt" "ködön" "ködhöz" "ködök" - "köde" "ködünk" "ködei" ; + "ködöm" "köde" "ködünk" "ködei" ; lin foot_N = leg_N ; --same as leg, to specify "lábfej" lin forest_N = mkN "erdő" "erdőt" ; -- lin forget_V2 = mkV2 "" ; @@ -320,7 +320,7 @@ lin shoe_N = mkN "cipő" "cipőt" ; lin shop_N = mkN "üzlet" "üzletet"; lin short_A = mkA "rövid" ; --in short text, if human length then "alacsony" lin silver_N = mkN "ezüst" "ezüstöt" "ezüstön" "ezüsthöz" "ezüstök" - "ezüstje" "ezüstünk" "ezüstjei" ; + "ezüstöm" "ezüstje" "ezüstünk" "ezüstjei" ; -- lin sing_V = mkV "" ; -- lin sister_N = mkN "" ; -- lin sit_V = mkV "" ; diff --git a/src/hungarian/NounMorphoHun.gf b/src/hungarian/NounMorphoHun.gf index d06dcc6e..3b540898 100644 --- a/src/hungarian/NounMorphoHun.gf +++ b/src/hungarian/NounMorphoHun.gf @@ -252,8 +252,8 @@ oper -- Worst case constructor: takes all stems - worstCaseNoun : (x1,_,_,_,_,_,_,x8 : Str) -> Harm -> Noun = - \nomsg,accsg,supsg,allsg,nompl,possdSg_possrP3sg,possdSg_PossrPl1,possdPl,h -> + worstCaseNoun : (x1,_,_,_,_,_,_,_,x9 : Str) -> Harm -> Noun = + \nomsg,accsg,supsg,allsg,nompl,possdSg_PossrSg1P2,possdSg_possrP3sg,possdSg_PossrPl1,possdPl,h -> let sgstem = tk 3 allsg ; -- remove -hoz/hez/höz sginsstem : Str = case vowFinal sgstem of { True => sgstem + "v" ; @@ -268,6 +268,7 @@ oper PlStem => nompl ; PossdSg_PossrP3 => init possdSg_possrP3sg ; -- remove -a/e PossdSg_PossrPl1 => tk 2 possdSg_PossrPl1 ; -- remove -nk + PossdSg_PossrSg1P2 => init possdSg_PossrSg1P2 ; PossdPl => possdPl } ; h = h ; } ; diff --git a/src/hungarian/ParadigmsHun.gf b/src/hungarian/ParadigmsHun.gf index ed05e985..da0b419c 100644 --- a/src/hungarian/ParadigmsHun.gf +++ b/src/hungarian/ParadigmsHun.gf @@ -135,8 +135,8 @@ oper mkN : (x1,_,_,x4 : Str) -> N = \n,a,pln,possd -> lin N (regNoun4 n a pln possd) ; - mkN : (x1,_,_,_,_,_,_,x8 : Str) -> N = - \a,b,c,d,e,f,g,h -> lin N (worstCaseNoun a b c d e f g h (getHarm a)) ; + mkN : (x1,_,_,_,_,_,_,_,x9 : Str) -> N = + \a,b,c,d,e,f,g,h,i -> lin N (worstCaseNoun a b c d e f g h i (getHarm a)) ; mkN : Str -> Harmony -> N = \s,h -> lin N (mkNounHarm h (pluralAllomorph s) s) ;