From 28d903f91c383167146daad799f5a54cd4984d3c Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Wed, 10 Dec 2014 21:23:51 +0000
Subject: [PATCH] CompoundAP in Bulgarian

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

diff --git a/lib/src/translator/ExtensionsBul.gf b/lib/src/translator/ExtensionsBul.gf
index 7ae22bb9c..6428b46f9 100644
--- a/lib/src/translator/ExtensionsBul.gf
+++ b/lib/src/translator/ExtensionsBul.gf
@@ -42,6 +42,11 @@ lin
     g = cn.g
   } ;
 
+  CompoundAP n a =
+    let ap : AForm => Str
+           = \\aform => n.rel ! (ASg Neut Indef) ++ a.s ! aform
+    in {s = ap; adv = ap ! (ASg Neut Indef); isPre = True} ;
+
   GerundCN vp = {
     s   = \\nform => vp.ad.s ++
                      vp.s ! Imperf ! VNoun nform ++
diff --git a/lib/src/translator/TranslateBul.gf b/lib/src/translator/TranslateBul.gf
index bf0377134..9dface536 100644
--- a/lib/src/translator/TranslateBul.gf
+++ b/lib/src/translator/TranslateBul.gf
@@ -24,7 +24,7 @@ concrete TranslateBul of Translate =
   DocumentationBul,
 
   ChunkBul,
-  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, 
+  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, CompoundAP,
                  PresPartAP, PastPartAP, PassVPSlash, PassAgentVPSlash],
 
   DictionaryBul **