msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests 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

25
src/swedish/NamesSwe.gf
View File

@@ -1,13 +1,28 @@
concrete NamesSwe of Names = CatSwe ** open CommonScand, ResSwe, Prelude in {
lin GivenName, MaleSurname, FemaleSurname = \pn -> {
lin GivenName = \pn -> {
s = \\c => pn.s ! caseNP c ;
a = agrP3 pn.g Sg ;
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 ! caseNP c ;
a = agrP3 gn.g Sg ;
s = \\c => gn.s ! Nom ++ sn.s ! gn.g ! caseNP c ;
a = agrP3 Utr Sg ;
isPron = False
} ;
@@ -17,6 +32,6 @@ lin FullName gn sn = {
isPron = False
} ;
InLN n = {s = n.c.s ++ n.s ! caseNP accusative} ;
InLN n = {s = "i" ++ n.s ! caseNP accusative} ;
}