diff --git a/lib/resource/finnish/LexiconFin.gf b/lib/resource/finnish/LexiconFin.gf index 47edc4c4a..45f7c645c 100644 --- a/lib/resource/finnish/LexiconFin.gf +++ b/lib/resource/finnish/LexiconFin.gf @@ -18,7 +18,7 @@ lin bank_N = mkN "pankki" ; beautiful_A = mkA (mkN "kaunis") "kauniimpi" "kaunein" ; become_VA = mkVA (mkV "tulla") (casePrep translative) ; - beer_N = mkN "olut" ; + beer_N = mkN "olut" "oluita" ; beg_V2V = mkV2 (mk2V "pyytää" "pyysi") (casePrep partitive) ; big_A = mkA (mkN "suuri" "suuria") "suurempi" "suurin" ; bike_N = mkN "polkupyörä" ; --- for correct vowel harmony @@ -174,7 +174,7 @@ lin shirt_N = mkN "paita" ; shoe_N = mkN "kenkä" ; shop_N = mkN "kauppa" ; - short_A = mkA "lyhyt" ; + short_A = mkA (mkN "lyhyt" "lyhyitä") ; silver_N = mkN "hopea" ; sister_N = mkN "sisko" ; sleep_V = mkV "nukkua" ; @@ -197,7 +197,7 @@ lin teach_V2 = mkV2 (mkV "opettaa") ; television_N = mk2N "televisio" "televisioita" ; thick_A = mkA "paksu" ; - thin_A = mkA "ohut" ; + thin_A = mkA (mkN "ohut" "ohuita") ; train_N = mkN "juna" ; travel_V = mkV "matkustaa" ; tree_N = mkN "puu" ; diff --git a/lib/resource/finnish/ParadigmsFin.gf b/lib/resource/finnish/ParadigmsFin.gf index 73c988598..3a4203d07 100644 --- a/lib/resource/finnish/ParadigmsFin.gf +++ b/lib/resource/finnish/ParadigmsFin.gf @@ -299,7 +299,7 @@ oper _ + ("i" | "u") + "n" => dLiitin ukko (renka + "men") ; _ + ("ton" | "tön") => dOnneton ukko ; _ + "e" => dRae ukko (rake + "en") ; - _ + ("ut" | "yt") => dRae ukko (ukk + "en") ; + _ + ("ut" | "yt") => dOttanut ukko ; _ + ("as" | "äs") => dRae ukko (renka + last renka + "n") ; _ + ("uus" | "yys" | "eus" | "eys") => dLujuus ukko ; _ + "s" => dJalas ukko ; @@ -353,6 +353,7 @@ oper dArpi ukko (init (weakGrade ukko) + "en") ; <_ + "i", _ + ("eita" | "eitä")> => dTohtori ukko ; + <_ + ("ut" | "yt"),_ + ("uita" | "yitä")> => dRae ukko (init ukko + "en") ; <_ + "e", nuk + ("eja" | "ejä")> => dNukke ukko ukon ; <_, _ + ":" + _ + ("a" | "ä")> => dSDP ukko ; @@ -446,7 +447,7 @@ oper regAdjective suuri (init (suuri.s ! NCase Sg Gen) + "mpi") ---- to check - (init (suuri.s ! NCase Pl Part) + "n") ; ---- + (suuri.s ! NInstruct) ; ----