GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-22 09:46:22 -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

33
src/finnish/NamesFin.gf
View File

@@ -1,20 +1,43 @@
concrete NamesFin of Names = CatFin ** open ResFin, StemFin, Prelude in {
lin GivenName, MaleSurname, FemaleSurname = \n -> {
lin GivenName n = {
s = snoun2np Sg n ;
a = agrP3 Sg ;
isPron = False ; isNeg = False
} ;
lin MaleSurname n = {
s = snoun2np Sg (n.s ! Male) ;
a = agrP3 Sg ;
isPron = False ; isNeg = False
} ;
lin FemaleSurname n = {
s = snoun2np Sg (n.s ! Female) ;
a = agrP3 Sg ;
isPron = False ; isNeg = False
} ;
lin PlSurname n = {
s = snoun2np Pl n.pl ;
a = agrP3 Pl ;
isPron = False ; isNeg = False
} ;
lin FullName gn sn = {
s = snoun2np Sg {s = \\c => gn.s ! Nom ++ sn.s ! c} ;
s = snoun2np Sg {s = \\c => gn.s ! Nom ++ (sn.s ! gn.g).s ! c} ;
a = agrP3 Sg ;
isPron = False ; isNeg = False
} ;
lin UseLN pn = {
s = snoun2np Sg pn ;
a = agrP3 Sg ;
lin UseLN, PlainLN = \ln -> {
s = snoun2np ln.n ln ;
a = agrP3 ln.n ;
isPron = False ; isNeg = False
} ;
lin InLP ln = {
s = appCompl True Pos ln.c { s = snoun2np ln.n ln ;
a = agrP3 ln.n ;
isPron = False ;
isNeg = False
}
} ;
}