forked from GitHub/gf-rgl
124 lines
3.9 KiB
Plaintext
124 lines
3.9 KiB
Plaintext
concrete CatRus of Cat = CommonX ** open ResRus, Prelude in {
|
|
flags coding=utf8 ; optimize=all ;
|
|
lincat
|
|
N, PN = ResRus.NounForms ;
|
|
N2 = ResRus.Noun2Forms ;
|
|
N3 = ResRus.Noun3Forms ;
|
|
|
|
A, Ord = ResRus.AdjForms ;
|
|
A2 = ResRus.AdjForms ** {c : ComplementCase} ;
|
|
|
|
Pron = ResRus.PronounForms ;
|
|
|
|
V, VS, VQ, VA = ResRus.VerbForms ;
|
|
V2, V2S, V2Q, V2A = ResRus.VerbForms ** {c : ComplementCase} ;
|
|
V3 = ResRus.VerbForms ** {c : ComplementCase ; c2 : ComplementCase} ;
|
|
VV = {v : ResRus.VerbForms ; modal : AgrTable} ;
|
|
V2V, V2S, V2Q = ResRus.VerbForms ** {c : ComplementCase} ;
|
|
|
|
CN = ResRus.Noun ;
|
|
|
|
NP = ResRus.NounPhrase ;
|
|
VP = {
|
|
adv : AgrTable ; -- modals are in position of adverbials ones numgen gets fixed
|
|
verb : ResRus.VerbForms ;
|
|
dep : Str ; -- dependent infinites and such
|
|
compl : AgrTable
|
|
} ;
|
|
VPSlash = {
|
|
adv : AgrTable ; -- modals are in position of adverbials ones numgen gets fixed
|
|
verb : ResRus.VerbForms ;
|
|
dep : Str ; -- dependent infinites and such
|
|
compl : AgrTable ;
|
|
c : ComplementCase
|
|
} ; ----
|
|
|
|
AP = ResRus.Adjective ** {isPost : Bool} ;
|
|
|
|
S = {s : Mood => Str} ;
|
|
SSlash = {s : Mood => Str; c: ComplementCase} ;
|
|
Cl = {
|
|
subj,compl,adv : Str ;
|
|
verb : VerbForms ;
|
|
dep : Str ; -- dependent infinites and such
|
|
a : Agr
|
|
} ;
|
|
ClSlash = {
|
|
subj,compl,adv : Str ;
|
|
verb : VerbForms ;
|
|
dep : Str ; -- dependent infiniteve and such
|
|
a : Agr ;
|
|
c : ComplementCase
|
|
} ;
|
|
Imp = {s: Polarity => GenNum => Str} ;
|
|
Comp = {s : AgrTable ; adv : Str ; cop : CopulaType } ;
|
|
|
|
Det, DAP = {
|
|
s : DetTable ;
|
|
type : DetType ; -- main purpose is to avoid emptiness of articles, but can be reused later for something else
|
|
g : Gender ;
|
|
c : Case ;
|
|
size : NumSize
|
|
} ;
|
|
Predet = ResRus.Adjective ** {size : NumSize} ;
|
|
IQuant = ResRus.Adjective ** {g: Gender; c: Case} ;
|
|
Quant = ResRus.Adjective ** {g: Gender; c: Case; type: DetType} ;
|
|
Num, Numeral, Card = NumDet ;
|
|
Digits = {s : Str ; size: NumSize} ;
|
|
|
|
QS = {s : QForm => Str} ;
|
|
QCl = {
|
|
subj,compl,adv : Str ;
|
|
verb : VerbForms ;
|
|
dep : Str ; -- dependent infinites and such
|
|
a : Agr
|
|
} ;
|
|
|
|
IP = ResRus.IPronounForms ;
|
|
RP = ResRus.RPronounForms ;
|
|
IComp = {s : AgrTable ; adv : Str ; cop : CopulaType } ;
|
|
IDet = {
|
|
s : DetTable ;
|
|
g : Gender ;
|
|
size : NumSize ;
|
|
c : Case
|
|
} ;
|
|
RS = {s : AdjTable} ;
|
|
RCl = {
|
|
subj : AdjTable ;
|
|
compl,adv : AgrTable ;
|
|
verb : VerbForms ;
|
|
dep : Str ; -- dependent infinites and such
|
|
a : Agr
|
|
} ;
|
|
|
|
Prep = ResRus.ComplementCase ;
|
|
Conj = {s1,s2 : Str ; n : Number} ;
|
|
|
|
linref
|
|
N = \s -> s.snom ;
|
|
PN = \s -> s.snom ;
|
|
N2 = \s -> s.snom ++ s.c2.s ; -- TODO
|
|
N3 = \s -> s.snom ++ s.c2.s ++ s.c3.s ; -- TODO
|
|
A = \s -> case s.preferShort of {PrefShort => s.sm ; _ => s.msnom} ;
|
|
A2 = \s -> case s.preferShort of {PrefShort => s.sm ; _ => s.msnom} ++ s.c.s ; -- ?
|
|
V = \s -> verbInf s ;
|
|
V2 = \s -> (verbInf s) ++ s.c.s ;
|
|
V2V = \s -> (verbInf s) ++ s.c.s ;
|
|
V2A = \s -> (verbInf s) ++ s.c.s ;
|
|
V3 = \s -> (verbInf s) ++ s.c.s ++ s.c2.s ;
|
|
Ord = \s -> s.nsnom ;
|
|
S = \s -> s.s ! Ind ;
|
|
SSlash = \s -> s.s ! Ind ++ s.c.s ; --?
|
|
VP = \s -> s.adv ! Ag (GSg Neut) P3 ++ (verbInf s.verb) ++ s.dep ++ s.compl ! Ag (GSg Neut) P3 ; -- Are these useful?
|
|
Comp = \s -> copula.inf ++ s.s ! Ag (GSg Neut) P3 ++ s.adv ;
|
|
IComp = \s -> s.s ! Ag (GSg Neut) P3 ++ s.adv ++ copula.inf;
|
|
VPSlash = \s -> s.adv ! Ag (GSg Neut) P3 ++ (verbInf s.verb) ++ s.dep ++ s.compl ! Ag (GSg Neut) P3 ++ s.c.s ; -- Are these useful?
|
|
Cl = \s -> s.subj ++ s.adv ++ (verbInf s.verb) ++ s.dep ++ s.compl ;
|
|
ClSlash = \s -> s.subj ++ s.adv ++ (verbInf s.verb) ++ s.dep ++ s.compl ;
|
|
QCl = \s -> s.subj ++ s.adv ++ (verbInf s.verb) ++ s.dep ++ s.compl ;
|
|
RCl = \s -> s.subj ! GSg Neut ! Inanimate ! Nom ++ s.adv ! Ag (GSg Neut) P3 ++ (verbInf s.verb) ++ s.dep ++ s.compl ! Ag (GSg Neut) P3 ;
|
|
IP = \s -> s.nom ;
|
|
RP = \s -> s.s!GSg Neut!Inanimate!Nom ;
|
|
}
|