mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-15 01:50:12 -06:00
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} ;
|
|
} ;
|
|
|
|
}
|