forked from GitHub/gf-rgl
18 lines
459 B
Plaintext
18 lines
459 B
Plaintext
concrete NamesAra of Names = CatAra ** open ResAra, Prelude in {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> emptyNP ** {
|
|
s = n.s ;
|
|
a = {pgn = Per3 n.g Sg ; isPron = False} ;
|
|
} ;
|
|
lin FullName gn sn = emptyNP ** {
|
|
s = \\c => gn.s ! c ++ sn.s ! c ;
|
|
a = {pgn = Per3 gn.g Sg ; isPron = False} ;
|
|
} ;
|
|
|
|
lin UseLN pn = emptyNP ** {
|
|
s = pn.s ;
|
|
a = {pgn = Per3 pn.g Sg ; isPron = False} ;
|
|
} ;
|
|
|
|
}
|