msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added InflectionPN in Fin

Browse Source
This commit is contained in:
aarneranta
2022-11-09 14:26:51 +01:00
parent 23f8429019
commit 7066d2f6bb
1 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/finnish/DocumentationFinFunctor.gf
View File

@@ -31,6 +31,12 @@ lin
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" ;
s1 = heading1 (heading adjective_Category) ;
@@ -290,6 +296,22 @@ oper
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};
MkDefinition t d = {s="<p><b>Rajaus:</b>"++t.s++d.s++"</p>"};