mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-03 00:02:50 -06:00
113 lines
3.6 KiB
Plaintext
113 lines
3.6 KiB
Plaintext
--# -coding=cp1251
|
|
concrete ExtraBul of ExtraBulAbs = CatBul **
|
|
open ResBul, MorphoFunsBul, Coordination, Prelude, Predef in {
|
|
flags coding=cp1251 ;
|
|
|
|
|
|
lin
|
|
PossIndefPron p = {
|
|
s = \\_,aform => p.gen ! (indefAForm aform) ;
|
|
nonEmpty = True;
|
|
spec = Indef;
|
|
p = Pos
|
|
} ;
|
|
|
|
ReflQuant = {
|
|
s = \\_,aform => reflPron ! aform ;
|
|
nonEmpty = True;
|
|
spec = Indef;
|
|
p = Pos
|
|
} ;
|
|
|
|
ReflIndefQuant = {
|
|
s = \\_,aform => reflPron ! (indefAForm aform) ;
|
|
nonEmpty = True;
|
|
spec = Indef;
|
|
p = Pos
|
|
} ;
|
|
|
|
EmptyRelSlash slash = {
|
|
s = \\t,a,p,agr => slash.c2.s ++ whichRP ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main ;
|
|
role = RObj Acc
|
|
} ;
|
|
|
|
i8fem_Pron = mkPron "àç" "ìåí" "ìè" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Fem) P1 ;
|
|
i8neut_Pron = mkPron "àç" "ìåí" "ìè" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Neut) P1 ;
|
|
|
|
whatSg8fem_IP = mkIP "êàêâà" "êàêâà" (GSg Fem) ;
|
|
whatSg8neut_IP = mkIP "êàêâî" "êàêâî" (GSg Neut) ;
|
|
|
|
whoSg8fem_IP = mkIP "êîÿ" "êîãî" (GSg Fem) ;
|
|
whoSg8neut_IP = mkIP "êîå" "êîãî" (GSg Neut) ;
|
|
|
|
youSg8fem_Pron = mkPron "òè" "òåá" "òè" "òâîé" "òâîÿ" "òâîÿò" "òâîÿ" "òâîÿòà" "òâîå" "òâîåòî" "òâîè" "òâîèòå" (GSg Fem) P2 ;
|
|
youSg8neut_Pron = mkPron "òè" "òåá" "òè" "òâîé" "òâîÿ" "òâîÿò" "òâîÿ" "òâîÿòà" "òâîå" "òâîåòî" "òâîè" "òâîèòå" (GSg Neut) P2 ;
|
|
|
|
onePl_Num = {s = table {
|
|
CFMasc Indef _ | CFFem Indef | CFNeut Indef => "åäíè" ;
|
|
CFMasc Def _ | CFMascDefNom _ | CFFem Def | CFNeut Def => "åäíèòå"
|
|
} ;
|
|
nn = NCountable;
|
|
nonEmpty = True
|
|
} ;
|
|
|
|
UttImpSg8fem pol imp = {s = pol.s ++ imp.s ! pol.p ! GSg Fem} ;
|
|
UttImpSg8neut pol imp = {s = pol.s ++ imp.s ! pol.p ! GSg Fem} ;
|
|
|
|
IAdvAdv adv = {s = \\qf => (mkIAdv "êîëêî").s ! qf ++ adv.s} ;
|
|
|
|
oper
|
|
reflPron : AForm => Str =
|
|
table {
|
|
ASg Masc Indef => "ñâîé" ;
|
|
ASg Masc Def => "ñâîÿ" ;
|
|
ASgMascDefNom => "ñâîÿò" ;
|
|
ASg Fem Indef => "ñâîÿ" ;
|
|
ASg Fem Def => "ñâîÿòà" ;
|
|
ASg Neut Indef => "ñâîå" ;
|
|
ASg Neut Def => "ñâîåòî" ;
|
|
APl Indef => "ñâîè" ;
|
|
APl Def => "ñâîèòå"
|
|
} ;
|
|
|
|
lincat
|
|
VPI = {s : Agr => Str} ;
|
|
[VPI] = {s : Bool => Ints 2 => Agr => Str} ;
|
|
|
|
lin
|
|
BaseVPI x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ;
|
|
ConsVPI x xs = {s = \\d,t,a=>x.s!a++(linCoordSep comma)!d!t++xs.s!d!t!a} ;
|
|
|
|
MkVPI vp = {s = daComplex Simul Pos vp ! Perf} ;
|
|
ConjVPI conj vpi = {
|
|
s = \\a => conj.s++(linCoordSep [])!conj.distr!conj.conj++vpi.s!conj.distr!conj.conj!a;
|
|
} ;
|
|
ComplVPIVV vv vpi =
|
|
insertObj (\\a => vpi.s ! a) Pos (predV vv) ;
|
|
|
|
lincat
|
|
VPS = {s : Agr => Str} ;
|
|
[VPS] = {s : Bool => Ints 2 => Agr => Str} ;
|
|
|
|
lin
|
|
BaseVPS x y = {s = \\d,t,a=>x.s!a++linCoord!t++y.s!a} ;
|
|
ConsVPS x xs = {s = \\d,t,a=>x.s!a++(linCoordSep comma)!d!t++xs.s!d!t!a} ;
|
|
|
|
PredVPS np vps = {s = np.s ! RSubj ++ vps.s ! np.a} ;
|
|
|
|
MkVPS t p vp = {
|
|
s = \\a =>
|
|
let verb = vpTenses vp ! t.t ! t.a ! p.p ! a ! False ! Perf ;
|
|
compl = vp.compl ! a
|
|
in t.s ++ p.s ++ verb ++ compl
|
|
} ;
|
|
|
|
ConjVPS conj vps = {
|
|
s = \\a => conj.s++(linCoordSep [])!conj.distr!conj.conj++vps.s!conj.distr!conj.conj!a;
|
|
} ;
|
|
|
|
PassVPSlash vp = insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++
|
|
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe) ;
|
|
|
|
}
|