forked from GitHub/gf-rgl
Krasimir Angelov
32 lines
597 B
Plaintext
32 lines
597 B
Plaintext
concrete NamesSom of Names = CatSom ** open ResSom, ParadigmsSom, 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 = [] ;
|
|
} ;
|
|
|
|
InLN ln = prepNP (mkPrep ku) (UseLN ln) ;
|
|
|
|
AdjLN ap ln = ln ** {
|
|
s = ap.s ! AF Sg Abs ++ ln.s
|
|
} ;
|
|
|
|
}
|