diff --git a/lib/src/translator/ExtensionsBul.gf b/lib/src/translator/ExtensionsBul.gf index 222b720de..734a00d96 100644 --- a/lib/src/translator/ExtensionsBul.gf +++ b/lib/src/translator/ExtensionsBul.gf @@ -53,6 +53,12 @@ lin vp.compl ! {gn=GSg Neut; p=P3} ; 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 = let ap : AForm => Str @@ -86,6 +92,9 @@ lin {s = vp.ad.s ++ vp.s ! Imperf ! VGerund ++ 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} ; diff --git a/lib/src/translator/TranslateBul.gf b/lib/src/translator/TranslateBul.gf index e06c557aa..0dae8f1a5 100644 --- a/lib/src/translator/TranslateBul.gf +++ b/lib/src/translator/TranslateBul.gf @@ -27,8 +27,8 @@ concrete TranslateBul of Translate = ExtensionsBul [ CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP, DirectComplVS, DirectComplVQ, FocusObjS, - PastPartAP, PastPartAgentAP, PresPartAP, - ByVP + PastPartAP, PastPartAgentAP, PresPartAP, GerundNP, + InOrderToVP, ByVP ], DictionaryBul **