diff --git a/lib/src/finnish/ParadigmsFin.gf b/lib/src/finnish/ParadigmsFin.gf index e2e2c25fb..eacc5ce2e 100644 --- a/lib/src/finnish/ParadigmsFin.gf +++ b/lib/src/finnish/ParadigmsFin.gf @@ -183,7 +183,7 @@ oper mkA2 = overload { mkA2 : Str -> A2 -- e.g. "vihainen" (jollekin) - = \s -> mkA s ** {c2 = mkPrep "allative" ; lock_A2 = <>} ; + = \s -> mkA s ** {c2 = mkPrep allative ; lock_A2 = <>} ; mkA2 : Str -> Prep -> A2 -- e.g. "jaollinen" (mkPrep adessive) = \a,p -> mkA a ** {c2 = p ; lock_A2 = <>} ; mkA2 : A -> Prep -> A2 -- e.g. "jaollinen" (mkPrep adessive) diff --git a/lib/src/translator/DictionaryFin.gf b/lib/src/translator/DictionaryFin.gf index e5236a67d..3b4cf7f78 100644 --- a/lib/src/translator/DictionaryFin.gf +++ b/lib/src/translator/DictionaryFin.gf @@ -11,6 +11,7 @@ flags coding=utf8 ; oper tehda_V = mkV (lin VK {s = c71 "tehdä"}) ; oper nahda_V = mkV (lin VK {s = c71 "nähdä"}) ; oper optProDrop : Pron -> Pron = \p -> p | E.ProDrop p ; +oper luokse_Prep : Prep = mkPrep "luokse" ; -- to enable (luo|luokse)-luokseni mika_NForms : R.NForm => Str = let { @@ -20008,7 +20009,7 @@ lin fortunetelling_N = mkWN "ennustaminen" ; --UNCHK lin forty_A = mkWA "xl-" ; --UNCHK lin forum_N = mkWN (k39 "kokous") ; --UNCHK lin forward_A = mkWA (compoundA "suu" (k1 "nnattu")) "eteenpäin" ; --UNCHK -lin forward_Adv = mkAdv "edelleen" ; +lin forward_Adv = mkAdv "eteenpäin" | mkAdv "edelleen" ; lin forward_N = mkN "termiini" ; ---ARB --mkWN (k10 "hyökkääjä") ; lin forward_V2 = mkWV2 (k53A "lähettää") "eteenpäin" ; --UNCHK lin forwarding_N = mkWN "eteenpäin" "lähettäminen" ; --UNCHK @@ -25838,7 +25839,7 @@ lin inshore_Adv = mkWAdv "rantaan" ; --UNCHK lin inside_A = mkWA "sisä-" ; --UNCHK lin inside_Adv = mkWAdv (k99 "sisimmältään") ; lin inside_N = mkWN (k13 "sisusta") ; --UNCHK -lin inside_Prep = mkPrep "sisällä" ; +lin inside_Prep = mkPrep "sisällä" | mkPrep "sisälle" ; ---- split lin insider_N = mkWN (k32 "jäsen") "sisäpiirin" ; lin insidious_A = mkWA (k38 "haitallinen") ; --UNCHK lin insidiousness_N = mkWN (compoundN "sala" (k40 "kavaluus")) ; --UNCHK @@ -26218,7 +26219,7 @@ lin intimate_V2 = mkWV2 (k67 "vihjailla") ; --UNCHK lin intimation_N = mkWN (k39 "pilkahdus") ; --UNCHK lin intimidate_V2 = mkV2 (mkV "pelotella") partitive ; lin intimidation_N = mkWN (k2 "uhkailu") ; -lin into_Prep = casePrep illative ; +lin into_Prep = casePrep illative | mkPrep "sisään" | mkPrep "sisälle" ; lin intolerable_A = mkWA (k34A "kestämätön") ; lin intolerance_N = mkWN (compoundN "yli" (k40 "herkkyys")) ; --UNCHK lin intolerant_A = mkWA (k34A "suvaitsematon") ; --UNCHK @@ -34347,8 +34348,8 @@ lin omniscient_A = mkWA (compoundA "kaikki" (k10 "tietävä")) ; --UNCHK lin omnivore_N = mkWN (k33 "eläin") "kaikkiruokainen" ; --UNCHK lin omnivorous_A = mkWA (compoundA "kaikkiru" (k38 "okainen")) ; --UNCHK lin omophagia_N = mkWN "omofagia" ; --UNCHK -lin on_Adv = mkAdv "päällä" ; -- mkAdv "eteenpäin" ; -lin on_Prep = S.on_Prep ; +lin on_Adv = mkAdv "päällä" ; +lin on_Prep = mkPrep adessive | mkPrep "päällä" | mkPrep "päälle" ; lin on_behalf_of_Prep = mkPrep "puolesta" ; lin on_top_of_Prep = mkPrep "päälle" ; lin once_AdV = lin AdV (ss "kerran") ; @@ -51570,7 +51571,7 @@ lin tiyin_N = mkWN "tenge" ; --UNCHK lin tizzy_N = mkWN (k39 "kiihtymys") ; --UNCHK lin tnt_N = mkWN (k6 "trotyyli") ; --UNCHK lin to_Adv = mkAdv "luo" ; ---- what is this? -lin to_Prep = S.to_Prep | mkPrep "luo" | mkPrep "luokse" | mkPrep "tykö" ; ---- split +lin to_Prep = mkPrep illative | mkPrep allative | luokse_Prep | luokse_Prep ** {s = luokse_Prep.s ** {p2 = "luo"}} | mkPrep "tykö" ; lin toad_N = mkWN (k10 "konna") ; --UNCHK lin toadfish_N = mkWN (k18 "tau") "Opsanus" ; --UNCHK lin toadflax_N = mkWN (compoundN "kannus" (k1 "ruoho")) ; --UNCHK diff --git a/lib/src/translator/DictionarySwe.gf b/lib/src/translator/DictionarySwe.gf index d30a91142..481566134 100644 --- a/lib/src/translator/DictionarySwe.gf +++ b/lib/src/translator/DictionarySwe.gf @@ -10072,7 +10072,7 @@ lin chastise_V2 = mkV2 (mkV (mkV "skäller") "ut") | mkV2 (mkV "tuktar"); -- sta lin chastisement_N = variants {} ; -- status=guess lin chastity_N = mkN "kyskhet" "kyskheter" ; -- comment=3 lin chasuble_N = mkN "mässhake" ; -- status=guess -lin chat_N = mkN "prata" ; -- comment=8 +lin chat_N = mkN "prat" "prat" | mkN "snack" "snacket" ; lin chat_V = mkV "pratar" ; -- comment=4 lin chat_up_V2 = variants {} ; -- status=guess lin chateau_N = variants {} ; -- status=guess @@ -53747,7 +53747,7 @@ lin spawner_N = variants {} ; -- status=guess lin spay_V2 = mkV2 (mkV "kastrerar"); -- status=guess, src=wikt lin spaying_N = variants {} ; -- status=guess lin speak_V = mkV "tala" ; -lin speak_V2 = L.speak_V2 ; +lin speak_V2 = mkV2 "tala" | mkV2 "prata" ; lin speak_out_V = mkV "uttrycker" ; -- comment=3 lin speak_up_V = mkV "uttrycker" ; -- comment=3 lin speakable_A = variants {} ; -- status=guess