forked from GitHub/gf-rgl
26 lines
472 B
Plaintext
26 lines
472 B
Plaintext
concrete NamesSom of Names = CatSom ** open ResSom, Prelude in {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname = \n -> n ** {
|
|
s = \\c => n.s ;
|
|
isPron = False ;
|
|
st = Definite ;
|
|
empty = [] ;
|
|
};
|
|
|
|
lin FullName gn sn = {
|
|
s = \\c => gn.s ++ sn.s ;
|
|
a = gn.a ;
|
|
isPron = False ;
|
|
st = Definite ;
|
|
empty = [] ;
|
|
} ;
|
|
|
|
UseLN pn = pn ** {
|
|
s = \\c => pn.s ;
|
|
isPron = False ;
|
|
st = Definite ;
|
|
empty = [] ;
|
|
} ;
|
|
|
|
}
|