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

Documentation for Nynorsk

Browse Source
This commit is contained in:
Krasimir Angelov
2024-10-15 14:36:03 +02:00
parent 9217669c31
commit 81c71043ca
6 changed files with 354 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/swedish/NamesSwe.gf
+2 -43
View File
@@ -1,43 +1,2 @@
concrete NamesSwe of Names = CatSwe ** open CommonScand, ResSwe, Prelude in {
lin GivenName = \pn -> {
s = \\c => pn.s ! caseNP c ;
a = agrP3 Utr Sg ;
isPron = False
} ;
lin MaleSurname = \pn -> {
s = \\c => pn.s ! Male ! caseNP c ;
a = agrP3 Utr Sg ;
isPron = False
} ;
lin FemaleSurname = \pn -> {
s = \\c => pn.s ! Female ! caseNP c ;
a = agrP3 Utr Sg ;
isPron = False
} ;
lin PlSurname = \pn -> {
s = \\c => pn.pl ! caseNP c ;
a = agrP3 Utr Pl ;
isPron = False
} ;
lin FullName gn sn = {
s = \\c => gn.s ! Nom ++ sn.s ! gn.g ! caseNP c ;
a = agrP3 Utr Sg ;
isPron = False
} ;
UseLN, PlainLN = \n -> {
s = \\c => n.s ! caseNP c ;
a = agrP3 n.g n.n ;
isPron = False
} ;
AdjLN ap ln = ln ** {
s = \\c => preOrPost ap.isPre
(ap.s ! agrAdj (gennum (ngen2gen ln.g) ln.n) (DDef Def))
(ln.s ! c) ;
} ;
InLN n = {s = "i" ++ n.s ! caseNP accusative} ;
}
concrete NamesSwe of Noun = CatSwe ** NamesScand with
(ResScand = ResSwe) ;