started a separate module for names

This commit is contained in:
Krasimir Angelov
2023-07-24 17:24:13 +02:00
parent 8b1309c99d
commit 645de9955a
100 changed files with 611 additions and 227 deletions

25
src/russian/NamesRus.gf Normal file
View File

@@ -0,0 +1,25 @@
concrete NamesRus of Names = CatRus ** open ResRus, Prelude in {
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \pn ->
{ s=\\cas => (nounFormsNoun pn).s ! Sg ! cas ;
pron=False;
a=Ag (gennum pn.g Sg) P3
} ; -- Does NP need animacy?
lin FullName gn sn =
{ s= table {
Nom => gn.snom ++ sn.snom ;
Gen => gn.snom ++ sn.sgen ;
Dat => gn.snom ++ sn.sdat ;
Acc => gn.snom ++ sn.sacc ;
Ins => gn.snom ++ sn.sins ;
Pre => gn.snom ++ sn.sprep ;
Loc => gn.snom ++ sn.sloc ;
Ptv => gn.snom ++ sn.sptv ;
VocRus => gn.snom ++ sn.svoc
} ;
pron=False;
a=Ag (gennum gn.g Sg) P3
} ;
}