From e90cc8190747ca2e9cd1295127c3b70d8c97c0b8 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Wed, 10 Dec 2014 22:44:31 +0000
Subject: [PATCH] added DirectComplVS, DirectComplVQ, FocusObjS in Bulgarian

---
 lib/src/translator/ExtensionsBul.gf | 11 ++++++++++-
 lib/src/translator/TranslateBul.gf  |  7 +++++--
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/lib/src/translator/ExtensionsBul.gf b/lib/src/translator/ExtensionsBul.gf
index 6428b46f9..3d95ddbb6 100644
--- a/lib/src/translator/ExtensionsBul.gf
+++ b/lib/src/translator/ExtensionsBul.gf
@@ -1,7 +1,7 @@
 --# -path=.:../abstract
 
 concrete ExtensionsBul of Extensions = 
-  CatBul ** open ResBul, (E = ExtraBul), Prelude in {
+  CatBul ** open ResBul, (E = ExtraBul), Prelude, SyntaxBul in {
 
 flags 
   coding = utf8 ;
@@ -177,4 +177,13 @@ lin
   UttAdV adv = adv;
   AdAdV = cc2 ;
   
+  DirectComplVS t np vs utt = 
+    mkS (lin Adv (optCommaSS utt)) (mkS t positivePol (mkCl np (lin V vs))) ;
+
+  DirectComplVQ t np vs q = 
+    mkS (lin Adv (optCommaSS (mkUtt q))) (mkS t positivePol (mkCl np (lin V vs))) ;
+
+  FocusObjS np sslash = 
+    mkS (lin Adv (optCommaSS (ss (sslash.c2.s ++ np.s ! RObj sslash.c2.c)))) (lin S {s=sslash.s ! np.a}) ;
+
 }
diff --git a/lib/src/translator/TranslateBul.gf b/lib/src/translator/TranslateBul.gf
index 9dface536..51f6bf2f1 100644
--- a/lib/src/translator/TranslateBul.gf
+++ b/lib/src/translator/TranslateBul.gf
@@ -24,8 +24,11 @@ concrete TranslateBul of Translate =
   DocumentationBul,
 
   ChunkBul,
-  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, CompoundAP,
-                 PresPartAP, PastPartAP, PassVPSlash, PassAgentVPSlash],
+  ExtensionsBul [
+    CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
+    DirectComplVS, DirectComplVQ, FocusObjS,
+    PastPartAP, PresPartAP
+    ],
 
   DictionaryBul ** 
 open MorphoBul, ResBul, ParadigmsBul, SyntaxBul, CommonScand, (E = ExtraBul), Prelude in {