From 7066d2f6bb19e30b1ddc06a0142a1bdd45132aa4 Mon Sep 17 00:00:00 2001 From: aarneranta Date: Wed, 9 Nov 2022 14:26:51 +0100 Subject: [PATCH] added InflectionPN in Fin --- src/finnish/DocumentationFinFunctor.gf | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/src/finnish/DocumentationFinFunctor.gf b/src/finnish/DocumentationFinFunctor.gf index 3c3b04130..71395dd94 100644 --- a/src/finnish/DocumentationFinFunctor.gf +++ b/src/finnish/DocumentationFinFunctor.gf @@ -30,6 +30,12 @@ lin s1 = heading1 (heading noun_Category) ; s2 = inflNoun (\nf -> (snoun2nounSep noun).s ! nf) } ; + + InflectionPN = \pn -> { + t = "s" ; + s1 = heading1 (heading noun_Category) ; + s2 = inflPN (\c -> pn.s ! c) + } ; InflectionA, InflectionA2 = \adj -> { t = "a" ; @@ -289,6 +295,22 @@ oper tr (th (heading comitative_Parameter) ++ td "" ++ td (nouns (NComit))) ++ tr (th (heading instructive_Parameter) ++ td "" ++ td (nouns (NInstruct))) ) ; + + inflPN : (Case -> Str) -> Str = \nouns -> + frameTable ( + tr (th (heading nominative_Parameter) ++ td (nouns (Nom))) ++ + tr (th (heading genitive_Parameter) ++ td (nouns (Gen))) ++ + tr (th (heading partitive_Parameter) ++ td (nouns (Part))) ++ + tr (th (heading translative_Parameter) ++ td (nouns (Transl))) ++ + tr (th (heading essive_Parameter) ++ td (nouns (Ess))) ++ + tr (th (heading inessive_Parameter) ++ td (nouns (Iness))) ++ + tr (th (heading elative_Parameter) ++ td (nouns (Elat))) ++ + tr (th (heading illative_Parameter) ++ td (nouns (Illat))) ++ + tr (th (heading adessive_Parameter) ++ td (nouns (Adess))) ++ + tr (th (heading ablative_Parameter) ++ td (nouns (Ablat))) ++ + tr (th (heading allative_Parameter) ++ td (nouns (Allat))) ++ + tr (th (heading abessive_Parameter) ++ td (nouns (Abess))) + ) ; lin NoDefinition t = {s=t.s};