forked from GitHub/gf-rgl
35 lines
786 B
Plaintext
35 lines
786 B
Plaintext
concrete NamesSlv of Names = CatSlv ** open ResSlv, (P=ParamX), Prelude in {
|
|
|
|
lin GivenName = \n -> {
|
|
s = n.s;
|
|
a = {g=agender2gender (sex2agender n.g); n=Sg; p=P3};
|
|
isPron = False
|
|
} ;
|
|
lin MaleSurname = \n -> {
|
|
s = n.s ! P.Male;
|
|
a = {g=Masc; n=Sg; p=P3};
|
|
isPron = False
|
|
} ;
|
|
lin FemaleSurname = \n -> {
|
|
s = n.s ! P.Female;
|
|
a = {g=Fem; n=Sg; p=P3};
|
|
isPron = False
|
|
} ;
|
|
lin FullName gn sn = {
|
|
s = \\c => gn.s ! Nom ++ sn.s ! gn.g ! c ;
|
|
a = {g=agender2gender (sex2agender gn.g); n=Sg; p=P3};
|
|
isPron = False
|
|
} ;
|
|
|
|
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
|
|
} ;
|
|
|
|
}
|