1
0
forked from GitHub/gf-rgl

the names API in more languages

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
+8 -4
View File
@@ -1,4 +1,4 @@
concrete NamesSlv of Names = CatSlv ** open ResSlv, Prelude in {
concrete NamesSlv of Names = CatSlv ** open ResSlv, ParamX, Prelude in {
lin GivenName = \n -> {
s = n.s;
@@ -21,10 +21,14 @@ lin FullName gn sn = {
isPron = False
} ;
lin UseLN pn = {
s = pn.s;
a = {g=agender2gender pn.g; n=pn.n; p=P3};
lin UseLN, PlainLN = \ln -> {
s = ln.s;
a = {g=agender2gender ln.g; n=ln.n; p=P3};
isPron = False
} ;
lin InLN ln = {
s = "v" ++ ln.s ! Loc
} ;
}