diff --git a/lib/src/translator/ExtensionsBul.gf b/lib/src/translator/ExtensionsBul.gf index 3d95ddbb6..9e4551b5d 100644 --- a/lib/src/translator/ExtensionsBul.gf +++ b/lib/src/translator/ExtensionsBul.gf @@ -73,6 +73,15 @@ lin vp.compl2 ! {gn=aform2gennum aform; p=P3} in {s = ap; adv = ap ! ASg Neut Indef; isPre = True} ; + PastPartAgentAP vp np = + let ap : AForm => Str + = \\aform => vp.ad.s ++ + vp.s ! Perf ! VPassive aform ++ + vp.compl1 ! {gn=aform2gennum aform; p=P3} ++ + vp.compl2 ! {gn=aform2gennum aform; p=P3} ++ + "от" ++ np.s ! RObj Acc + in {s = ap; adv = ap ! ASg Neut Indef; isPre = True} ; + PositAdVAdj a = {s = a.adv} ; that_RP = { diff --git a/lib/src/translator/TranslateBul.gf b/lib/src/translator/TranslateBul.gf index 51f6bf2f1..e644802fc 100644 --- a/lib/src/translator/TranslateBul.gf +++ b/lib/src/translator/TranslateBul.gf @@ -27,7 +27,7 @@ concrete TranslateBul of Translate = ExtensionsBul [ CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP, DirectComplVS, DirectComplVQ, FocusObjS, - PastPartAP, PresPartAP + PastPartAP, PastPartAgentAP, PresPartAP ], DictionaryBul **