forked from GitHub/gf-rgl
13 lines
275 B
Plaintext
13 lines
275 B
Plaintext
concrete NamesPol of Names = CatPol ** {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
|
|
lin FullName gn sn = {
|
|
nom = gn.nom ++ sn.nom ;
|
|
voc = gn.nom ++ sn.voc ;
|
|
dep = \\c => gn.nom ++ sn.dep ! c ;
|
|
gn = gn.gn ;
|
|
p = gn.p
|
|
} ;
|
|
|
|
}
|