--# -path=.:alltenses resource Nominal = ResFin ** open MorphoFin,Declensions,CatFin,Prelude in { flags optimize=noexpand ; oper mkN : overload { mkN : (talo : Str) -> N ; mkN : (talo,talon : Str) -> N ; mkN : (talo,talon,taloja : Str) -> N ; mkN : (talo,talon,taloja,taloa : Str) -> N ; mkN : (sora : Str) -> (tie : N) -> N ; mkN : (oma : N) -> (tunto : N) -> N ; } ; mkA : overload { mkA : Str -> A ; mkA : N -> A ; mkA : (hyva,parempi,paras : N) -> (hyvin,paremmin,parhaiten : Str) -> A ; } ; showN : N -> Utt = \talo -> let t = talo.s in ss ( t ! NCase Sg Nom ++ t ! NCase Sg Gen ++ t ! NCase Sg Part ++ t ! NCase Sg Ess ++ t ! NCase Sg Illat ++ t ! NCase Pl Gen ++ t ! NCase Pl Part ++ t ! NCase Pl Ess ++ t ! NCase Pl Iness ++ t ! NCase Pl Illat ) ** {lock_Utt = <>} ; mkN = overload { mkN : (talo : Str) -> N = mk1N ; -- \s -> nForms2N (nForms1 s) ; mkN : (talo,talon : Str) -> N = mk2N ; -- \s,t -> nForms2N (nForms2 s t) ; mkN : (talo,talon,taloja : Str) -> N = mk3N ; -- \s,t,u -> nForms2N (nForms3 s t u) ; mkN : (talo,talon,taloja,taloa : Str) -> N = mk4N ; -- \s,t,u,v -> nForms2N (nForms4 s t u v) ; mkN : (talo,talon,taloa,talona,taloon,talojen,taloja,taloina,taloissa,taloihin : Str) -> N = mk10N ; mkN : (sora : Str) -> (tie : N) -> N = mkStrN ; mkN : (oma,tunto : N) -> N = mkNN ; } ; mk1A : Str -> A = \jalo -> aForms2A (nforms2aforms (nForms1 jalo)) ; mkNA : N -> A = \suuri -> aForms2A (nforms2aforms (n2nforms suuri)) ; mk1N : (talo : Str) -> N = \s -> nForms2N (nForms1 s) ; mk2N : (talo,talon : Str) -> N = \s,t -> nForms2N (nForms2 s t) ; mk3N : (talo,talon,taloja : Str) -> N = \s,t,u -> nForms2N (nForms3 s t u) ; mk4N : (talo,talon,taloa,taloja : Str) -> N = \s,t,u,v -> nForms2N (nForms4 s t u v) ; mk10N : (talo,talon,taloa,talona,taloon,talojen,taloja,taloina,taloissa,taloihin : Str) -> N = \a,b,c,d,e,f,g,h,i,j -> nForms2N (nForms10 a b c d e f g h i j) ; mkStrN : Str -> N -> N = \sora,tie -> { s = \\c => sora + tie.s ! c ; lock_N = <> } ; mkNN : N -> N -> N = \oma,tunto -> { s = \\c => oma.s ! c + tunto.s ! c ; lock_N = <> } ; ---- TODO: oma in possessive suffix forms nForms1 : Str -> NForms = \ukko -> let ukk = init ukko ; uko = weakGrade ukko ; ukon = uko + "n" ; o = case last ukko of {"ä" => "ö" ; "a" => "o"} ; -- only used then renka = Declensions.strongGrade (init ukko) ; rake = Declensions.strongGrade ukko ; in case ukko of { _ + "nen" => dNainen ukko ; _ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" |"ää"|"öö") => dPuu ukko ; _ + ("ai" | "ei" | "oi" | "ui" | "yi" | "äi" | "öi") => dPuu ukko ; _ + ("ie" | "uo" | "yö") => dSuo ukko ; _ + ("ea" | "eä") => dKorkea ukko ; _ + "is" => dKaunis ukko ; _ + ("i" | "u") + "n" => dLiitin ukko (renka + "men") ; _ + ("ton" | "tön") => dOnneton ukko ; _ + "e" => dRae ukko (rake + "en") ; _ + ("ut" | "yt") => dRae ukko (ukk + "en") ; _ + ("as" | "äs") => dRae ukko (renka + last renka + "n") ; _ + ("uus" | "yys" | "eus" | "eys") => dLujuus ukko ; _ + "s" => dJalas ukko ; {- heuristics for 3-syllable nouns ending a/ä _ + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") + C_ + _ + "i" + C_ + a@("a" | "ä") => dSilakka ukko (ukko + "n") (ukk + o + "it" + a) ; _ + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") + C_ + _ + ("a" | "e" | "o" | "u" | "y" | "ä" | "ö") + ("l" | "r" | "n") + a@("a" | "ä") => dSilakka ukko (ukko + "n") (ukk + o + "it" + a) ; _ + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") + C_ + _ + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") + ("n" | "k" | "s") + "k" + a@("a" | "ä") => dSilakka ukko (uko + "n") (init uko + o + "it" + a) ; _ + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") + C_ + _ + ("a" | "e" | "i" | "o" | "u" | "y" | "ä" | "ö") + ("n" | "t" | "s") + "t" + a@("a" | "ä") => dSilakka ukko (uko + "n") (ukk + o + "j" + a) ; _ + ("a" | "e" | "i" | "o" | "u") + C_ + _ + ("a" | "e" | "o" | "u") + C_ + "a" => dSilakka ukko (ukko + "n") (ukk + "ia") ; -} _ + "i" +o@("o"|"ö") => dSilakka ukko (ukko+"n") (ukko+"it"+getHarmony o); _ + "i" + "a" => dSilakka ukko (ukko + "n") (ukk + "oita") ; _ + "i" + "ä" => dSilakka ukko (ukko + "n") (ukk + "öitä") ; _ + ("a" | "o" | "u" | "y" | "ä" | "ö") => dUkko ukko ukon ; _ + "i" => dPaatti ukko ukon ; _ + ("ar" | "är") => dPiennar ukko (renka + "ren") ; _ + "e" + ("l" | "n") => dPiennar ukko (ukko + "en") ; _ => dUnix ukko } ; nForms2 : (_,_ : Str) -> NForms = \ukko,ukon -> let ukk = init ukko ; in case of { <_ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" | "ie" | "uo" | "yö" | "ea" | "eä" | "ia" | "iä" | "io" | "iö" | "ja" | "jä"), _ + "n"> => nForms1 ukko ; --- to protect <_ + ("a" | "o" | "u" | "y" | "ä" | "ö"), _ + "n"> => dUkko ukko ukon ; -- auto,auton <_ + "mpi", _ + ("emman" | "emmän")> => dSuurempi ukko ; <_ + "in", _ + ("imman" | "immän")> => dSuurin ukko ; => dArpi ukko ukon ; --- => -- for b-w compat. --- dArpi ukko (init (weakGrade ukko) + "en") ; => dRae ukko ukon ; => dRae ukko ukon ; => dNukke ukko ukon ; <_ + ("us" | "ys"), _ + "den"> => dLujuus ukko ; <_, _ + ":n"> => dSDP ukko ; <_, _ + "n"> => nForms1 ukko ; _ => Predef.error (["second argument should end in n, not"] ++ ukon) } ; nForms3 : (_,_,_ : Str) -> NForms = \ukko,ukon,ukkoja -> let ukot = nForms2 ukko ukon ; in case of { <_ + "ea", _ + "ean", _ + "oita"> => dSilakka ukko ukon ukkoja ; -- idea, but not korkea <_ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" | "ie" | "uo" | "yö" | "ea" | "eä" | "ia" | "iä" | "io" | "iö"), _ + "n"> => nForms1 ukko ; --- to protect --- how to get "dioja"? <_ + ("a" | "ä" | "o" | "ö"), _ + "n", _ + ("a" | "ä")> => dSilakka ukko ukon ukkoja ; <_ + "i", _ + "n", _ + ("eita" | "eitä")> => dTohtori ukko ; <_, _ + "n", _ + ("a" | "ä")> => ukot ; _ => Predef.error (["last arguments should end in n and a/ä, not"] ++ ukon ++ ukkoja) } ; nForms4 : (_,_,_,_ : Str) -> NForms = \ukko,ukon,ukkoja,ukkoa -> let ukot = nForms3 ukko ukon ukkoja ; in case of { <_,_ + "n", _ + ("a" | "ä"), _ + ("a" | "ä")> => table { 2 => ukkoa ; n => ukot ! n } ; _ => Predef.error (["last arguments should end in n, a/ä, and a/ä, not"] ++ ukon ++ ukkoja ++ ukkoa) } ; }