From af72b5001edf0daab481b38142745629c9f82255 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Wed, 10 Dec 2014 23:09:40 +0000
Subject: [PATCH] PastPartAgentAP in Bulgarian

---
 lib/src/translator/ExtensionsBul.gf | 9 +++++++++
 lib/src/translator/TranslateBul.gf  | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

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 **