mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-31 02:43:19 -06:00
added GN & SN categories for constructing names
This commit is contained in:
1 parent
d0e433cd46
commit
7085acacc9
55 files changed
+371
-43
No files matched your search
@@ -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 ("Прилагателно") ;
|
||||
|
||||
Reference in new issue
Block a user