mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-15 18:10:12 -06:00
24 lines
467 B
Plaintext
24 lines
467 B
Plaintext
concrete NamesMlt of Names = CatMlt ** open ResMlt, Prelude in {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> {
|
|
s = \\c => n.s ;
|
|
a = n.a ;
|
|
isPron = False ;
|
|
isDefn = False
|
|
} ;
|
|
lin FullName gn sn = {
|
|
s = \\c => gn.s ++ sn.s ;
|
|
a = gn.a ;
|
|
isPron = False ;
|
|
isDefn = False
|
|
} ;
|
|
|
|
lin UseLN pn = {
|
|
s = \\c => pn.s ;
|
|
a = pn.a ;
|
|
isPron = False ;
|
|
isDefn = False ;
|
|
} ;
|
|
|
|
}
|