GerundNP and InOrderToVP in Bulgarian

This commit is contained in:
kr.angelov
2014-12-11 10:54:41 +00:00
parent b84e5301a4
commit 1ba2f622ba
2 changed files with 11 additions and 2 deletions

View File

@@ -53,6 +53,12 @@ lin
vp.compl ! {gn=GSg Neut; p=P3} ; vp.compl ! {gn=GSg Neut; p=P3} ;
g = ANeut g = ANeut
} ; } ;
GerundNP vp = {
s = \\_ => daComplex Simul Pos vp ! Imperf ! {gn=GSg Neut; p=P1};
a = {gn=GSg Neut; p=P3};
p = Pos
} ;
PresPartAP vp = PresPartAP vp =
let ap : AForm => Str let ap : AForm => Str
@@ -86,6 +92,9 @@ lin
{s = vp.ad.s ++ {s = vp.ad.s ++
vp.s ! Imperf ! VGerund ++ vp.s ! Imperf ! VGerund ++
vp.compl ! {gn=GSg Neut; p=P3}} ; vp.compl ! {gn=GSg Neut; p=P3}} ;
InOrderToVP vp =
{s = "за" ++ daComplex Simul Pos vp ! Imperf ! {gn=GSg Neut; p=P3}};
PositAdVAdj a = {s = a.adv} ; PositAdVAdj a = {s = a.adv} ;

View File

@@ -27,8 +27,8 @@ concrete TranslateBul of Translate =
ExtensionsBul [ ExtensionsBul [
CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP, CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
DirectComplVS, DirectComplVQ, FocusObjS, DirectComplVS, DirectComplVQ, FocusObjS,
PastPartAP, PastPartAgentAP, PresPartAP, PastPartAP, PastPartAgentAP, PresPartAP, GerundNP,
ByVP InOrderToVP, ByVP
], ],
DictionaryBul ** DictionaryBul **