forked from GitHub/gf-rgl
26 lines
502 B
Plaintext
26 lines
502 B
Plaintext
concrete NamesTur of Names = CatTur ** open ResTur in {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname = \n -> {
|
|
s = \\c => n.s ! c;
|
|
h = n.h;
|
|
a = {n = Sg; p = P3}
|
|
} ;
|
|
lin PlSurname = \n -> {
|
|
s = \\c => n.s ! c;
|
|
h = n.h;
|
|
a = {n = Pl; p = P3}
|
|
} ;
|
|
lin FullName gn sn = {
|
|
s = \\c => gn.s ! Nom ++ sn.s ! c;
|
|
h = sn.h;
|
|
a = {n = Sg; p = P3}
|
|
} ;
|
|
|
|
lin UsePN pn = {
|
|
s = \\c => pn.s ! c;
|
|
h = pn.h;
|
|
a = {n = pn.n; p = P3}
|
|
} ;
|
|
|
|
}
|