the names API in more languages

This commit is contained in:
Krasimir Angelov
2023-08-16 19:39:22 +02:00
parent d25d648134
commit 6bc965f6c2
69 changed files with 1584 additions and 270 deletions

View File

@@ -1,7 +1,21 @@
concrete CatRus of Cat = CommonX ** open ResRus, Prelude in {
flags coding=utf8 ; optimize=all ;
lincat
N, GN, SN, LN, PN = ResRus.NounForms ;
N, PN = ResRus.NounForms ;
GN = {
s : Case => Str ;
g : Sex ;
} ;
SN = {
s : Sex => Case => Str ;
p : Case => Str ;
} ;
LN = {
s : Case => Str ;
g : Gender ;
n : Number ;
anim : Animacy
} ;
N2 = ResRus.Noun2Forms ;
N3 = ResRus.Noun3Forms ;
@@ -105,7 +119,7 @@ lincat
linref
N = \s -> s.snom ;
PN = \s -> s.snom ;
LN = \s -> s.snom ;
LN = \s -> s.s ! Nom ;
Pron = \s -> s.nom ;
N2 = \s -> s.snom ++ s.c2.s ;
N3 = \s -> s.snom ++ s.c2.s ++ s.c3.s ;