GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-19 00:00:18 -06:00
Code Issues Packages Projects Releases Wiki Activity

the names API in more languages

Browse Source
This commit is contained in:
Krasimir Angelov
2023-08-16 19:39:22 +02:00
parent d25d648134
commit 6bc965f6c2
69 changed files with 1584 additions and 270 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
src/french/DocumentationFreFunctor.gf
View File

@@ -40,6 +40,52 @@ lin
)
} ;
InflectionPN = \pn -> {
t = "pn" ;
s1 = heading1 ("Nom Propre" ++
case pn.g of {
Masc => "("+heading masculine_Parameter+")" ;
Fem => "("+heading feminine_Parameter+")"
}) ;
s2 = pn.s
} ;
InflectionGN = \gn -> {
t = "pn" ;
s1 = heading1 ("Prénom" ++
case gn.g of {
Masc => "("+heading masculine_Parameter+")" ;
Fem => "("+heading feminine_Parameter+")"
}) ;
s2 = gn.s
} ;
InflectionSN = \gn -> {
t = "pn" ;
s1 = heading1 "Nom de Famille" ;
s2 = gn.s ! Masc
} ;
InflectionLN = \ln -> {
t = "nl" ;
s1 = heading1 ("Nom de la Localisation" ++
case ln.g of {
Masc => "("+heading masculine_Parameter+")" ;
Fem => "("+heading feminine_Parameter+")"
}) ;
s2 = paragraph ln.s ++
heading2 "Adverbe" ++
paragraph (let p : {s : Str; c:Prepos} =
case ln.onPrep of {
True => {s="en"; c=PNul} ;
False => {s=""; c=P_a}
}
in p.s ++ case ln.art of {
AlwaysArt => artDef True ln.g ln.num (CPrep p.c) ++ ln.s;
_ => prepCase (CPrep p.c) ++ ln.s
})
} ;
InflectionA, InflectionA2 = \adj -> {
t = "a" ;
s1 = heading1 (nounHeading adjective_Category).s ;