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

fix the order of genders for the adjectives and show the adjectives for the nouns

Browse Source
This commit is contained in:
Krasimir Angelov
2024-03-11 07:39:31 +01:00
parent ffcff47545
commit 2aef82181b
1 changed files with 17 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/russian/DocumentationRusFunctor.gf
View File

@@ -29,7 +29,12 @@ lin
Fem => "(ж.р.)" ;
Neut => "(ср.р.)"
}) ;
s2 = inflNoun noun
s2 = inflNoun noun ++
case noun.rt of {
GenType => [] ;
AdjType => heading1 (heading adjective_Category) ++
inflAdj noun.rel
}
} ;
InflectionPN = \pn -> {
@@ -114,14 +119,7 @@ lin
InflectionA, InflectionA2 = \adj -> {
t = "пр" ;
s1 = heading1 (heading adjective_Category) ;
s2 = heading2 (heading feminine_Parameter) ++
inflNoun (makeNFFromAF adj Fem Inanimate) ++
heading2 (heading masculine_Parameter) ++
inflNoun (makeNFFromAF adj Masc Inanimate) ++
heading2 (heading neuter_Parameter) ++
inflNoun (makeNFFromAF adj Neut Inanimate) ++
heading2 (heading comparative_Parameter) ++
frameTable (tr (tr (adj.comp)))
s2 = inflAdj adj
} ;
InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
@@ -238,6 +236,16 @@ oper
tr (th ("звательный") ++ td (nf.svoc) ++ td ("-"))
) ;
inflAdj : AdjForms -> Str = \adj ->
heading2 (heading masculine_Parameter) ++
inflNoun (makeNFFromAF adj Masc Inanimate) ++
heading2 (heading feminine_Parameter) ++
inflNoun (makeNFFromAF adj Fem Inanimate) ++
heading2 (heading neuter_Parameter) ++
inflNoun (makeNFFromAF adj Neut Inanimate) ++
heading2 (heading comparative_Parameter) ++
frameTable (tr (tr (adj.comp))) ;
lin
-- : String -> Definition ;
NoDefinition t = {s=t.s};