mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-06 01:32:50 -06:00
101 lines
2.9 KiB
Plaintext
101 lines
2.9 KiB
Plaintext
--# -path=alltenses:../english
|
|
concrete ParseEngBul of ParseEngAbs =
|
|
TenseX - [IAdv, CAdv],
|
|
CatBul,
|
|
NounBul - [PPartNP],
|
|
AdjectiveBul,
|
|
NumeralBul,
|
|
SymbolBul [PN, Symb, MkSymb, SymbPN],
|
|
ConjunctionBul,
|
|
VerbBul - [SlashV2V, PassV2, UseCopula],
|
|
AdverbBul,
|
|
PhraseBul,
|
|
SentenceBul,
|
|
QuestionBul,
|
|
RelativeBul,
|
|
IdiomBul [NP, VP, Tense, Cl, ProgrVP, ExistNP],
|
|
ExtraBul [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash,
|
|
Temp, Pol, Conj, VPS, ListVPS, S, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
|
|
VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV],
|
|
|
|
DictEngBul **
|
|
open ResBul, Prelude in {
|
|
|
|
flags
|
|
literal=Symb ;
|
|
|
|
lin
|
|
GerundN v = {
|
|
s = \\nform => v.s ! Imperf ! VNoun nform ;
|
|
g = ANeut
|
|
} ;
|
|
|
|
GerundAP v = {
|
|
s = \\aform => v.s ! Imperf ! VPresPart aform ++
|
|
case v.vtype of {
|
|
VMedial c => reflClitics ! c;
|
|
_ => []
|
|
};
|
|
adv = v.s ! Imperf ! VPresPart (ASg Neut Indef);
|
|
isPre = True
|
|
} ;
|
|
|
|
PastPartAP v = {
|
|
s = \\aform => v.s ! Perf ! VPassive aform ;
|
|
adv = v.s ! Perf ! VPassive (ASg Neut Indef);
|
|
isPre = True
|
|
} ;
|
|
|
|
PositAdVAdj a = {s = a.adv} ;
|
|
|
|
that_RP = {
|
|
s = whichRP
|
|
} ;
|
|
|
|
UseQuantPN q pn = { s = table {
|
|
RObj Dat => "на" ++ pn.s;
|
|
_ => pn.s
|
|
} ;
|
|
a = {gn = GSg pn.g; p = P3}
|
|
} ;
|
|
|
|
PPartNP np vps = {
|
|
s = \\c => np.s ! c ++
|
|
vps.s ! Perf ! VPassive (aform np.a.gn Indef c) ++
|
|
vps.compl1 ! np.a ++ vps.compl2 ! np.a;
|
|
a = np.a
|
|
} ;
|
|
|
|
SlashV2V vv ant p vp =
|
|
insertSlashObj2 (\\agr => ant.s ++ p.s ++
|
|
daComplex ant.a p.p vp ! Perf ! agr)
|
|
(slashV vv vv.c2) ;
|
|
|
|
PredVPosv np vp = {
|
|
s = \\t,a,p,o =>
|
|
let
|
|
subj = np.s ! (case vp.vtype of {
|
|
VNormal => RSubj ;
|
|
VMedial _ => RSubj ;
|
|
VPhrasal c => RObj c}) ;
|
|
verb : Bool => Str
|
|
= \\q => vpTenses vp ! t ! a ! p ! np.a ! q ! Perf ;
|
|
compl = vp.compl ! np.a
|
|
in case o of {
|
|
Main => compl ++ subj ++ verb ! False ;
|
|
Inv => verb ! False ++ compl ++ subj ;
|
|
Quest => compl ++ subj ++ verb ! True
|
|
}
|
|
} ;
|
|
|
|
CompS s = {s = \\_ => "че" ++ s.s} ;
|
|
CompVP ant p vp = {s = \\agr => ant.s ++ p.s ++
|
|
daComplex ant.a p.p vp ! Perf ! agr} ;
|
|
|
|
PassVS vs vp =
|
|
insertObj (\\a => vs.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc))
|
|
++ daComplex Simul Pos vp ! Perf ! a)
|
|
(predV verbBe) ;
|
|
|
|
}
|