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

Merge branch 'master' of github.com:GrammaticalFramework/gf-rgl

Browse Source
This commit is contained in:
Krasimir Angelov
2022-12-13 20:10:29 +01:00
parent b319bb1e96 79b67f620b
commit d0e433cd46
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

@@ -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};