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
src/estonian/NamesEst.gf
+29 -5
View File
@@ -1,20 +1,44 @@
concrete NamesEst of Names = CatEst ** open ResEst, Prelude in {
concrete NamesEst of Names = CatEst ** open ResEst, ParadigmsEst, Prelude in {
lin GivenName, MaleSurname, FemaleSurname = \n -> emptyNP ** {
lin GivenName n = emptyNP ** {
s = \\c => n.s ! npform2case Sg c ;
a = agrP3 Sg ;
isPron = False
} ;
lin MaleSurname n = emptyNP ** {
s = \\c => n.s ! Male ! npform2case Sg c ;
a = agrP3 Sg ;
isPron = False
} ;
lin FemaleSurname n = emptyNP ** {
s = \\c => n.s ! Female ! npform2case Sg c ;
a = agrP3 Sg ;
isPron = False
} ;
lin PlSurname n = emptyNP ** {
s = \\c => n.pl ! npform2case Sg c ;
a = agrP3 Pl ;
isPron = False
} ;
lin FullName gn sn = emptyNP ** {
s = \\c => gn.s ! Nom ++ sn.s ! npform2case Sg c ;
s = \\c => gn.s ! Nom ++ sn.s ! gn.g ! npform2case Sg c ;
a = agrP3 Sg ;
isPron = False
} ;
lin UseLN pn = emptyNP ** {
s = \\c => pn.s ! npform2case Sg c ;
lin UseLN, PlainLN = \ln -> emptyNP ** {
s = \\c => ln.s ! npform2case Sg c ;
a = agrP3 Sg ;
isPron = False
} ;
lin InLN pn = {
s = appCompl True Pos (casePrep inessive)
(emptyNP ** {
s = \\c => pn.s ! npform2case Sg c ;
a = agrP3 Sg ;
isPron = False
})
} ;
}