added GN & SN categories for constructing names

This commit is contained in:
Krasimir Angelov committed 2022-12-15 08:44:42 +01:00
1 parent d0e433cd46
commit 7085acacc9
55 files changed
+371 -43

No files matched your search

+24
View File
@@ -92,6 +92,30 @@ lin
s3 = ""
} ;
InflectionGN = \pn -> {
t = "същ.с.л." ;
s1= heading1 ("Собствено Име"++
case pn.g of {
Masc => "(м.р.)" ;
Fem => "(ж.р.)" ;
Neut => "(ср.р.)"
}) ;
s2 = pn.s ;
s3 = ""
} ;
InflectionSN = \pn -> {
t = "същ.с.ф." ;
s1= heading1 ("Фамилно Име"++
case pn.g of {
Masc => "(м.р.)" ;
Fem => "(ж.р.)" ;
Neut => "(ср.р.)"
}) ;
s2 = pn.s ;
s3 = ""
} ;
InflectionA, InflectionA2 = \a -> {
t = "пр" ;
s1= heading1 ("Прилагателно") ;