mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-07 19:54:16 -06:00
20 lines
584 B
Plaintext
20 lines
584 B
Plaintext
concrete NamesBel of Names = CatBel ** open ResBel, ParadigmsBel in {
|
||
|
||
lin
|
||
GivenName gn = mkSimpleNP gn.s gn.g Sg P3 ;
|
||
MaleSurname sn = mkSimpleNP sn.s Masc Sg P3 ;
|
||
FemaleSurname sn = mkSimpleNP sn.s Fem Sg P3 ;
|
||
PlSurname sn = mkSimpleNP sn.s Masc Pl P3 ;
|
||
FullName gn sn = mkSimpleNP (gn.s ++ sn.s) gn.g Sg P3 ;
|
||
|
||
UseLN ln = {s = ln.s; a = {g=ln.g; n=ln.n; p=P3}} ;
|
||
PlainLN ln = {s = ln.s; a = {g=ln.g; n=ln.n; p=P3}} ;
|
||
InLN ln = {s = "у" ++ ln.s ! Loc} ;
|
||
AdjLN ap ln = {
|
||
s = \\c => ap.s ! c ! genNum ln.g ln.n ++ ln.s ! c ;
|
||
g = ln.g ;
|
||
n = ln.n
|
||
} ;
|
||
|
||
}
|