forked from GitHub/gf-rgl
11 lines
295 B
Plaintext
11 lines
295 B
Plaintext
concrete NamesKaz of Names = CatKaz ** open Prelude, ResKaz in {
|
|
oper nameNP : Str -> NP = \s -> lin NP {s=\\_ => s; a={p=P3;n=Sg}} ;
|
|
|
|
lin
|
|
UseLN ln=nameNP ln.s;
|
|
InLN ln={s=ln.s++"да"};
|
|
AdjLN ap ln={s=ap.s++ln.s};
|
|
GivenName gn=nameNP gn.s;
|
|
MaleSurname sn=nameNP sn.s;
|
|
}
|