forked from GitHub/gf-rgl
26 lines
627 B
Plaintext
26 lines
627 B
Plaintext
concrete NamesEus of Names = CatEus ** open ResEus, Prelude in {
|
|
|
|
lin
|
|
GivenName = nameNP ;
|
|
MaleSurname = nameNP ;
|
|
FemaleSurname = nameNP ;
|
|
PlSurname sn = (nameNP sn) ** {agr = Hauek} ;
|
|
|
|
FullName gn sn = nameNP (sn ** {s = gn.s ++ sn.s ; nbr = Sg}) ;
|
|
|
|
UseLN, PlainLN = nameNP ;
|
|
|
|
InLN ln = {s = (nameNP ln).s ! Ine} ;
|
|
|
|
AdjLN ap ln = ln ** {s = ap.s ! Hau ++ ln.s} ;
|
|
|
|
oper
|
|
nameNP : PNoun -> NounPhrase = \pn -> {
|
|
s = \\c => pn.s ++ artIndef ! c ! pn.ph ;
|
|
stem = pn.s ;
|
|
agr = case pn.nbr of {Sg => Hau ; Pl => Hauek} ;
|
|
anim = pn.anim ;
|
|
isDef = True
|
|
} ;
|
|
}
|